FCL/sftools/dev/build: comparison imgtools/buildrom/tools/buildrom.pm

equal deleted inserted replaced

-:8dd670a9f34f
+:53d1ab72f5bc
 	process_dlldata
 	featurefile_creation_phase
 	processData
 	create_smrimage
 	getWorkdir
+	isIgnoreConfig
 );
 my $useinterpretsis = 1;
 if ($^O !~ /^MSWin32$/i){
 	$useinterpretsis = 0;
 }
 my $enforceFeatureManager = 0; # Flag to make Feature Manager mandatory if SYMBIAN_FEATURE_MANAGER macro is defined.
 my $BuildromMajorVersion = 3 ;
-my $BuildromMinorVersion = 28;
+my $BuildromMinorVersion = 30;
 my $BuildromPatchVersion = 0;
 sub print_usage
 {
 -workdir=xxx                     -- specify a directory to contain generated files.
 -prependepocroot                 -- if there is no EPOCROOT## before /epoc32/, prepend EPOCROOT## to epoc32.
 -stdcpp                          -- ignore symbian customized cpp and try to find another cpp in the PATH.(for Windows only)
 -cpp=xxx                         -- specify a CPP preprocessor used by Buildrom.
 -xiponly                      -- just create the XIP ROM image without creating the ROFS image.
+-inputoby=<finalOBYfile>         -- Ignore BUILDROM config phase, invoke Rombuild/Rofsbuild using <finalOBYfile>.
+<finalOBYfile> must contain one and ONLY one of romsize/rofssize/dataimagename/imagename keywords,
+The keywords will be used to identify the OBY type.
 Popular -D defines to use include
 -D_DEBUG         -- select debug versions of some files
 -D_FULL_DEBUG    -- select debug versions of all files
 my $stdcpp = 0;
 my $obycharset;
 my $cppoption = 0;
 my $preprocessor = "cpp";
 my $opt_xiponly = 0;
+my $ignoreconfig = 0;
+my $romcount = 0;
 sub match_obyfile
 {
 	my ($obyfile) = @_;
 	if (-f $obyfile)
 				{
 					$compress = $opt_compression;
 					$compress =~m/\s-(compression)(method)\s(none|inflate|bytepair)/;
 					print "* ".$1." ".$2.": ".$3;
 				}
-				my $command = "rofsbuild -slog".$compress." -datadrive=$obeyfile.oby";
+				my $command = "rofsbuild -slog".$compress." -datadrive=$obeyfile.oby -logfile=$thisdir";
+				$command .= " -k" if($opt_k);
 				print "* Executing $command\n" if ($opt_v);
 				system($command);
 				if ($? != 0)
 				{
 					&datadriveimage::reportError("* ROFSBUILD failed to generate data drive image",$opt_k);
 # appropriate data drive image.
 sub processData
 {
 	if($dataImageCount)
 	{
-		# set the default path for Z drive and Data drive directory,
+		if(!$ignoreconfig)
-		# if and only if, path is not specified by the user.
+		{
-		$ZDirloc = $thisdir."zdrive" unless ($ZDirloc);
+			# set the default path for Z drive and Data drive directory,
-		$DataDriveDirloc = $thisdir."datadrive" unless ($DataDriveDirloc);
+			# if and only if, path is not specified by the user.
-		#delete any existing Z drive directory.
+			$ZDirloc = $thisdir."zdrive" unless ($ZDirloc);
-		my $retVal = &datadriveimage::deleteDirectory($ZDirloc,$opt_v)if(!$opt_r);
+			$DataDriveDirloc = $thisdir."datadrive" unless ($DataDriveDirloc);
-		if($retVal)
+			#delete any existing Z drive directory.
-		{
+			my $retVal = &datadriveimage::deleteDirectory($ZDirloc,$opt_v)if(!$opt_r);
-			exit(1) if(!$opt_k);
+			if($retVal)
-		}
+			{
-		# delete pre-existence of data drive folder, if and only if -r option is not enabled.
+				exit(1) if(!$opt_k);
-		$retVal = &datadriveimage::deleteDirectory($DataDriveDirloc,$opt_v) if(!$opt_r);
+			}
-		if($retVal)
+			# delete pre-existence of data drive folder, if and only if -r option is not enabled.
-		{
+			$retVal = &datadriveimage::deleteDirectory($DataDriveDirloc,$opt_v) if(!$opt_r);
-			exit(1) if(!$opt_k);
+			if($retVal)
-		}
+			{
-		if($opt_logFile)
+				exit(1) if(!$opt_k);
-		{
+			}
-			# clean any pre-existance of log file.
+			if($opt_logFile)
-			unlink($ZDirloc."\/".$imageEntryLogFile);
+			{
-		}
+				# clean any pre-existance of log file.
+				unlink($ZDirloc."\/".$imageEntryLogFile);
-		for (my $datadriveidx=0; $datadriveidx < $dataImageCount; $datadriveidx++)
+			}
-		{
-			my $driveIndex = $dataIndexHash{$datadriveidx};
+			for (my $datadriveidx=0; $datadriveidx < $dataImageCount; $datadriveidx++)
-			# get the data drive name.
+			{
-			if( defined( $driveIndex ) )
+				my $driveIndex = $dataIndexHash{$datadriveidx};
-			{
+				# get the data drive name.
-				my $datadrivename=$datadriveimage[$driveIndex]{obeyfile};
+				if( defined( $driveIndex ) )
-				# get the size of the data drive.
+				{
-				my $size = $datadriveimage[$driveIndex]{size};
+					my $datadrivename=$datadriveimage[$driveIndex]{obeyfile};
-				if( $datadrivename )
+					# get the size of the data drive.
-				{
+					my $size = $datadriveimage[$driveIndex]{size};
-					# set data drive oby file.
+					if( $datadrivename )
-					my $datadriveobyfile = $datadrivename.".oby";
-					# final location of prototype data drive.
-					my $proDataDriveDirloc;
-					# Location of stub-sis file(s) inside Z Drive folder.
-					my $zDriveSisFileLoc;
-					# check if more than one data drive image needs to be generated.
-					if ($datadrivename =~ /.*[\\\/]([^\\\/]+)$/)
 					{
-						$datadrivename = $1;
+						# set data drive oby file.
-					}
+						my $datadriveobyfile = $datadrivename.".oby";
-					if( $dataImageCount > 1 )
+						# final location of prototype data drive.
-					{
+						my $proDataDriveDirloc;
-						# if yes, then set the location of prototype data drive folder as
+						# Location of stub-sis file(s) inside Z Drive folder.
-						# DataDriveDirloc + datadrivename
+						my $zDriveSisFileLoc;
-						$proDataDriveDirloc = $DataDriveDirloc."\/".$datadrivename;
+						# check if more than one data drive image needs to be generated.
-					}
+						if ($datadrivename =~ /.*[\\\/]([^\\\/]+)$/)
-					else
-					{
-						# else, then set the location of prototype data drive folder as DataDriveDirloc
-						$proDataDriveDirloc = $DataDriveDirloc;
-					}
-					# create prototype data drive folder.
-					print "creating data drive folder\n" if ($opt_v);
-					&datadriveimage::createDirectory($proDataDriveDirloc);
-					# check for sis file keyword in ROM description file.
-					# if found,then locate for stub-sisfile.
-					# create Z drive( if and only if stub-sis files are present in ROM description file )
-					# and dump all the non-sis files on to the Z drive folder.
-					if(&datadriveimage::checkForSisFile($datadriveobyfile,\@sisfilelist,\$sisfilepresent))
-					{
-						my $zDriveImagePresent = 0; # flag to check whether z drive image is Present;
-						if(&datadriveimage::checkForZDriveImageKeyword($datadriveobyfile,\@zDriveImageList,\$zDriveImagePresent) )
 						{
-							# find out size of the array
+							$datadrivename = $1;
-							my $arraysize = scalar(@zDriveImageList);
+						}
-							for( my $i=0; $i < $arraysize; $i++ )
+						if( $dataImageCount > 1 )
-							{
+						{
-								$zDriveSisFileLoc =  $ZDirloc."\/".$datadrivename;
+							# if yes, then set the location of prototype data drive folder as
-								&datadriveimage::invokeReadImage(pop(@zDriveImageList),$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
+							# DataDriveDirloc + datadrivename
-							}
+							$proDataDriveDirloc = $DataDriveDirloc."\/".$datadrivename;
 						}
 						else
 						{
-							$zDriveSisFileLoc = $ZDirloc;
+							# else, then set the location of prototype data drive folder as DataDriveDirloc
-							# locate and copy stub-sis file(s),for the first time.
+							$proDataDriveDirloc = $DataDriveDirloc;
-							if( !$zDrivePresent )
+						}
+						# create prototype data drive folder.
+						print "creating data drive folder\n" if ($opt_v);
+						&datadriveimage::createDirectory($proDataDriveDirloc);
+						# check for sis file keyword in ROM description file.
+						# if found,then locate for stub-sisfile.
+						# create Z drive( if and only if stub-sis files are present in ROM description file )
+						# and dump all the non-sis files on to the Z drive folder.
+						if(&datadriveimage::checkForSisFile($datadriveobyfile,\@sisfilelist,\$sisfilepresent))
+						{
+							my $zDriveImagePresent = 0; # flag to check whether z drive image is Present;
+							if(&datadriveimage::checkForZDriveImageKeyword($datadriveobyfile,\@zDriveImageList,\$zDriveImagePresent) )
 							{
-								# check for image file.
+								# find out size of the array
-								if( $opt_zimage )
+								my $arraysize = scalar(@zDriveImageList);
+								for( my $i=0; $i < $arraysize; $i++ )
 								{
-									# image(s)supplied to BUILDROM(like rom,rofs,extrofs or core) using "-zdriveimage" option,
+									$zDriveSisFileLoc =  $ZDirloc."\/".$datadrivename;
-									# are maintained in a seperate array and the element from the array is fetched one by one and is
+									&datadriveimage::invokeReadImage(pop(@zDriveImageList),$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
-									# fed to READIMAGE as an input.
+								}
-									foreach my $element (@zdriveImageName)
+							}
+							else
+							{
+								$zDriveSisFileLoc = $ZDirloc;
+								# locate and copy stub-sis file(s),for the first time.
+								if( !$zDrivePresent )
+								{
+									# check for image file.
+									if( $opt_zimage )
 									{
-										# invoke READIMAGE to extract all /swi stub sis file(s) from the given image.
+										# image(s)supplied to BUILDROM(like rom,rofs,extrofs or core) using "-zdriveimage" option,
-										$zDrivePresent = &datadriveimage::invokeReadImage($element,$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
+										# are maintained in a seperate array and the element from the array is fetched one by one and is
+										# fed to READIMAGE as an input.
+										foreach my $element (@zdriveImageName)
+										{
+											# invoke READIMAGE to extract all /swi stub sis file(s) from the given image.
+											$zDrivePresent = &datadriveimage::invokeReadImage($element,$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
+										}
 									}
-								}
+									else
-								else
-								{
-									# if zdrive image(s) such as (rom,core,rofs or extrofs) are generated ealier to the data drive image processing
-									# then these images are maintained in an array and the element from the array is fetched one by one and is
-									# fed to READIMAGE as an input.
-									foreach my $element (@romImages)
 									{
-										# invoke READIMAGE to extract all /swi stub sis file(s) from the given image.
+										# if zdrive image(s) such as (rom,core,rofs or extrofs) are generated ealier to the data drive image processing
-										$zDrivePresent = &datadriveimage::invokeReadImage($element,$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
+										# then these images are maintained in an array and the element from the array is fetched one by one and is
+										# fed to READIMAGE as an input.
+										foreach my $element (@romImages)
+										{
+											# invoke READIMAGE to extract all /swi stub sis file(s) from the given image.
+											$zDrivePresent = &datadriveimage::invokeReadImage($element,$zDriveSisFileLoc,$opt_v,$imageEntryLogFile,$opt_k);
+										}
 									}
 								}
 							}
+							# invoke INTERPRETSIS tool with z drive folder location.
+							if ($useinterpretsis)
+							{
+								&datadriveimage::invokeInterpretsis( \@sisfilelist,$proDataDriveDirloc,$opt_v,$zDriveSisFileLoc,$paraFile,$opt_k,\@interpretsisOptList,$thisdir)if($sisfilepresent);
+							}else
+							{
+								print "Warning: interpretsis is not ready on linux.\n";
+							}
 						}
-						# invoke INTERPRETSIS tool with z drive folder location.
-						if ($useinterpretsis)
+						# create an oby file by traversing through upated prototype data drive directory.
-						{
+						&datadriveimage::dumpDatadriveObydata( $proDataDriveDirloc,$datadriveobyfile,$size,\@nonsisFilelist,
-							&datadriveimage::invokeInterpretsis( \@sisfilelist,$proDataDriveDirloc,$opt_v,$zDriveSisFileLoc,$paraFile,$opt_k,\@interpretsisOptList,$thisdir)if($sisfilepresent);
+											\@renameList,\@aliaslist,\@hideList,\@sisobydata,\@datadrivedata,$opt_k,$opt_v );
-						}else
+						#reset sisfilepresent flag to zero;
-						{
+						$sisfilepresent =0;
-							print "Warning: interpretsis is not ready on linux.\n";
-						}
 					}
-					# create an oby file by traversing through upated prototype data drive directory.
-					&datadriveimage::dumpDatadriveObydata( $proDataDriveDirloc,$datadriveobyfile,$size,\@nonsisFilelist,
-										\@renameList,\@aliaslist,\@hideList,\@sisobydata,\@datadrivedata,$opt_k,$opt_v );
-					#reset sisfilepresent flag to zero;
-					$sisfilepresent =0;
 				}
 			}
 		}
 		create_datadriveImage();
 	}
 	    {
 		&externaltools::loadTools($1);
 		next;
 	    }
 		#Process imagecontent file
-	    if( $arg =~ /^-i(.*)/)
+	    if( $arg =~ /^-i(.*)/ && $arg !~ /^-input(.*)/)
 	    {
 # Disabling -i option
 		print "Warning: Ignoring invalid Option $arg \n";
 		next;
 	    }
 print "Unknown compression method: $1\n";
 $errors++;
 }
 next;
 }
+		if ($arg =~ /^-inputoby=(.*)/)
+		{
+			$ignoreconfig =1;
+			my $ignoreoby = $1;
+			$ignoreoby .= ".oby" unless $ignoreoby =~ /\.oby$/i;
+			die "$ignoreoby file does not exist!!\n" if (!-e $ignoreoby);
+			open IGNORE, "$ignoreoby" or die("* Can't open $ignoreoby\n");
+			my @lines = <IGNORE>;
+			close IGNORE;
+			my $keywordcount = 0;
+			my $romimgcount = 0;
+			my $rofsimgcount = 0;
+			my $fatcount = 0;
+			my $smrcount = 0;
+			foreach my $line (@lines)
+			{
+				if ($line =~ /^\s*romsize\s*=/)
+				{
+					next if ($romimgcount);
+					$romimgcount = 1;
+					$keywordcount ++;
+					$ignoreoby =~ s/\.oby$//i;
+					$romimage[$romcount] = {xip=>1, obeyfile=>$ignoreoby, compress=>0, extension=>0, composite=>"none",uncompress=>0 };
+					$romcount ++;
+				}elsif ($line =~ /^\s*rofssize\s*=/)
+				{
+					next if ($rofsimgcount);
+					$rofsimgcount = 1;
+					$keywordcount ++;
+					$ignoreoby =~ s/\.oby$//i;
+					$romimage[$romcount] = {xip=>0, obeyfile=>$ignoreoby, compress=>0, extension=>0, composite=>"none",uncompress=>0 };
+					$romcount ++;
+				}elsif ($line =~ /^\s*dataimagename\s*=/)
+				{
+					next if ($fatcount);
+					$fatcount = 1;
+					$keywordcount ++;
+					$ignoreoby =~ s/\.oby$//i;
+					$datadriveimage[$dataImageCount] = {obeyfile=>$ignoreoby, compress=>0, uncompress=>0};
+					$dataImageCount ++;
+					$dataIndexHash{0} = 0;
+				}elsif ($line =~ /^\s*imagename\s*=/)
+				{
+					next if ($smrcount);
+					$smrcount = 1;
+					$keywordcount ++;
+					$ignoreoby =~ s/\.oby$//i;
+					$needSmrImage = 1;
+					push @obeyFileList, $ignoreoby;
+				}
+			}
+			die "$ignoreoby file does not contain keywords romsize/rofssize/dataimagename/imagename, cannot identify the oby type!\n" if ($keywordcount == 0);
+			die "$ignoreoby file contains $keywordcount keywords of romsize/rofssize/dataimagename/imagename, cannot identify the oby type! Maybe $ignoreoby is not a final oby file.\n" if ($keywordcount > 1);
+			next;
+		}
 		if( $arg =~ /^-loglevel\d+$/)
 		{
 			$logLevel= $arg;
 			next;
 		}
 	if (defined $paramFileFlag)
 	{
 		return;
 	}
-	if (@obyfiles<1)
+	$preserve = 1 if ($ignoreconfig);
+	if (@obyfiles<1 && !$ignoreconfig)
 	{
 	    print "Missing obyfile argument\n";
 	    $errors++ if(!$opt_k);
 	}
 	if(defined($obycharset))
 			{
 				my $from = $filename;
 				$from =~ s/\\/\\\\/g;
 				$from =~ s/\//\\\//g;		# need to escape backslashes
 				$from =~ s/(\[|\])/\\$1/g;	# need to escape square brackets for file names like "featreg.cfg[x-y]",etc.
+				$from =~ s/(\{|\})/\\$1/g;	# need to escape brace for file names like "mydll{00010001}.dll",etc.
 				my $into = $fileExists;
 				$line =~ s/$from/$into/i;
 				if ($warnSelection && ($fileExists ne $normedFilename))
 	}
 	elsif($line =~ /^\s*kerneltrace\s*=.*/i)
 	{
 		return $line;
 	}
-	elsif($line =~ /^\s*dir\s*=.*/i)
+	elsif($line =~ /^\s*(dir|dircopy)\s*=.*/i)
 	{
 		return $line;
 	}
 	elsif($line =~ /^\s*bootbinary\s*=(.*)/i)
 	{
 	if($needSmrImage)
 	{
 		foreach my $oby (@obeyFileList)
 		{
 			is_existinpath("rofsbuild", romutl::ERROR_NOT_FOUND);
-			my $command = "rofsbuild -slog -smr=$oby.oby";
+			my $command = "rofsbuild -slog -smr=$oby.oby -logfile=$thisdir";
+			$command .= " -k" if($opt_k);
 			print "* Executing $command\n" if($opt_v);
 			system($command);
 			if($? != 0)
 			{
 				print("* ROFSBUILD failed to generate SMR IMAGE\n") if($opt_v);
 }
 sub getWorkdir
 {
 	return $thisdir;
+}
+sub isIgnoreConfig
+{
+	return $ignoreconfig;
 }
 sub find_stdcpp
 {
 return "cpp" if (!$stdcpp);

changeset 647	53d1ab72f5bc
parent 633	a4eca1f021ac
child 651	0d0d83e3702d
child 654	7c11c3d8d025