From fc4c633d9f2f6fc1869aa38194585da5c0be1249 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 20 May 2005 23:19:06 +0000
Subject: [PATCH] r6926: More build farm fixes:  - Warn about unknown
 attributes in .mk  - Remove more unused functions (This used to be commit
 6bf8126ae9368dc56cf0cd91b972a2d939974679)

---
 source4/build/pidl/idl.pm              |   2 +-
 source4/build/pidl/idl.yp              |   2 +-
 source4/build/pidl/pidl.pl             |  16 +--
 source4/build/pidl/test.pm             |   2 +-
 source4/build/pidl/util.pm             |   1 +
 source4/build/smb_build/config_mk.pm   | 134 ++++++-------------------
 source4/build/smb_build/input.pm       |  50 ++++-----
 source4/build/smb_build/main.pm        |  16 ++-
 source4/build/smb_build/makefile.pm    |  19 ++--
 source4/build/smb_build/output.pm      |   4 +-
 source4/build/smb_build/smb_build_h.pm |   7 +-
 11 files changed, 78 insertions(+), 175 deletions(-)

diff --git a/source4/build/pidl/idl.pm b/source4/build/pidl/idl.pm
index 636bcfb51ca..53c06f22d8d 100644
--- a/source4/build/pidl/idl.pm
+++ b/source4/build/pidl/idl.pm
@@ -2400,7 +2400,7 @@ sub parse_idl($$)
 		}
 	}
 
-	return $idl;
+	return util::CleanData($idl);
 }
 
 1;
diff --git a/source4/build/pidl/idl.yp b/source4/build/pidl/idl.yp
index 775e1fbd382..186f0033962 100644
--- a/source4/build/pidl/idl.yp
+++ b/source4/build/pidl/idl.yp
@@ -388,5 +388,5 @@ sub parse_idl($$)
 		}
 	}
 
-	return $idl;
+	return util::CleanData($idl);
 }
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl
index b80832dd998..2305d9243b2 100755
--- a/source4/build/pidl/pidl.pl
+++ b/source4/build/pidl/pidl.pl
@@ -4,6 +4,7 @@
 # package to parse IDL files and generate code for
 # rpc functions in Samba
 # Copyright tridge@samba.org 2000-2003
+# Copyright jelmer@samba.org 2005
 # released under the GNU GPL
 
 use strict;
@@ -13,9 +14,9 @@ use lib "$RealBin";
 use lib "$RealBin/lib";
 use Getopt::Long;
 use File::Basename;
-use idl;
 use dump;
 use ndr_client;
+use idl;
 use ndr_header;
 use ndr_parser;
 use server;
@@ -50,16 +51,6 @@ my($opt_output);
 
 my $idl_parser = new idl;
 
-#####################################################################
-# parse an IDL file returning a structure containing all the data
-sub IdlParse($)
-{
-    my $filename = shift;
-    my $idl = $idl_parser->parse_idl($filename);
-    util::CleanData($idl);
-    return $idl;
-}
-
 #########################################
 # display help text
 sub ShowHelp()
@@ -137,7 +128,7 @@ sub process_file($)
 	unless ($opt_quiet) { print "Compiling $idl_file\n"; }
 
 	if ($opt_parse) {
-		$pidl = IdlParse($idl_file);
+		$pidl = $idl_parser->parse_idl($idl_file);
 		defined @$pidl || die "Failed to parse $idl_file";
 		typelist::LoadIdl($pidl);
 		IdlValidator::Validate($pidl);
@@ -271,7 +262,6 @@ $dcom
 	}
 }
 
-
 foreach my $filename (@ARGV) {
 	process_file($filename);
 }
diff --git a/source4/build/pidl/test.pm b/source4/build/pidl/test.pm
index 5f25d4195c1..920db52aa58 100644
--- a/source4/build/pidl/test.pm
+++ b/source4/build/pidl/test.pm
@@ -87,7 +87,7 @@ sub link_files($$)
 {
 	my ($exe_name,$objs) = @_;
 
-	return system($cc, @ldflags, '-Lbin', '-lrpc', '-o', $exe_name, @$objs);
+	return system($cc, @ldflags, '-Lbin', '-o', $exe_name, @$objs, '-lrpc', '-ldl', '-lldap');
 }
 
 sub test_idl($$$$)
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index 5adbea38595..0037de8713a 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -83,6 +83,7 @@ sub CleanData($)
 	    if (ref($v->{$x}) eq "ARRAY" && $#{$v->{$x}}==-1) { delete($v->{$x}); next; }
 	}
     }
