svn commit: samba r4771 - in branches/SAMBA_4_0/source/build/pidl: .

tpot at samba.org tpot at samba.org
Sun Jan 16 01:57:12 GMT 2005


Author: tpot
Date: 2005-01-16 01:57:12 +0000 (Sun, 16 Jan 2005)
New Revision: 4771

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=4771

Log:
Fix some indentation.

Modified:
   branches/SAMBA_4_0/source/build/pidl/eparser.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/eparser.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/eparser.pm	2005-01-16 01:48:08 UTC (rev 4770)
+++ branches/SAMBA_4_0/source/build/pidl/eparser.pm	2005-01-16 01:57:12 UTC (rev 4771)
@@ -151,19 +151,25 @@
 sub NeededFunction($)
 {
 	my $fn = shift;
+
 	$needed{"pull_$fn->{NAME}"} = 1;
+
 	foreach my $e (@{$fn->{DATA}}) {
+
 		$e->{PARENT} = $fn;
 		$needed{"pull_$e->{TYPE}"} = 1;
 
 		if (util::is_scalar_type($e->{TYPE})) {
+
 		    $needed{"hf_$e->{NAME}_$e->{TYPE}"} = {
 			'name' => field2name($e->{NAME}),
 			'type' => $e->{TYPE},
 			'ft'   => type2ft($e->{TYPE}),
 			'base' => elementbase($e)
 			}, if !defined($needed{"hf_$e->{NAME}_$e->{TYPE}"});
+
 		    $e->{PARENT} = $fn;
+
 		} else {
 		    $needed{"ett_$e->{TYPE}"} = 1;
 		}
@@ -173,6 +179,7 @@
 sub NeededTypedef($)
 {
 	my $t = shift;
+
 	if (util::has_property($t, "public")) {
 		$needed{"pull_$t->{NAME}"} = 1;
 	}
@@ -180,7 +187,9 @@
 	if ($t->{DATA}->{TYPE} eq "STRUCT") {
 
 	    for my $e (@{$t->{DATA}->{ELEMENTS}}) {
+
 		$e->{PARENT} = $t->{DATA};
+
 		if ($needed{"pull_$t->{NAME}"}) {
 		    $needed{"pull_$e->{TYPE}"} = 1;
 		}
@@ -200,6 +209,7 @@
 			    };
 
 		    } else {
+
 			$needed{"hf_$e->{NAME}_$e->{TYPE}"} = {
 			    'name' => field2name($e->{NAME}),
 			    'type' => $e->{TYPE},
@@ -223,12 +233,17 @@
 	}
 
 	if ($t->{DATA}->{TYPE} eq "UNION") {
+
 		for my $e (@{$t->{DATA}->{DATA}}) {
+
 			$e->{PARENT} = $t->{DATA};
+
 			if ($e->{TYPE} eq "UNION_ELEMENT") {
+
 				if ($needed{"pull_$t->{NAME}"}) {
 					$needed{"pull_$e->{DATA}->{TYPE}"} = 1;
 				}
+
 				$needed{"ett_$e->{DATA}{TYPE}"} = 1;
 			}
 		}
@@ -237,6 +252,7 @@
 	}
 
 	if ($t->{DATA}->{TYPE} eq "ENUM") {
+
 	    $needed{"hf_$t->{NAME}"} = {
 		'name' => $t->{NAME},
 		'ft' => 'FT_UINT16',
@@ -250,11 +266,14 @@
 sub BuildNeeded($)
 {
 	my($interface) = shift;
+
 	my($data) = $interface->{DATA};
+
 	foreach my $d (@{$data}) {
 		($d->{TYPE} eq "FUNCTION") && 
 		    NeededFunction($d);
 	}
+
 	foreach my $d (reverse @{$data}) {
 		($d->{TYPE} eq "TYPEDEF") &&
 		    NeededTypedef($d);
@@ -436,12 +455,12 @@
 	# Get rid of dcerpc interface structures and functions since
 	# they are also not very interesting.
 
-next, if /^static const struct dcerpc_interface_call/ .. /^};/;
-next, if /^static const char \* const [a-z]+_endpoint_strings/ ../^};/;
-next, if /^static const struct dcerpc_endpoint_list/ .. /^};/;
-next, if /^const struct dcerpc_interface_table/ .. /^};/;
-next, if /^static NTSTATUS dcerpc_ndr_[a-z]+_init/ .. /^}/;
-next, if /^NTSTATUS dcerpc_[a-z]+_init/ .. /^}/;
+        next, if /^static const struct dcerpc_interface_call/ .. /^};/;
+        next, if /^static const char \* const [a-z]+_endpoint_strings/ ../^};/;
+        next, if /^static const struct dcerpc_endpoint_list/ .. /^};/;
+        next, if /^const struct dcerpc_interface_table/ .. /^};/;
+        next, if /^static NTSTATUS dcerpc_ndr_[a-z]+_init/ .. /^}/;
+        next, if /^NTSTATUS dcerpc_[a-z]+_init/ .. /^}/;
 
 	# Rewrite includes to packet-dcerpc-foo.h instead of ndr_foo.h
 



More information about the samba-cvs mailing list