From 60738a58611d33e24fcacf8f001c1c462376ef70 Mon Sep 17 00:00:00 2001
From: Rudolf Polzer <divverent@xonotic.org>
Date: Sun, 23 Jun 2013 18:07:37 +0200
Subject: [PATCH] fix shaderlist handling

---
 misc/tools/xonotic-map-compiler | 64 +++------------------------------
 1 file changed, 5 insertions(+), 59 deletions(-)

diff --git a/misc/tools/xonotic-map-compiler b/misc/tools/xonotic-map-compiler
index aa9e747d..780ea354 100755
--- a/misc/tools/xonotic-map-compiler
+++ b/misc/tools/xonotic-map-compiler
@@ -239,73 +239,19 @@ for my $m(@{$options->{maps}})
 		unshift @{$options->{bsp}}, "-keeplights";
 	}
 
-	my %shaders = map { m!/([^/.]*)\.shader(?:$)! ? ($1 => 1) : () } glob "../scripts/*.shader";
+	my %shaders = map { m!/([^/.]*)\.shader(?:$)! ? ($1 => 1) : () } glob "$mapdir/scripts/*.shader";
 
 	my $restore_shaderlist = sub { };
 	if(!$options->{noshaderlist})
 	{
-		my $previous_shaderlist = undef;
-		my $shaderlist = "";
-		if(open my $fh, "<", "$XONOTICDIR/data/scripts/shaderlist.txt")
-		{
-			while(<$fh>)
-			{
-				$shaderlist .= $_;
-			}
-
-			# we may have to restore the file on exit
-			$previous_shaderlist = $shaderlist
-				if "$XONOTICDIR/data" eq $mapdir;
-		}
-		else
-		{
-			# possibly extract the shader list from a pk3?
-			local $ENV{N} = $XONOTICDIR;
-			$shaderlist = `cd "\$N" && for X in "\$N"/data/data*.pk3; do Y=\$X; done; unzip -p "\$Y" scripts/shaderlist.txt`;
-		}
-
-		my $shaderlist_new = "";
-		for(split /\r?\n|\r/, $shaderlist)
-		{
-			delete $shaders{$_};
-			$shaderlist_new .= "$_\n";
-		}
-		if(%shaders)
-		{
-			for(sort keys %shaders)
-			{
-				$shaderlist_new .= "$_\n";
-			}
-		}
-		else
-		{
-			$shaderlist_new = undef;
-		}
+		local $ENV{mapdir} = $mapdir;
+		system 'cd $mapdir; make -C ../scripts shaderlist.txt';
 
 		$restore_shaderlist = sub
 		{
-			if(defined $shaderlist_new)
-			{
-				if(defined $previous_shaderlist)
-				{
-					open my $fh, ">", "$mapdir/scripts/shaderlist.txt";
-					print $fh $previous_shaderlist;
-					close $fh;
-				}
-				else
-				{
-					unlink "$mapdir/scripts/shaderlist.txt";
-				}
-			}
+			local $ENV{mapdir} = $mapdir;
+			system 'cd $mapdir; git checkout ../scripts/shaderlist.txt';
 		};
-
-		if(defined $shaderlist_new)
-		{
-			mkdir "$mapdir/scripts";
-			open my $fh, ">", "$mapdir/scripts/shaderlist.txt";
-			print $fh $shaderlist_new;
-			close $fh;
-		}
 	}
 
 	local $SIG{INT} = sub
-- 
2.39.2