summaryrefslogtreecommitdiffstats
path: root/po
diff options
context:
space:
mode:
Diffstat (limited to 'po')
-rwxr-xr-xpo/fake_c.pl24
1 files changed, 0 insertions, 24 deletions
diff --git a/po/fake_c.pl b/po/fake_c.pl
deleted file mode 100755
index 6eb9bf83..00000000
--- a/po/fake_c.pl
+++ /dev/null
@@ -1,24 +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
-
-s/\\(\@|\$)/$1/g; # perl needs escaped special caracters but gettext must *not*
-
-sub simpl {
- local $_ = $_[0];
- s,\*/,,g;
- $_;
-}