diff options
| author | Stefan Metzmacher <metze@samba.org> | 2004-11-02 13:46:39 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:05:21 -0500 |
| commit | a2fd2488c79902dfe1de764bea4f619ec6107fed (patch) | |
| tree | b0018bafa465de3b55acfd4db4bc9143ebce16c4 /source4/build/pidl/util.pm | |
| parent | 34c9263ed0ffc591e8313981085791b660ccfe26 (diff) | |
| download | samba-a2fd2488c79902dfe1de764bea4f619ec6107fed.tar.gz samba-a2fd2488c79902dfe1de764bea4f619ec6107fed.tar.bz2 samba-a2fd2488c79902dfe1de764bea4f619ec6107fed.zip | |
r3484: - add support for conformant string arrays at the end of a struct
- add support for strings where the length excludes the NULLTERM
metze
(This used to be commit 8251d8b3e5af351972aa41aed63f7a7d2640910e)
Diffstat (limited to 'source4/build/pidl/util.pm')
| -rw-r--r-- | source4/build/pidl/util.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index c49e956e50..bddce57740 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -181,6 +181,24 @@ sub has_property($$) return $e->{PROPERTIES}->{$p}; } +##################################################################### +# see if a pidl property matches a value +sub property_matches($$$) +{ + my($e) = shift; + my($p) = shift; + my($v) = shift; + + if (!defined has_property($e, $p)) { + return undef; + } + + if ($e->{PROPERTIES}->{$p} =~ /$v/) { + return 1; + } + + return undef; +} sub is_scalar_type($) { |