DataMuseum.dk

top - metrics - download

    Length: 3050 (0xbea)
    Types: TextFile
    Names: »guidemacs.tex«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./DVIware/crt-viewers/others/dvitovdu/doc/guidemacs.tex« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/crt-viewers/others/dvitovdu/doc/guidemacs.tex« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦883b7f77d⟧ »dvi2vdu.tar.Z« 
        └─⟦f158c222e⟧ 
            └─⟦this⟧ »dvi2vdu/dvi2vdu-1.1J/doc/guidemacs.tex« 

TextFile

% \font\adeluni=crest at 1truein        % SYSDEP
% \def\crest{{\adeluni\char0 }}
\font\title=cmbx10 scaled \magstep5
\font\smallrm=cmr9
\font\bigbf=cmbx10 scaled \magstep2
\font\bigtt=cmtt10 scaled \magstep2

% verbatim macros provide:
%
% 1. |<verbatim horizontal mode text in \tt>|
%
% 2. \begintt <optional stuff here>
%    <boxed lines of verbatim text in \tt; | is temporary escape character>
%    \endtt
%
% 3. \begindisplay
%    <off-centred display of aligned columns; typical row follows:>
%    |text in \tt|& |text in \tt|& text in current font\cr
%    \enddisplay
%
% 4. \listing{foo}
%    foo.tex will be \input and set verbatim in \tt; \parskip must be non-zero
%    if you want to see any empty lines

\catcode`@=11   % borrow some PLAIN macros which use @ as a letter
\newskip\ttglue
\ttglue=0.5em plus.25em minus.15em

\chardef\other=12
\def\ttverbatim{\begingroup
  \catcode`\\=\other
  \catcode`\{=\other
  \catcode`\}=\other
  \catcode`\$=\other
  \catcode`\&=\other
  \catcode`\#=\other
  \catcode`\%=\other
  \catcode`\~=\other
  \catcode`\_=\other
  \catcode`\^=\other
  \obeyspaces \obeylines \tt}
{\obeyspaces\gdef {\ }}           % active space = \ , not \space

\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=\z@
  \catcode`\|=0 \rightskip-5pc \ttfinish}
{\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
  |obeylines % end of line is active
  |gdef|ttfinish#1^^M#2\endtt{#1|dimen0=|hsize|advance|dimen0 by -|hangindent%
                              |hsize=|dimen0|vbox{#2}|endgroup$$}}
% \begintt ... \endtt will now work in a paragraph with \hangindent, such
% as an \item

\catcode`\|=\active
{\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\ \let|=\endgroup}}

\catcode`@=12    % return @ its normal category of "other"

% Macros for non-centered displays:
% Note that we turn \ttglue off so |stuff| spaces will all be equal.
\outer\def\begindisplay{\obeylines\startdisplay}
{\obeylines\gdef\startdisplay#1
  {\catcode`\^^M=5$$\ttglue=0em#1\halign to\hsize%
\bgroup\indent##\hfil\tabskip 0pt plus 1000pt&&\qquad##\hfil\cr}}
\outer\def\enddisplay{\crcr\egroup$$}

% MACROS FOR VERBATIM LISTINGS (ADAPTED FROM TEXBOOK APPENDIX D, P380)

\def\uncatcodespecials{\def\do##1{\catcode`##1=12 }\dospecials}

\def\setupverbatim{\tt
  \def\par{\leavevmode\endgraf} \catcode`\`=\active % include empty lines
  \obeylines \uncatcodespecials \obeyspaces}

{\catcode`\`=\active \gdef`{\relax\lq}}

\def\listing#1{\par\begingroup\parindent0pt \parskip0pt \vskip\baselineskip
               \setupverbatim\input#1 \vskip\baselineskip\endgroup}

% end of verbatim macros

\def\DVItoVDU{DVIto\kern-.15em VDU}
\def\subhead#1{\par\bigbreak\vskip 20pt plus 4pt minus 2pt
               \noindent
               {\bigbf #1}\par
               \nobreak}
\def\;{\thinspace}
\def\finishline{\par\nobreak\vbox
                {\bigskip\bigskip
                 \centerline{$\star\qquad\star\qquad\star$}}}

% centre page horizontally in A4
\hsize 6.3in
\vsize 9.5in
\nopagenumbers
\parskip=\medskipamount