%%%%%%%%%%%%%%%%%%%%%%%%%%%%% arabtex.tex %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Input this file in 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
% 28.04.94
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\message {Plain TeX setup for arabtex.sty, as of 28.04.94}

\def \makeatletter {\catcode `\@ = 11 }
\def \makeatother  {\catcode `\@ = 12 }

\let\typeout=\message

\let\em\it

\font\tennash=nash14       % add fonts as needed.
\font\tennashbf=nash14bf
\font\yorn=yarborn

\def \strut {\vrule height 2ex depth .8ex width 0pt}

\def \pnash {\tennash }
\def \pnashbf {\tennashbf }

\def \protect #1{#1}

\def \nash {\protect\pnash }
\def \nashbf {\protect\pnashbf }

\makeatletter

\newif \if@ignore % ignore spaces after environment?

\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 \ignorespaces \fi }%
% \def \begin {% local version for inner environments (illegal)
%   \errmessage {contents will be skipped}\skipenv }%
\csname #1\endcsname }

\long \def \skipenv #1#2{% skip inner environments
\ifx #1\end \let \next \relax
\else \def \next {\skipenv #2}\fi \next }

\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 !
\newdimen \marginparsep \marginparsep 10pt      % adjust !

\long \def \marginpar #1{% Plain version
\ifhmode \dimen0 .8ex \else \dimen0 \prevdepth \fi
\setbox2 \vtop {\hsize \marginparwidth \parskip 0pt \raggedright
                \noindent \strut #1\par }%
\setbox0 \hbox to \hsize
         {\hskip \hsize \hskip \marginparsep \box2 \hss }%
\ht0 -\dimen0 \dp0 \dimen0
\ifhmode \skip0 \lastskip \hskip 0pt \strut \vadjust {\box0 }%
      \ifdim \skip0 = 0pt \else \ignorespaces \fi
\else \nointerlineskip \box0 
\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

\makeatother

\input arabtex.sty % here goes
\setarab

\tracingstats=1
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

