diff options
Diffstat (limited to 'source4/build/pidl')
| -rw-r--r-- | source4/build/pidl/util.pm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 192d56316a..53ad4942c7 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -6,12 +6,17 @@ package util; use Data::Dumper; -sub dumpit($) +##################################################################### +# load a data structure from a file (as saved with SaveStructure) +sub LoadStructure($) { - my $a = shift; - return Dumper $a; + my $f = shift; + my $contents = FileLoad($f); + return eval "$contents"; } +use strict; + ##################################################################### # flatten an array of arrays into a single array sub FlattenArray2($) @@ -137,13 +142,6 @@ sub SaveStructure($$) } ##################################################################### -# load a data structure from a file (as saved with SaveStructure) -sub LoadStructure($) -{ - return eval FileLoad(shift); -} - -##################################################################### # see if a pidl property list contains a give property sub has_property($$) { @@ -242,7 +240,6 @@ sub need_wire_pointer($) return undef; } - # determine if an element is a pass-by-reference structure sub is_ref_struct($) { @@ -319,6 +316,7 @@ sub c_push_prefix($) return ""; } + # determine the C prefix used to refer to a variable when passing to a pull # return '&' or '' sub c_pull_prefix($) |