r3690: Use perl's 'use' statement to include the build system parts
authorJelmer Vernooij <jelmer@samba.org>
Fri, 12 Nov 2004 01:40:02 +0000 (01:40 +0000)
committerGerald (Jerry) Carter <jerry@samba.org>
Wed, 10 Oct 2007 18:05:44 +0000 (13:05 -0500)
rather then using "cat"
(This used to be commit 4d018b2b701faa56d7e3bb7634729296b53e0acb)

source4/build/smb_build/config_mk.pm [moved from source4/build/smb_build/config_mk.pl with 99% similarity]
source4/build/smb_build/core.m4
source4/build/smb_build/depend.pm [moved from source4/build/smb_build/depend.pl with 99% similarity]
source4/build/smb_build/input.pm [moved from source4/build/smb_build/input.pl with 99% similarity]
source4/build/smb_build/main.pm [moved from source4/build/smb_build/main.pl with 79% similarity]
source4/build/smb_build/makefile.pm [moved from source4/build/smb_build/makefile.pl with 99% similarity]
source4/build/smb_build/output.pm [moved from source4/build/smb_build/output.pl with 99% similarity]
source4/build/smb_build/smb_build_h.pm [moved from source4/build/smb_build/smb_build_h.pl with 99% similarity]

similarity index 99%
rename from source4/build/smb_build/config_mk.pl
rename to source4/build/smb_build/config_mk.pm
index 7a85bfa24bbfa32f8a284e878529139de17e978c..eaf7079352d81cd8373c4350afc1f02e48d68d2e 100644 (file)
@@ -432,3 +432,4 @@ sub binary_get_array($$$)
 
        return _fetch_array_from_config_mk($filename,$section,$var);
 }
+1;
index 0249c7e2d98629ac5cd0b243437a57cbe51c800a..8f0959208c7ac443cdd00e1bfe7c5ea4d891988f 100644 (file)
@@ -21,29 +21,16 @@ AC_DEFUN([_SMB_BUILD_CORE],
 echo "config.status: creating ./config.smb_build.pl"
 
 cat > config.smb_build.pl <<\_SMB_ACEOF
-#!$PERL
+#!$PERL -I$srcdir/build/smb_build
 #
 
 use strict;
 
 my \$SMB_BUILD_CTX;
 
-_SMB_ACEOF
+use main;
 
-echo "#line 1 \"build/smb_build/config_mk.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/config_mk.pl
-echo "#line 1 \"build/smb_build/input.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/input.pl
-echo "#line 1 \"build/smb_build/depend.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/depend.pl
-echo "#line 1 \"build/smb_build/output.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/output.pl
-echo "#line 1 \"build/smb_build/makefile.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/makefile.pl
-echo "#line 1 \"build/smb_build/smb_build_h.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/smb_build_h.pl
-echo "#line 1 \"build/smb_build/main.pl\"" >> config.smb_build.pl
-cat >> config.smb_build.pl < build/smb_build/main.pl
+_SMB_ACEOF
 
 echo "#line 8 \"build/smb_build/core.m4\"" >> config.smb_build.pl
 cat >> config.smb_build.pl <<\_SMB_ACEOF
similarity index 99%
rename from source4/build/smb_build/depend.pl
rename to source4/build/smb_build/depend.pm
index a45fb725e105c97711e6797884e2a29d8a1347f6..771a83ca2cdafe1478fa11d3c7b9da89d08faf70 100644 (file)
@@ -456,3 +456,4 @@ sub create_depend($)
 
        return;
 }
+1;
similarity index 99%
rename from source4/build/smb_build/input.pl
rename to source4/build/smb_build/input.pm
index 8488a33c3cd00fb248d1cdbec3a562b2aaa74519..d3737ea7d13605ab8764ff15327150515034c498 100644 (file)
@@ -137,3 +137,4 @@ sub check_input($)
 
        return;
 }
+1;
similarity index 79%
rename from source4/build/smb_build/main.pl
rename to source4/build/smb_build/main.pm
index 18d3de3991c7692ad2260f3d6eca97f1512a2e2b..4df7be7daeb5bc0bd60e5dc6d3b85bf580438d4e 100644 (file)
@@ -6,8 +6,17 @@
 ###  Released under the GNU GPL                                ###
 ###########################################################
 
+use makefile;
+use depend;
+use smb_build_h;
+use input;
+use config_mk;
+use output;
+use strict;
+
 sub smb_build_main($)
 {
+       my $SMB_BUILD_CTX = shift;
        check_input($SMB_BUILD_CTX);
 
        create_depend($SMB_BUILD_CTX);
@@ -20,3 +29,4 @@ sub smb_build_main($)
 
        return 0;
 }
+1;
similarity index 99%
rename from source4/build/smb_build/makefile.pl
rename to source4/build/smb_build/makefile.pm
index a5e86e76f0548a2126ccb5b5d5aaeb3180f22847..0e0da317f5470ad8be6f6bdcf0c17e6a037cfee3 100644 (file)
@@ -913,3 +913,5 @@ sub create_makefile_in($)
        print "config.smb_build.pl: creating Makefile.in\n";
        return; 
 }
+
+1;
similarity index 99%
rename from source4/build/smb_build/output.pl
rename to source4/build/smb_build/output.pm
index 800f743efeb7c2092a850e60580d6f49e1b6003f..42b4403e73269c995f823d497a6040734519aa9b 100644 (file)
@@ -260,3 +260,5 @@ sub create_output($)
 
        return;
 }
+
+1;
similarity index 99%
rename from source4/build/smb_build/smb_build_h.pl
rename to source4/build/smb_build/smb_build_h.pm
index cd6cb295253717b297792cdcc0856c920d236c54..bc12b9a26827814fc119448a906708c773d92215 100644 (file)
@@ -130,3 +130,4 @@ sub create_smb_build_h($)
        print "config.smb_build.pl: creating include/smb_build.h\n";
        return; 
 }
+1;