--- /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\"";
+ }