From 0c239a9d2037c2d4bc3883439ec76cd4d30e424b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 Jan 2004 11:28:36 +0000
Subject: remove useless script

---
 po/fake_c.pl | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 po/fake_c.pl

(limited to 'po')

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;
-    $_;
-}
-- 
cgit v1.2.1