diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-06-18 16:31:48 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:18:27 -0500 |
| commit | 327a9ac650d7661a3f94c8e827cd02834550afc4 (patch) | |
| tree | 70fa28d27d91af0de5d5ba468fae226cb65ada9a /source4/build/pidl/ndr.pm | |
| parent | 0dde0612b420d12b92d22bd64baa500af2c00b2f (diff) | |
| download | samba-327a9ac650d7661a3f94c8e827cd02834550afc4.tar.gz samba-327a9ac650d7661a3f94c8e827cd02834550afc4.tar.bz2 samba-327a9ac650d7661a3f94c8e827cd02834550afc4.zip | |
r7729: Small fixes to the charset stuff.
(This used to be commit 5122b9f608399a6c90521e2f8bd96154755fe397)
Diffstat (limited to 'source4/build/pidl/ndr.pm')
| -rw-r--r-- | source4/build/pidl/ndr.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/source4/build/pidl/ndr.pm b/source4/build/pidl/ndr.pm index f866a0ea8e..2bf673b5e3 100644 --- a/source4/build/pidl/ndr.pm +++ b/source4/build/pidl/ndr.pm @@ -10,6 +10,12 @@ package Ndr; use strict; use pidl::typelist; +sub nonfatal($$) +{ + my ($e,$s) = @_; + warn ("$e->{FILE}:$e->{LINE}: Warning: $s\n"); +} + ##################################################################### # return a table describing the order in which the parts of an element # should be parsed @@ -172,6 +178,19 @@ sub GetElementLevelTable($) }); } + if (scalar(@size_is) > 0) { + nonfatal($e, "size_is() on non-array element"); + } + + if (scalar(@length_is) > 0) { + nonfatal($e, "length_is() on non-array element"); + } + + if (util::has_property($e, "string")) { + nonfatal($e, "string() attribute on non-array element"); + } + + push (@$order, { TYPE => "DATA", DATA_TYPE => $e->{TYPE}, |