173 lines
3.5 KiB
Perl
173 lines
3.5 KiB
Perl
BEGIN {use File::Basename; push @INC, dirname($0); }
|
|
require "valve_perl_helpers.pl";
|
|
use Cwd;
|
|
use String::CRC32;
|
|
|
|
sub ReadInputFileWithIncludes
|
|
{
|
|
local( $filename ) = shift;
|
|
|
|
local( *INPUT );
|
|
local( $output );
|
|
|
|
open INPUT, "<$filename" || die;
|
|
|
|
local( $line );
|
|
local( $linenum ) = 1;
|
|
while( $line = <INPUT> )
|
|
{
|
|
if( $line =~ m/\#include\s+\"(.*)\"/i )
|
|
{
|
|
$output.= ReadInputFileWithIncludes( $1 );
|
|
}
|
|
else
|
|
{
|
|
$output .= $line;
|
|
}
|
|
}
|
|
|
|
close INPUT;
|
|
return $output;
|
|
}
|
|
|
|
sub PatchCRC
|
|
{
|
|
my $filename = shift;
|
|
my $crc = shift;
|
|
# print STDERR "PatchCRC( $filename, $crc )\n";
|
|
local( *FP );
|
|
open FP, "+<$filename" || die;
|
|
binmode( FP );
|
|
seek FP, 6 * 4, 0;
|
|
my $uInt = "I";
|
|
if( $filename =~ m/360/ )
|
|
{
|
|
$uInt = "N";
|
|
}
|
|
print FP pack $uInt, $crc;
|
|
close FP;
|
|
}
|
|
|
|
my $txtfilename = shift;
|
|
my $arg = shift;
|
|
|
|
my $is360 = 0;
|
|
my $platformextension = "";
|
|
if( $arg =~ m/-x360/i )
|
|
{
|
|
$is360 = 1;
|
|
$platformextension = ".360";
|
|
}
|
|
|
|
# Get the changelist number for the Shader Auto Checkout changelist. Will create the changelist if it doesn't exist.
|
|
my $changelistnumber = `valve_p4_create_changelist.cmd ..\\..\\..\\game\\hl2\\shaders \"Shader Auto Checkout VCS\"`;
|
|
# Get rid of the newline
|
|
$changelistnumber =~ s/\n//g;
|
|
|
|
my $changelistarg = "";
|
|
if( $changelistnumber != 0 )
|
|
{
|
|
$changelistarg = "-c $changelistnumber"
|
|
}
|
|
|
|
open TXTFILE, "<$txtfilename";
|
|
|
|
my $src;
|
|
my $dst;
|
|
while( $src = <TXTFILE> )
|
|
{
|
|
# get rid of comments
|
|
$src =~ s,//.*,,g;
|
|
|
|
# skip blank lines
|
|
if( $src =~ m/^\s*$/ )
|
|
{
|
|
next;
|
|
}
|
|
|
|
# Get rid of newlines.
|
|
$src =~ s/\n//g;
|
|
|
|
# Save off the shader source filename.
|
|
my $shadersrcfilename = $src;
|
|
$shadersrcfilename =~ s/-----.*$//;
|
|
# use only target basename.
|
|
$src =~ s/^.*-----//;
|
|
|
|
# where the binary vcs file is
|
|
my $spath = "";
|
|
|
|
if ( $shadersrcfilename =~ m@\.fxc@i )
|
|
{
|
|
$spath = "shaders\\fxc\\";
|
|
}
|
|
if ( $shadersrcfilename =~ m@\.vsh@i )
|
|
{
|
|
$spath = "shaders\\vsh\\";
|
|
}
|
|
if ( $shadersrcfilename =~ m@\.psh@i )
|
|
{
|
|
$spath = "shaders\\psh\\";
|
|
}
|
|
|
|
# make the source have path and extension
|
|
$src = $spath . $src . $platformextension . ".vcs";
|
|
|
|
# build the dest filename.
|
|
$dst = $src;
|
|
|
|
$dst =~ s/shaders\\/..\\..\\..\\game\\hl2\\shaders\\/i;
|
|
|
|
# Does the dst exist?
|
|
my $dstexists = -e $dst;
|
|
my $srcexists = -e $src;
|
|
# What are the time stamps for the src and dst?
|
|
my $srcmodtime = ( stat $src )[9];
|
|
my $dstmodtime = ( stat $dst )[9];
|
|
|
|
# Write $dst to a file so that we can do perforce stuff to it later.
|
|
local( *VCSLIST );
|
|
open VCSLIST, ">>vcslist.txt" || die;
|
|
print VCSLIST $dst . "\n";
|
|
close VCSLIST;
|
|
|
|
# Open for edit or add if different than what is in perforce already.
|
|
if( !$dstexists || ( $srcmodtime != $dstmodtime ) )
|
|
{
|
|
if ( $srcexists && $shadersrcfilename =~ m@\.fxc@i )
|
|
{
|
|
# Get the CRC for the source file.
|
|
my $srccode = ReadInputFileWithIncludes( $shadersrcfilename );
|
|
my $crc = crc32( $srccode );
|
|
|
|
# Patch the source VCS file with the CRC32 of the source code used to build that file.
|
|
PatchCRC( $src, $crc );
|
|
}
|
|
|
|
# Make the target vcs writable if it exists
|
|
if( $dstexists )
|
|
{
|
|
MakeFileWritable( $dst );
|
|
}
|
|
|
|
my $dir = $dst;
|
|
$dir =~ s,([^/\\]*$),,; # rip the filename off the end
|
|
my $filename = $1;
|
|
|
|
# create the target directory if it doesn't exist
|
|
if( !$dstexists )
|
|
{
|
|
&MakeDirHier( $dir, 0777 );
|
|
}
|
|
|
|
# copy the file to its targets. . . we want to see STDERR here if there is an error.
|
|
my $cmd = "copy $src $dst > nul";
|
|
# print STDERR "$cmd\n";
|
|
system $cmd;
|
|
|
|
MakeFileReadOnly( $dst );
|
|
}
|
|
}
|
|
|
|
close TXTFILE;
|