source-engine/unittests/autotestscripts/check_dynamic_shader_compile.pl

16 lines
392 B
Perl
Raw Normal View History

2020-04-22 16:56:21 +00:00
#!perl
open(DLL,"../../../game/bin/shaderapidx9.dll" ) || die "can't open shaderapi";
binmode DLL;
my $dllcode = do { local( $/ ) ; <DLL> } ; # slurp comparison output in
close DLL;
if ( $dllcode =~ /dynamic_shader_compile_is_on/s )
{
open(ERRORS,">errors.txt") || die "huh - can't write";
print ERRORS "stdshader_dx9.dll was built with dynamic shader compile!\n";
close ERRORS;
}