diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-12 05:32:37 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-12 05:32:37 +0000 |
| commit | 6735b72a8d0a8e0be274208c84b65db2fa33d2a0 (patch) | |
| tree | 4cea4d96b7482211d8c1328e2ae0fed1096a1c67 /source4/build/pidl/util.pm | |
| parent | 8830a20bce4bde93aef2752c1e87aca428169d0a (diff) | |
| download | samba-6735b72a8d0a8e0be274208c84b65db2fa33d2a0.tar.gz samba-6735b72a8d0a8e0be274208c84b65db2fa33d2a0.tar.bz2 samba-6735b72a8d0a8e0be274208c84b65db2fa33d2a0.zip | |
handle constant sized arrays
(This used to be commit 673e7bcdc2d7ee949ca0f56f9ba3cd04b5c38397)
Diffstat (limited to 'source4/build/pidl/util.pm')
| -rw-r--r-- | source4/build/pidl/util.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 267cf36fef..9e7b909109 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -343,5 +343,15 @@ sub has_direct_buffers($) return 0; } +# return 1 if the string is a C constant +sub is_constant($) +{ + my $s = shift; + if ($s =~ /^\d/) { + return 1; + } + return 0; +} + 1; |