#!/usr/bin/perl

#trme2po (TRanslate_MEnus TO .po format)

$trans=();

sub preface {
    print '
# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR Free Software Foundation, Inc.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=CHARSET\n"
"Content-Transfer-Encoding: ENCODING\n"

# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR Free Software Foundation, Inc.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
# Automatically generated file. Do not edit (see /usr/doc/menu/html/index.html)
';
}

sub postface {
    print '

# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR Free Software Foundation, Inc.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
#~ msgid ""
#~ msgstr ""
#~ "Project-Id-Version: PACKAGE VERSION\n"
#~ "PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
#~ "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
#~ "Language-Team: LANGUAGE <LL@li.org>\n"
#~ "MIME-Version: 1.0\n"
#~ "Content-Type: text/plain; charset=CHARSET\n"
#~ "Content-Transfer-Encoding: ENCODING\n"
';
}

sub dump_body {
    for my $id (sort keys %trans){
	print "msgid \"$id\"\n";
	print "msgstr \"".$trans{$id}."\"\n";
	print "\n";
    }
}

sub process {
    while (<STDIN>){
	s/\b\#.*//;
	s/^\s+//;
	next if /^$/;
	next unless /^\"([^\"]+)\"\s+\"([^\"]+)\"/;
	$trans{$1}=$2;
    }
}
process();

preface();
dump_body();
postface();
