Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!koichi
From: koichi@ec.musashi-tech.ac.jp (INOUE Koichi)
Subject: [asobi no TeX] teisei: verbcode.tex
Message-ID: <KOICHI.93Dec7133147@gemini.ec.musashi-tech.ac.jp>
Lines: 56
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: gemini
Organization: Musashi Institute of Technology
Distribution: fj
Date: Tue, 7 Dec 1993 04:31:47 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4275
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4275&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.

$B0f>e!wIpB"9)Bg$G$9!#(B

$B0JA0(Bverbcode.tex$B$H$$$&JQ$J$b$N$r=P$7$^$7$?$,!"0lItJQ$K$J$j$^$9$N$G!"D{@5(B
$B$7$^$9!#$H$3$m$G!"$3$l$O!"%=!<%9$r(BRoman$B$G8+1I$(NI$/=P$7$?$$$H$$$&L\E*$N(B
$B$?$a$K:n$C$?$b$N$G$9!#(Btt$B$G$$$$$J$i!"(B

\def\verbcode#1{\begin{verbatim}\input{#1}\end{verbatim}}

$B$G$&$^$/$$$/$N$G$O$J$$$G$7$g$&$+!#!J;n$7$F$J$$!K(B

\documentstyle[a4j]{jarticle}
\long\def\texsourcebegin#1\texsourceend{%
    \begingroup
    \parindent0pt
    \def\par{\endgraf\leavevmode}\obeylines
    \def\do##1{\catcode`##112}\dospecials
    \catcode`\@12\obeyspaces
    #1\endgroup}
{\catcode`\*\active\catcode`\<\active\catcode`\>\active
\catcode`\|\active\catcode`\{\active\catcode`\}\active
\catcode`\-\active\catcode`\_\active
\catcode`\^^I\active\catcode`\(1\catcode`\)2\catcode`\$0
\catcode`\\\active
$gdef$texsource#1($texsourcebegin
    $catcode`$*$active$def*(($spft$string*))
    $catcode`$<$active$def<(($spft$string<))
    $catcode`$>$active$def>(($spft$string>))
    $catcode`$|$active$def|(($spft$string|))
    $catcode`${$active$def{(($spft$string{))
    $catcode`$}$active$def}(($spft$string}))
    $catcode`$-$active$def-(($spft$string-))
    $catcode`$_$active$def_(($spft$string_))
    $catcode`$^^I$active$def^^I($space$space$space$space)
    $catcode`$\$active$def\(($spft$string\))
    $input#1
    $texsourceend))
{\newlinechar`\^^J
\immediate\write16{^^JWhat source code do you need?}
\message{Input the file name:}
\endlinechar-1\global\read-1to\theFileName}
\def\baselinestretch{.7}
\begin{document}
\noautospacing
\noautoxspacing
\small
\let\spft\tt
\expandafter\texsource\expandafter{\theFileName}
\end{document}

$BA0$H0c$C$F$$$k$N$O!"(B-$B$H(B_$B$N$H$3$m$G$9!#%_%9$G$7$?!#(B
--
         $BCg(B        $BCg(B
---$BJbJbJbJbJbJbJbJbJbJbJbJb(B---------------------------------------------
   $B2#C(HtGON6;bK[N6GOHtC(2#(B                                    $B0f>e9@0l(B
   $BH?(B  $B3Q(B  $B8WsJK18W(B  $B3Q(B  $BH?(B       e-mail : koichi@ec.musashi-tech.ac.jp
---$B9aI?F<6d6b2&>]6b6dF<I?9a(B--------------$B$=$l$G$b;d$OM}@-$r?.$8$F$$$^$9(B-
