#!/usr/bin/perl -w

use strict;
use Convert::AcrossLite;

if ($#ARGV != 0)
{
    print "Usage: convert_puz.pl <filename>\n";
    exit;
}

my $ac = Convert::AcrossLite->new();
$ac->in_file($ARGV[0]);

my ($across_ref, $down_ref) = $ac->get_across_down;

my %across = %$across_ref;
my %down = %$down_ref;

my $id = $ARGV[0];
my $title = $ac->get_title;
$title =~ s/\"/&quot;/g;
my $copy = $ac->get_copyright;
$copy =~ s/\xa9/(C)/g;
my $author = $ac->get_author;
my $size = $ac->get_rows;

print "<?xml version=\"1.0\"?>\n";
print "<crossword id=\"$id\" " .
      "title=\"$title\" " .
      "author=\"$author\" " .
      "copyright=\"$copy\" " .
      "size=\"$size\">\n";

foreach my $key (sort keys %across)
{
    print "  <clue posx=\"" . ($across{$key}{column} - 1) . "\" " .
        "posy=\"" . ($across{$key}{row} - 1) . "\" " .
        "length=\"" . $across{$key}{length} . "\" " .
        "align=\"" . $across{$key}{direction} . "\" " .
        "number=\"" . $across{$key}{clue_number} . "\" ".
        "answer=\"" . $across{$key}{solution} . "\">" .
        $across{$key}{clue} . "</clue>\n";
}
foreach my $key (sort keys %down)
{
    print "  <clue posx=\"" . ($down{$key}{column} - 1) . "\" " .
        "posy=\"" . ($down{$key}{row} - 1) . "\" " .
        "length=\"" . $down{$key}{length} . "\" " .
        "align=\"" . $down{$key}{direction} . "\" " .
        "number=\"" . $down{$key}{clue_number} . "\" ".
        "answer=\"" . $down{$key}{solution} . "\">" .
        $down{$key}{clue} . "</clue>\n";
}

print "</crossword>\n";