#!/usr/bin/perl -w

die "Usage: ./UIdict2pl.pl <UIdict.txt>\n" unless $ARGV[0];

open(UIDICT,"<$ARGV[0]") or die "Error reading $ARGV[0]: $!";

sub gtkprint {
	my ($label,$label_scpos) = @_;
	my $sc = substr($label,$label_scpos,1);
	substr($label,$label_scpos,1,"_$sc");
	return $label;
}

sub printpo {
	my ($msgid, $msgstr) = @_;
	print qq {
# $ARGV[0]
msgid "$msgid"
msgstr "$msgstr"
}; 
	return;
}

while (<UIDICT>){
	next unless /^(?<!#)\s*(.*?)\s*\|\s*(.*?)(\s*|\#.*)$/;
	next unless ($2 ne '?');

	my $string = $1; 
	my $trans  = $2;
	my $scpos = index ($trans,'&');

	$trans =~ s/\&//;

	printpo ($string, $trans);
	printpo ("$string...", "$trans...");

	$i = 0;
	do {
		if (substr($string,$i,1) ne ' ') { 
			print printpo(gtkprint("$string...",$i), ($scpos == -1) ? "$trans..." : gtkprint("$trans...", $scpos));
			print printpo(gtkprint("$string",$i), ($scpos == -1) ? $trans : gtkprint($trans, $scpos));
		}
	} while (++$i < length($string));
}
close (UIDICT);