From f17896d1b996da13d21e07836de59cbb4d57e706 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 20 Jul 2001 14:44:37 +0000
Subject: externalize the pm 2 pm_.c in fake_c.pl

---
 perl-install/share/po/Makefile  |  2 +-
 perl-install/share/po/fake_c.pl | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100755 perl-install/share/po/fake_c.pl

(limited to 'perl-install')

diff --git a/perl-install/share/po/Makefile b/perl-install/share/po/Makefile
index a9bcad71d..1e2f640ce 100644
--- a/perl-install/share/po/Makefile
+++ b/perl-install/share/po/Makefile
@@ -34,6 +34,6 @@ verif2:
 	grep "^msgid" DrakX.pot | sort | diff - tmp.pot.light | grep "^>" || true
 
 $(PMSCFILES): %_.c: %
-	perl -lpe 's|^(__?\()| $$1|; s,\Qs/#.*//,,; s|//|/""/|g; s,(^|[^\$$])#([^+].*),\1/*\2*/,; s|$$|\\n\\|' $< > $@
+	./fake_c.pl $< > $@
 
 #	for i in *.po; do echo -n "$i "; msgfmt -v $i 2>&1; done | perl -e 'print map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, (split)[1] ] } <>'
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
+
-- 
cgit v1.2.1