blob: 41badd1a16e50e222f46ee4dbe98de1f2255fca2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
\input webmac
% ADAPTED from DVITYPE, version 2.6.
% Here is TeX material that gets inserted after \input webmac
\def\hang{\hangindent 3em\indent\ignorespaces}
\font\ninerm=cmr9
\let\mc=\ninerm % medium caps for names like PASCAL
\def\PASCAL{{\mc PASCAL}}
\def\(#1){} % this is used to make section names sort themselves better
\def\9#1{} % this is used for sort keys in the index
\def\title{Crudetype}
\def\contentspagenumber{1}
\def\topofcontents{\null
\def\titlepage{F} % include headline on the contents page
\def\rheader{\mainfont\hfil \contentspagenumber}
\vfill
\centerline{\titlefont Crudetype}
\vskip 15pt
\centerline{An adaptable device driver (Version 0, 1986)}
\vfill}
\pageno=\contentspagenumber \advance\pageno by 1
% These macros for verbatim scanning are Copied from MANMAC.TEX. But we cant
% use the vertical bar for a temporary escape character as WEAVE catches it.
% So we will use ! instead and hope for the best
\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}
\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt
\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!vbox{#2}!endgroup$$}}
\M133. Clearly, \\{alphabet} will only cover a very
small part of the problem.
The
next procedure enters data into a subset of the \\{codes} array corresponding
to
a single row of a \TeX\ font. In the standard font tables, row number \|m is
the subrange $8\ast\|m\to8\ast\|m+7$ of a font. It is hoped that when the calls
of
procedure \\{row} are written out in a program, the result will be (just about)
legible, whereas a string of statements like \par\qquad
$\\{codes}[\|i,\|j].\\{font}\K\\{something}$\par
is certainly not legible.
The parameters are: \item
\\{row\_spec} specifies what characters are to go into the row.
\\{scheme}= number assigned to the \TeX\ coding scheme within the program,\item
\\{row\_num}= number of the row in that scheme. (starting from 0),\item
\\{font} = initial printer font, \par
\Y\P$\4\X50:Medium level procedures\X\mathrel{+}\S$\6
|
