equal
deleted
inserted
replaced
114 |
114 |
115 opendir CONFIGDIR, "..\\platform" or die "ERROR: Can't open dir \"..\\platform\"\n"; |
115 opendir CONFIGDIR, "..\\platform" or die "ERROR: Can't open dir \"..\\platform\"\n"; |
116 @ConfigFiles = grep /\.(mk|make)/i, readdir CONFIGDIR; |
116 @ConfigFiles = grep /\.(mk|make)/i, readdir CONFIGDIR; |
117 |
117 |
118 closedir CONFIGDIR; |
118 closedir CONFIGDIR; |
119 my @Docs ; |
119 |
120 if(-d "..\\Docs") { |
120 my @Docs; |
|
121 if (-d "..\\Docs") { |
121 opendir SUBDIR, "..\\Docs" or die "ERROR: Can't open dir \"..\\Docs\"\n"; |
122 opendir SUBDIR, "..\\Docs" or die "ERROR: Can't open dir \"..\\Docs\"\n"; |
122 @Docs = map lc $_, readdir SUBDIR; |
123 @Docs = map lc $_, readdir SUBDIR; |
123 @Docs = grep /^[^\.].+\.(rtf|doc|changes|txt|html|htm)$/o, @Docs; |
124 @Docs = grep /^[^\.].+\.(rtf|doc|changes|txt|html|htm)$/o, @Docs; |
124 closedir SUBDIR; |
125 closedir SUBDIR; |
125 } |
126 } |
|
127 |
126 |
128 |
127 open TEMPLATEFILESUBDIR, "\"dir \/s \/b \/a-d ..\\..\\..\\toolsandutils\\buildsystem\\extension\" |"; |
129 open TEMPLATEFILESUBDIR, "\"dir \/s \/b \/a-d ..\\..\\..\\toolsandutils\\buildsystem\\extension\" |"; |
128 my @TemplateFiles=(); |
130 my @TemplateFiles=(); |
129 my %TemplateDirs; |
131 my %TemplateDirs; |
130 while (<TEMPLATEFILESUBDIR>) |
132 while (<TEMPLATEFILESUBDIR>) |
239 "$BinFilePath\\$_ :\n", |
241 "$BinFilePath\\$_ :\n", |
240 "\t\@perl -w ..\\genutil\\emkdir.pl $BinFilePath\\$_\n", |
242 "\t\@perl -w ..\\genutil\\emkdir.pl $BinFilePath\\$_\n", |
241 "\n" |
243 "\n" |
242 ); |
244 ); |
243 } |
245 } |
244 if(scalar @Docs) { |
246 |
245 &Output( |
247 if (scalar @Docs) { |
246 "$DocsPath :\n", |
248 &Output( |
247 "\t\@perl -w ..\\genutil\\emkdir.pl $DocsPath\n", |
249 "$DocsPath :\n", |
248 "\n" |
250 "\t\@perl -w ..\\genutil\\emkdir.pl $DocsPath\n", |
249 ); |
251 "\n" |
250 } |
252 ); |
251 else { |
253 } else { |
252 $DocsPath = ""; # suppresses $DocsPath as a dependency in the main rules |
254 $DocsPath = ""; # suppresses $DocsPath as a dependency in the main rules |
253 } |
255 } |
|
256 |
254 &Output( |
257 &Output( |
255 "$ShellFilePath :\n", |
258 "$ShellFilePath :\n", |
256 "\t\@perl -w ..\\genutil\\emkdir.pl $ShellFilePath\n", |
259 "\t\@perl -w ..\\genutil\\emkdir.pl $ShellFilePath\n", |
257 "\n", |
260 "\n", |
258 "$EPOCToolsConfigFilePath :\n", |
261 "$EPOCToolsConfigFilePath :\n", |
507 open MRPFILE,"<$MRPFILE" or die "\nERROR: Can't read MRP file \"$MRPFILE\"\n"; |
510 open MRPFILE,"<$MRPFILE" or die "\nERROR: Can't read MRP file \"$MRPFILE\"\n"; |
508 my $OldMRPText = ""; |
511 my $OldMRPText = ""; |
509 sysread MRPFILE, $OldMRPText, 100000; # assumes MRP file is less than 100,000 bytes |
512 sysread MRPFILE, $OldMRPText, 100000; # assumes MRP file is less than 100,000 bytes |
510 close MRPFILE or die "\nERROR: Can't close MRP file \"$MRPFILE\"\n"; |
513 close MRPFILE or die "\nERROR: Can't close MRP file \"$MRPFILE\"\n"; |
511 |
514 |
512 if ( lc($OldMRPText) ne lc($NewMRPText)) { |
515 if ($OldMRPText ne $NewMRPText) { |
513 print "REMARK: MRP file \"$MRPFILE\" differs from setupprj.bat generated content\n"; |
516 print "REMARK: MRP file \"$MRPFILE\" differs from setupprj.bat generated content\n"; |
514 print "Creating suggested new MRP file \"$MRPFILE.new\"\n"; |
517 print "Creating suggested new MRP file \"$MRPFILE.new\"\n"; |
515 open MRPFILE,">$MRPFILE.new" or die "\nERROR: Can't open or create MRP file \"$MRPFILE.new\"\n"; |
518 open MRPFILE,">$MRPFILE.new" or die "\nERROR: Can't open or create MRP file \"$MRPFILE.new\"\n"; |
516 print MRPFILE $NewMRPText; |
519 print MRPFILE $NewMRPText; |
517 close MRPFILE or die "\nERROR: Can't close MRP file \"$MRPFILE.new\"\n"; |
520 close MRPFILE or die "\nERROR: Can't close MRP file \"$MRPFILE.new\"\n"; |