[前][次][番号順一覧][スレッド一覧]

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

[前][次][番号順一覧][スレッド一覧]