Moving feature configuration out of the buildrom scope.
# Copyright (c) 2001-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:
#
use Cwd; # for cwd
use File::Basename; # for basename()
use FindBin; # for FindBin::Bin
my $PerlBinPath; # fully qualified pathname of the directory containing this script
my $epocroot;
# establish the path to the Perl binaries
BEGIN {
require 5.005_03; # check user has a version of perl that will cope
$PerlBinPath = $FindBin::Bin; # X:/epoc32/tools
$PerlBinPath =~ s/\//\\/g; # X:\epoc32\tools
}
use lib $PerlBinPath;
use lockit_info;
sub print_usage
{
print <<USAGE_EOF;
Usage:
epocmbm [-h headerfile] [-o outputfile] [-b "bitmaps"] [-l "TargetPath:CWDir"]
Compile the bitmaps to an EPOC MBM image file.
-b -- list of bitmaps Eg., "-b/c8\\full path\\bmp1... /c8\\full path\\bmp2.."
-l -- if specified, captures all source to \\epoc32\\localisation\\...
USAGE_EOF
}
#-----------------------------------------------
# Process commandline arguments
#
my $opt_o="";
my $opt_h="";
my $opt_l="";
my $opt_b="";
my $opt_v=0;
my $errors = 0;
while (@ARGV)
{
my $arg = shift @ARGV;
if ($arg =~ /^-o(.*)$/)
{
$opt_o =$1;
next;
}
if ($arg =~ /^-h(.*)$/)
{
$opt_h =$1;
next;
}
if ($arg =~ /^-b(.*)$/)
{
$opt_b =$1;
next;
}
if ($arg =~ /^-l(.*)$/)
{
$opt_l =$1;
next;
}
if($arg =~ /^-/)
{
print "Unknown arg: $arg\n";
$errors++;
next;
}
}
if ($errors || $opt_b eq "")
{
print_usage();
exit 1;
}
my $headerfile=$opt_h;
if ($opt_b ne "")
{
$opt_h = "\/h\"$headerfile\"" if ($headerfile ne "");
print "* bmconv /q $opt_h $opt_o $opt_b\n" if ($opt_v);
system("bmconv /q $opt_h $opt_o $opt_b");
if ($? != 0)
{
print "* BMCONV failed\n";
exit 1;
}
}
if ($opt_l ne "")
{
my ($Resrc, $FileType) = split(/\./, basename($opt_o));
&Lockit_SrcFile($Resrc, "", $opt_l, $FileType, $opt_b, $Resrc.".$FileType"); # ""
}
exit 0;
sub Epocroot_Check
{
$epocroot = $ENV{EPOCROOT};
die "ERROR: Must set the EPOCROOT environment variable\n" if (!defined($epocroot));
$epocroot =~ s-/-\\-go; # for those working with UNIX shells
die "ERROR: EPOCROOT must not include a drive letter\n" if ($epocroot =~ /^.:/);
die "ERROR: EPOCROOT must be an absolute path without a drive letter\n" if ($epocroot !~ /^\\/);
die "ERROR: EPOCROOT must not be a UNC path\n" if ($epocroot =~ /^\\\\/);
die "ERROR: EPOCROOT must end with a backslash\n" if ($epocroot !~ /\\$/);
die "ERROR: EPOCROOT must specify an existing directory\n" if (!-d $epocroot);
$epocroot=~ s-\\$--; # chop trailing \\
}