+	return $v;
 }
 
 
diff --git a/source4/build/smb_build/config_mk.pm b/source4/build/smb_build/config_mk.pm
index 464f1674ebd..36ce80a8ebb 100644
--- a/source4/build/smb_build/config_mk.pm
+++ b/source4/build/smb_build/config_mk.pm
@@ -11,6 +11,21 @@ use input;
 
 use strict;
 
+my %attribute_types = (
+	"NOPROTO" => "string",
+   	"REQUIRED_SUBSYSTEMS" => "list",
+	"OUTPUT_TYPE" => "string",
+	"INIT_OBJ_FILES" => "list",
+	"ADD_OBJ_FILES" => "list",
+	"OBJ_FILES" => "list",
+	"SUBSYSTEM" => "string",
+	"INIT_FUNCTION" => "string",
+	"MAJOR_VERSION" => "string",
+	"MINOR_VERSION" => "string",
+	"RELEASE_VERSION" => "string",
+	"ENABLE" => "bool"
+);
+
 ###########################################################
 # The parsing function which parses the file
 #
@@ -135,109 +150,6 @@ sub _parse_config_mk($)
 	return $result;
 }
 
-###########################################################
-# A caching function to avoid to parse
-# a file twice or more
-#
-# $result = _get_parse_results($filename)
-#
-# $filename -	the path of the config.mk file
-#		which should be parsed
-#
-# $result -	the resulting structure
-#
-# $result->{ERROR_CODE} -	the error_code, '0' means success
-# $result->{ERROR_STR} -	the error string
-#
-# $result->{$key}{KEY} -	the key == the variable which was parsed
-# $result->{$key}{VAL} -	the value of the variable
-my $_get_parse_results_cache;
-sub _get_parse_results($)
-{
-	my $filename = shift;
-
-	if ((!defined($_get_parse_results_cache->{$filename}{ERROR_CODE}))
-		||($_get_parse_results_cache->{$filename}{ERROR_CODE} != 0)) {
-		$_get_parse_results_cache->{$filename} = _parse_config_mk($filename);
-	}
-
-	return $_get_parse_results_cache->{$filename};
-}
-
-###########################################################
-# The fetching function to fetch the value of a variable 
-# out of the file
-#
-# $value = _fetch_var_from_config_mk($filename,$section,$variable)
-#
-# $filename -	the path of the config.mk file
-#		which should be parsed
-#
-# $section  -	the section name of the variable
-#
-# $variable -	the variable name of which we want the value
-#
-# $value -	the value of the variable
-sub _fetch_var_from_config_mk($$$)
-{
-	my $filename = shift;
-	my $section = shift;
-	my $key = shift;
-	my $val = "";
-	my $result;
-
-	$result = _get_parse_results($filename);
-
-	if ($result->{ERROR_CODE} != 0) {
-		die ($result->{ERROR_STR});
-	}
-
-	if (defined($result->{$section}{$key})) {
-		$val = input::strtrim($result->{$section}{$key}{VAL});
-	} elsif (defined($result->{DEFAULT}{$key})) {
-		$val = input::strtrim($result->{DEFAULT}{$key}{VAL});
-	}
-
-	return $val;
-}
-
-###########################################################
-# The fetching function to fetch the array of values of a variable 
-# out of the file
-#
-# $array = _fetch_array_from_config_mk($filename,$section,$variable)
-#
-# $filename -	the path of the config.mk file
-#		which should be parsed
-#
-# $section  -	the section name of the variable
-#
-# $variable -	the variable name of which we want the value
-#
-# $array -	the array of values of the variable
-sub _fetch_array_from_config_mk($$$)
-{
-	my $filename = shift;
-	my $section = shift;
-	my $key = shift;
-	my $result;
-	my $val = "";
-
-	$result = _get_parse_results($filename);
-
-	if ($result->{ERROR_CODE} != 0) {
-		die ($result->{ERROR_STR});
-	}
-
-	if (defined($result->{$section}{$key})) {
-		$val = $result->{$section}{$key}{VAL};
-	} elsif (defined($result->{DEFAULT}{$key})) {
-		$val = $result->{DEFAULT}{$key}{VAL};
-	} 
-
-	return input::str2array($val);
-}
-
 sub import_file($$)
 {
 	my $input = shift;
@@ -255,7 +167,21 @@ sub import_file($$)
 		$input->{$name}{TYPE} = $type;
 
 		foreach my $key (values %{$result->{$section}}) {
-			$input->{$name}{$key->{KEY}} = [input::str2array($key->{VAL})];
+			$key->{VAL} = input::strtrim($key->{VAL});
+			my $vartype = $attribute_types{$key->{KEY}};
+			if (not defined($vartype)) {
+				die("Unknown attribute $key->{KEY}");
+			}
+			if ($vartype eq "string") {
+				$input->{$name}{$key->{KEY}} = $key->{VAL};
+			} elsif ($vartype eq "list") {
+				$input->{$name}{$key->{KEY}} = [input::str2array($key->{VAL})];
+			} elsif ($vartype eq "bool") {
+				if (($key->{VAL} ne "YES") and ($key->{VAL} ne "NO")) {
+					die("Invalid value for bool attribute $key->{KEY}: $key->{VAL}");
+				}
+				$input->{$name}{$key->{KEY}} = $key->{VAL};
+			}
 		}
 	}
 }
