source-engine/devtools/bin/limit_vtf_sizes.pl
FluorescentCIAAfricanAmerican 3bf9df6b27 1
2020-04-22 12:56:21 -04:00

95 lines
2.0 KiB
Perl

#!perl
use File::Find;
use File::Basename;
$dir_to_run_on = shift;
$max_size = shift;
if ( (! length( $dir_to_run_on ) || (! $max_size ) ) )
{
die "format is 'limit_vtf_sizes game_dir_to_run_on size'. maxisze -1 to unlimit";
}
open(CMDOUT,">\runit.cmd");
find(\&ProcessFile, $dir_to_run_on);
close CMDOUT;
sub ProcessFile
{
local($_) = $File::Find::name;
my $origname=$_;
my $srcname;
s@\\@/@g;
if (/\.vtf$/i) # is a vtf?
{
next if (m@/hud/@i); # don't shrink hud textures
next if (m@/vgui/@i); # don't shrink hud textures
my $vtex_it=0;
if ( s@game/(.*)/materials/@content/\1/materialsrc/@i )
{
$srcname=$_;
s/\.vtf$/\.txt/i;
if (-e $_ )
{
my $txtname=$_;
# decide whether or not to add the limits
open(TXTIN,$txtname) || die "can't open $_ for read something weird has happened";
my $txtout;
my $should_add_it=1;
while( <TXTIN>)
{
next if ( ( $max_size == -1) && (/maxwidth/i || /maxheight/i) ); # lose this line
$txtout.=$_;
$should_add_it = 0 if (/maxwidth/i || /maxheight/i || /nomip/i || /reduce/i );
}
close TXTIN;
if ($should_add_it )
{
print `p4 edit $txtname`;
open(TXTOUT,">$txtname");
print TXTOUT $txtout;
print TXTOUT "maxwidth $max_size\nmaxheight $max_size\n" if ($max_size != -1);
close TXTOUT;
$vtex_it = 1;
}
}
else
{
if (-d dirname($_) )
{
print "$_ not found. Creating it\n";
open(TXTOUT,">$_" ) || die "can't create $_?";
print TXTOUT "maxwidth $max_size\nmaxheight $max_size\n" if( $max_size != -1);
close TXTOUT;
print `p4 add $_`;
$vtex_it=1;
}
else
{
print "directory does not exist in content for $_\n";
}
}
}
else
{
die "I dont understand the file $_ : bad path?";
}
if ($vtex_it)
{
my $name=$srcname;
$name=~s@\..*$@@; # kill extension
$cmd="vtex -nopause $name";
$cmd=~s@/@\\@g;
print "execute:$cmd\n";
print CMDOUT "$cmd\n";
# print `$cmd`."\n";
}
}
}