diff options
author | Stefan Metzmacher <metze@samba.org> | 2009-08-05 13:40:38 +0200 |
---|---|---|
committer | Stefan Metzmacher <metze@samba.org> | 2009-08-07 11:50:24 +0200 |
commit | 558ff911df1e16e28e3a1efa0849c9083d08c617 (patch) | |
tree | 04a60b2a93e0782dac27330726099c28ff27dcab /pidl/lib/Parse/Pidl/NDR.pm | |
parent | 20a6fb5cdb15b138021076e14c1df8f4ebb06184 (diff) | |
download | samba-558ff911df1e16e28e3a1efa0849c9083d08c617.tar.gz samba-558ff911df1e16e28e3a1efa0849c9083d08c617.tar.bz2 samba-558ff911df1e16e28e3a1efa0849c9083d08c617.zip |
pidl: parse idl 'pipe' typedefs, but print out a not supported message for now
metze
Diffstat (limited to 'pidl/lib/Parse/Pidl/NDR.pm')
-rw-r--r-- | pidl/lib/Parse/Pidl/NDR.pm | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm index 8440f0183d..a36f638092 100644 --- a/pidl/lib/Parse/Pidl/NDR.pm +++ b/pidl/lib/Parse/Pidl/NDR.pm @@ -928,7 +928,7 @@ my %property_list = ( "bitmap64bit" => ["BITMAP"], # array - "range" => ["ELEMENT"], + "range" => ["ELEMENT", "PIPE"], "size_is" => ["ELEMENT"], "string" => ["ELEMENT"], "noheader" => ["ELEMENT"], @@ -1120,6 +1120,18 @@ sub ValidUnion($) } ##################################################################### +# validate a pipe +sub ValidPipe($) +{ + my ($pipe) = @_; + my $data = $pipe->{DATA}; + + ValidProperties($pipe, "PIPE"); + + fatal($pipe, $pipe->{NAME} . ": 'pipe' is not yet supported by pidl"); +} + +##################################################################### # parse a typedef sub ValidTypedef($) { @@ -1164,7 +1176,8 @@ sub ValidType($) STRUCT => \&ValidStruct, UNION => \&ValidUnion, ENUM => \&ValidEnum, - BITMAP => \&ValidBitmap + BITMAP => \&ValidBitmap, + PIPE => \&ValidPipe }->{$t->{TYPE}}->($t); } @@ -1206,7 +1219,8 @@ sub ValidInterface($) $d->{TYPE} eq "STRUCT" or $d->{TYPE} eq "UNION" or $d->{TYPE} eq "ENUM" or - $d->{TYPE} eq "BITMAP") && ValidType($d); + $d->{TYPE} eq "BITMAP" or + $d->{TYPE} eq "PIPE") && ValidType($d); } } |