diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-15 10:57:17 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-15 10:57:17 +0000 |
commit | 54ccb9c6a2510c3e76603459f09d911c1dc3354e (patch) | |
tree | 69fbb8c5a695643ae31b102d79d8a150ac2684d9 /source4/build/pidl/util.pm | |
parent | 42a25ebb75f29c9d67232312c99ecbd5555e50b2 (diff) | |
download | samba-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.pm | 11 |
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; |