#!/usr/bin/env perl

use strict;
use warnings;

sub usage {
   return "Usage: perl arch2xml <arches>\n\n"
        ."  arches        the root directory of the arch files you want to put into XML\n";
}

die usage unless @ARGV;

my $root = $ARGV[0];
opendir TMP, $root or die "$root: $!\n";
closedir TMP;

#--------------------------------------------------
# use File::Find;
# 
# my @arches = ();
# 
# sub recurse {
#    my ($top_level_dir) = @_;
#    finddepth(\&isarc, $top_level_dir);
# }
# 
# sub isarc {
#    if (-f && /\.arc$/) {
#       push @arches, $File::Find::name, chomp $/;
#    }
# }
#-------------------------------------------------- 

sub arch2xml {
#   recurse '.';
   my ($root) = @_;
   my @arches = split /\n/, `find $root -type f -name \*.arc`;

   my $xml = "";
   for my $file (@arches) {
      my @arch = do { open my $fh, "<$file" or die "$file: $!"; <$fh> };

      my $msg = "";
      my $ismsg = 0;
      my $anim = "";
      my $isanim = 0;

      for my $line (@arch) {
         chomp $line;

         next if ($line =~ /^#/ or $line =~ /^(\s+)?$/);

         if ($line eq "endmsg") {
            $xml .= "\t\t<msg>$msg</msg>\n";
            $msg = "";
            $ismsg = 0;
         }
         if ($ismsg) {
            $msg .= "$line ";
            next;
         }

         if ($line eq "mina") {
            $xml .= "\t\t<anim>\n\t\t$anim</anim>\n";
            $anim = "";
            $isanim = 0;
         }
         if ($isanim) {
            $anim .= "\t<face>$line</face>\n\t\t";
            next;
         }

         if ($line =~ /[Oo]bject/) {
            $line =~ s/^[Oo]bject //;
            $xml .= "\t<object>\n";
            $xml .= "\t\t<arch>$line</arch>\n";
         } elsif ($line =~ /^end$/) {
            $xml .= "\t</object>\n";
         } elsif ($line eq "msg") {
            $ismsg = 1;
         } elsif ($line eq "anim") {
            $isanim = 1;
         } elsif ($line eq "More") {
            # handle "More"
         } elsif ($line eq "mina") {
            # handled above
         } elsif ($line eq "endmsg") {
            # handled above
         } else {
            my ($tag, $data) = split / /, $line, 2;
            $xml .= "\t\t<$tag>$data</$tag>\n";
         }
      }
   }

   return $xml;
}

print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
print "<?xml-stylesheet type=\"text/xsl\" href=\"arches.xsl\"?>\n";
print "<arches>\n";
print arch2xml $root;
print "</arches>\n";