sbsv1/abld/bldmake/metabld.pl
author Ross Qin <ross.qin@nokia.com>
Thu, 28 Oct 2010 11:18:50 +0800
changeset 667 a3b39a14147a
parent 599 fa7a3cc6effd
permissions -rw-r--r--
Remove the PrintingServices component from TB10.1 on wards(on behalf of dane.waby@nokia.com)

# 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;
		}
	}