build/i18n-po2lua.pl

   1 #!/usr/bin/perl
   2
   3 @ARGV == 2 || die "Usage: $0 <source-dir> <dest-dir>\n";
   4
   5 my $source_dir  = shift @ARGV;
   6 my $target_dir  = shift @ARGV;
   7
   8 if( ! -d $target_dir )
   9 {
  10         system('mkdir', '-p', $target_dir);
  11 }
  12
  13
  14 my %target_strings;
  15
  16
  17 if( open F, "find $source_dir -type f -name '*.po' |" )
  18 {
  19         while( chomp( my $file = readline F ) )
  20         {
  21                 if( open L, "< $file" )
  22                 {
  23                         my $content = 0;
  24                         my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$};
  25                         $lang = lc $lang;
  26                         $lang =~ s/_/-/g;
  27
  28                         if( open D, "> $target_dir/$basename.$lang.lua" )
  29                         {
  30                                 printf "Generating %-40s ", "$target_dir/$basename.$lang.lua";
  31
  32                                 my ( $k, $v );
  33
  34                                 while( chomp( my $line = readline L ) )
  35                                 {
  36                                         if( $line =~ /^msgid "(.+)"/ )
  37                                         {
  38                                                 $k = $1;
  39                                         }
  40                                         elsif( $k && $line =~ /^msgstr "(.*)"/ )
  41                                         {
  42                                                 $v = $1;
  43                                         }
  44                                         elsif( $k && defined($v) && $line =~ /^"(.+)"/ )
  45                                         {
  46                                                 $v .= $1;
  47                                         }
  48                                         else
  49                                         {
  50                                                 if( $k && defined($v) && length($v) > 0 )
  51                                                 {
  52                                                         $v =~ s/\\(['"\\])/$1/g;
  53                                                         $v =~ s/(['\\])/\\$1/g;
  54
  55                                                         printf D "%s='%s'\n", $k, $v;
  56                                                         $content++;
  57                                                 }
  58
  59                                                 $k = $v = undef;
  60                                         }
  61                                 }
  62
  63                                 print $content ? "done ($content strings)\n" : "empty\n";
  64
  65                                 close D;
  66
  67
  68                                 unlink("$target_dir/$basename.$lang.lua")
  69                                         unless( $content > 0 );
  70                         }
  71
  72                         close L;
  73                 }
  74         }
  75
  76         close F;
  77 }