# HG changeset patch
# User Arnaud Lenoir
# Date 1269527772 0
# Node ID b379919d420f84000f2229425417c279473e6420
# Parent  5e2688cee10585b3f37fa291df78297ee2b67f49
Modify the script to solve problem with e32path and change all / to \ to allow to build rom image without any errors!!

diff -r 5e2688cee105 -r b379919d420f kernel/eka/rombuild/rom_sbs.pl
--- a/kernel/eka/rombuild/rom_sbs.pl	Thu Mar 18 15:26:01 2010 +0000
+++ b/kernel/eka/rombuild/rom_sbs.pl	Thu Mar 25 14:36:12 2010 +0000
@@ -119,16 +119,18 @@
 	my @path = split(/\\/, $cwd);
 	shift(@path);
 	$toroot = ('..\\') x @path;
+	$toroot =~ s/\\$//;
+	#e32path supposed to be = to "\sf\os"
 	$e32path = $fp0;
-	$e32path =~ s/\\kernelhwsrv\\kernel\\eka\\rombuild\\rom\.pl$//i;
+	$e32path =~ s/\\kernelhwsrv\\kernel\\eka\\rombuild\\rom_sbs\.pl$//i;
 	$e32path =~ s/^[A-Za-z]://;
-	$rombuildpath = $toroot."sf\\os\\kernelhwsrv\\kernel\\eka\\rombuild";
+	$rombuildpath = $toroot."\\sf\\os\\kernelhwsrv\\kernel\\eka\\rombuild";
 	$Epoc32Path = $toroot;
 	$Epoc32Path =~ s/\\$//;
 	$Epoc32Path .= $EpocRoot . "epoc32";
 	$toolpath = "$Epoc32Path\\tools\\";
 	push @INC, $toolpath;
-	$BasePath = $toroot . $e32path;
+	$BasePath = $toroot . $e32path."\\";
 }
 
 use E32Plat;
@@ -237,6 +239,7 @@
 
 # First output the ROM name
 print OUT "\nromname=$romname\n";
+# Go through the iby file passed as parameter of this script and replace flags by proper values before copying the line in rom1.tmp.
 while(<X>) {
 	s/\#\#ASSP\#\#/$opts{'assp'}/;
 	s/\#\#VARIANT\#\#/$opts{'variant'}/;
@@ -565,6 +568,7 @@
 }
 
 sub cleanup($$$) {
+print "What's going on!\n";
 	my ($in, $out, $k) = @_;
 	my ($line, $lastblank);
 
@@ -593,6 +597,10 @@
 			if ($k and $line=~/^\s*kerneltrace/i) {
 				$line = "kerneltrace $k\n";
 			}
+			
+			# This next line is about converting all the / to \ to make sure that we are using the right format for the build generation	
+			$line =~ s/\//\\/g;
+			
 			print OUTPUT_FILE $line if !($line=~/^\s*REM\s+/i);
 		}
 	}