makepot.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 # Extract messages from scripts and make pot
   5 #
   6 # Copyright (c) 1999 Free Software Fundation, Inc.
   7 # Artur Frysiak <wiget@pld.org.pl>
   8 # $Id: makepot.pl,v 1.4.2.2 2001/09/30 10:19:34 misiek Exp $
   9 # Changes:
  10 # $Log: makepot.pl,v $
  11 # Revision 1.4.2.2  2001/09/30 10:19:34  misiek
  12 # - merge my private tree
  13 #
  14 #
  15
  16 my %pot;
  17
  18 sub potentry {
  19         my( $msg, $lnr, $filename ) = @_;
  20 #print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
  21         if (defined $pot{"$msg"}) {
  22                 $pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr";
  23 #print STDERR "append $msg\n";
  24         } else {
  25                 $pot{"$msg"} = "\n#: $filename:$lnr";
  26 #print STDERR "new $msg\n";
  27         };
  28 };
  29
  30 print STDERR "\n". $#ARGV . " files\n";
  31
  32 if (1) {
  33 print <<EOF ;
  34 # Polish translation of rc-scripts.
  35 #
  36 msgid \"\"
  37 msgstr \"\"
  38 \"Project-Id-Version: PACKAGE VERSION\\n\"
  39 \"POT-Creation-Date: 1999-07-30 18:45+0200\\n\"
  40 \"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\\n\"
  41 \"Last-Translator: FULL NAME <EMAIL\@ADDRESS>\\n\"
  42 \"Language-Team: LANGUAGE <LL\@li.org>\\n\"
  43 \"MIME-Version: 1.0\\n\"
  44 \"Content-Type: text/plain; charset=ISO-8859-2\\n\"
  45 \"Content-Transfer-Encoding: 8bit\\n\"
  46
  47 # Translation of words: \"DONE\", \"WORK\", \"BUSY\", \"FAIL\", \"DIED\"
  48 # must have that same count of letters !!!!!!!!!!!!!!!!!!!!!!!
  49
  50 # \(4 + \"\\b\" * count of letters\) in one of five previous words
  51 # msgid \"\\b\\b\\b\\b\\b\\b\\b\\b\"
  52 EOF
  53
  54 }
  55
  56
  57 for (my $a = 0; $a <= $#ARGV; $a++) {
  58         my $lnr = 0;
  59         my $filename = $ARGV[$a];
  60         print STDERR " " .$filename . "\n";
  61         open (POTSRC, "< " . $filename) || die "Can't open " . $filename;
  62         foreach (<POTSRC>) {
  63                 chop;
  64                 if ((/(run_cmd|nls|show|progress)\s[\sa-zA-Z0-9-]*"(?!(\`|\$\()nls\s[\"\'])([^"]*)"/g) or (/(run_cmd|nls|show|progress)\s[\sa-zA-Z0-9-]*'(?!(\`|\$\()nls\s[\"\'])([^"]*)'/g)) {
  65 #                       potentry($1,$lnr,$filename) if defined $1;
  66                         potentry($2,$lnr,$filename) if defined $2;
  67                         potentry($3,$lnr,$filename) if defined $3;
  68                         potentry($4,$lnr,$filename) if defined $4;
  69                         potentry($5,$lnr,$filename) if defined $5;
  70                         potentry($6,$lnr,$filename) if defined $6;
  71                         potentry($7,$lnr,$filename) if defined $7;
  72                         potentry($8,$lnr,$filename) if defined $8;
  73                         potentry($9,$lnr,$filename) if defined $9;
  74                         potentry($10,$lnr,$filename) if defined $10;
  75                         potentry($11,$lnr,$filename) if defined $11;
  76                 };
  77                 $lnr++;
  78         };
  79
  80         close (POTSRC);
  81
  82 };
  83
  84 foreach $key (keys %pot) {
  85         print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n";
  86 };
  87
  88
  89
  90