build: add script for po to lua conversation

diff --git a/build/i18n-po2lua.pl b/build/i18n-po2lua.pl
new file mode 100755 (executable)
index 0000000..38e6529
--- /dev/null
+++ b/build/i18n-po2lua.pl
@@ -0,0 +1,69 @@
+#!/usr/bin/perl
+
+@ARGV == 2 || die "Usage: $0 <source-dir> <dest-dir>\n";
+
+my $source_dir  = shift @ARGV;
+my $target_dir  = shift @ARGV;
+
+if( ! -d $target_dir )
+{
+       system('mkdir', '-p', $target_dir);
+}
+
+
+my %target_strings;
+
+
+if( open F, "find $source_dir -type f -name '*.po' |" )
+{
+       while( chomp( my $file = readline F ) )
+       {
+               if( open L, "< $file" )
+               {
+                       my ( $basename ) = $file =~ m{.+/([^/]+\.[\w\-]+)\.po$};
+
+                       if( open D, "> $target_dir/$basename.lua" )
+                       {
+                               printf "Generating %-40s ", "$target_dir/$basename.lua";
+
+                               my ( $k, $v );
+
+                               while( chomp( my $line = readline L ) )
+                               {
+                                       if( $line =~ /^msgid "(.+)"/ )
+                                       {
+                                               $k = $1;
+                                       }
+                                       elsif( $k && $line =~ /^msgstr "(.*)"/ )
+                                       {
+                                               $v = $1;
+                                       }
+                                       elsif( $k && defined($v) && $line =~ /^"(.+)"/ )
+                                       {
+                                               $v .= $1;
+                                       }
+                                       else
+                                       {
+                                               if( $k && defined($v) )
+                                               {
+                                                       $v =~ s/\\(['"\\])/$1/g;
+                                                       $v =~ s/(['\\])/\\$1/g;
+
+                                                       printf D "%s%s='%s'\n", $v ? '' : '--', $k, $v;
+                                               }
+               
+                                               $k = $v = undef;
+                                       }
+                               }
+
+                               print "done\n";
+
+                               close D;
+                       }
+
+                       close L;
+               }
+       }
+
+       close F;
+}