]>
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> |
de1fc6ce | 8 | # Changes: |
ec8b15cb | 9 | # 2000-08-25 Arkadiusz Miskiewicz <misiek@pld-linux.org> |
de1fc6ce | 10 | # - support for $(nls "xyz"), progress "xyz" and '' instead of "". |
3832969a | 11 | # |
f15012a0 AF |
12 | |
13 | my %pot; | |
14 | ||
15 | sub potentry { | |
16 | my( $msg, $lnr, $filename ) = @_; | |
3832969a | 17 | #print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n"; |
f15012a0 | 18 | if (defined $pot{"$msg"}) { |
f361915b | 19 | $pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr"; |
3832969a | 20 | #print STDERR "append $msg\n"; |
f15012a0 | 21 | } else { |
f361915b | 22 | $pot{"$msg"} = "\n#: $filename:$lnr"; |
3832969a | 23 | #print STDERR "new $msg\n"; |
f15012a0 AF |
24 | }; |
25 | }; | |
26 | ||
27 | print STDERR "\n". $#ARGV . " files\n"; | |
28 | ||
29 | if (1) { | |
30 | print <<EOF ; | |
3832969a | 31 | # translation of rc-scripts. |
f15012a0 AF |
32 | # |
33 | msgid \"\" | |
34 | msgstr \"\" | |
35 | \"Project-Id-Version: PACKAGE VERSION\\n\" | |
36 | \"POT-Creation-Date: 1999-07-30 18:45+0200\\n\" | |
37 | \"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\\n\" | |
38 | \"Last-Translator: FULL NAME <EMAIL\@ADDRESS>\\n\" | |
39 | \"Language-Team: LANGUAGE <LL\@li.org>\\n\" | |
40 | \"MIME-Version: 1.0\\n\" | |
da6009f1 | 41 | \"Content-Type: text/plain; charset=CHARSET\\n\" |
f15012a0 AF |
42 | \"Content-Transfer-Encoding: 8bit\\n\" |
43 | ||
44 | # Translation of words: \"DONE\", \"WORK\", \"BUSY\", \"FAIL\", \"DIED\" | |
45 | # must have that same count of letters !!!!!!!!!!!!!!!!!!!!!!! | |
46 | ||
47 | # \(4 + \"\\b\" * count of letters\) in one of five previous words | |
48 | # msgid \"\\b\\b\\b\\b\\b\\b\\b\\b\" | |
49 | EOF | |
50 | ||
51 | } | |
52 | ||
53 | ||
54 | for (my $a = 0; $a <= $#ARGV; $a++) { | |
55 | my $lnr = 0; | |
56 | my $filename = $ARGV[$a]; | |
3832969a | 57 | print STDERR " " .$filename . "\n"; |
f15012a0 AF |
58 | open (POTSRC, "< " . $filename) || die "Can't open " . $filename; |
59 | foreach (<POTSRC>) { | |
60 | chop; | |
c06d997a | 61 | 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 |
62 | # potentry($1,$lnr,$filename) if defined $1; |
63 | potentry($2,$lnr,$filename) if defined $2; | |
64 | potentry($3,$lnr,$filename) if defined $3; | |
65 | potentry($4,$lnr,$filename) if defined $4; | |
66 | potentry($5,$lnr,$filename) if defined $5; | |
67 | potentry($6,$lnr,$filename) if defined $6; | |
68 | potentry($7,$lnr,$filename) if defined $7; | |
69 | potentry($8,$lnr,$filename) if defined $8; | |
70 | potentry($9,$lnr,$filename) if defined $9; | |
71 | potentry($10,$lnr,$filename) if defined $10; | |
72 | potentry($11,$lnr,$filename) if defined $11; | |
73 | }; | |
74 | $lnr++; | |
75 | }; | |
76 | ||
77 | close (POTSRC); | |
3832969a | 78 | |
f15012a0 AF |
79 | }; |
80 | ||
81 | foreach $key (keys %pot) { | |
82 | print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n"; | |
83 | }; |