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

(This used to be commit fb849a309b823296a31bbf0b5b683760119c615c)

1 files changed, 63 insertions, 0 deletions

diff --git a/source4/build/smb_build/direct.pm b/source4/build/smb_build/direct.pm
new file mode 100644
index 0000000000..6bedf4f04a
--- /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;