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