# This utility script interprets a plain-text file that typically is generated by
# cut&paste from the tables contained in the three reference pages of the OpenType Spec:
#	Script tags:	http://www.microsoft.com/typography/otspec/scripttags.htm
#	Langauge tags:	http://www.microsoft.com/typography/otspec/languagetags.htm
#	Feature tags:	http://www.microsoft.com/typography/otspec/featurelist.htm
# Alternatively, input can be VOLT's tags.txt
# Output (to stdout) is in perl syntax for the hash initialization, e.g.:
#	    "Arabic" => "arab",
#	    "Armenian" => "armn",
# This output can the be transferred to Tags.pm
#
# Bob Hallissy 2008-01-31

use strict;

my $which;
my %iso639list;

while (<>)
{
	s/\s+$//o;	# trim trailing whitespace (including line ending).
	if (/^\s*$/o)
	{
		print "\n"; # Just print empty lines
		next;
	}
	
	s/^\s+//o;	# trim leading whitespace

    if (/^"(SCRIPT|LANGUAGE|FEATURE)"\s*,\s*"([^"]+)"\s*,\s*"([^"]+)"/)
    {
        # VOLT's tags.txt
        my ($type, $name, $tag) = ($1, $2, $3);
        print "\n\n//$type\n\n" if $type != $which;
        $which = $type;
        print "    \"$name\" => \"$tag\",\n";
    }
	
	elsif (/^'(.{1,4})'\s+(.*)$/o)
	{
		# Special reverse formatting for feature names
		my ($name, $tag) = ($2, $1);
		$tag .= " " x (4 - length($tag));	# pad tag
		print "    \"$name\" => \"$tag\",\n";
	}
	
	elsif (/^'(.{1,4})-(.{1,4})'\s+(.*)$/o)
	{
		# Special reverse formatting for feature names like 'cv01-cv99'
		my ($name, $tag1, $tag2) = ($3, $1, $2);
		for my $tag ($tag1 .. $tag2)
		{
			$tag =~ /(\d+)$/;
			my $index = $1;
			$tag .= " " x (4 - length($tag));	# pad tag
			print "    \"$name $index\" => \"$tag\",\n";
		}
	}
	elsif (/^([^\t]*)\t([\w]{2,4})(?: +(\([^\t]*\)))?(?:\t(.*))?$/o)
	{
		# Script and language names
		my ($name, $tag, $extra, $iso639list) = ($1, $2, $3, $4);
		$name =~ s/\s*\(Standard\)\s*//oi;	# Remove "(Standard)" from French and German entries
		$name .= " $extra" if defined $extra;   # Dhivehi has "(deprecated)" after the "DHV " tag -- move it to name.
		$tag .= " " x (4 - length($tag)); 	# pad tag
		print "    \"$name\" => \"$tag\",\n";
		if (defined $iso639list)
		{
			$iso639list =~ s/,//g;
			$iso639list{$tag} = $iso639list # Save for later
		}
	}
	else
	{
		print "UNEXPECTED DATA: '$_'\n";
	}
}

print "\n";
foreach my $tag (sort keys(%iso639list))
{
	printf "    \"$tag\" => \"$iso639list{$tag}\",\n";
}