mysql:426
From: 民斗 <民斗 <tommy@xxxxxxxxxx>>
Date: Wed, 02 Dec 1998 04:34:35 +0900
Subject: [mysql 426] texi2html 改造版
民斗です。 3.22.11 添付の texi2html を日本語対応してみました。といっても、 「see section 〜」を「〜節参照」にしているだけですが(^^; その他、URL をリンクにしたり、私好みに変えてあります。 よろしければお使い下さい。 -- 民斗 <tommy@xxxxxxxxxx> --- texi2html.orig Wed Dec 2 04:03:56 1998 +++ texi2html Wed Dec 2 03:58:41 1998 @@ -58,7 +58,7 @@ #$LDC_FOOT = 'Footnotes'; # TODO: @def* shortcuts -$user_sub{"email"} = "fix_email"; +#$user_sub{"email"} = "fix_email"; # # pre-defined indices @@ -586,8 +586,8 @@ # s/((^|[^\s*\@])(\@\@)*)\@c(omment)? .*/$1/; # non-@ substitutions cf. texinfmt.el - s/``/\"/g; - s/''/\"/g; +# s/``/\"/g; #" +# s/''/\"/g; #" s/([\w ])---([\w ])/$1--$2/g; # # analyze the tag @@ -1242,6 +1242,7 @@ } if ($type eq 'x') { $type = 'See '; + $jtype = '参照' } elsif ($type eq 'px') { $type = 'see '; } elsif ($type eq 'info') { @@ -1250,6 +1251,7 @@ $type = 'See '; } else { $type = ''; + $jtype = ''; } unless ($full) { $next = shift(@lines); @@ -1289,7 +1291,8 @@ $_ = "${before}${type} file `$in', node `$nn'$after"; } elsif ($sec) { $href = $node2href{$node}; - $_ = "${before}${type}section " . &anchor('', $href, $sec) . $after; +# $_ = "${before}${type}section " . &anchor('', $href, $sec) . $after; + $_ = "${before} 「" . &anchor('', $href, $sec) . "」節${jtype}${after}"; } else { warn "$ERROR Undefined node ($node): $_"; $_ = "$before$;0xref{$nodes}$after"; @@ -1829,7 +1832,7 @@ { my($text) = @_; $text =~ s/@@/@/g; - $text; + "<A HREF=\"$text\">$text</A>"; } sub fix_uref