oddtrans

   1 #!/usr/bin/perl
   2 # Based on umtrans.pl version 1.0 (April 8, 2001) by Clifford Adams.
   3 # Extracts translation strings from wiki script and extensions.
   4
   5 binmode(STDIN, ':utf8');
   6 binmode(STDOUT, ':utf8');
   7
   8 $help = q{
   9 NAME
  10        oddtrans - complement translation tables for Oddmuse
  11
  12 SYNOPSIS
  13        oddtrans [OPTIONS]... [FILE]...
  14
  15 DESCRIPTION
  16
  17        Read all the calls to T(), Ts(), and Tss() from all FILEs, and print
  18        them on standard output, followed by their translation (usually the
  19        empty string unless you use -l to load a library).
  20
  21        -l
  22               load a library from a previous run; you can use multiple -l
  23
  24 EXAMPLES
  25
  26        oddtrans -l german-utf8.pl wiki.pl modules/*.pl > new-german-utf8.pl
  27
  28 };
  29
  30 %Translate = ();
  31
  32 $arg = shift;
  33 while ($arg =~ /^-l/) {
  34   $file = substr($arg, 3);
  35   $file = shift unless $file;
  36   die $help unless -f $file;
  37   %backup = %Translate;
  38   do $file or die "Cannot do $file";
  39   foreach $key (keys %Translate) {
  40     $backup{$key} = $Translate{$key};
  41   }
  42   %Translate = %backup;
  43   $arg = shift;
  44 }
  45 unshift(@ARGV,$arg); # shove the last one back because it is not -l!
  46
  47 my %seen = ();
  48
  49 sub trans {
  50   my ($string) = @_;
  51   my ($result);
  52   $result = '';
  53   $result = $Translate{$string}  if (defined($Translate{$string}));
  54   return ' '  if ($seen{$string});
  55   $seen{$string} = 1;
  56   print $string . "\n" . $result . "\n";
  57   return ' ';
  58 }
  59
  60 print '%Translate = split(/\n/,<<END_OF_TRANSLATION);' . "\n";
  61 foreach (<>) {
  62   s/Ts?s?\(\'([^']+)/&trans($1)/ge;
  63   s/Ts?s?\(\"([^"]+)/&trans($1)/ge;
  64 }
  65
  66 print "END_OF_TRANSLATION\n";