diff options
author | Pablo Saratxaga <pablo@mandriva.com> | 2003-03-05 20:06:46 +0000 |
---|---|---|
committer | Pablo Saratxaga <pablo@mandriva.com> | 2003-03-05 20:06:46 +0000 |
commit | c19e3039a252f50b986a2e4b8e66817395f512ee (patch) | |
tree | d0c75c6e6f846cce50a722014c4b3bff92bcc7a7 /po/fake_c.pl | |
parent | cbcfd7a1b9bbafeedfd483ae511da8529982147a (diff) | |
download | urpmi-c19e3039a252f50b986a2e4b8e66817395f512ee.tar urpmi-c19e3039a252f50b986a2e4b8e66817395f512ee.tar.gz urpmi-c19e3039a252f50b986a2e4b8e66817395f512ee.tar.bz2 urpmi-c19e3039a252f50b986a2e4b8e66817395f512ee.tar.xz urpmi-c19e3039a252f50b986a2e4b8e66817395f512ee.zip |
changed name of _() function to N()
use of perl_checker to create pot file
Diffstat (limited to 'po/fake_c.pl')
-rwxr-xr-x | po/fake_c.pl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/po/fake_c.pl b/po/fake_c.pl deleted file mode 100755 index c456c7f1..00000000 --- a/po/fake_c.pl +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -lp - -s|^(__?\()| $1|; # add a blank at the beginning (?!) - -s|_\(\[(.*),\s*(.*),\s*(.*)\]|ngettext($2,$3,$1)|; # special plural form handling - -s,\Ws/#.*//,,; # ugly special case - -s,\$#\w+,,; # $#xxx are removed -s,#([^+].*),"$1/*" . simpl($2) . "*/",e; - # rewrite comments to C format except for: - # - ``#+ xxx'' comments which are kept - # - ``$#xxx'' which are not comments - -s|//|/""/|g; # ensure // or not understood as comments - -s|$|\\n\\|; # multi-line strings not handled in C - -sub simpl { - local $_ = $_[0]; - s,\*/,,g; - $_; -} |