X-Git-Url: http://git.samba.org/?p=samba.git;a=blobdiff_plain;f=source%2Fbuild%2Fpidl%2Fparser.pm;h=71c64cb5f7c1783f31741e15984853eddbafcf41;hp=7d9885312299369553d75a500a70aab42c927963;hb=f0a8f063a680b5d0a68c5ac7cccf9c9a13adfb81;hpb=638eae6bae76eba5494e75fb7f3da8b1c205f892

diff --git a/source/build/pidl/parser.pm b/source/build/pidl/parser.pm
index 7d988531229..71c64cb5f7c 100644
--- a/source/build/pidl/parser.pm
+++ b/source/build/pidl/parser.pm
@@ -189,10 +189,6 @@ sub ParseElementPrintScalar($$)
 	my($var_prefix) = shift;
 	my $cprefix = util::c_push_prefix($e);
 
-	if (util::has_property($e, "struct_len")) {
-		return;
-	}
-
 	if (defined $e->{VALUE}) {
 		$res .= "\tndr_print_$e->{TYPE}(ndr, \"$e->{NAME}\", $e->{VALUE});\n";
 	} elsif (util::has_direct_buffers($e)) {
@@ -393,27 +389,12 @@ sub ParseElementPullBuffer($$$)
 sub ParseStructPush($)
 {
 	my($struct) = shift;
-	my($struct_len);
 	my $conform_e;
 
 	if (! defined $struct->{ELEMENTS}) {
 		return;
 	}
 
-	# see if we have a structure length
-	foreach my $e (@{$struct->{ELEMENTS}}) {
-		$e->{PARENT} = $struct;
-		if (util::has_property($e, "struct_len")) {
-			$struct_len = $e;
-			$e->{VALUE} = "0";
-		}
-	}	
-
-	if (defined $struct_len) {
-		$res .= "\tstruct ndr_push_save _save1, _save2, _save3;\n";
-		$res .= "\tndr_push_save(ndr, &_save1);\n";
-	}
-
 	# see if the structure contains a conformant array. If it
 	# does, then it must be the last element of the structure, and
 	# we need to push the conformant length early, as it fits on
@@ -433,10 +414,7 @@ sub ParseStructPush($)
 	$res .= "\tif (!(ndr_flags & NDR_SCALARS)) goto buffers;\n";
 
 	foreach my $e (@{$struct->{ELEMENTS}}) {
-		if (defined($struct_len) && $e == $struct_len) {
-			$res .= "\tNDR_CHECK(ndr_push_align(ndr, sizeof($e->{TYPE})));\n";
-			$res .= "\tndr_push_save(ndr, &_save2);\n";
-		}
+		$e->{PARENT} = $struct;
 		ParseElementPushScalar($e, "r->", "NDR_SCALARS");
 	}	
 
@@ -446,14 +424,6 @@ sub ParseStructPush($)
 		ParseElementPushBuffer($e, "r->", "NDR_BUFFERS");
 	}
 
-	if (defined $struct_len) {
-		$res .= "\tndr_push_save(ndr, &_save3);\n";
-		$res .= "\tndr_push_restore(ndr, &_save2);\n";
-		$struct_len->{VALUE} = "_save3.offset - _save1.offset";
-		ParseElementPushScalar($struct_len, "r->", "NDR_SCALARS");
-		$res .= "\tndr_push_restore(ndr, &_save3);\n";
-	}
-
 	$res .= "done:\n";
 }
 
@@ -479,7 +449,6 @@ sub ParseStructPrint($)
 sub ParseStructPull($)
 {
 	my($struct) = shift;
-	my($struct_len);
 	my $conform_e;
 
 	if (! defined $struct->{ELEMENTS}) {
@@ -507,24 +476,6 @@ sub ParseStructPull($)
 	}
 
 
-	# see if we have a structure length. If we do then we need to advance
-	# the ndr_pull offset to that length past the front of the structure
-	# when we have finished with the structure
-	# we also need to make sure that we limit the size of our parsing
-	# of this structure to the given size
-	foreach my $e (@{$struct->{ELEMENTS}}) {
-		if (util::has_property($e, "struct_len")) {
-			$struct_len = $e;
-			$e->{VALUE} = "&_size";
-		}
-	}	
-
-	if (defined $struct_len) {
-		$res .= "\tuint32 _size;\n";
-		$res .= "\tstruct ndr_pull_save _save;\n";
-		$res .= "\tndr_pull_save(ndr, &_save);\n";
-	}
-
 	if (defined $conform_e) {
 		$res .= "\tNDR_CHECK(ndr_pull_uint32(ndr, &$conform_e->{CONFORMANT_SIZE}));\n";
 	}
@@ -535,9 +486,6 @@ sub ParseStructPull($)
 	$res .= "\tif (!(ndr_flags & NDR_SCALARS)) goto buffers;\n";
 	foreach my $e (@{$struct->{ELEMENTS}}) {
 		ParseElementPullScalar($e, "r->", "NDR_SCALARS");
-		if (defined($struct_len) && $e == $struct_len) {
-			$res .= "\tNDR_CHECK(ndr_pull_limit_size(ndr, _size, 4));\n";
-		}
 	}	
 
 	$res .= "buffers:\n";
@@ -546,11 +494,6 @@ sub ParseStructPull($)
 		ParseElementPullBuffer($e, "r->", "NDR_BUFFERS");
 	}
 
-	if (defined $struct_len) {
-		$res .= "\tndr_pull_restore(ndr, &_save);\n";
-		$res .= "\tNDR_CHECK(ndr_pull_advance(ndr, _size));\n";
-	}
-
 	$res .= "done:\n";
 }