# 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 \\

	}