tools/po2mpsl.mpsl

   1 /*
   2
   3         Parses .po files and dumps MPSL code.
   4
   5         Angel Ortega <angel@triptico.com>
   6
   7 */
   8
   9 sub convert_po_line(line)
  10 {
  11         line = sregex('/^\s*"/', line);
  12         line = sregex('/"$/', line);
  13
  14         line = split(NULL, line);
  15
  16         line = join('',
  17                         map(sub (e) {
  18                                 (ord(e) > 127) &&
  19                                 sprintf("\\x{%04x}", ord(e)) ||
  20                                 e ;
  21                         },
  22                         line
  23                 )
  24         );
  25
  26         return line;
  27 }
  28
  29
  30 sub parse_po_file(pofile)
  31 {
  32         local f;
  33         local r = [];
  34
  35         /* only UTF-8 po files are supported */
  36         encoding('UTF-8');
  37
  38         if ((f = open(pofile, "r")) != NULL) {
  39
  40                 local l;
  41                 local i = 0;
  42                 local v = [];
  43
  44                 while ((l = read(f)) != NULL) {
  45
  46                         l = mp.chomp(l);
  47
  48                         local s = regex([ '/^(msgid|msgstr)*/', '/\s*\".*\"$/' ], l);
  49                         s[1] = convert_po_line(s[1]);
  50
  51                         if (s[0] eq 'msgid') {
  52                                 i = 0;
  53                                 push(v, [[], []]);
  54                         }
  55                         else
  56                         if (s[0] eq 'msgstr') {
  57                                 i = 1;
  58                         }
  59
  60                         if (s[1]) {
  61                                 push(v[-1][i], s[1]);
  62                         }
  63                 }
  64
  65                 push(r, "/* Built by po2mpsl - Don't modify, change the .po file instead */");
  66                 push(r, "__I18N__ = {");
  67
  68                 foreach (l, v) {
  69                         if (size(l[1]))
  70                                 push(r, "\t\"" ~ join('', l[0]) ~ "\" => \"" ~ join('', l[1]) ~ "\",");
  71                 }
  72
  73                 push(r, "\t\"-\" => \"-\"\n};\n");
  74
  75                 close(f);
  76         }
  77
  78         /* back to default encoding */
  79         encoding();
  80
  81         return join("\n", r);
  82 }
  83
  84 /* main */
  85
  86 foreach (f, glob('po/*.po')) { /**/
  87         local output = parse_po_file(f);
  88
  89         /* strip extension and path */
  90         f = shift(split('.po', f));
  91         f = pop(split('/', f));
  92
  93         local o = open('lang/' ~ f ~ '.mpsl', 'w');
  94         write(o, output);
  95         close(o);
  96 }
  97
  98 mp.exit();