summaryrefslogtreecommitdiff
path: root/source4/build/pidl/util.pm
diff options
context:
space:
mode:
authorAndrew Tridgell <tridge@samba.org>2003-11-15 10:57:17 +0000
committerAndrew Tridgell <tridge@samba.org>2003-11-15 10:57:17 +0000
commit54ccb9c6a2510c3e76603459f09d911c1dc3354e (patch)
tree69fbb8c5a695643ae31b102d79d8a150ac2684d9 /source4/build/pidl/util.pm
parent42a25ebb75f29c9d67232312c99ecbd5555e50b2 (diff)
downloadsamba-54ccb9c6a2510c3e76603459f09d911c1dc3354e.tar.gz
samba-54ccb9c6a2510c3e76603459f09d911c1dc3354e.tar.bz2
samba-54ccb9c6a2510c3e76603459f09d911c1dc3354e.zip
added support for varying conformant arrays (needed for samr
userinfo3) (This used to be commit f5b577a2b9d8084c8ee3f5b646b059c3297695b4)
Diffstat (limited to 'source4/build/pidl/util.pm')
-rw-r--r--source4/build/pidl/util.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index 341502e551..383bcdfd07 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -353,6 +353,17 @@ sub is_constant($)
return 0;
}
+# return 1 if this is a fixed array
+sub is_fixed_array($)
+{
+ my $e = shift;
+ my $len = $e->{"ARRAY_LEN"};
+ if (defined $len && is_constant($len)) {
+ return 1;
+ }
+ return 0;
+}
+
sub dump($)
{
print Dumper shift;