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 |