diff options
Diffstat (limited to 'pidl/lib/Parse/Pidl/Wireshark/NDR.pm')
| -rw-r--r-- | pidl/lib/Parse/Pidl/Wireshark/NDR.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm index 1d64e7f3d47..aa434d8ad1a 100644 --- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm +++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm @@ -188,6 +188,13 @@ sub Enum($$$$) $self->register_type($name, "offset = $dissectorname(tvb, offset, pinfo, tree, drep, \@HF\@, \@PARAM\@);", "FT_UINT$enum_size", "BASE_DEC", "0", "VALS($valsstring)", $enum_size / 8); } +sub Pipe($$$$) +{ + my ($self,$e,$name,$ifname) = @_; + error($e->{ORIGINAL}, "Pipe not yet supported"); + return; +} + sub Bitmap($$$$) { my ($self,$e,$name,$ifname) = @_; @@ -400,6 +407,8 @@ sub ElementLevel($$$$$$$$) $self->pidl_code("di->call_data->flags = saved_flags;"); $self->deindent; $self->pidl_code("}"); + } elsif ($_->{TYPE} eq "PIPE") { + error($e->{ORIGINAL}, "Type PIPE not yet supported"); } else { die("Unknown type `$_->{TYPE}'"); } @@ -788,13 +797,13 @@ sub Type($$$$) my ($self, $e, $name, $ifname) = @_; $self->PrintIdl(DumpType($e->{ORIGINAL})); - { ENUM => \&Enum, STRUCT => \&Struct, UNION => \&Union, BITMAP => \&Bitmap, - TYPEDEF => \&Typedef + TYPEDEF => \&Typedef, + PIPE => \&Pipe }->{$e->{TYPE}}->($self, $e, $name, $ifname); } |