diff --git a/source4/build/smb_build/input.pm b/source4/build/smb_build/input.pm
index 72e978dfc59..e8d98d060b5 100644
--- a/source4/build/smb_build/input.pm
+++ b/source4/build/smb_build/input.pm
@@ -47,7 +47,7 @@ sub str2array($)
 
 sub check_subsystem($$)
 {
-	my $CTX = shift;
+	my $INPUT = shift;
 	my $subsys = shift;
 	if ($subsys->{ENABLE} ne "YES") {
 		printf("Subsystem: %s disabled!\n",$subsys->{NAME});
@@ -56,14 +56,12 @@ sub check_subsystem($$)
 	
 	unless(defined($subsys->{OUTPUT_TYPE})) {
 		$subsys->{OUTPUT_TYPE} = $subsystem_default_output_type;
-	} else {
-		$subsys->{OUTPUT_TYPE} = join('', @{$subsys->{OUTPUT_TYPE}});
 	}
 }
 
 sub check_module($$)
 {
-	my $CTX = shift;
+	my $INPUT = shift;
 	my $mod = shift;
 
 	die("Module $mod->{NAME} does not have a SUBSYSTEM set") if not defined($mod->{SUBSYSTEM});
@@ -72,9 +70,7 @@ sub check_module($$)
 	
 	my $use_default = 0;
 
-	$mod->{SUBSYSTEM} = join(' ', @{$mod->{SUBSYSTEM}});
-
-	if (!(defined($CTX->{INPUT}{$mod->{SUBSYSTEM}}))) {
+	if (!(defined($INPUT->{$mod->{SUBSYSTEM}}))) {
 		$mod->{BUILD} = "NOT";
 		$mod->{ENABLE} = "NO";
 		printf("Module: %s...PARENT SUBSYSTEM ($mod->{SUBSYSTEM}) DISABLED\n",$mod->{NAME});
@@ -97,7 +93,7 @@ sub check_module($$)
 		printf("Module: %s...shared\n",$mod->{NAME});
 	} elsif ($mod->{CHOSEN_BUILD} eq "STATIC") {
 		$mod->{ENABLE} = "YES";
-		push (@{$CTX->{INPUT}{$mod->{SUBSYSTEM}}{REQUIRED_SUBSYSTEMS}}, $mod->{NAME});
+		push (@{$INPUT->{$mod->{SUBSYSTEM}}{REQUIRED_SUBSYSTEMS}}, $mod->{NAME});
 		printf("Module: %s...static\n",$mod->{NAME});
 		$mod->{OUTPUT_TYPE} = $subsystem_default_output_type;
 	} else {
@@ -109,7 +105,7 @@ sub check_module($$)
 
 sub check_library($$)
 {
-	my $CTX = shift;
+	my $INPUT = shift;
 	my $lib = shift;
 
 	if ($lib->{ENABLE} ne "YES") {
@@ -118,21 +114,11 @@ sub check_library($$)
 	}
 
 	$lib->{OUTPUT_TYPE} = "SHARED_LIBRARY";
-
-	if (defined($lib->{MAJOR_VERSION})) {
-	    $lib->{MAJOR_VERSION} = join('', @{$lib->{MAJOR_VERSION}});
-	}
-	if (defined($lib->{MINOR_VERSION})) {
-	    $lib->{MINOR_VERSION} = join('', @{$lib->{MINOR_VERSION}});
-	}
-	if (defined($lib->{RELEASE_VERSION})) {
-	    $lib->{RELEASE_VERSION} = join('', @{$lib->{RELEASE_VERSION}});
-	}
 }
 
 sub check_binary($$)
 {
-	my $CTX = shift;
+	my $INPUT = shift;
 	my $bin = shift;
 
 	if ($bin->{ENABLE} ne "YES") {
@@ -164,29 +150,29 @@ sub calc_unique_deps
 ###########################################################
 # This function checks the input from the configure script 
 #
-# check_input($SMB_BUILD_CTX)
+# check_input($INPUT)
 #
-# $SMB_BUILD_CTX -	the global SMB_BUILD context
+# $INPUT -	the global INPUT context
 sub check($)
 {
-	my $CTX = shift;
+	my $INPUT = shift;
 
 	($subsystem_default_output_type = $ENV{SUBSYSTEM_OUTPUT_TYPE}) if (defined($ENV{"SUBSYSTEM_OUTPUT_TYPE"}));
 
-	foreach my $part (values %{$CTX->{INPUT}}) {
+	foreach my $part (values %$INPUT) {
 		($part->{ENABLE} = "YES") if not defined($part->{ENABLE});
 	}
 
-	foreach my $k (keys %{$CTX->{INPUT}}) {
-		my $part = $CTX->{INPUT}->{$k};
+	foreach my $k (keys %$INPUT) {
+		my $part = $INPUT->{$k};
 		if (not defined($part->{TYPE})) {
 			print STDERR "$k does not have a type set.. Perhaps it's only mentioned in a .m4 but not in a .mk file?\n";
 			next;
 		}
-		check_subsystem($CTX, $part) if ($part->{TYPE} eq "SUBSYSTEM");
-		check_module($CTX, $part) if ($part->{TYPE} eq "MODULE");
-		check_library($CTX, $part) if ($part->{TYPE} eq "LIBRARY");
-		check_binary($CTX, $part) if ($part->{TYPE} eq "BINARY");
+		check_subsystem($INPUT, $part) if ($part->{TYPE} eq "SUBSYSTEM");
+		check_module($INPUT, $part) if ($part->{TYPE} eq "MODULE");
+		check_library($INPUT, $part) if ($part->{TYPE} eq "LIBRARY");
+		check_binary($INPUT, $part) if ($part->{TYPE} eq "BINARY");
 
 		#FIXME: REQUIRED_LIBRARIES needs to go
 		if (defined($part->{REQUIRED_LIBRARIES})) {
@@ -195,7 +181,7 @@ sub check($)
 		}
 	}
 
-	my %depend = %{$CTX->{INPUT}};
+	my %depend = %$INPUT;
 
 	foreach my $part (values %depend) {
 		
@@ -215,7 +201,7 @@ sub check($)
 		calc_unique_deps($part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
 	}
 
-	return %depend;
+	return \%depend;
 }
 
 1;
diff --git a/source4/build/smb_build/main.pm b/source4/build/smb_build/main.pm
index 2fcd4594ac8..c13fa2cb234 100644
--- a/source4/build/smb_build/main.pm
+++ b/source4/build/smb_build/main.pm
@@ -17,9 +17,6 @@ use strict;
 sub smb_build_main($)
 {
 	my $INPUT = shift;
-	my %SMB_BUILD_CTX = (
-		INPUT => $INPUT
-	);
 
 	my @mkfiles = (
 		"dsdb/config.mk",
@@ -71,19 +68,20 @@ sub smb_build_main($)
 	$| = 1;
 
 	for my $mkfile (@mkfiles) {
-		config_mk::import_file($SMB_BUILD_CTX{INPUT}, $mkfile);
+		config_mk::import_file($INPUT, $mkfile);
 	}
 
-	%{$SMB_BUILD_CTX{DEPEND}} = input::check(\%SMB_BUILD_CTX);
+	my $DEPEND = input::check($INPUT);
 	
-	%{$SMB_BUILD_CTX{OUTPUT}} = output::create_output($SMB_BUILD_CTX{DEPEND});
+	my $OUTPUT = output::create_output($DEPEND);
 
-	makefile::create_makefile_in($SMB_BUILD_CTX{OUTPUT});
+	makefile::create_makefile_in($OUTPUT, "Makefile.in");
 
-	smb_build_h::create_smb_build_h($SMB_BUILD_CTX{OUTPUT});
+	smb_build_h::create_smb_build_h($OUTPUT, "include/smb_build.h");
 
 	open DOTTY, ">samba4-deps.dot";
-	print DOTTY dot::generate($SMB_BUILD_CTX{DEPEND});
+	print DOTTY dot::generate($DEPEND);
 	close DOTTY;
 }
+
 1;
diff --git a/source4/build/smb_build/makefile.pm b/source4/build/smb_build/makefile.pm
index 1d5b03b1248..19ed201d816 100644
--- a/source4/build/smb_build/makefile.pm
+++ b/source4/build/smb_build/makefile.pm
@@ -597,7 +597,7 @@ sub _prepare_obj_lists($)
 	my $CTX = shift;
 	my $output = "";
 
-	foreach my $key (values %{$CTX}) {
+	foreach my $key (values %$CTX) {
 		next if not defined($key->{OBJ_LIST});
 		$output .= _prepare_obj_list($key->{TYPE}, $key);
 	}
@@ -760,9 +760,9 @@ sub _prepare_rule_lists($)
 ###########################################################
 # This function prepares the output for Makefile
 #
-# $output = _prepare_makefile_in($SMB_BUILD_CTX)
+# $output = _prepare_makefile_in($OUTPUT)
 #
-# $SMB_BUILD_CTX -	the global SMB_BUILD context
+# $OUTPUT -	the global OUTPUT context
 #
 # $output -		the resulting output buffer
 sub _prepare_makefile_in($)
@@ -811,23 +811,24 @@ sub _prepare_makefile_in($)
 }
 
 ###########################################################
-# This function creates Makefile.in from the SMB_BUILD 
+# This function creates Makefile.in from the OUTPUT 
 # context
 #
-# create_makefile_in($SMB_BUILD_CTX)
+# create_makefile_in($OUTPUT)
 #
-# $SMB_BUILD_CTX -	the global SMB_BUILD context
+# $OUTPUT	-	the global OUTPUT context
 #
 # $output -		the resulting output buffer
-sub create_makefile_in($)
+sub create_makefile_in($$)
 {
 	my $CTX = shift;
+	my $file = shift;
 
-	open(MAKEFILE_IN,"> Makefile.in") || die ("Can't open Makefile.in\n");
+	open(MAKEFILE_IN,">$file") || die ("Can't open $file\n");
 	print MAKEFILE_IN _prepare_makefile_in($CTX);
 	close(MAKEFILE_IN);
 
-	print "config.smb_build.pl: creating Makefile.in\n";
+	print "config.smb_build.pl: creating $file\n";
 	return;	
 }
 
diff --git a/source4/build/smb_build/output.pm b/source4/build/smb_build/output.pm
index f6a9fc6eb3b..6972817ca9f 100644
--- a/source4/build/smb_build/output.pm
+++ b/source4/build/smb_build/output.pm
@@ -100,7 +100,7 @@ sub create_output($)
 			push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 			push(@{$part->{LINK_FLAGS}},@{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 
-			push(@{$part->{SUBSYSTEM_INIT_FUNCTIONS}}, @{$elem->{INIT_FUNCTION}}) if 
+			push(@{$part->{SUBSYSTEM_INIT_FUNCTIONS}}, $elem->{INIT_FUNCTION}) if 
 				$part->{OUTPUT_TYPE} eq "BINARY" and 
 				defined($elem->{INIT_FUNCTION}) and 
 				$elem->{INIT_FUNCTION} ne "" and
@@ -108,7 +108,7 @@ sub create_output($)
 		}
 	}
 
-	return %{$depend};
+	return $depend;
 }
 
 1;
diff --git a/source4/build/smb_build/smb_build_h.pm b/source4/build/smb_build/smb_build_h.pm
index f3b0a2b837f..e874c77ce86 100644
--- a/source4/build/smb_build/smb_build_h.pm
+++ b/source4/build/smb_build/smb_build_h.pm
@@ -97,20 +97,21 @@ sub _prepare_smb_build_h($)
 # $SMB_BUILD_CTX -	the global SMB_BUILD context
 #
 # $output -		the resulting output buffer
-sub create_smb_build_h($)
+sub create_smb_build_h($$)
 {
 	my $CTX = shift;
+	my $file = shift;
 	my $output = "/* autogenerated by config.smb_build.pl */\n";
 
 	$output .= _prepare_smb_build_h($CTX);
 
-	open(SMB_BUILD_H,"> include/smb_build.h") || die ("Can't open include/smb_build.h\n");
+	open(SMB_BUILD_H,"> $file") || die ("Can't open $file\n");
 
 	print SMB_BUILD_H $output;
 
 	close(SMB_BUILD_H);
 
-	print "config.smb_build.pl: creating include/smb_build.h\n";
+	print "config.smb_build.pl: creating $file\n";
 	return;	
 }
 1;
-- 
2.34.1