From: David Disseldorp <ddiss@suse.de>
Date: Fri, 13 Jan 2012 21:51:22 +0000 (-0800)
Subject: idl: add to_null property
X-Git-Url: http://git.samba.org/samba.git/?p=kai%2Fsamba.git;a=commitdiff_plain;h=b8a8870d276950fa7992047f98181bc137d63066

idl: add to_null property

to_null specifies that character conversion should only occur until the
null pointer in an array based string.

Signed-off-by: Jeremy Allison <jra@samba.org>

Autobuild-User: Jeremy Allison <jra@samba.org>
Autobuild-Date: Sat Jan 14 00:51:54 CET 2012 on sn-devel-104
---

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index db776ae3ef3..ed7fdab94ce 100644
--- a/pidl/lib/Parse/Pidl/NDR.pm
+++ b/pidl/lib/Parse/Pidl/NDR.pm
@@ -171,6 +171,7 @@ sub GetElementLevelTable($$$)
 		my $is_string = 0;
 		my $is_fixed = 0;
 		my $is_inline = 0;
+		my $is_to_null = 0;
 
 		if ($d eq "*") {
 			$is_conformant = 1;
@@ -208,6 +209,10 @@ sub GetElementLevelTable($$$)
 			delete($e->{PROPERTIES}->{string});
 		}
 
+		if (has_property($e, "to_null")) {
+			$is_to_null = 1;
+		}
+
 		push (@$order, {
 			TYPE => "ARRAY",
 			SIZE_IS => $size,
@@ -218,7 +223,8 @@ sub GetElementLevelTable($$$)
 			IS_VARYING => $is_varying,
 			IS_CONFORMANT => $is_conformant,
 			IS_FIXED => $is_fixed,
-			IS_INLINE => $is_inline
+			IS_INLINE => $is_inline,
+			IS_TO_NULL => $is_to_null
 		});
 	}
 
@@ -1102,6 +1108,7 @@ my %property_list = (
 	"noheader"		=> ["ELEMENT"],
 	"charset"		=> ["ELEMENT"],
 	"length_is"		=> ["ELEMENT"],
+	"to_null"		=> ["ELEMENT"],
 );
 
 #####################################################################