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
109
110
111
112
113
114
115
116
117
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% arabtex.tex %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \input this file at the beginning of an ArabTeX input file running
% under Plain TeX. This is an adaptation by Tom Koornwinder of
% Jan Lodder's file arab.plain.tex, again modified by Klaus Lagally
% 30.04.1997
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\message { Plain TeX setup for ArabTeX, 30.04.1997}
\ifx \LaTeX \undefined \else
\errmessage {^^JThis loader does not work with LaTeX!
^^JUse Plain TeX instead.^^J}
\expandafter \endinput
\fi
\def \makeatletter {\catcode `\@ = 11 }
\def \makeatother {\catcode `\@ = 12 }
\let \typeout \message \let \protect \relax
\let \em \it
\font \nash =nash14
\font \tennash =nash14 % add fonts as needed.
\font \nashx =nash14
\font \nashxi =nash14 scaled \magstephalf
\font \nashxii =nash14 scaled \magstep1
\font \nashxiv =nash14 scaled \magstep2
\font \nashxvii =nash14 scaled \magstep3
\font \nashxx =nash14 scaled \magstep4
\font \nashxxv =nash14 scaled \magstep5
\font \nashbf =nash14bf
\font \tennashbf=nash14bf % bold face fonts
\font \nashbx =nash14bf
\font \nashbxi =nash14bf scaled \magstephalf
\font \nashbxii =nash14bf scaled \magstep1
\font \nashbxiv =nash14bf scaled \magstep2
\font \nashbxvii=nash14bf scaled \magstep3
\font \nashbxx =nash14bf scaled \magstep4
\font \nashbxxv =nash14bf scaled \magstep5
\font \xnash =xnsh14 % experimental
\font \xnashbf =xnsh14bf % experimental
\font \yorn =yarborn % simple ornaments by Y. Haralambous
\def \pnash {\tennash } \def \pnashbf {\tennashbf }
\def \nash {\protect\pnash } \def \nashbf {\protect\pnashbf }
\def \strut {\vrule height 2ex depth .8ex width 0pt}
\makeatletter
\newif \if@ignore % ignore spaces after environment?
\newif \if@endpe
\def \begin #1{% small version without checks
\begingroup
\long \def \end ##1{% local version for \end{arabtext} and \end \end
\ifx ##1\par \endarabtext \endgroup
\else \csname end\string ##1\endcsname \endgroup \fi
\if@ignore \global\@ignorefalse \expandafter \ignorespaces \fi }%
\csname #1\endcsname }
\expandafter \def \csname end\string\end\endcsname{% for \end \end
\endgroup \end }
{\catcode `\"=\active % simulate german.sty
\gdef "#1{\ifx #1s\ss \else \"#1\fi }% umlaut and sharp s
}
\newdimen \marginparwidth \marginparwidth 72pt % adjust as required !
\newdimen \marginparsep \marginparsep 10pt % adjust as required !
\long \def \marginpar #1{% Plain TeX version
\dimen0 \baselineskip
\setbox0 \vtop to \dimen0
{\hsize \marginparwidth \parskip 0pt \raggedright
\noindent \strut #1\vss }%
\setbox0 \hbox to \hsize
{\hskip \hsize \hskip \marginparsep \box0 \hss }%
\ifhmode \skip0 \lastskip \hskip 0pt \strut
\vadjust {\box0 \vskip -\dimen0 }%
\ifdim \skip0 = 0pt \else \expandafter \ignorespaces \fi
\else \dimen2 \prevdepth \nointerlineskip \box0
\vskip -\dimen0 \prevdepth \dimen2
\fi }
\def \verb #1{% simple verbatim routine
\def \endverb ##1#1{\a@@verb {##1}}\endverb }
\def \\{\hfill \break } % utilities
\def \newpage {\vfill \eject }
\def \today {\number\day.\number\month.\number\year }
\let \@@input \input
\def \input #1 {\@@input #1 }
\def \UsePackage #1{\input {#1.sty}}
\let \document \relax \let \enddocument \end
\let \a@enddocument \end
\input arabtex.sty % here goes
\a@ident {arabtex.tex} {3.07 Plain TeX loader for ArabTeX} {13.07.1998}
\def \end {% report the configuration
{\arab@stat \newlinechar `$ \wlog {\arabtexconfig $}}\a@enddocument }
\makeatother
\setarab
\tracingstats=1
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
