From owner-man-jp@jp.FreeBSD.org Sat Nov 26 01:04:26 2005
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id jAPG4QN79283;
	Sat, 26 Nov 2005 01:04:26 +0900 (JST)
	(envelope-from owner-man-jp@jp.FreeBSD.org)
Received: from t-mta1.odn.ne.jp (mfep1.odn.ne.jp [143.90.131.179])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id jAPG4Qw79278
	for <man-jp@jp.FreeBSD.org>; Sat, 26 Nov 2005 01:04:26 +0900 (JST)
	(envelope-from n-kogane@syd.odn.ne.jp)
Received: from kces6.koganemaru.co.jp ([61.201.156.238])
          by t-mta1.odn.ne.jp with ESMTP
          id <20051125160425892.HZIL.8089.t-mta1.odn.ne.jp@mta1.odn.ne.jp>
          for <man-jp@jp.FreeBSD.org>; Sat, 26 Nov 2005 01:04:25 +0900
Received: by kces6.koganemaru.co.jp (Postfix, from userid 100)
	id DCA16FBC0; Sat, 26 Nov 2005 01:09:50 +0900 (JST)
To: man-jp@jp.FreeBSD.org
Message-Id: <20051125160950.DCA16FBC0@kces6.koganemaru.co.jp>
From: n-kogane@syd.odn.ne.jp (Nobuyuki Koganemaru)
Reply-To: man-jp@jp.FreeBSD.org
Precedence: list
Date: Sat, 26 Nov 2005 01:09:50 +0900
X-Sequence: man-jp 7348
Subject: [man-jp 7348] roff2html.pl =?ISO-2022-JP?B?GyRCJE49JBsoQg==?=
 =?ISO-2022-JP?B?GyRCQDUbKEI=?= 
Sender: owner-man-jp@jp.FreeBSD.org
X-Originator: n-kogane@syd.odn.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+050320

=?ISO-2022-JP?B?GyRCPi42YjRdJEckOSEjGyhC?=
MIME-Version: 1.0 (generated by MimeKit/1.8)
Content-Type: text/plain; charset=ISO-2022-JP

roff $B$N7k2L$r(B html $B%U%!%$%k$KJQ49$9$k%D!<%k(B roff2html.pl $B$K8m$j$,$"$j!"(B
5.4-RELEASE-P $B$N8!:w$GI=<($9$k%^%K%e%"%k$NI=<($,$*$+$7$$$b$N(B ($BNc$($P(B f77)
$B$,$"$j$^$7$?!#(B#, +, *, /, $B$J$I$N6/D4ItJ,$G$9!#(B

$B$3$l$r=$@5$7!"?7$7$$8!:wMQ$N%U%!%$%k$r%3%T!<$9$kM=Dj$G$9!#(B
$B=$@5$7$?(B roff2html.pl $B$O(B cvs $B4IM}$5$l$F$*$j!"$3$l$b=$@5$7$F$$$^$9!#(B

Index: roff2html.pl
===================================================================
RCS file: /home/cvs/man-jp/work/bin/roff2html.pl,v
retrieving revision 2.4
retrieving revision 2.5
diff -u -r2.4 -r2.5
--- roff2html.pl	7 Sep 2003 21:58:01 -0000	2.4
+++ roff2html.pl	25 Nov 2005 15:48:51 -0000	2.5
@@ -1,5 +1,5 @@
 #! /usr/bin/perl
-$rcs_id= '$Id: roff2html.pl,v 2.4 2003/09/07 21:58:01 horikawa Exp $'; #'
+$rcs_id= '$Id: roff2html.pl,v 2.5 2005/11/25 15:48:51 kogane Exp $'; #'
 ($filter) = ($0 =~ /([^\/]+)$/);
 if ($rcs_id =~ /\s(\S+),v\s(\S+)\s(\d+\/\d+\/\d+)/) {
     $pname = "$1"; $revision = $2; $rcsdate = $3;
@@ -15,7 +15,7 @@
 $jpcode = 'jis';		# jis, euc or sjis
 $etag = 0;			# emphasis  0:<B> 1:<I> 2:<EM> 3:<STRONG>
 $lang = 'japanese';		# japanese or english
-$linksections = '15678';	# "185234679ln"
+$linksections = '123456789';	# "185234679ln"
 $cgidir = '/cgi';               # ServerRoot$B$+$i$NAjBP%Q%9(B
 $prog = 'mroff.cgi';		# $B%j%s%/@h$N(BCGI$BL>(B
 
@@ -51,7 +51,7 @@
 \t-d TYPE\tspecify doctype declaration.(use with -a)
 \t-m MANNAME\tman page name. (use with -a)
 example:
-\tgroff -Tnippon -mandoc MANSOURCE | $filter -l '15678'> DESTFILE
+\tgroff -Tnippon -mandoc MANSOURCE | $filter -l '123456789'> DESTFILE
 EOF
 
 
@@ -137,6 +137,7 @@
     }
     $lf = 0;
     s/([-_\w]\cH)+/$1/g;
+    s/([\W]\cH)+/$1/g;			# +, *, / $B$J$I$bJQ49$,I,MW(B
     s/([\x80-\xff][\x80-\xff])\cH\1/$mo$1$mc/g;
     s/_\cH([\x80-\xff][\x80-\xff])/<u>$1<\/u>/g;
     s/_\cH&(\w+);/<u>&$1;<\/u>/g;
@@ -148,6 +149,7 @@
     s/&amp;\cH&amp;/$mo&amp;$mc/g;
     s/&quot;\cH&quot;/$mo&quot;$mc/g;
     s/(.)\cH(.)/$mo$1$mc/g;
+    s/<\/u<b>>/<\/u><b>/go;		# $B=$@5%_%9$r=$@5(B
     s/$mc$mo//go;
     /^$mo\S/ && do {
 	if (s/^$mo(\S+)$mc$/<font size="+1">$mo<a name="sect$num" href="\#toc$num">$1<\/a>$mc<\/font>/) {

--
($BM-(B)$B>.6b4]%3%s%T%e!<%?%(%s%8%K%"%j%s%0%5!<%S%9(B ($BJ!2,8)BgLn>k;T(B)
	$B>.6b4](B $B?.9,(B (Nobuyuki Koganemaru)
E-Mail: n-kogane@syd.odn.ne.jp
E-Mail: kogane@jp.FreeBSD.org
E-Mail: kogane@koganemaru.co.jp
URL: http://www.koganemaru.co.jp
