mp/src/devtools/bin/buildshaderlist.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use File::DosGlob;
@ARGV = map {
              my @g = File::DosGlob::glob($_) if /[*?]/;
              @g ? @g : $_;
            } @ARGV;

open FILE, ">__tmpshaderlist.txt";

foreach $arg (@ARGV)
{
	if( $arg =~ m/\.fxc$/i || $arg =~ m/\.vsh$/i || $arg =~ m/\.psh$/i )
	{	
		print $arg . "\n";
		print FILE $arg . "\n";
	}
}

close FILE;

system "buildshaders.bat __tmpshaderlist";

unlink "__tmpshaderlist.txt";