Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!tweedledum!news.cc.uec.ac.jp!yamasaki
From: yamasaki@phys.uec.ac.jp (Ken-ichi Yamasaki)
Newsgroups: fj.lang.fortran,fj.sources.d
Subject: Re: How to print FORTRAN style formated file.
Followup-To: fj.sources.d
Date: 12 Oct 1994 15:35:54 GMT
Organization: Applied Physics and Chemistry, Univ. Electro-Communications.
Lines: 40
Message-ID: <YAMASAKI.94Oct13003554@tokachi.phys.uec.ac.jp>
References: <YAMASAKI.94Oct10000302@shinano.phys.uec.ac.jp>
	<YAMASAKI.94Oct11204914@tokachi.phys.uec.ac.jp>
NNTP-Posting-Host: tokachi.phys.uec.ac.jp
In-reply-to: yamasaki@phys.uec.ac.jp's message of 11 Oct 1994 11:49:14 GMT
Supersides: <YAMASAKI.94Oct12234521@tokachi.phys.uec.ac.jp>
Xref: galaxy.trc.rwcp.or.jp fj.lang.fortran:227 fj.sources.d:2166
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.sources.d&nb=2166&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B0J2<$N7o$G!"(Bperl$B%P!<%8%g%s$N(Ba2ps
 "a2ps,v 1.32 1993/06/25 00:44:18 utashiro Exp"
$B$K%P%0!J;EMM!)!K$,$"$k$s$8$c$J$$$+$H;W$&$N$G(Bfj.sources.d$B$K$U$C$F$*$-$^$9!#(B
# $B<+8J%U%)%m!<$P$+$j$G$9$$$^$;$s!#(B
>>>>> On 11 Oct 1994 11:49:14 GMT, yamasaki@phys.uec.ac.jp (Ken-ichi Yamasaki) said:
> psf$B$O(B^H, ^M$B$J$I$r$?$@$NJ8;z$H$7$F2r<a$9$k$N$G(Bfpr$B$N=PNO$r$&$^$/(BPS$B$KJQ49(B
> $B$7$F$/$l$^$;$s$,!"(Ba2ps$B$J$iBg>fIW$G$7$?!#$?$@$7!"(Ba2ps$B$N(B ^H $B$N07$$$K!J;E(B
> $BMM$J$N$+!"%P%0$J$N$+!KLdBj$,$"$C$F!"(BAIX 3.2(RS/6000)$B$N(Bfpr$B$N=PNO$O@5$7(B
> $B$/=hM}$G$-$^$;$s$G$7$?!#(B^H$B$G$O$J$/!"(B^M$B$r;H$C$?=E$MBG$A$r$5$;$k$h$&$K$9(B
> $B$l$P(Ba2ps$B$r;H$C$F=PNO$G$-$k$3$H$,H=$C$?$N$G!"(Bfpr$B$H8_49$G!"(B^H$B$G$O$J$/(B^M
> $B$r;H$&$h$&$K$7$?%D!<%k$r:n$C$?$i$&$^$/9T$/$h$&$K$J$j$^$7$?!#(B

> * ^H $B$H$+$OA4It%3%s%H%m!<%k%-%c%i%/%?!<$G$9!#(B

AIX$B$N(Bfpr$B$N=PNO$N$h$&$K(Ba2ps$B$O(B^H$B$,O"B3$7$F8=$l$k$H$&$^$/F0:n$7$F$/$l$^$;(B
$B$s$,!"$3$l$O(B^H$B$K$h$C$F=E$MBG$A$r$7$FJ8;z$,G;$/$J$C$?MM$K8+$;$k$?$a$N=h(B
$BM}$,@5$7$/$J$$$+$i$8$c$J$$$+$H;W$$$^$9!#(B

--- /usr/local/bin/a2ps.origMon Jun 20 17:43:29 1994
+++ a2psWed Oct 12 23:41:42 1994
@@ -265,8 +265,10 @@
 
 # enclose overstruck segment by \01 and \02
 if (/\cH/ && $bold) {
-    s/(..)\06?\cH\cH\05?\1/\01$1\02/g;
-    s/(.)(\cH\1)+/\01$1\02/g;
+#    s/(..)\06?\cH\cH\05?\1/\01$1\02/g;
+#    s/(.)(\cH\1)+/\01$1\02/g;
+    s/([^\001-\006\b\f\n\r\e][^\001-\006\b\f\n\r\e])\06?\cH\cH\05?\1/\01$1\02/g;
+    s/([^\001-\006\b\f\n\r\e])(\cH\1)+/\01$1\02/g;
     s/\02\01//g;
 }
 # enclose underlined segment by \03 and \04


$B$3$N$h$&$K=$@5$9$k$H$&$^$/F0$/$h$&$K$J$j$^$7$?!#!J(B-nb option$B$r;XDj$9$k(B
$BJ}$,@5Ev$J$N$+$bCN$l$^$;$s$,!K(B
--
       $BEE5$DL?.Bg3X(B $BEE;RJ*@-9)3X@l96(B $B;3:j8-0l(B
       E-MAIL: yamasaki@phys.uec.ac.jp
