Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
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

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;
}