Avoid autogenerating the Makefile but rather include a data.mk file
[samba.git] / source / build / smb_build / config_mk.pm
index 17bec56ced1eeb4b3b2a0916b840232315c9395c..aa075490bce071bccec5935626372cbdd89b0c40 100644 (file)
@@ -18,14 +18,24 @@ my $section_types = {
                "CFLAGS"                => "list",
                "CPPFLAGS"              => "list",
                "LDFLAGS"               => "list",
+               "PC_NAME" => "string",
                },
+       "PYTHON" => {
+               SWIG_FILE => "string",
+               "PRIVATE_DEPENDENCIES"  => "list",
+               "PUBLIC_DEPENDENCIES"   => "list",
+               "OBJ_FILES" => "list",
+               "ENABLE"                => "bool",
+               "LDFLAGS"               => "list",
+               "CFLAGS"                => "list",
+       },
        "SUBSYSTEM" => {
                "OBJ_FILES"             => "list",
 
-               "REQUIRED_SUBSYSTEMS"   => "list",
+               "PRIVATE_DEPENDENCIES"  => "list",
+               "PUBLIC_DEPENDENCIES"   => "list",
 
                "ENABLE"                => "bool",
-               "NOPROTO"               => "bool",
 
                "MANPAGE"               => "string",
 
@@ -34,8 +44,10 @@ my $section_types = {
 
                "PUBLIC_HEADERS"        => "list",
 
-               "EXTRA_CFLAGS"          => "string",
-               "STANDARD_VISIBILITY"   => "string"
+               "CFLAGS"                => "list",
+               "LDFLAGS"               => "list",
+               "STANDARD_VISIBILITY"   => "string",
+               "INIT_FUNCTION_SENTINEL" => "string"
                },
        "MODULE" => {
                "SUBSYSTEM"             => "string",
@@ -43,48 +55,54 @@ my $section_types = {
                "INIT_FUNCTION"         => "string",
                "OBJ_FILES"             => "list",
 
-               "REQUIRED_SUBSYSTEMS"   => "list",
+               "PRIVATE_DEPENDENCIES"  => "list",
+
+               "ALIASES" => "list",
 
                "ENABLE"                => "bool",
-               "NOPROTO"               => "bool",
 
-               "OUTPUT_TYPE" => "string",
+               "OUTPUT_TYPE"           => "list",
 
                "MANPAGE"               => "string",
                "PRIVATE_PROTO_HEADER"  => "string",
 
-               "EXTRA_CFLAGS"          => "string"
+               "CFLAGS"                => "list"
                },
        "BINARY" => {
                "OBJ_FILES"             => "list",
 
-               "REQUIRED_SUBSYSTEMS"   => "list",
+               "PRIVATE_DEPENDENCIES"  => "list",
 
                "ENABLE"                => "bool",
-               "NOPROTO"               => "bool",
 
                "MANPAGE"               => "string",
                "INSTALLDIR"            => "string",
                "PRIVATE_PROTO_HEADER"  => "string",
-               "PUBLIC_HEADERS"        => "string", 
 
-               "EXTRA_CFLAGS"          => "string"
+               "CFLAGS"                => "list",
+               "LDFLAGS"               => "list",
+               "STANDARD_VISIBILITY"   => "string",
+
+               "USE_HOSTCC"            => "bool"
                },
        "LIBRARY" => {
-               "MAJOR_VERSION"         => "string",
-               "MINOR_VERSION"         => "string",
-               "RELEASE_VERSION"       => "string",
+               "VERSION"               => "string",
+               "SO_VERSION"            => "string",
+               "LIBRARY_REALNAME" => "string",
+
+               "PC_NAME" => "string",
+               "PC_FILE" => "string",
                
-               "INIT_FUNCTION_TYPE" => "string",
+               "INIT_FUNCTION_TYPE"    => "string",
+               "INIT_FUNCTION_SENTINEL" => "string",
+               "OUTPUT_TYPE"           => "list",
 
                "OBJ_FILES"             => "list",
 
-               "DESCRIPTION"           => "string",
-
-               "REQUIRED_SUBSYSTEMS"   => "list",
+               "PRIVATE_DEPENDENCIES"  => "list",
+               "PUBLIC_DEPENDENCIES"   => "list",
 
                "ENABLE"                => "bool",
-               "NOPROTO"               => "bool",
 
                "MANPAGE"               => "string",
 
@@ -93,7 +111,8 @@ my $section_types = {
                "PUBLIC_PROTO_HEADER"   => "string",
                "PRIVATE_PROTO_HEADER"  => "string",
 
-               "EXTRA_CFLAGS"          => "string",
+               "CFLAGS"                => "list",
+               "LDFLAGS"               => "list",
                "STANDARD_VISIBILITY"   => "string"
                }
 };
@@ -102,32 +121,104 @@ use vars qw(@parsed_files);
 
 @parsed_files = ();
 
+sub _read_config_file
+{
+       use File::Basename;
+       use Cwd;
+
+       my $srcdir = shift;
+       my $builddir = shift;
+       my $filename = shift;
+       my @dirlist;
+
+       # We need to change our working directory because config.mk files can
+       # give shell commands as the argument to "include". These shell
+       # commands can take arguments that are relative paths and we don't have
+       # a way of sensibly rewriting these.
+       my $cwd = getcwd;
+       chomp $cwd;
+
+       if ($srcdir ne $builddir) {
+               # Push the builddir path on the front, so we prefer builddir
+               # to srcdir when the file exists in both.
+               @dirlist = ($builddir, $srcdir);
+       } else {
+               @dirlist = ($srcdir);
+       }
+
+       foreach my $d (@dirlist) {
+               my @lines;
+               my $basedir;
+
+               chdir $cwd;
+               chdir $d;
+
+               # We need to catch the exception from open in the case where
+               # the filename is actually a shell pipeline. Why is this
+               # different to opening a regular file? Because this is perl!
+               eval {
+                       open(CONFIG_MK, "./$filename");
+                       @lines = <CONFIG_MK>;
+                       close(CONFIG_MK);
+               };
+
+               chdir $cwd;
+               next unless (@lines);
+
+               # I blame abartlett for this crazy hack -- jpeach
+               if ($filename =~ /\|$/) {
+                       $basedir = $builddir;
+               } else {
+                       $basedir = dirname($filename);
+                       push(@parsed_files, $filename);
+               }
+               $basedir =~ s!^($builddir|$srcdir)[/]!!;
+               return ($filename, $basedir, @lines);
+       }
+
+       chdir $cwd;
+       return;
+}
+
 ###########################################################
 # The parsing function which parses the file
 #
-# $result = _parse_config_mk($filename)
+# $result = _parse_config_mk($input, $srcdir, $builddir, $filename)
 #
 # $filename -  the path of the config.mk file
 #              which should be parsed
-sub run_config_mk($$$)
+sub run_config_mk($$$$)
 {
-       sub run_config_mk($$$);
-       my ($input, $srcdir, $filename) = @_;
+       sub run_config_mk($$$$);
+       my ($input, $srcdir, $builddir, $filename) = @_;
        my $result;
        my $linenum = -1;
        my $infragment = 0;
        my $section = "GLOBAL";
        my $makefile = "";
 
-       push (@parsed_files, $srcdir."/".$filename);
-       
-       open(CONFIG_MK, $srcdir."/".$filename) or die("Can't open `$srcdir/$filename'\n");
-       my @lines = <CONFIG_MK>;
-       close(CONFIG_MK);
+       my $basedir;
+
+       my $parsing_file;
+       my @lines;
+
+       $ENV{builddir} = $builddir;
+       $ENV{srcdir} = $srcdir;
+
+       ($parsing_file, $basedir, @lines) =
+           _read_config_file($srcdir, $builddir, $filename);
+
+       die ("$0: can't open '$filename'")
+               unless ($parsing_file and $basedir and @lines);
 
        my $line = "";
        my $prev = "";
 
+       # Emit a line that lets us match up final makefile output with the
+       # corresponding input files. The curlies are so you can match the
+       # BEGIN/END pairs in a text editor.
+       $makefile .= "# BEGIN{ $parsing_file\n";
+
        foreach (@lines) {
                $linenum++;
 
@@ -142,7 +233,7 @@ sub run_config_mk($$$)
                        $prev = "";
                }
 
-               if ($line =~ /^\[([a-zA-Z0-9_:]+)\][\t ]*$/) 
+               if ($line =~ /^\[([-a-zA-Z0-9_:]+)\][\t ]*$/) 
                {
                        $section = $1;
                        $infragment = 0;
@@ -151,7 +242,12 @@ sub run_config_mk($$$)
 
                # include
                if ($line =~ /^include (.*)$/) {
-                       $makefile .= run_config_mk($input, $srcdir, dirname($filename)."/$1");
+                       my $subfile= $1;
+                       my $subdir = dirname($filename);
+                       $subdir =~ s/^\.$//g;
+                       $subdir =~ s/^\.\///g;
+                       $subdir .= "/" if ($subdir ne "");
+                       $makefile .= run_config_mk($input, $srcdir, $builddir, $subdir.$subfile);
                        next;
                }
 
@@ -179,26 +275,29 @@ sub run_config_mk($$$)
                        next;
                }
 
-               die("$srcdir."/".$filename:$linenum: Bad line while parsing $srcdir."/".$filename");
+               die("$parsing_file:$linenum: Bad line while parsing $parsing_file");
        }
 
+       $makefile .= "# }END $parsing_file\n";
+
        foreach my $section (keys %{$result}) {
                my ($type, $name) = split(/::/, $section, 2);
 
                my $sectype = $section_types->{$type};
                if (not defined($sectype)) {
-                       die($srcdir."/".$filename.":[".$section."] unknown section type \"".$type."\"!");
+                       die($parsing_file.":[".$section."] unknown section type \"".$type."\"!");
                }
 
                $input->{$name}{NAME} = $name;
                $input->{$name}{TYPE} = $type;
-               $input->{$name}{BASEDIR} = dirname($filename);
+               $input->{$name}{MK_FILE} = $parsing_file;
+               $input->{$name}{BASEDIR} = $basedir;
 
                foreach my $key (values %{$result->{$section}}) {
                        $key->{VAL} = smb_build::input::strtrim($key->{VAL});
                        my $vartype = $sectype->{$key->{KEY}};
                        if (not defined($vartype)) {
-                               die($srcdir."/".$filename.":[".$section."]: unknown attribute type \"$key->{KEY}\"!");
+                               die($parsing_file.":[".$section."]: unknown attribute type \"$key->{KEY}\"!");
                        }
                        if ($vartype eq "string") {
                                $input->{$name}{$key->{KEY}} = $key->{VAL};