From 8402f0b29660f2c0541c20556b8b67daf488d5f6 Mon Sep 17 00:00:00 2001
From: ehofman <ehofman>
Date: Fri, 14 May 2004 11:54:06 +0000
Subject: [PATCH] Add a tool to test the integrity of the animation files by
 Josh Babcock.

---
 utils/Modeller/animcheck.pl | 68 +++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 utils/Modeller/animcheck.pl

diff --git a/utils/Modeller/animcheck.pl b/utils/Modeller/animcheck.pl
new file mode 100755
index 000000000..8fa8532c9
--- /dev/null
+++ b/utils/Modeller/animcheck.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl -w
+
+# Quick & dirty script to find booboos in FlightGear animation files
+# May 2004 Joshua Babcock jbabcock@atlantech.net
+
+use strict;
+
+if ( $#ARGV != 1 ) {
+    print "Usage: $0 <xml file> <ac3d file>\n";
+    exit;
+}
+
+my %Objects;
+my %References;
+my $Key;
+my $Num;
+my $First;
+my $ObjCount=0;
+my $CheckForm=1;
+
+# Put whatever you want in here to check for poorly formatted object names.
+sub CheckForm {
+    my $Bad=0;
+    $_[0] !~ /^[A-Z].*/ && ($Bad=1);
+    $_[0] =~ /\W/ && ($Bad=1);
+    print "$_[0] poorly formatted\n" if $Bad;
+}
+
+# Make a hash of all the object names in the AC3D file.
+open (AC3D, $ARGV[1]) or die "Could not open $ARGV[1]";
+while (<AC3D>) {
+    /^name \"(.*)\"/ && ($Objects{$1}+=1);
+}
+close AC3D;
+
+# Check for duplicates and proper format.
+foreach $Key (keys %Objects) {
+    print "$Objects{$Key} instances of $1\n" if ($Objects{$Key}>1);
+    &CheckForm($Key) if $CheckForm;
+    ++$ObjCount;
+}
+print "$ObjCount objects found.\n\n";
+
+# Make a hash of objects in the XML file that do not reference an object in the AC3D file.
+open (XML, $ARGV[0]) or die "Could not open $ARGV[0]";
+while (<XML>) {
+    if (m|<object-name>(.*)</object-name>| && ! exists($Objects{$1})) {
+        # voodoo, "Perl Cookbook", p140
+        push( @{$References{$1}}, $.);
+    }
+}
+close XML;
+
+# List all the bad referencees.
+foreach $Key (keys %References) {
+    $First=1;
+    print "Non-existant object $Key at line";
+    print "s" if (scalar( @{$References{$Key}}) > 1);
+    print ":";
+    foreach $Num (@{$References{$Key}}) {
+        $First ? ($First=0) : (print ",");
+        print " $Num"
+    }
+    print "\n";
+}
+
+exit 0;
+
-- 
2.39.5