Differential D924 Diff 3739 source/tools/entity/checkrefs.pl

Changeset View

Standalone View

	use strict;			use strict;
	use warnings;			use warnings;
	use Data::Dumper;			use Data::Dumper;
	use File::Find;			use File::Find;
	use XML::Simple;			use XML::Simple;
	use JSON;			use JSON;
				use Getopt::Std;

	use Entity;			use Entity;

				my %options=();
				getopts("u", \%options);

	use constant CHECK_MAPS_XML => 0;			use constant CHECK_MAPS_XML => 0;
	use constant ROOT_ACTORS => 1;			use constant ROOT_ACTORS => 1;

	my @files;			my @files;
	my @roots;			my @roots;
	my @deps;			my @deps;

	my $vfsroot = '../../../binaries/data/mods';			my $vfsroot = '../../../binaries/data/mods';
	▲ Show 20 Lines • Show All 555 Lines • ▼ Show 20 Lines

	add_terrains();			add_terrains();

	# TODO: add non-skin textures, and all the references to them			# TODO: add non-skin textures, and all the references to them

	print "\n";			print "\n";
	check_deps();			check_deps();
	print "\n";			print "\n";
	check_unused();			check_unused() if defined $options{u};