[TeX-music] "Verbatim" for plain TeX?

[Olivier Vogel]

1) Here is code for the verbatim problem in plain TeX:

---
%User toks variables
\newtoks\thisverbatim
\newtoks\everyverbatim
%
%User customization
\let\preverbatim\medskip
\let\postverbatim\medbreak
% *vrblin100
%User `options': \numvrb
\newcount\vrblin
\def\numvrb{\vrblin0
\everypar{\advance\vrblin1
\llap{\sevenrm\the\vrblin\quad}}}
\def\nonum{\everypar={}}
% : \emc
\def\makeescape#1{\catcode`#1=0 }
\def\makeactive#1{\catcode`#1=13 }
{\makeactive\<
\gdef\emc{\makeactive\<%
\def<##1>{$\langle##1\rangle$}}}
% *vrblin200
%User macro
\def\verbatim{\preverbatim\begingroup
\tt\setupverbatim
\the\everyverbatim\relax
\the\thisverbatim\relax
\verbatimgobble}
%
\def\endverbatim{\endgroup\postverbatim
\thisverbatim={}}
%
\def\setupverbatim{\makeactive\`%
\let\!=!\makeescape\!%Knuth&Levy
\def\par{\leavevmode\endgraf}%TB381
\obeylines\uncatcodespecials
\obeyspaces}
%
{\obeyspaces\global\let =\
\obeylines\gdef\verbatimgobble#1^^M{}%
\makeactive\` \gdef`{\relax\lq}}%TB381
%
\def\uncatcodespecials{\def\do##1{%
\catcode`##1=12 }\dospecials}
% *vrblin250
%Minimal | tag for inline verbatim
\def\vrt{{\tt}}\makeactive\|
\def|{\bgroup\tt\setupverbatim
\the\everyverbatim\relax
\the\thisverbatim\relax
\def|{\egroup\thisverbatim{}}}
---

Use

a)
\verbatim
several lines of commandes
!endverbatim

or b)
some text \vrt|\command| inside a paragraph


2) Personally, I think you should use LaTeX. If you don't like the dimensions of the page, use the geometry package. If you want to have Palatino fonts for every detail (included the maths symbols), download the pxfonts package at:
http://www.ctan.org/tex-archive/fonts/pxfonts/px_patch1.zip

Olivier




_________________________________________________________________
MSN Messenger : discutez en direct avec vos amis ! http://www.msn.fr/msger/default.asp


_______________________________________________
TeX-music mailing list
[EMAIL PROTECTED]
http://sunsite.dk/mailman/listinfo/tex-music