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