diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-12-24 23:32:50 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:47:42 -0500 |
commit | 68ef82aac72c351f6e166b92bbb4573e8bcdbc86 (patch) | |
tree | b4a7b5518eb5f525f17990b240f121a62283ec29 /source4/pidl/lib/Parse/Pidl/NDR.pm | |
parent | ebfbb2a7abe33e47af48d69164c37f4c24b7f8ed (diff) | |
download | samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.gz samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.bz2 samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.zip |
r12464: Add simple IDL parsing tests for pidl using the standard perl
testing framework (Test::Simple, distributed with perl itself).
Run these tests from 'make test'
(This used to be commit 975d8816db6697dab828941b69a740e3a0a2c272)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/NDR.pm')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/NDR.pm | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm index 9ff69f8757..4b7a753fa5 100644 --- a/source4/pidl/lib/Parse/Pidl/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/NDR.pm @@ -13,15 +13,18 @@ Parse::Pidl::NDR - NDR parsing information generator =head1 DESCRIPTION -##################################################################### -# return a table describing the order in which the parts of an element -# should be parsed -# Possible level types: -# - POINTER -# - ARRAY -# - SUBCONTEXT -# - SWITCH -# - DATA +Return a table describing the order in which the parts of an element +should be parsed +Possible level types: + - POINTER + - ARRAY + - SUBCONTEXT + - SWITCH + - DATA + +=head1 AUTHOR + +Jelmer Vernooij <jelmer@samba.org> =cut @@ -629,6 +632,9 @@ sub ParseInterface($) sub Parse($) { my $idl = shift; + + return undef unless (defined($idl)); + my @ndr = (); push(@ndr, ParseInterface($_)) foreach (@{$idl}); |