diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-20 14:44:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-20 14:44:37 +0000 |
| commit | f17896d1b996da13d21e07836de59cbb4d57e706 (patch) | |
| tree | 74ce175fbc2ead6b6677b5a794eeeb29b9a20821 /perl-install/share/po/fake_c.pl | |
| parent | f8044c571465cfe674bf82066076340aa93d13d5 (diff) | |
| download | drakx-f17896d1b996da13d21e07836de59cbb4d57e706.tar drakx-f17896d1b996da13d21e07836de59cbb4d57e706.tar.gz drakx-f17896d1b996da13d21e07836de59cbb4d57e706.tar.bz2 drakx-f17896d1b996da13d21e07836de59cbb4d57e706.tar.xz drakx-f17896d1b996da13d21e07836de59cbb4d57e706.zip | |
externalize the pm 2 pm_.c in fake_c.pl
Diffstat (limited to 'perl-install/share/po/fake_c.pl')
| -rwxr-xr-x | perl-install/share/po/fake_c.pl | 14 |
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 + |