diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2004-01-21 17:57:36 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2004-01-21 17:57:36 +0000 |
| commit | 8708d7170afae3b02d6c578694ccc47f37946cb2 (patch) | |
| tree | a271092c171f6172a822e770cae6f2e236da8a47 /po/fake_c.pl | |
| parent | 1cf474b0c603ad034145b92e29f4d37b15f84498 (diff) | |
| download | control-center-8708d7170afae3b02d6c578694ccc47f37946cb2.tar control-center-8708d7170afae3b02d6c578694ccc47f37946cb2.tar.gz control-center-8708d7170afae3b02d6c578694ccc47f37946cb2.tar.bz2 control-center-8708d7170afae3b02d6c578694ccc47f37946cb2.tar.xz control-center-8708d7170afae3b02d6c578694ccc47f37946cb2.zip | |
Now uses perl_checker to create the pot file
Diffstat (limited to 'po/fake_c.pl')
| -rwxr-xr-x | po/fake_c.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/po/fake_c.pl b/po/fake_c.pl deleted file mode 100755 index 21cf25b0..00000000 --- a/po/fake_c.pl +++ /dev/null @@ -1,22 +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,\Qs/#.*//,,; # ugly special case - -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; - $_; -} |