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.
116 lines
1.8 KiB
116 lines
1.8 KiB
use String::CRC32;
|
|
BEGIN {use File::Basename; push @INC, dirname($0); }
|
|
require "valve_perl_helpers.pl";
|
|
|
|
sub GetShaderType
|
|
{
|
|
my $shadername = shift;
|
|
my $shadertype;
|
|
if( $shadername =~ m/\.vsh/i )
|
|
{
|
|
$shadertype = "vsh";
|
|
}
|
|
elsif( $shadername =~ m/\.psh/i )
|
|
{
|
|
$shadertype = "psh";
|
|
}
|
|
elsif( $shadername =~ m/\.fxc/i )
|
|
{
|
|
$shadertype = "fxc";
|
|
}
|
|
else
|
|
{
|
|
die;
|
|
}
|
|
return $shadertype;
|
|
}
|
|
|
|
sub GetShaderSrc
|
|
{
|
|
my $shadername = shift;
|
|
if ( $shadername =~ m/^(.*)-----/i )
|
|
{
|
|
return $1;
|
|
}
|
|
else
|
|
{
|
|
return $shadername;
|
|
}
|
|
}
|
|
|
|
sub GetShaderType
|
|
{
|
|
my $shadername = shift;
|
|
my $shadertype;
|
|
if( $shadername =~ m/\.vsh/i )
|
|
{
|
|
$shadertype = "vsh";
|
|
}
|
|
elsif( $shadername =~ m/\.psh/i )
|
|
{
|
|
$shadertype = "psh";
|
|
}
|
|
elsif( $shadername =~ m/\.fxc/i )
|
|
{
|
|
$shadertype = "fxc";
|
|
}
|
|
else
|
|
{
|
|
die;
|
|
}
|
|
return $shadertype;
|
|
}
|
|
|
|
sub GetShaderBase
|
|
{
|
|
my $shadername = shift;
|
|
if ( $shadername =~ m/-----(.*)$/i )
|
|
{
|
|
return $1;
|
|
}
|
|
else
|
|
{
|
|
my $shadertype = &GetShaderType( $shadername );
|
|
$shadername =~ s/\.$shadertype//i;
|
|
return $shadername;
|
|
}
|
|
}
|
|
|
|
$g_x360 = 0;
|
|
$g_vcsext = ".vcs";
|
|
|
|
while( 1 )
|
|
{
|
|
$inputbase = shift;
|
|
|
|
if( $inputbase =~ m/-x360/ )
|
|
{
|
|
$g_x360 = 1;
|
|
$g_vcsext = ".360.vcs";
|
|
}
|
|
else
|
|
{
|
|
last;
|
|
}
|
|
}
|
|
|
|
# rip the txt off the end if it's there.
|
|
$inputbase =~ s/\.txt//i;
|
|
|
|
my @srcfiles = &LoadShaderListFile( $inputbase );
|
|
|
|
foreach $srcfile ( @srcfiles )
|
|
{
|
|
my $shadertype = &GetShaderType( $srcfile );
|
|
my $shaderbase = &GetShaderBase( $srcfile );
|
|
my $shadersrc = &GetShaderSrc( $srcfile );
|
|
my $vcsFileName = "..\\..\\..\\game\\platform\\shaders\\$shadertype\\$shaderbase" . $g_vcsext;
|
|
# print "shadersrc: $shadersrc vcsFileName: $vcsFileName\n";
|
|
|
|
if( $g_x360 && ( $shaderbase =~ m/_ps20$/i ) )
|
|
{
|
|
next; # skip _ps20 files for 360
|
|
}
|
|
|
|
&CheckCRCAgainstTarget( $shadersrc, $vcsFileName, 1 );
|
|
}
|