Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!spin-hsd0-tky!inetgw.melco!meims!mspc200!mspc220!iijnet!news.iij.ad.jp!inetnews.niftyserve.or.jp!niftyserve!KHB10110
From: KHB10110@niftyserve.or.jp (=?ISO-2022-JP?B?GyRCOjQ1VzRWISFOSRsoQg==?=  )
Newsgroups: fj.lang.perl
Subject: Re: pod2texi?(was [Q]How to set...)
Message-ID: <INETNEWS-1-4-10.00835@niftyserve.or.jp>
Date: 15 Feb 96 19:10:00 GMT
Lines: 76
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:737
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=737&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.

$B855-;v$N:45W4V$G$9!%(B

$B1sF#$5$s$"$j$,$H$&$4$6$$$^$7$?!%>&MQ(BBBS$B$+$i%A%S%j%A%S%j$d$C$F$$$^$9$N(B
$B$G%U%)%m!<CY$l$^$7$?!%(B

>>> Endo Hideyuki$B$5$s(B(<ENDO-H.96Feb5054008@tremaine.cs.uec.ac.jp>$B$K$F(B):

> ftp://tao.lab.kdd.co.jp:/lang/perl/CPAN/doc/pod2x/pod2texinfo
> $B$,$=$&$G$9!#$I$l$@$1$N@-G=$+$o$+$j$^$;$s$,!D!D(B

$BF~<j$7!$;n$7$F$_$^$7$?!%(Btexi$B%U%!%$%k$O$3$N%9%/%j%W%H$G:n@.$5$l$^$7$?$,!$(B
info$B2=$9$k:](Bmakeinfo$B$G%(%i!<$H$J$j$^$7$?$N$G1~5^=hCV$r;\$7$^$7$?(B($B%Q%C(B
$B%AE:IU(B)$B!%(B

$B@8@.$5$l$k(Btexi$B%U%!%$%k$O8E$$(Btexinfo$B$N;EMM$K$J$C$F$$$k(B(?)$B$h$&$G$7$?$N$G(B
$B:G6a(B($B:G?7HG$G$O$J$$(B)$B$N(Btexinfo$B$K9g$;$^$7$?!%:G>/8B$H$9$k$?$a(B
enumerate/itemize$B4XO"$r$5$\$j$^$7$?$N$G0lIt%_%F%/%l$,$h$/$J$$$G$9!%(B

makeinfo$B$G!V(B@end table$B$,$J$$!W;]$N%(%i!<$,$G$?>l9g$O(Bperlpod.pod$B$NE,Ev(B
$B$J0LCV$K(B"=back"$B$rA^F~$7$F$/$@$5$$!%$^$?(Bpointer varidation$B$N%(%i!<$OL5(B
$B;k$G$-$^$9!%(B

$B%$%s%G%/%9!$%/%m%9%j%U%!%l%s%9$J$I$N(Btexinfo$B$N5!G=$r$U$s$@$s$K;H$C$?$b(B
$B$N$G$O$"$j$^$;$s$,!$(Bman$B$G$"$A$3$A$_$F$^$o$k$h$j$O%i%/%A%s$G$9!%(B

-- sakuma <KHB10110@niftyserve.or.jp>

# NIFTY-Serve$B$+$i$G$9$N$G(BTAB$B$,$3$o$l$k$+$b$7$l$^$;$s!%(Bpatch$B$N%*%W%7%g(B
# $B%s$G2sHr$M$,$$$^$9!%(B

--- /usr/local/vianetwork/pod2texinfo   Tue Feb 13 05:34:13 1996
+++ pod2texinfo Thu Feb 15 06:50:15 1996
@@ -99,7 +99,7 @@
     print TEXINFO "\\input texinfo.tex\n" if ($pod eq 'perl');
     $upn = ($pod eq 'perl')?'(dir)' :'Top';
 
-    $pod eq 'perl' and ($curn,$nextn) = ('Top','perldata');
+    $pod eq 'perl' and ($curn,$nextn,$prevn) = ('Top','perldata','(dir)');
     $prevn eq 'perl' and $prevn = 'Top';
     $prevn ||= 'Top';
     $nextn ||= 'Top';
@@ -150,7 +150,7 @@
                    print TEXINFO "\n\@menu\n";
                    for (@lines) {
                        m/^\s+(\w*)\t(.*)/;
-                       print TEXINFO "* $1:: $2\n";
+                       print TEXINFO "* $1:: $2\n" if $1 ne 'perl';
                    }
                    print TEXINFO "\@end menu\n\n";
 # this next bit we will do by hand for now...
@@ -184,10 +184,10 @@
                $cutting = 1;
            }
            elsif ($cmd eq 'head1') {
-               print TEXINFO qq|\@unnumberedsec{$_}\n|;
+               print TEXINFO qq|\@unnumberedsec $_\n|;
            }
            elsif ($cmd eq 'head2') {
-               print TEXINFO qq|\@unnumberedsubsec{$_}\n|;
+               print TEXINFO qq|\@unnumberedsubsec $_\n|;
            }
            elsif ($cmd eq 'item') {
                ($what,$rest)=split(' ', $_, 2);
@@ -232,10 +232,10 @@
            }
            }
            elsif ($cmd eq 'over') {
-#              print TEXINFO qq|over[$_]\n|;
+               print TEXINFO qq|\@table \@asis\n|;
            }
            elsif ($cmd eq 'back') {
-#              print TEXINFO qq|back[$_]\n|;
+               print TEXINFO qq|\@end table\n|;
            }
            else {
                warn "Unrecognized directive: $cmd\n";
