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