summaryrefslogtreecommitdiff
path: root/source4/build/pidl
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl')
-rw-r--r--source4/build/pidl/util.pm20
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($)