#! /usr/bin/perl

# Usage: perl this_script.pl VCL.xcu 
#        will create VCL_xcu.ods

open STDOUT, ">content.xml" or die "$!: content.xml, stopped at";

while (<>) {
    last if m/<node oor:name="DefaultFonts">/;
}

while (<>) {
    last if m/<node oor:name="FontSubstitutions">/;

    if (m/<node oor:name="(.*?)"/) {
	$lang = $1;
	push @Lang, $lang;
	next;
    }

    if (m/<prop oor:name="(.*?)"/) {
	$item = $1;
	$Count{$lang}{$item}++;
	$Item{$item}++;
    }

    if (m{<value>(.*?)</value>}) {
	#print STDERR "$lang\t$item\n";
	if (exists $Value{$lang}{$item}) {
	    print STDERR ("Duplicated: $lang $item\t", join(";", @{$Value{$lang}{$item}}), "\n");
	}
	my @a = split(m/;/, $1);
	$Value{$lang}{$item} = \@a;
    }
}

print '<?xml version="1.0" encoding="UTF-8"?>', "\n";
print '<office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" office:version="1.0">', "\n";
print "<office:scripts/>\n";
print "<office:font-face-decls/>\n";
print "<office:automatic-styles/>\n";
print "<office:body>\n";
print "<office:spreadsheet>\n";

{
    print "<table:table table:name=\"Summary\">\n";

    print "<table:table-row>\n";
    foreach $lang (@Lang) {
	print '<table:table-cell>';
	print "<text:p>$lang</text:p>";
	print "</table:table-cell>\n";
    }
    print "</table:table-row>\n";

    foreach $item (sort keys %Item) {
	print "<table:table-row>\n";
	{
	    print '<table:table-cell>';
	    print "<text:p>$item</text:p>";
	    print "</table:table-cell>\n";
	}
	foreach $lang (@Lang) {
	    if ($Count{$lang}{$item} > 0) {
		print "<table:table-cell office:value-type=\"float\" office:value=\"$Count{$lang}{$item}\">";
		print "<text:p>$Count{$lang}{$item}</text:p>";
		print "</table:table-cell>\n";
	    }
	    else {
		print "<table:table-cell>";
		print "<text:p></text:p>";
		print "</table:table-cell>\n";
	    }
	}
	print "</table:table-row>\n";
    }
    print "</table:table>\n";
}


foreach $lang (@Lang) {
    print "<table:table table:name=\"$lang\">\n";

    print "<table:table-row>\n";
    foreach $item (sort keys %Item) {
	print '<table:table-cell>';
	print "<text:p>$item</text:p>";
	print "</table:table-cell>\n";
    }
    print "</table:table-row>\n";

    $number = 0;
    foreach $item (sort keys %Item) {
	$a = $Value{$lang}{$item};
	if (scalar @$a > $number) {
	    $number = scalar @$a;
	}
    }

    for ($i = 0; $i < $number; $i++) {
	print "<table:table-row>\n";
	foreach $item (sort keys %Item) {
	    print '<table:table-cell>';
	    $a = $Value{$lang}{$item};
	    $font = $$a[$i];
	    print "<text:p>$font</text:p>";
	    print "</table:table-cell>\n";
	}
	print "</table:table-row>\n";
    }

    print "</table:table>\n";
}

print "</office:spreadsheet>\n";
print "</office:body>\n";
print "</office:document-content>\n";

close STDOUT;

system ("mkdir META-INF") unless -d "META-INF";
open STDOUT, ">META-INF/manifest.xml" or die "META-INF/manifest.xml, stopped at";

print <<'EOT';
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE manifest:manifest PUBLIC "-//OpenOffice.org//DTD Manifest 1.0//EN" "Manifest.dtd">
<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0">
 <manifest:file-entry manifest:media-type="application/vnd.oasis.opendocument.spreadsheet" manifest:full-path="/"/>
 <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="content.xml"/>
</manifest:manifest>
EOT

close STDOUT;

open STDOUT, ">zip.log" or die "$!: zip.log, stopped at";
system("zip -r VCL_xcu.ods content.xml META-INF/manifest.xml");
close STDOUT;

__END__