wowgetoffyourcellphone/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Activity

Extend tool to check errors in Builder/TrainingQueue lists

Browse Source 
This was SVN commit r7677.
This commit is contained in:
Ykkrosh 2010-07-03 15:50:59 +00:00
parent df86f4d27b
commit 2ca501deeb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/tools/entity/creationgraph.pl
View File

@ -5,6 +5,8 @@ use Entity;
my @files = Entity::find_entities();
my %files = map +($_ => 1), @files;
open my $g, '>', 'creation.dot' or die $!;
print $g "digraph G {\n";
@ -17,7 +19,8 @@ for my $f (sort @files) {
my $ents = $ent->{Entity}{Builder}{Entities}{' content'};
$ents =~ s/\{civ\}/$ent->{Entity}{Identity}{Civ}{' content'}/eg;
for my $b (split /\s+/, $ents) {
print $g qq{"$f b" -> "$b b" [color=green];\n};
warn "Invalid Builder reference: $f -> $b\n" unless $files{$b};
print $g qq{"$f" -> "$b" [color=green];\n};
}
}
@ -25,7 +28,8 @@ for my $f (sort @files) {
my $ents = $ent->{Entity}{TrainingQueue}{Entities}{' content'};
$ents =~ s/\{civ\}/$ent->{Entity}{Identity}{Civ}{' content'}/eg;
for my $b (split /\s+/, $ents) {
print $g qq{"$f t" -> "$b t" [color=blue];\n};
warn "Invalid TrainingQueue reference: $f -> $b\n" unless $files{$b};
print $g qq{"$f" -> "$b" [color=blue];\n};
}
}
}