projects / projects / rc-scripts.git / blame
| 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> | |
| 7824432b | 8 | # $Id: makepot.pl,v 1.4.2.2 2001/09/30 10:19:34 misiek Exp $ |
| a04d924e | 9 | # Changes: |
| 7824432b AM |
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 | # | |
| f15012a0 AF |
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"}) { | |
| f361915b | 22 | $pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr"; |
| f15012a0 AF |
23 | #print STDERR "append $msg\n"; |
| 24 | } else { | |
| f361915b | 25 | $pot{"$msg"} = "\n#: $filename:$lnr"; |
| f15012a0 AF |
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\" | |
| 7824432b | 44 | \"Content-Type: text/plain; charset=ISO-8859-2\\n\" |
| f15012a0 AF |
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; | |
| 7824432b | 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)) { |
| f15012a0 AF |
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 |