w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

commit 5d65ed41c1f96bb2bb92724d1abe924a61a5da9c
parent 640c5a190ed878c201e6a213744e7a24c0caaf82
Author: ukai <ukai>
Date:   Thu, 25 Sep 2003 18:15:47 +0000

add posubst.in

Diffstat:
Aposubst.in | 53+++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 53 insertions(+), 0 deletions(-)

diff --git a/posubst.in b/posubst.in @@ -0,0 +1,53 @@ +#!@PERL@ +# gettext message substitute +# +$po_dir='po'; +$lang='@POLANG@'; +%msg = (); +$msgid = ''; +$charset = "UTF-8"; +$charset_code = "WC_CES_UTF_8"; +open(PO, "$po_dir/$lang.po") or die "cannot open $po_dir/$lang.po, $!"; +while (<PO>) { + if (/^msgid\s*"(.*)"/) { + $msgid = $1; + next; + } + if (/^msgstr\s*"(.*)"/) { + $msg{$msgid} = $1; + next; + } + if (/^"Content-Type: text\/plain; charset=(.*)\\n"/) { + $charset = $1; + next; + } +} +close(PO); +open(CL, "charset-list") or die "cannot open charset-list, $!"; +while (<CL>) { + @l = split; + if ($l[0] eq $charset) { + $charset_code = $l[1]; + last; + } +} +close(CL); + +@src = grep {/\.c$/} @ARGV; +@tmp = (); +foreach $src (@src) { + open(SRC0, $src) or die "cannot open $src, $!"; + push(@tmp, ".$src"); + open(SRC1, ">.$src") or die "cannot create .$src, $!"; + while (<SRC0>) { + s/^static\s*wc_ces\s*(\S+)\s*=\s*(WC_CES_\S+)\s*;\s*\/\*\s*FIXME: charset of source code \*\//static wc_ces $1 = $charset_code; \/* FIXME: charset of source code *\//; + s/(N?_\(")([^"]*)("\))/$1 . ($msg{$2} || $2) . $3/ge; + print SRC1 $_; + } + close(SRC0); + close(SRC1); +} + +map {s/(.*\.c)$/.$1/} @ARGV; +system @ARGV; +unlink @tmp;