You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
612 B
37 lines
612 B
5 years ago
|
use Cwd;
|
||
|
|
|
||
|
|
my $dir = getcwd;
|
||
|
|
|
||
|
|
chdir "../../materialsystem/stdshaders";
|
||
|
|
|
||
|
|
@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_20b.txt`;
|
||
|
|
foreach $_ (@output)
|
||
|
|
{
|
||
|
|
$output.=$_ unless(/appchooser360/i);
|
||
|
|
}
|
||
|
|
|
||
|
|
@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_30.txt`;
|
||
|
|
foreach $_ (@output)
|
||
|
|
{
|
||
|
|
$output.=$_ unless(/appchooser360/i);
|
||
|
|
}
|
||
|
|
|
||
|
|
my $errors;
|
||
|
|
|
||
|
|
foreach $_ (@output )
|
||
|
|
{
|
||
|
|
$errors.=$_ unless (/appchooser360movie/);
|
||
|
|
}
|
||
|
|
|
||
|
|
chdir $dir;
|
||
|
|
|
||
|
|
print $errors;
|
||
|
|
|
||
|
|
if( length( $errors ) > 0 )
|
||
|
|
{
|
||
|
|
print "writing errors.txt\n";
|
||
|
|
open FP, ">errors.txt";
|
||
|
|
print FP "$errors";
|
||
|
|
close FP;
|
||
|
|
}
|