Received: by nummer-3.proteosys id <01C19443.4801E1CC@nummer-3.proteosys>; Thu, 3 Jan 2002 11:42:03 +0100 MIME-Version: 1.0 x-vm-v5-data: ([nil nil nil nil nil nil nil t nil][nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]) Content-Type: multipart/alternative; boundary="----_=_NextPart_001_01C19443.4801E1CC" X-MimeOLE: Produced By Microsoft Exchange V6.5 Content-class: urn:content-classes:message Subject: Including files for verbatim listings Date: Sat, 14 Sep 1991 01:00:00 +0100 Message-ID: X-MS-Has-Attach: X-MS-TNEF-Correlator: From: "Nelson H. F. Beebe" Sender: "LaTeX-L Mailing list" To: "Rainer M. Schoepf" Reply-To: "LaTeX-L Mailing list" Status: R X-Status: X-Keywords: X-UID: 391 This is a multi-part message in MIME format. ------_=_NextPart_001_01C19443.4801E1CC Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Leslie Lamport posted your query to the LaTeX 3.0 development list, and I can offer some help. The following tablisting.sty file should do the trick. By the way, I had e-mail a few weeks ago from the new President of CYRTUG, in Leningrad, on the morning of the coup attempt; yours is only the second message I've received from the Soviet Union. In the last month, I've also had e-mail from Uruguay, South Africa, and Malaysia. It is great to see the Internet expanding this way! I visited Kiev in 1978, and gave a talk at the Institute for Theoretical Physics. I remember a long walk from my hotel down to the Dnepr, and over a bridge to an island with parkland on it. % -*-LaTeX-*- % /usr/csc-sun/u/sy/beebe/mymake/tablisting.sty, Sat May 21 11:05:50 = 1988 % Edit by Nelson H.F. Beebe (beebe at plot79.utah.edu) % Add missing redefinition (\gdef) of backquote % /usr/csc-sun/u/sy/beebe/sf3lex/tablisting.sty, Mon Feb 15 10:40:33 = 1988, % Edit by Nelson H.F. Beebe (beebe at plot79.utah.edu) % % Implement the listing macro from the TeXbook (p. 381) with % the addition of expansion of tabs by the conventional % blank-pad-to-next-column-which-is-a-multiple-of-8 algorithm given % on p. 391 % % Usage: % \input tablisting.sty % define these macros % \tablisting{filename} % produce a line-numbered verbatim = listing % % or % \documentstyle[tablisting]{...} % \tablisting{filename} % produce a line-numbered verbatim = listing % % Such listings typically produce large numbers of overfull boxes, so % \hfuzz is set quit high to eliminate the warning messages that = normally % appear for them. \font\linenofont=3Dcmr7 \newcount\lineno % the number of file lines listed \def\uncatcodespecials{\def\do##1{\catcode`##1=3D12 }\dospecials} \def\obeyspaces{\catcode`\ =3D\active} \def\setupverbatim{\tt \lineno=3D0 \def\par{\leavevmode\egroup\box0\endgraf} \obeylines \uncatcodespecials \obeyspaces \catcode`\^^I=3D\active \everypar{\advance\lineno by1 \llap{\linenofont\the\lineno\ \ }\startbox}} {\obeyspaces\global\let =3D\ } % let active space =3D control space \newdimen\w \setbox0=3D\hbox{\tt\space} \w=3D8\wd0 % tab amount \def\startbox{\setbox0=3D\hbox\bgroup} {\catcode`\^^I=3D\active \gdef^^I{\leavevmode\egroup \dimen0=3D\wd0 % the width so far, or since the previous tab \divide\dimen0 by\w \multiply\dimen0 by\w % compute previous multiple of \w \advance\dimen0 by\w % advance to next multiple of \w \wd0=3D\dimen0 \box0 \startbox}} {\catcode`\`=3D\active {\gdef`{\relax\lq}}} \def\tablisting#1{\par\begingroup\hfuzz=3D99in\setupverbatim \input#1 \endgroup} =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Nelson H.F. Beebe Center for Scientific Computing Department of Mathematics 220 South Physics Building University of Utah Salt Lake City, UT 84112 USA Tel: (801) 581-5254 FAX: (801) 581-4148 Internet: beebe@math.utah.edu =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ------_=_NextPart_001_01C19443.4801E1CC Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Including files for verbatim listings

Leslie Lamport posted your query to the LaTeX 3.0 = development list,
and I can offer some help.  The following = tablisting.sty file should
do the trick.

By the way, I had e-mail a few weeks ago from the new = President of
CYRTUG, in Leningrad, on the morning of the coup = attempt; yours is
only the second message I've received from the Soviet = Union.  In the
last month, I've also had e-mail from Uruguay, South = Africa, and
Malaysia.  It is great to see the Internet = expanding this way!

I visited Kiev in 1978, and gave a talk at the = Institute for
Theoretical Physics.  I remember a long walk = from my hotel down to the
Dnepr, and over a bridge to an island with parkland = on it.

% -*-LaTeX-*-
% /usr/csc-sun/u/sy/beebe/mymake/tablisting.sty, Sat = May 21 11:05:50 1988
% Edit by Nelson H.F. Beebe (beebe at = plot79.utah.edu)
% Add missing redefinition (\gdef) of = backquote
% /usr/csc-sun/u/sy/beebe/sf3lex/tablisting.sty, Mon = Feb 15 10:40:33 1988,
% Edit by Nelson H.F. Beebe (beebe at = plot79.utah.edu)
%
% Implement the listing macro from the TeXbook (p. = 381) with
% the addition of expansion of tabs by the = conventional
% blank-pad-to-next-column-which-is-a-multiple-of-8 = algorithm given
% on p. 391
%
% Usage:
%       \input = tablisting.sty   % define these macros
%       = \tablisting{filename}   % produce a line-numbered verbatim = listing
%
% or
%       = \documentstyle[tablisting]{...}
%       = \tablisting{filename}   % produce a line-numbered verbatim = listing
%
% Such listings typically produce large numbers of = overfull boxes, so
% \hfuzz is set quit high to eliminate the warning = messages that normally
% appear for them.
\font\linenofont=3Dcmr7
\newcount\lineno % the number of file lines = listed
\def\uncatcodespecials{\def\do##1{\catcode`##1=3D12 = }\dospecials}
\def\obeyspaces{\catcode`\ =3D\active}
\def\setupverbatim{\tt \lineno=3D0
  = \def\par{\leavevmode\egroup\box0\endgraf}
  \obeylines \uncatcodespecials = \obeyspaces
  \catcode`\^^I=3D\active
  \everypar{\advance\lineno by1
    \llap{\linenofont\the\lineno\ \ = }\startbox}}
{\obeyspaces\global\let =3D\ } % let active space =3D = control space
\newdimen\w \setbox0=3D\hbox{\tt\space} \w=3D8\wd0 % = tab amount
\def\startbox{\setbox0=3D\hbox\bgroup}
{\catcode`\^^I=3D\active
  \gdef^^I{\leavevmode\egroup
    \dimen0=3D\wd0 % the width so far, = or since the previous tab
    \divide\dimen0 by\w
    \multiply\dimen0 by\w % compute = previous multiple of \w
    \advance\dimen0 by\w  % = advance to next multiple of \w
    \wd0=3D\dimen0 \box0 = \startbox}}
  {\catcode`\`=3D\active = {\gdef`{\relax\lq}}}
\def\tablisting#1{\par\begingroup\hfuzz=3D99in\setupverbatim
\input#1 \endgroup}


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Nelson H.F. Beebe
Center for Scientific Computing
Department of Mathematics
220 South Physics Building
University of Utah
Salt Lake City, UT 84112
USA
 Tel: (801) 581-5254
 FAX: (801) 581-4148
 Internet: beebe@math.utah.edu
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=


------_=_NextPart_001_01C19443.4801E1CC--