r3695: Add intermediate functions to use when migrating from .m4+.mk to .pm files

(This used to be commit fb849a309b823296a31bbf0b5b683760119c615c)

2 files changed, 68 insertions, 2 deletions

diff --git a/source4/build/smb_build/direct.pm b/source4/build/smb_build/direct.pm
new file mode 100644
index 00000000000..6bedf4f04a8
--- /dev/null
+++ b/source4/build/smb_build/direct.pm
@@ -0,0 +1,63 @@
+# Subs for build system stuff without the .mk files
+# Copyright (C) 2004 Jelmer Vernooij <jelmer@samba.org>
+
+use strict;
+
+our $SMB_BUILD_CTX;
+
+sub Subsystem($$)
+{
+	my $name = shift;
+	my $data = shift;
+	$data->{NAME} = $name;
+	%{$SMB_BUILD_CTX->{INPUT}{SUBSYSTEM}{$name}} = %{$data};
+}
+
+sub Module($$)
+{
+	my $name = shift;
+	my $data = shift;
+	$data->{NAME} = $name;
+	%{$SMB_BUILD_CTX->{INPUT}{MODULES}{$name}} = %{$data};
+}
+
+sub ExternalLibrary($$)
+{
+	my $name = shift;
+	my $data = shift;
+	$data->{NAME} = $name;
+	%{$SMB_BUILD_CTX->{INPUT}{EXT_LIBS}{$name}} = %{$data};
+}
+
+sub Library($$)
+{
+	my $name = shift;
+	my $data = shift;
+	$data->{NAME} = $name;
+	%{$SMB_BUILD_CTX->{INPUT}{LIBRARIES}{$name}} = %{$data};
+}
+
+sub Binary($$)
+{
+	my $name = shift;
+	my $data = shift;
+	$data->{NAME} = $name;
+	%{$SMB_BUILD_CTX->{INPUT}{BINARIES}{$name}} = %{$data};
+}
+
+sub DisableModule($)
+{
+	$SMB_BUILD_CTX->{INPUT}{MODULES}{shift}{ENABLE} = "NO";
+}
+
+sub DisableBinary($)
+{
+	$SMB_BUILD_CTX->{INPUT}{BINARIES}{shift}{ENABLE} = "NO";
+}
+
+sub DisableLibrary($)
+{
+	$SMB_BUILD_CTX->{INPUT}{LIBRARIES}{shift}{ENABLE} = "NO";
+}
+
+1;
diff --git a/source4/build/smb_build/main.pm b/source4/build/smb_build/main.pm
index b84f4fd8beb..98b61539c13 100644
--- a/source4/build/smb_build/main.pm
+++ b/source4/build/smb_build/main.pm
@@ -12,14 +12,16 @@ use smb_build_h;
 use input;
 use config_mk;
 use output;
+use direct;
 use dump;
 use strict;
 
 sub smb_build_main($)
 {
-	my $SMB_BUILD_CTX = shift;
-	input::check($SMB_BUILD_CTX);
+	our $SMB_BUILD_CTX = shift;
 
+	input::check($SMB_BUILD_CTX);
+	
 	depend::create_depend($SMB_BUILD_CTX);
 
 	output::create_output($SMB_BUILD_CTX);
@@ -30,6 +32,7 @@ sub smb_build_main($)
 
 	dump::dump_ctx($SMB_BUILD_CTX);
 
+
 	return 0;
 }
 1;