]>
Commit | Line | Data |
---|---|---|
f15012a0 AF |
1 | #!/usr/bin/perl -w |
2 | ||
3 | # | |
4 | # Extract messages from scripts and make pot | |
5 | # | |
6 | # Copyright (c) 1999 Free Software Fundation, Inc. | |
ec8b15cb | 7 | # Artur Frysiak <wiget@pld-linux.org> |
3f4bd0a6 | 8 | # $Id$ |
de1fc6ce | 9 | # Changes: |
ec8b15cb | 10 | # 2000-08-25 Arkadiusz Miskiewicz <misiek@pld-linux.org> |
de1fc6ce | 11 | # - support for $(nls "xyz"), progress "xyz" and '' instead of "". |
3832969a | 12 | # |
f15012a0 AF |
13 | |
14 | my %pot; | |
15 | ||
16 | sub potentry { | |
17 | my( $msg, $lnr, $filename ) = @_; | |
3832969a | 18 | #print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n"; |
f15012a0 | 19 | if (defined $pot{"$msg"}) { |
f361915b | 20 | $pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr"; |
3832969a | 21 | #print STDERR "append $msg\n"; |
f15012a0 | 22 | } else { |
f361915b | 23 | $pot{"$msg"} = "\n#: $filename:$lnr"; |
3832969a | 24 | #print STDERR "new $msg\n"; |
f15012a0 AF |
25 | }; |
26 | }; | |
27 | ||
28 | print STDERR "\n". $#ARGV . " files\n"; | |
29 | ||
30 | if (1) { | |
31 | print <<EOF ; | |
3832969a | 32 | # translation of rc-scripts. |
f15012a0 AF |
33 | # |
34 | msgid \"\" | |
35 | msgstr \"\" | |
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\" | |
da6009f1 | 42 | \"Content-Type: text/plain; charset=CHARSET\\n\" |
f15012a0 AF |
43 | \"Content-Transfer-Encoding: 8bit\\n\" |
44 | ||
45 | # Translation of words: \"DONE\", \"WORK\", \"BUSY\", \"FAIL\", \"DIED\" | |
46 | # must have that same count of letters !!!!!!!!!!!!!!!!!!!!!!! | |
47 | ||
48 | # \(4 + \"\\b\" * count of letters\) in one of five previous words | |
49 | # msgid \"\\b\\b\\b\\b\\b\\b\\b\\b\" | |
50 | EOF | |
51 | ||
52 | } | |
53 | ||
54 | ||
55 | for (my $a = 0; $a <= $#ARGV; $a++) { | |
56 | my $lnr = 0; | |
57 | my $filename = $ARGV[$a]; | |
3832969a | 58 | print STDERR " " .$filename . "\n"; |
f15012a0 AF |
59 | open (POTSRC, "< " . $filename) || die "Can't open " . $filename; |
60 | foreach (<POTSRC>) { | |
61 | chop; | |
c06d997a | 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)) { |
f15012a0 AF |
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; | |
74 | }; | |
75 | $lnr++; | |
76 | }; | |
77 | ||
78 | close (POTSRC); | |
3832969a | 79 | |
f15012a0 AF |
80 | }; |
81 | ||
82 | foreach $key (keys %pot) { | |
83 | print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n"; | |
84 | }; |