#!/usr/bin/perl

# Extract translatable strings from a windows resource files
# and outputs them in a C like format for use by gettext.

use strict;

# List of keywords with a string to translate
my %keywords = (
    'POPUP' => 1,
    'MENUITEM' => 1,
    'DEFPUSHBUTTON' => 1,
    'LTEXT' => 1,
    'CAPTION' => 1,
    'PUSHBUTTON' => 1,
    'RTEXT' => 1,
    'CTEXT' => 1,
    'LTEXT' => 1,
    'GROUPBOX' => 1,
    'CONTROL' => 1,
    'GROUPBOX' => 1,
    'AUTOCHECKBOX' => 1,
    'AUTORADIOBUTTON' => 1
);

while (<>) {
    # Matches lines:
    #   KEYWORD  "String" ...
    next if ($_ =~ /^\s*(\w+)\s+""/);

    if ($_ =~ /^\s*(\w+)\s+"(.+?)"/) {
        # Excludes blank strings and strings of the form word followed by digit
        # which are control names (e.g. DateTimePicker3)
        if (exists($keywords{$1}) && $2 !~ /^ *$/ && $2 !~ /^\w+\d$/ && $2 !~ /^""/) {
            print qq{_("$2");\n};
        }
    }
    elsif ($_ =~ /^\s*(\w+)\s+NC_\(\s*"(.+?)"\s*,\s*"(.+?)"\s*\)/) {
        if (exists($keywords{$1}) && $2 !~ /^ *$/ && $2 !~ /^\w+\d$/ && $2 !~ /^""/) {
            print qq{NC_("$2", "$3");\n};
        }
    }
}
print qq{_("WinLangID");
    _("Jan"), _("Feb"), _("Mar"), _("Apr"), _("May"), _("Jun"),
    _("Jul"), _("Aug"), _("Sep"), _("Oct"), _("Nov"), _("Dec")
};