diff options
author | Pablo Saratxaga <pablo@mandriva.com> | 2002-08-12 18:50:09 +0000 |
---|---|---|
committer | Pablo Saratxaga <pablo@mandriva.com> | 2002-08-12 18:50:09 +0000 |
commit | 18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86 (patch) | |
tree | 0d3db12f0143d91fb7916c48383fc73bfbb98315 /po/fake_c.pl | |
parent | 9edfbeed6ce717780b86b2f3d5ea436f27975079 (diff) | |
download | mgaonline-18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86.tar mgaonline-18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86.tar.gz mgaonline-18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86.tar.bz2 mgaonline-18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86.tar.xz mgaonline-18bd1e8c9fbcf3ebee7238186ea885a1e5cb6c86.zip |
Added Tamil file and copied pot generation from other modules
Diffstat (limited to 'po/fake_c.pl')
-rwxr-xr-x | po/fake_c.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/po/fake_c.pl b/po/fake_c.pl new file mode 100755 index 00000000..21cf25b0 --- /dev/null +++ b/po/fake_c.pl @@ -0,0 +1,22 @@ +#!/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 + +sub simpl { + local $_ = $_[0]; + s,\*/,,g; + $_; +} |