real_tabasco_sauce/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Actions Activity

Adds tech template support to checkrefs.pl

Browse Source 
This was SVN commit r13696.
This commit is contained in:
historic_bruno 2013-08-18 02:52:05 +00:00
parent 791d392797
commit 92f4391f51
1 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
source/tools/entity/checkrefs.pl
View File

@ -48,6 +48,15 @@ sub find_files
return @files;
}
sub parse_json_file
{
my ($vfspath) = @_;
open my $fh, vfs_to_physical($vfspath) or die "Failed to open '$vfspath': $!";
# decode_json expects a UTF-8 string and doesn't handle BOMs, so we strip those
# (see http://trac.wildfiregames.com/ticket/1556)
return decode_json(do { local $/; my $file = <$fh>; $file =~ s/^\xEF\xBB\xBF//; $file });
}
sub add_entities
{
print "Loading entities...\n";
@ -374,10 +383,7 @@ sub add_civs
push @roots, $f;
open my $fh, vfs_to_physical($f) or die "Failed to open '$f': $!";
# decode_json expects a UTF-8 string and doesn't handle BOMs, so we strip those
# (see http://trac.wildfiregames.com/ticket/1556)
my $civ = decode_json(do { local $/; my $file = <$fh>; $file =~ s/^\xEF\xBB\xBF//; $file });
my $civ = parse_json_file($f);
push @deps, [ $f, "art/textures/ui/" . $civ->{Emblem} ];
@ -398,10 +404,7 @@ sub add_rms
push @roots, $f;
open my $fh, vfs_to_physical($f) or die "Failed to open '$f': $!";
# decode_json expects a UTF-8 string and doesn't handle BOMs, so we strip those
# (see http://trac.wildfiregames.com/ticket/1556)
my $rms = decode_json(do { local $/; my $file = <$fh>; $file =~ s/^\xEF\xBB\xBF//; $file });
my $rms = parse_json_file($f);
push @deps, [ $f, "maps/random/" . $rms->{settings}{Script} ];
@ -410,6 +413,23 @@ sub add_rms
}
}
sub add_techs
{
print "Loading techs...\n";
my @techfiles = find_files('simulation/data/technologies', 'json');
for my $f (sort @techfiles)
{
push @files, $f;
push @roots, $f;
my $tech = parse_json_file($f);
push @deps, [ $f, "art/textures/ui/session/portraits/technologies/" . $tech->{icon} ] if $tech->{icon};
push @deps, [ $f, "simulation/data/technologies/" . $tech->{supersedes} . ".json" ] if $tech->{supersedes};
}
}
sub add_terrains
{
print "Loading terrains...\n";
@ -514,6 +534,8 @@ add_civs();
add_rms();
add_techs();
add_terrains();
# TODO: add non-skin textures, and all the references to them