--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/bldmake/metabld.pl Fri Jun 25 17:29:25 2010 +0800
@@ -0,0 +1,367 @@
+# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# all variables called *Path* are set up to end with a backslash
+# all variables called *Path or *File are stored as absolute (file)paths within makmake
+# all variables called UpPath* are stored as relative paths within makmake
+#
+#
+
+
+use FindBin; # for FindBin::Bin
+use File::Find;
+use Cwd;
+
+my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules
+
+BEGIN {
+# check user has a version of perl that will cope
+ require 5.005_03;
+# establish the path to the Perl libraries: currently the same directory as this script
+ $PerlLibPath = $FindBin::Bin; # X:/epoc32/tools
+ $PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools
+ $PerlLibPath .= "\\";
+}
+
+use lib $PerlLibPath;
+use E32env;
+use Prepfile;
+use Pathutl;
+
+# autoflush prevents our ouptut from getting jumbled up
+use FileHandle;
+autoflush STDOUT 1;
+autoflush STDERR 1;
+
+my (@Commands, @BldInfDirs);
+# should end in .mbc where .mbc means for "MetaBld Configuration file"
+# must end in .mbc if passed on command-line
+my $ConfigFile;
+
+my $StartDir=&cwd();
+my $relative;
+ {
+ # Process command-line
+
+ unless (@ARGV)
+ {
+ &Usage();
+ }
+ else
+ {
+ # check to see if we are using a relative path
+ if ($ARGV[0] eq "-r")
+ {
+ $relative = 1;
+ shift @ARGV;
+ }
+
+ # check for a root from a config file in EPOCROOT dir as first argument
+ if (-e "$ENV{EPOCROOT}$ARGV[0].mbc")
+ {
+ $ConfigFile="$ENV{EPOCROOT}$ARGV[0].mbc";
+ shift @ARGV;
+ }
+ # check for a config file as the first argument
+ elsif ($ARGV[0]=~/.mbc$/io)
+ {
+ $ConfigFile=shift @ARGV;
+ if ($ConfigFile=~/^.:/o)
+ {
+ &Error("Config file can't be specified with a drive letter, as \"$ConfigFile\" is");
+ }
+ unless (-e $ConfigFile)
+ {
+ &Error("Can't find file $ConfigFile");
+ }
+ }
+ if (@ARGV)
+ {
+ # pass any other arguments as commands
+ @Commands=("@ARGV");
+ }
+ }
+ }
+
+ {
+ # scan config file if necessary
+
+ if ($ConfigFile)
+ {
+ # make config file path absolute
+ $ConfigFile=&Path_AbsToWork($ConfigFile);
+
+ my @Config2D;
+ eval { &Prepfile_ProcessL(\@Config2D, $ConfigFile); };
+ &Error($@) if $@;
+
+ my %CheckDir;
+
+ my @ConfigCommands;
+ my $Section='';
+ my @Death;
+ my $Line;
+ my $CurFile=$ConfigFile;
+ LINE: foreach $Line (@Config2D)
+ {
+ my $LineNum=shift @$Line;
+ $_=shift @$Line;
+ if ($LineNum eq '#')
+ {
+ $CurFile=$_;
+ next;
+ }
+ if (/^SECTION_(\w*)$/io)
+ {
+ $Section=uc $1;
+ if ($Section=~/^(COMMANDS|DIRS|OPTIONALDIRS)$/o)
+ {
+ if (@$Line)
+ {
+ push @Death, "$CurFile($LineNum) : Can't specify anything on the same line as a section header\n";
+ }
+ next LINE;
+ }
+ push @Death, "$CurFile($LineNum) : Unknown section header - $_\n";
+ $Section=0;
+ next LINE;
+ }
+ unshift @$Line, $_;
+ if ($Section eq 'COMMANDS')
+ {
+ if ($$Line[0]=~/^ONEOFF$/io)
+ {
+ # check syntax for oneoff commands
+ unless (@$Line>=3)
+ {
+ push @Death, "$CurFile($LineNum) : Too few arguments for oneoff command\n";
+ }
+ # resolve oneoff dir relative to .mb file location
+ $$Line[1]=~s-^.*[^\\]$-$&\\-o; # add trailing backslash if necessary
+ $$Line[1]=&Path_MakeAbs($CurFile, $$Line[1]);
+ unless (-d $$Line[1])
+ {
+ warn "$CurFile($LineNum) : Can't find dir $$Line[1]\n";
+ }
+ }
+ push @ConfigCommands, "@$Line";
+ next LINE;
+ }
+ if ($Section eq 'DIRS' || $Section eq 'OPTIONALDIRS')
+ {
+ my $Dir;
+ foreach $Dir (@$Line)
+ {
+ if ($Dir=~/^.:/o)
+ {
+ push @Death, "$CurFile($LineNum) : directory $Dir is specified with a drive letter\n";
+ next;
+ }
+ $Dir=~s-^.*[^\\]$-$&\\-o;
+ $Dir=&Path_MakeAbs($CurFile, $Dir); # dirs must be the same for check
+ if ($CheckDir{uc $Dir})
+ {
+ # Silently ignore duplicate directories - #including of several .mbc files
+ # will often cause directory duplication.
+ # We can't do the same for duplicate commands because the order in which
+ # the commands are executed might be significant.
+ # push @Death, "$CurFile($LineNum) : Directory $Dir already specified\n";
+ next;
+ }
+ print "$Dir\n";
+
+ unless (-d $Dir)
+ {
+ if ($Section ne 'OPTIONALDIRS')
+ {
+ push @Death, "$CurFile($LineNum) : Can't find directory $Dir\n";
+ }
+ next;
+ }
+ push @BldInfDirs, $Dir;
+ $CheckDir{uc $Dir}=$LineNum;
+ }
+ next LINE;
+ }
+ else
+ {
+ push @Death, "$CurFile($LineNum) : No section specified\n";
+ }
+ }
+
+ if (@Death)
+ {
+ chomp $Death[$#Death];
+ &Error(@Death);
+ }
+
+ # apply the commands unless already collected
+ unless (@Commands)
+ {
+ &Error("$ConfigFile : No Commands specified") unless @ConfigCommands;
+ @Commands=@ConfigCommands;
+ }
+ }
+
+ # Should have commands now
+ &Usage() unless @Commands;
+ }
+
+ {
+ # Search for the BLD.INF files if necessary
+
+ my $mystartdir;
+ if ($relative)
+ {
+ $mystartdir = substr($StartDir, 2);
+ }
+
+ $mystartdir=~s:\/:\\:g;
+
+ if ($mystartdir ne "\\")
+ {
+ $mystartdir=$mystartdir."\\";
+ }
+
+ unless (@BldInfDirs)
+ {
+ # find the files in the source directories - skip the EPOCROOT directory
+
+ my $EPOCROOTDir=$E32env::Data{EPOCPath};
+ $EPOCROOTDir=~s/^\\([^\\]*).*$/$1/o;
+
+ opendir DIR, $mystartdir or &Error("Can't open dir: $!");
+ # remove ., .. and EPOCROOT dir
+ my @SrcDirs=grep !/^(\.\.?|$EPOCROOTDir|RECYCLER|System Volume Information)$/i, readdir DIR;
+ foreach (@SrcDirs)
+ {
+ # prepend with current path
+ $_=$mystartdir.$_;
+ }
+ @SrcDirs=grep -d, @SrcDirs;
+ find(\&BldInfDirs, @SrcDirs);
+ @BldInfDirs=sort @BldInfDirs;
+
+ # if we are doing it relative to current location, need to include current dir
+ # if it contains a bld.inf
+ if (-f "BLD.INF" && $relative)
+ {
+ push @BldInfDirs, $mystartdir;
+ }
+
+ }
+ }
+
+ {
+ # Execute the commands
+
+ my $Time=localtime;
+ print "=== metabld started $Time.\n";
+ my $Command;
+ foreach $Command (@Commands)
+ {
+
+ $Time=localtime;
+ # Check if we should execute this command just the once
+ if ($Command=~s/^\s*ONEOFF\s+(\S+)\s+(.*)$/$2/io)
+ {
+ my $OneOffDir=$1;
+ # execute the command once rather than for each BLD.INF directory
+ chdir $OneOffDir or &Error("Can't change dir to $OneOffDir: $!");
+ print
+ (
+ "===-------------------------------------------------\n",
+ "=== $Command\n",
+ "===-------------------------------------------------\n",
+ "=== $Command started $Time.\n",
+ "=== $Command == $OneOffDir\n"
+ );
+ system( "$Command");
+ }
+ else
+ {
+ # execute the command for each BLD.INF directory
+ print
+ (
+ "===-------------------------------------------------\n",
+ "=== $Command\n",
+ "===-------------------------------------------------\n",
+ "=== $Command started $Time.\n",
+ );
+ my $Dir;
+ foreach $Dir (@BldInfDirs)
+ {
+ chdir $Dir or &Error("Can't change dir to $Dir: $!");
+ print "=== $Command == $Dir\n";
+ system( "$Command");
+ }
+ }
+ chdir $StartDir or &Error("Can't change dir to $StartDir: $!");
+ $Time=localtime;
+ print "=== $Command finished $Time.\n";
+ }
+ }
+
+
+#################################################
+# SUBROUTINES
+#################################################
+
+sub Usage
+ {
+ print <<ENDHERESTRING;
+usage: metabld [EPOCROOT .mbc file basename|.mbc config file] [command]
+MetaBld is a tool for carrying out build commands across several components.
+A .mbc config file contains directories and commands, eg:
+
+SECTION_COMMANDS
+bldmake bldfiles
+abld target wins udeb
+// "oneoff" means carry out command just once, not for each directory.
+// First arg after "oneoff" must be a start dir, and can be "."
+oneoff \\e32\\rombuild rom xxx
+oneoff . \\e32test\\group\\abld test build wins urel
+SECTION_DIRS
+\\e32
+\\f32\\group
+
+It's possible to #include lists of dirs from other files if necessary,
+and may be useful for carrying out different sets of commands on the same set
+of directories via different .mbc files.
+If a command is specified on the command-line, it will be executed instead
+of any commands specified in a .mbc file.
+If no directories are specified in a .mbc file, then all the directories
+containing a bld.inf file on the current drive will be searched for instead.
+ENDHERESTRING
+exit 1;
+}
+
+sub Error (@)
+ {
+
+ die
+ @_, "\n",
+ "Error executing metabld.bat\n"
+ ;
+ }
+
+sub BldInfDirs
+ {
+ s-\/-\\-go;
+ if (/^BLD.INF$/io)
+ {
+ $File::Find::dir=~s-\/-\\-go;
+ push @BldInfDirs, $File::Find::dir;
+ }
+ }
+