generate_system_models.pl
changeset 1073 ac18844eb787
parent 1072 48e2f89df0ad
equal deleted inserted replaced
1072:48e2f89df0ad 1073:ac18844eb787
    77 	{
    77 	{
    78 		system("hg -R platforms add");
    78 		system("hg -R platforms add");
    79 		system("hg -R platforms commit -m \"Add auto generated $codeline system model (packages\@$packages_changeset)\" -u\"Dario Sestito <darios\@symbian.org>\"");
    79 		system("hg -R platforms commit -m \"Add auto generated $codeline system model (packages\@$packages_changeset)\" -u\"Dario Sestito <darios\@symbian.org>\"");
    80 		system("hg -R platforms push http://darios:symbian696b\@developer.symbian.org/oss/MCL/sftools/fbf/projects/platforms");
    80 		system("hg -R platforms push http://darios:symbian696b\@developer.symbian.org/oss/MCL/sftools/fbf/projects/platforms");
    81 		
    81 		
    82 		# Split model into package models
       
    83 		print "\n\n### SPLIT MODEL INTO PACKAGE MODELS ###\n";
       
    84 		my $updatedefault_cmd = "hg -R packages update -r default";
       
    85 		print "$updatedefault_cmd\n";
       
    86 		system($updatedefault_cmd);
       
    87 		my $rmdir_cmd = "del /S packages\\$codeline\\package_definition.xml >nul";
       
    88 		print "$rmdir_cmd\n";
       
    89 		system($rmdir_cmd);
       
    90 		my $splitmodel_cmd = "perl ..\\split_sysdef.pl -s $codeline\\system_model.xml -o packages\\$codeline";
       
    91 		print "$splitmodel_cmd\n";
       
    92 		system($splitmodel_cmd);
       
    93 		if ($codeline eq 'symbian3') # also update CompilerCompatibility
       
    94 		{
       
    95 			my $rmdir2_cmd = "del /S  packages\\CompilerCompatibility\\package_definition.xml >nul";
       
    96 			print "$rmdir2_cmd\n";
       
    97 			system($rmdir2_cmd);
       
    98 			my $splitmodel2_cmd = "perl ..\\split_sysdef.pl -s $codeline\\system_model.xml -o packages\\CompilerCompatibility";
       
    99 			print "$splitmodel2_cmd\n";
       
   100 			system($splitmodel2_cmd);
       
   101 		}
       
   102 		my $addremove_cmd = "hg -R packages addremove";
       
   103 		print "$addremove_cmd\n";
       
   104 		system($addremove_cmd);
       
   105 		my $diff_cmd = "hg -R packages diff --stat";
       
   106 		print "$diff_cmd\n";
       
   107 		my @diff_output = `$diff_cmd`;
       
   108 		if (@diff_output)
       
   109 		{
       
   110 			my $commit_cmd = "hg -R packages commit -m \"Update package models from auto generated system model (packages\@$packages_changeset)\" -u\"Dario Sestito <darios\@symbian.org>\"";
       
   111 			print "$commit_cmd\n";
       
   112 			system($commit_cmd);
       
   113 			my $push_cmd = "hg -R packages push http://darios:symbian696b\@developer.symbian.org/oss/MCL/sftools/fbf/projects/packages";
       
   114 			print "$push_cmd\n";
       
   115 			system($push_cmd);
       
   116 		}
       
   117 	}
    82 	}
   118 }
    83 }
   119 
    84