source-engine/devtools/bin/copyshaders.pl

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;