b845e28629
** NOT PART OF THE BUILD ** git-svn-id: svn://10.0.0.236/trunk@84880 18797224-902f-48f8-a5cc-f745e15eee43
40 lines
936 B
Perl
40 lines
936 B
Perl
#! /usr/bin/perl
|
|
|
|
use Cwd;
|
|
|
|
$path=`cd`;
|
|
$path=~m/:/;
|
|
|
|
$drive=$`;
|
|
|
|
die "\nUsage: perl TestParser.pl [-b|-v|-c] <filelist>
|
|
b -> creates baseline file(*.b)
|
|
v -> creates verification file (*.v)
|
|
c -> compare baseline vs verification\n"
|
|
|
|
if(@ARGV < 2 || @ARGV > 2);
|
|
|
|
open(FILE_LIST,$ARGV[1]) || die "\nCannot open $ARGV[1]\n";
|
|
|
|
if($ARGV[0] eq "-b" || $ARGV[0] eq "-v") {
|
|
$ARGV[0]=~s/-//g; # create file extension for the output
|
|
|
|
foreach $input(<FILE_LIST>) {
|
|
@output=split(/\./,$input);
|
|
system("$drive://mozilla//dist//WIN32_D.obj//bin//TestParser.exe $input $output[0].$ARGV[0]");
|
|
}
|
|
}
|
|
elsif($ARGV[0] eq "-c") {
|
|
# use windows "fc" to compare files!!!
|
|
foreach $input(<FILE_LIST>) {
|
|
@output=split(/\./,$input);
|
|
system("fc $output[0].b $output[0].v");
|
|
}
|
|
}
|
|
else {
|
|
print "\n\"$ARGV[0]\" unknown....\n";
|
|
print "\nUsage: perl TestParser.pl [-b|-v|-c] <filelist>\n\n";
|
|
}
|
|
|
|
close(FILE_LIST);
|