tools/uplang

   1 #!/usr/bin/perl
   2
   3 if(!$ARGV[0]) {
   4     print <<MOO
   5 Usage: lang.pl <english file> <translated file>
   6 MOO
   7 ;
   8     exit;
   9 }
  10
  11 my %ids;
  12 open(ENG, "<$ARGV[0]");
  13 while(<ENG>) {
  14     if($_ =~ /^ *\#/) {
  15         # comment
  16         next;
  17     }
  18     $_ =~ s/\r//g;
  19     if($_ =~ /^ *([a-z]+): *(.*)/) {
  20         ($var, $value) = ($1, $2);
  21   #      print "$var => $value\n";
  22
  23         $set{$var} = $value;
  24
  25         if($var eq "new") {
  26             # the last one for a single phrase
  27             $all{$set{'id'}, 'desc'}=$set{'desc'};
  28             $all{$set{'id'}, 'eng'}=$set{'eng'};
  29
  30             $ids{$set{'id'}}=1;
  31             undef %set;
  32         }
  33     }
  34 }
  35 close(ENG);
  36
  37 undef %set;
  38 open(NEW, "<$ARGV[1]");
  39 while(<NEW>) {
  40     if($_ =~ /^ *\#/) {
  41         # comment
  42         next;
  43     }
  44     $_ =~ s/\r//g;
  45
  46     if($_ =~ /^ *([a-z]+): *(.*)/) {
  47         ($var, $value) = ($1, $2);
  48
  49         $set{$var} = $value;
  50
  51         if($var eq "new") {
  52             # the last one for a single phrase
  53
  54             if(!$ids{$set{'id'}}) {
  55                 print "### ".$set{'id'}." was not found in the english file!\n";
  56                 next;
  57             }
  58
  59             print "\nid: ".$set{'id'}."\n";
  60
  61
  62             if($set{'desc'} ne $all{$set{'id'}, 'desc'}) {
  63                 print "### Description changed! Previous description was:\n",
  64                 "### \"".$set{'desc'}."\"\n";
  65                 $set{'desc'} = $all{$set{'id'}, 'desc'};
  66             }
  67
  68             print "desc: ".$set{'desc'}."\n";
  69             if($set{'eng'} ne $all{$set{'id'}, 'eng'}) {
  70                 print "### English phrase was changed! Previous translation was made on:\n",
  71                 "### ".$set{'eng'}."\n";
  72                 $set{'eng'} = $all{$set{'id'}, 'eng'};
  73             }
  74             print "eng: ".$set{'eng'}."\n";
  75             print "new: ".$set{'new'}."\n";
  76
  77             $ids{$set{'id'}}=0;
  78         }
  79     }
  80 }
  81 close(NEW);
  82
  83 # output new phrases not already translated
  84 for(sort keys %ids) {
  85     if($ids{$_}) {
  86         my $id=$_;
  87         print "\nid: $_\n";
  88         print "desc: ".$all{$id, 'desc'}."\n";
  89         print "eng: ".$all{$id, 'eng'}."\n";
  90         print "### Not previously translated\n";
  91         print "new: \n";
  92     }
  93 }