Fix line endings. WHAMMY.

1 files changed, 172 insertions, 172 deletions

diff --git a/mp/src/devtools/bin/copyshaders.pl b/mp/src/devtools/bin/copyshaders.pl
index 53839298..cb849a84 100644
--- a/mp/src/devtools/bin/copyshaders.pl
+++ b/mp/src/devtools/bin/copyshaders.pl
@@ -1,172 +1,172 @@
-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;

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