r5869 - trunk/misc/tools

DONOTREPLY at icculus.org DONOTREPLY at icculus.org
Fri Feb 13 13:17:52 EST 2009


Author: div0
Date: 2009-02-13 13:17:52 -0500 (Fri, 13 Feb 2009)
New Revision: 5869

Modified:
   trunk/misc/tools/shader-checksums.pl
Log:
compensate for more glitches


Modified: trunk/misc/tools/shader-checksums.pl
===================================================================
--- trunk/misc/tools/shader-checksums.pl	2009-02-13 17:58:58 UTC (rev 5868)
+++ trunk/misc/tools/shader-checksums.pl	2009-02-13 18:17:52 UTC (rev 5869)
@@ -38,15 +38,21 @@
 	my $brace_index = [grep { $line[$_] eq "}" } 0.. at line-1]->[0];
 	if(defined $brace_index)
 	{
-		@nextline = splice @line, $brace_index || 1;
+		unshift @nextline, splice @line, $brace_index || 1;
 	}
 
 	# allow initial { token
 	if(@line >= 2 && $line[0] eq '{')
 	{
-		@nextline = splice @line, 1;
+		unshift @nextline, splice @line, 1;
 	}
 
+	# in level 0, make the map name a separate token
+	if(@level == 0 && @line >= 2)
+	{
+		unshift @nextline, splice @line, 1;
+	}
+
 	$shadertext .= "@line\n";
 
 	if($line[0] eq '{')




More information about the nexuiz-commits mailing list