Differential D1381 Diff 7505 ps/trunk/source/tools/entity/creationgraph.pl

Changeset View

Standalone View

	use strict;			use strict;
	use warnings;			use warnings;

				use lib ".";
	use Entity;			use Entity;

	my @files = Entity::find_entities();			my @files = Entity::find_entities("public");

	my %files = map +($_ => 1), @files;			my %files = map +($_ => 1), @files;

	open my $g, '>', 'creation.dot' or die $!;			open my $g, '>', 'creation.dot' or die $!;
	print $g "digraph G {\n";			print $g "digraph G {\n";

	for my $f (sort @files) {			for my $f (sort @files) {
	next if $f =~ /^template_/;			next if $f =~ /^template_/;
	print "# $f...\n";			print "# $f...\n";
	my $ent = Entity::load_inherited($f);			my $ent = Entity::load_inherited($f, "public");

	if ($ent->{Entity}{Builder}) {			if ($ent->{Entity}{Builder}) {
	my $ents = $ent->{Entity}{Builder}{Entities}{' content'};			my $ents = $ent->{Entity}{Builder}{Entities}{' content'};
	$ents =~ s/\{civ\}/$ent->{Entity}{Identity}{Civ}{' content'}/eg;			$ents =~ s/\{civ\}/$ent->{Entity}{Identity}{Civ}{' content'}/eg;
	for my $b (split /\s+/, $ents) {			for my $b (split /\s+/, $ents) {
	warn "Invalid Builder reference: $f -> $b\n" unless $files{$b};			warn "Invalid Builder reference: $f -> $b\n" unless $files{$b};
	print $g qq{"$f" -> "$b" [color=green];\n};			print $g qq{"$f" -> "$b" [color=green];\n};
	}			}
	Show All 17 Lines