regina/mts2ct.rexx

   1 /* $VER: mts2ct 1.1 $
   2 Convert mts to Amiga catalog translation
   3 © Stefan Haubenthal 2012
   4
   5 non Amiga:
   6 foo.mts -> foo.mtb
   7
   8 Amiga:
   9 en.mts  -> Regina.cd
  10 foo.mts -> foo.ct -> foo.catalog
  11
  12 rx mts2ct <en.mts >T:Regina.cd
  13 rx mts2ct <de.mts >T:deutsch.ct deutsch
  14 rx mts2ct <sv.mts >T:svenska.ct svenska
  15 rx mts2ct <tr.mts >T:türkçe.ct türkçe
  16 rx mts2ct <pl.mts >T:polski.ct polski
  17 rx mts2ct <pt.mts >T:português.ct português
  18 rx mts2ct <no.mts >T:norsk.ct norsk
  19 rx mts2ct <es.mts >T:español.ct español
  20
  21 catcomp Regina.cd CFILE locale.c
  22 makedir Catalogs/deutsch ALL
  23 catcomp Regina.cd deutsch.ct CATALOG Catalogs/deutsch/Regina.catalog
  24 */
  25 if arg() then do
  26         say "## version $VER: Regina.catalog 3.5 ("translate(date(E),".","/")")"
  27         if arg(1)="polski" then
  28                 codeset=5
  29         else
  30                 codeset=0
  31         say "## codeset "codeset
  32         say "## language "arg(1)
  33 end
  34 do forever
  35         parse pull line
  36         if line="" then leave
  37         if abbrev(line, #) then say overlay(";", line)
  38         else do
  39                 parse var line major","minor","line
  40                 if arg() then
  41                         say "MSG_"strip(major)"_"strip(minor)
  42                 else
  43                         say "MSG_"strip(major)"_"strip(minor)" (//)"
  44                 say line
  45                 say ";"
  46         end
  47 end