diff -r 000000000000 -r 2e3d3ce01487 filehandling/fileconverterfw/CNFTOOL/epoccnf.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/filehandling/fileconverterfw/CNFTOOL/epoccnf.pl	Tue Feb 02 10:12:00 2010 +0200
@@ -0,0 +1,254 @@
+# 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:
+# Wrapper to support the EPOC extended makefile Compiler
+# 
+#
+
+use Cwd;		# for cwd
+use FindBin;		# for FindBin::Bin
+use File::Copy;		# for copy()
+
+my $uppath="x";	    	# will be initialised when first needed
+my $PerlBinPath;	# fully qualified pathname of the directory containing this script
+
+my $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 \\
+
+# 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
+	{
+#........1.........2.........3.........4.........5.........6.........7.....
+	print <<USAGE_EOF;
+
+Usage:
+  epoccnf [options] sourcefile -c outputfile
+
+Compile a CNF resource file.
+
+The available options are
+
+   -t[Temporary directory]		  -- temporary directory
+   -l[Target directory:Working directory] -- if specified, captures all source to \\epoc32\\localisation\\...
+   -v 					  -- verbose
+
+The resource file is first passed through the C++ preprocessor, using any
+specified preprocessor arguments, and then compiled with RCOMP.EXE to
+generate a compiled resource, it is then compiled with CNFTOOL.EXE to produce
+a .cnf file.
+
+All intermediate files are generated into a temporary directory.
+
+USAGE_EOF
+	}
+
+#-------------------------------------------------------
+# Process commandline arguments
+#
+# Can't use the Getopt package because it doesn't like the -D and -I style options
+#
+my $sourcefile="";
+my $opt_l="";
+my $tmpdir="";
+my $opt_v=0;
+my $outputfile="";
+
+my $cpp_spec= "cpp -undef -C ";	    # preserve comments
+
+my $errors = 0;
+while (@ARGV)
+	{
+	my $arg = shift @ARGV;
+	if ($arg =~ /^-v$/)
+		{
+		$opt_v =1;
+		next;
+		}
+	if ($arg =~ /^-t(.*)\\?$/)
+		{
+		$tmpdir ="$1\\";
+		next;
+		}
+	if ($arg =~ /^-l(.*)$/)
+		{
+		$opt_l =$1;
+		next;
+		}
+	if ($arg =~ /^-c(.*)$/)
+		{
+		$outputfile =$1;
+		next;
+		}
+	if ($arg =~ /^-/)
+		{
+		print "Unknown arg: $arg\n";
+		$errors++;
+		next;
+		}
+	$sourcefile=$arg;
+	}
+
+if ($errors || $sourcefile eq "")
+	{
+	print_usage();
+	exit 1;
+	}
+
+use File::Basename;
+my $rss_base = basename($sourcefile);
+my ($rssfile) = split(/\./, $rss_base);	    # remove extension
+my $rpp_name = $tmpdir . $rssfile . ".rpp";
+
+if ($opt_v)
+	{
+	print "* Source file\t\t: $sourcefile\n";
+	print "* Temp. .RPP file\t: $rpp_name\n";
+	print "* .CNF location\t\t: $outputfile\n";
+	print "* localisation dets.\t: $opt_l\n";
+	print "* Temp. directory\t: $tmpdir\n";
+	}
+
+#-------------------------------------------------------
+# Run the preprocessor
+#
+## Creates the .rpp file
+
+$cpp_spec .= "-I $PerlBinPath\\..\\include ";	# path to support shared tools
+$cpp_spec .= "-D_UNICODE ";
+$cpp_spec .= "<\"$sourcefile\"";
+
+open RPP, ">$rpp_name" or die "* Can't write to $rpp_name";
+open CPP, "$cpp_spec |" or die "* Can't execute cpp";
+my $line;
+
+while ($line=<CPP>)
+	{
+	print RPP $line;
+	}
+close RPP;
+close CPP;
+
+my $cpp_status = $?;
+die "* cpp failed\n" if ($cpp_status != 0);
+
+#-------------------------------------------------------
+# Copy .rpp and .rss file to epoc32\localisation
+#
+
+if ($opt_l ne "")
+	{
+	&Lockit_SrcFile($rssfile, $rpp_name, $opt_l, "CNF", "");
+	}
+
+#-------------------------------------------------------
+# Run first pass of the resource compiler to get the UID out of the first 4 bytes of the resource
+#
+
+my $rcomp_spec = "rcomp ";
+$rcomp_spec .= "-:$tmpdir\\_dump_of_resource_ "; # causes Rcomp to dump each resource (uncompressed and unpadded) in $tmpdir\\_dump_of_resource_1, $tmpdir\\_dump_of_resource_2, etc
+$rcomp_spec .= "-u -o$tmpdir\\_output_from_first_pass -s\"$rpp_name\" -i\"$sourcefile\"";
+
+if ($opt_v)
+	{
+	print "\n* extracting UID from rsc file\n" if ($opt_v);
+	print "*** $rcomp_spec\n" if ($opt_v);
+	}
+system($rcomp_spec);
+if ($? != 0)
+	{
+	print "* RCOMP failed - deleting output files\n";
+	unlink $rpp_name;
+	unlink("$tmpdir\\_dump_of_resource_*");
+	exit 1;
+	}
+print "* deleting $tmpdir\\_output_from_first_pass\n" if ($opt_v);
+unlink "$tmpdir\\_output_from_first_pass";
+
+
+#-------------------------------------------------------
+# Get the from UID from the first four bytes of "$tmpdir\\_dump_of_resource_1"
+#
+
+open(DUMP_OF_RESOURCE_1, "< $tmpdir\\_dump_of_resource_1") or die("* Can't open dump file\n");
+binmode(DUMP_OF_RESOURCE_1);
+my $data;
+my $numberOfBytesRead=read(DUMP_OF_RESOURCE_1, $data, 4);
+defined($numberOfBytesRead) or die("* Can't read from dump file\n");
+($numberOfBytesRead>=4) or die("* Dump file too short\n");
+my $uid=(unpack('V', $data))[0];
+undef($data);
+undef($numberOfBytesRead);
+close(DUMP_OF_RESOURCE_1) or die("* Can't close dump file\n");
+unlink("$tmpdir\\_dump_of_resource_*");
+
+
+#-------------------------------------------------------
+# Run second pass of the resource compiler to get the UID out of the first 4 bytes of the resource
+#
+
+$rcomp_spec = "rcomp ";
+$rcomp_spec .= "-{0x10000c62,".sprintf('0x%08x', $uid)."} "; # passes Rcomp the correct 2nd and 3rd UIDs
+$rcomp_spec .= "-u -o\"$outputfile\" -s\"$rpp_name\" -i\"$sourcefile\"";
+
+if ($opt_v)
+	{
+	print "\n* generating rsc file\n" if ($opt_v);
+	print "*** $rcomp_spec\n" if ($opt_v);
+	}
+system($rcomp_spec);
+if ($? != 0)
+	{
+	print "* RCOMP failed - deleting output files\n";
+	unlink $rpp_name;
+	exit 1;
+	}
+print "* deleting $rpp_name\n" if ($opt_v);
+unlink $rpp_name;
+exit 0;
+
+
+#-------------------------------------------------------
+# Subroutine: convert possibly absolute path into relative path
+#
+
+sub quoted_relative_path
+    {
+    my ($arg) = @_;
+    return "\"$arg\"" if ($arg !~ /^\\/);	# not an absolute path
+    if ($uppath eq "x")
+	{
+	$uppath=cwd;
+	$uppath=~s-/-\\-go;		    # separator from Perl 5.005_02+ is forward slash
+	$uppath=~s-^(.*[^\\])$-$1\\-o;	    # ensure path ends with a backslash
+	$uppath=~s-\\([^\\]+)-\\..-og;	    # convert directories into ..
+	$uppath=~s-^.:\\--o;		    # remove drive letter and leading backslash
+	}
+    $arg=~s-^\\--o;	# remove leading backslash from original path
+    return "\"$uppath$arg\"";
+    }