added wml2gettext tool to automate migration

utils/wml2gettext.pl

@@ -0,0 +1,27 @@
+#! /usr/bin/perl -wp
+
+use strict;
+our %trans;
+
+BEGIN {
+  require "utils/wmltrans.pm";
+  %trans = readwml ('data/translations/english.cfg');
+}
+
+while (m/^(.*)translate_string\(\"([^\"]*)\"\)(.*)/) {
+  my $str = $trans{$2};
+  unless (defined $str) {
+    print STDERR "no translation found for \"$2\"\n";
+    last;
+  }
+  $_ = "$1_(\"$str\")$3\n";
+}
+
+while (m/^(.*)string_table\[\"([^\"]*)\"\](.*)/) {
+  my $str = $trans{$2};
+  unless (defined $str) {
+    print STDERR "no translation found for \"$2\"\n";
+    last;
+  }
+  $_ = "$1_(\"$str\")$3\n";
+}

utils/wmltrans.pm

@@ -0,0 +1,35 @@
+# -*- perl -*-
+
+sub readwml {
+  my ($file) = @_;
+  open (TRANS, $file) or die "cannot open $file";
+
+  my (%trans, $key);
+
+  while (<TRANS>) {
+    if (m/(\S+)\s*=\s*\"(.*)\"\s*$/) {
+      die "nested key" if defined $key;
+
+      $trans{$1} = $2;
+
+    } elsif (m/(\S+)\s*=\s*\"(.*)/) {
+      die "nested key" if defined $key;
+
+      $key = $1;
+      $trans{$key} = $2 . "\n";
+
+    } elsif (m/(.*)\"\s*$/) {
+      die "end of string without a key" unless defined $key;
+
+      $trans{$key} .= $1;
+      $key = undef;
+    } else {
+      $trans{$key} .= $_ if defined $key;
+    }
+
+  }
+
+  return %trans;
+}
+
+1;