- setup static routes for loopback,

[projects/rc-scripts.git] / makepot.pl

diff --git a/makepot.pl b/makepot.pl
index fb3d30573ba83e72b6b45875ca485b9e1983005e..d1afd28e8759c62ec913a9d36af4ecbc35f735f6 100755 (executable)
--- a/makepot.pl
+++ b/makepot.pl
@@ -4,8 +4,11 @@
 # Extract messages from scripts and make pot
 #
 # Copyright (c) 1999 Free Software Fundation, Inc.
-# Artur Frysiak <wiget@pld.org.pl>
-# $Id: makepot.pl,v 1.4 2000/06/25 14:40:35 waszi Exp $
+# Artur Frysiak <wiget@pld-linux.org>
+# $Id$
+# Changes:
+# 2000-08-25 Arkadiusz Miskiewicz <misiek@pld-linux.org>
+# - support for $(nls "xyz"), progress "xyz" and '' instead of "".
 # 
 
 my %pot;
@@ -36,7 +39,7 @@ msgstr \"\"
 \"Last-Translator: FULL NAME <EMAIL\@ADDRESS>\\n\"
 \"Language-Team: LANGUAGE <LL\@li.org>\\n\"
 \"MIME-Version: 1.0\\n\"
-\"Content-Type: text/plain; charset=iso8859-2\\n\"
+\"Content-Type: text/plain; charset=CHARSET\\n\"
 \"Content-Transfer-Encoding: 8bit\\n\"
 
 # Translation of words: \"DONE\", \"WORK\", \"BUSY\", \"FAIL\", \"DIED\"
@@ -56,7 +59,7 @@ for (my $a = 0; $a <= $#ARGV; $a++) {
        open (POTSRC, "< " . $filename) || die "Can't open " . $filename;
        foreach (<POTSRC>) {
                chop;
-               if (/(run_cmd|nls|show)\s[\sa-zA-Z0-9-]*"(?!\`nls\s\")([^"]*)"/g) {
+               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)) {
 #                      potentry($1,$lnr,$filename) if defined $1;
                        potentry($2,$lnr,$filename) if defined $2;
                        potentry($3,$lnr,$filename) if defined $3;