4 # Extract messages from scripts and make pot
6 # Copyright (c) 1999 Free Software Fundation, Inc.
7 # Artur Frysiak <wiget@pld-linux.org>
10 # 2000-08-25 Arkadiusz Miskiewicz <misiek@pld-linux.org>
11 # - support for $(nls "xyz"), progress "xyz" and '' instead of "".
17 my( $msg, $lnr, $filename ) = @_;
18 #print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
19 if (defined $pot{"$msg"}) {
20 $pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr";
21 #print STDERR "append $msg\n";
23 $pot{"$msg"} = "\n#: $filename:$lnr";
24 #print STDERR "new $msg\n";
28 print STDERR "\n". $#ARGV . " files\n";
32 # translation of rc-scripts.
36 \"Project-Id-Version: PACKAGE VERSION\\n\"
37 \"POT-Creation-Date: 1999-07-30 18:45+0200\\n\"
38 \"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\\n\"
39 \"Last-Translator: FULL NAME <EMAIL\@ADDRESS>\\n\"
40 \"Language-Team: LANGUAGE <LL\@li.org>\\n\"
41 \"MIME-Version: 1.0\\n\"
42 \"Content-Type: text/plain; charset=CHARSET\\n\"
43 \"Content-Transfer-Encoding: 8bit\\n\"
45 # Translation of words: \"DONE\", \"WORK\", \"BUSY\", \"FAIL\", \"DIED\"
46 # must have that same count of letters !!!!!!!!!!!!!!!!!!!!!!!
48 # \(4 + \"\\b\" * count of letters\) in one of five previous words
49 # msgid \"\\b\\b\\b\\b\\b\\b\\b\\b\"
55 for (my $a = 0; $a <= $#ARGV; $a++) {
57 my $filename = $ARGV[$a];
58 print STDERR " " .$filename . "\n";
59 open (POTSRC, "< " . $filename) || die "Can't open " . $filename;
62 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)) {
63 # potentry($1,$lnr,$filename) if defined $1;
64 potentry($2,$lnr,$filename) if defined $2;
65 potentry($3,$lnr,$filename) if defined $3;
66 potentry($4,$lnr,$filename) if defined $4;
67 potentry($5,$lnr,$filename) if defined $5;
68 potentry($6,$lnr,$filename) if defined $6;
69 potentry($7,$lnr,$filename) if defined $7;
70 potentry($8,$lnr,$filename) if defined $8;
71 potentry($9,$lnr,$filename) if defined $9;
72 potentry($10,$lnr,$filename) if defined $10;
73 potentry($11,$lnr,$filename) if defined $11;
82 foreach $key (keys %pot) {
83 print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n";