Tiles/extract-translations.pl

   1 #!/usr/bin/perl -w
   2
   3 opendir(DIR, ".");
   4 @files = grep(/\.html$/,readdir(DIR));
   5 closedir(DIR);
   6
   7 open (OUTPUT, ">TranslationHack.cs");
   8
   9 print OUTPUT "using Mono.Unix;\n\npublic class TranslationHack {\n\tprivate void NotToBecalled () {\n";
  10
  11 foreach $file (@files) {
  12     open (TEMPLATE, $file);
  13     while ($data = <TEMPLATE>) {
  14         @matches = ($data =~ m/\@text\%([^@]*)\@/g);
  15
  16         for ($i = 0; $i < scalar (@matches); $i++) {
  17             print OUTPUT "\t\t/* For translators: From template Tiles/$file */\n";
  18             print OUTPUT "\t\tCatalog.GetString (\"$matches[$i]\");\n";
  19         }
  20     }
  21 }
  22
  23 print OUTPUT "\t}\n}\n";
  24 close (OUTPUT)
  25
  26
  27