blob: 9007b490ff5fcbe419bac45e55fbde21306d8737 (
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%
% macro definitions for testfont
%
\tracinglostchars=0
\newcount\m \newcount\n \newcount\p \newdimen\dim
\def\startfont{\font\testfont=\fontname
% \leftline{\sevenrm Test of \fontname\unskip\ on \today\ at \hours}
\medskip
\testfont \setbaselineskip
\ifdim\fontdimen6\testfont<10pt \rightskip=0pt plus 20pt
\else\rightskip=0pt plus 2em \fi
\spaceskip=\fontdimen2\testfont % space between words (\raggedright)
\xspaceskip=\fontdimen2\testfont \advance\xspaceskip by\fontdimen7\testfont}
\def\setbaselineskip{\setbox0=\hbox{\n=0
\loop\char\n \ifnum \n<255 \advance\n 1 \repeat}
\baselineskip=6pt \advance\baselineskip\ht0 \advance\baselineskip\dp0 }
\def\oct#1{\hbox{\rm\'{}\kern-.2em\it#1\/\kern.05em}} % octal constant
\def\hex#1{\hbox{\rm\H{}\tt#1}} % hexadecimal constant
\def\setdigs#1"#2{\gdef\h{#2}% \h=hex prefix; \0\1=corresponding octal
\m=\n \divide\m by 64 \xdef\0{\the\m}%
\multiply\m by-64 \advance\m by\n \divide\m by 8 \xdef\1{\the\m}}
\def\testrow{\setbox0=\hbox{\penalty 1\def\\{\char"\h}%
\\0\\1\\2\\3\\4\\5\\6\\7\\8\\9\\A\\B\\C\\D\\E\\F%
\global\p=\lastpenalty}} % \p=1 if none of the characters exist
\def\oddline{\cr
\noalign{\nointerlineskip}
\multispan{19}\hrulefill&
\setbox0=\hbox{\lower 2.3pt\hbox{\hex{\h x}}}\smash{\box0}\cr
\noalign{\nointerlineskip}}
\newif\ifskipping
\def\evenline{\loop\skippingfalse
\ifnum\n<256 \m=\n \divide\m 16 \chardef\next=\m
\expandafter\setdigs\meaning\next \testrow
\ifnum\p=1 \skippingtrue \fi\fi
\ifskipping \global\advance\n 16 \repeat
\ifnum\n=256 \let\next=\endchart\else\let\next=\morechart\fi
\next}
\def\morechart{\cr\noalign{\hrule\penalty5000}
\chartline \oddline \m=\1 \advance\m 1 \xdef\1{\the\m}
\chartline \evenline}
\def\chartline{&\oct{\0\1x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&}
\def\chartstrut{\lower4.5pt\vbox to14pt{}}
\def\table{$$\global\n=0
\halign to\hsize\bgroup
\chartstrut##\tabskip0pt plus10pt&
&\hfil##\hfil&\vrule##\cr
\lower6.5pt\null
&&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline}
\def\endchart{\cr\noalign{\hrule}
\raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B&
&\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$\par}
\def\:{\setbox0=\hbox{\char\n}%
\ifdim\ht0>7.5pt\reposition
\else\ifdim\dp0>2.5pt\reposition\fi\fi
\box0\global\advance\n 1 }
\def\reposition{\setbox0=\vbox{\kern2pt\box0}\dim=\dp0
\advance\dim 2pt \dp0=\dim}
\def\centerlargechars{
\def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}}
%
% redefinition of space amount of list environment in jart10.sty
%
\def\@listI{\leftmargin\leftmargini \parsep 0pt \topsep 8pt plus 2pt minus 4pt
\itemsep 0pt}
\let\@listi\@listI
\@listi
\def\@listii{\leftmargin\leftmarginii
\labelwidth\leftmarginii\advance\labelwidth-\labelsep
\topsep 4pt plus 2pt minus 1pt
\parsep 0pt
\itemsep \parsep}
\def\@listiii{\leftmargin\leftmarginiii
\labelwidth\leftmarginiii\advance\labelwidth-\labelsep
\topsep 2pt plus 1pt minus 1pt
\parsep \z@ \partopsep 0pt
\itemsep \topsep}
\def\appendix{\par
\setcounter{section}{0}
\setcounter{subsection}{0}
\def\thesection{ÉÕÏ¿}}
%
% other macros
%
\newcommand{\examplelabel}[1]{\mbox{#1}\hfil}
\newenvironment{example}[1]{%
\begin{list}{}{%
\let\makelabel\examplelabel
\settowidth{\labelwidth}{#1}%
\setlength{\labelsep}{1zw}%
\settowidth{\leftmargin}{¡¡#1¡¡}}}% ¢« #1¤ÎÏÁ´³Ñ¥¹¥Ú¡¼¥¹
{\end{list}}
\def\_{\kern.04em\vbox{\hrule width.3em height .6pt}\kern.08em}
\font\manual=manfnt
\def\MF{{\manual META}\-{\manual FONT}}% 10pt
\def\tbs{{\tt\char'134}}
\def\tbracei{{\tt\char'173}}
\def\tbraceii{{\tt\char'175}}
|