diff options
Diffstat (limited to 'source4/build/pidl/util.pm')
| -rw-r--r-- | source4/build/pidl/util.pm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 537714adf3..c26ab2dd04 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -58,7 +58,6 @@ sub FlattenHash($) return \%b; } - ##################################################################### # traverse a perl data structure removing any empty arrays or # hashes and any hash elements that map to undef @@ -86,7 +85,6 @@ sub CleanData($) return $v; } - ##################################################################### # return the modification time of a file sub FileModtime($) @@ -95,7 +93,6 @@ sub FileModtime($) return (stat($filename))[9]; } - ##################################################################### # read a file into a string sub FileLoad($) @@ -155,20 +152,6 @@ sub SaveStructure($$) } ##################################################################### -# find an interface in an array of interfaces -sub get_interface($$) -{ - my($if) = shift; - my($n) = shift; - - foreach(@{$if}) { - if($_->{NAME} eq $n) { return $_; } - } - - return 0; -} - -##################################################################### # see if a pidl property list contains a given property sub has_property($$) { @@ -201,17 +184,6 @@ sub property_matches($$$) return undef; } -# determine if an element is a pass-by-reference structure -sub is_ref_struct($) -{ - my $e = shift; - if (!is_scalar_type($e->{TYPE}) && - has_property($e, "ref")) { - return 1; - } - return 0; -} - # return 1 if the string is a C constant sub is_constant($) { @@ -232,23 +204,4 @@ sub make_str($) return "\"" . $str . "\""; } -################################### -# find a sibling var in a structure -sub find_sibling($$) -{ - my($e) = shift; - my($name) = shift; - my($fn) = $e->{PARENT}; - - if ($name =~ /\*(.*)/) { - $name = $1; - } - - for my $e2 (@{$fn->{ELEMENTS}}) { - return $e2 if ($e2->{NAME} eq $name); - } - - return undef; -} - 1; |