externalize the pm 2 pm_.c in fake_c.pl

1 files changed, 14 insertions, 0 deletions

diff --git a/perl-install/share/po/fake_c.pl b/perl-install/share/po/fake_c.pl
new file mode 100755
index 000000000..86146bdaf
--- /dev/null
+++ b/perl-install/share/po/fake_c.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -lp
+
+s|_\(\[(.*),\s*(.*),\s*(.*)\]| ngettext($2,$3,$1)|; # special plural form handling
+
+s|^(__?\()| $1|;		# add a blank at the beginning (?!)
+s,\Qs/#.*//,,;			# ugly special case
+s|//|/""/|g;			# ensure // or not understood as comments
+
+s,(^|[^\$])#([^+].*),\1/*\2*/,; # rewrite comments to C format except for:
+                                # - ``#+ xxx'' comments which are kept
+                                # - ``$#xxx'' which are not comments
+
+s|$|\\n\\|;			# multi-line strings not handled in C
+