% arabdmac.tex %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Macro definitions for Report 1993/11
% November 22, 1993
% Lagally
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\let \subsection \section
\let \section \chapter

\font\mf=logo10 \hyphenchar\mf=-1

\def \ArabTeX {Arab\protect\TeX}      

\def \METAFONT {{\mf METAFONT}}

\def \XeT {X\kern-.125em \lower.5ex\hbox{E}\kern-.1667em T}

\def \atab #1 #2{%table entry
\expandafter \verb \expandafter +\string #1+ & \<#1> & #2}

\def \atabl #1 #2 #3{%table entry
\expandafter \verb \expandafter +\string #1+ & \<#2> & #3}

\def \atabii #1 #2{%table entry
\expandafter \verb \expandafter +\string #1+ & \<#1> &\arabfalse 
\transtrue \<#1> & \arabtrue \transfalse #2}

\def \atabiii #1 #2 #3{%table entry
\expandafter \verb \expandafter +\string #1+ & \<#2> &\arabfalse 
\transtrue \<#1> & \arabtrue \transfalse #3}

\def \atabiv #1 #2 #3 #4{%table entry
\expandafter \verb \expandafter +\string #1+ & \<#2> & {\em #3} & {\em #4}}

\def \astrut {\hbox {\vrule height 15pt depth 9pt width 0pt}}

\let \oldbra <

\makeatletter
\def \bra #1>{% verbatim within angle brackets
\hbox{\tt \string <\a@verb #1>\unskip>}}
\makeatother

\catcode `\<=\active
\let < \bra

\def \s #1{\oalign{#1\crcr\hidewidth
    \vbox to.2ex{\hbox{\kern-0.25em\char'25}\vss}\hidewidth}}

\def \abjad {{\em 'ab\v{g}ad\/}}
\def \ain {{\em `ayn\/}}
\def \alif {{\em 'alif\/}}
\def \Allah {{\em 'Allah\/}}
\def \bah {{\em b\=a'\/}}
\def \dad {{\em \d{d}\=ad\/}}
\def \dal {{\em d\=al\/}}
\def \damma {{\em \d{d}amma\/}}
\def \dhal {{\em \b{d}\=al\/}}
\def \fah {{\em f\=a'\/}}
\def \fatha {{\em fat\d{h}a\/}}
\def \gaf {{\em g\=af\/}}
\def \ghain {{\em \.gayn\/}}
\def \gim {{\em \v{g}\={\i}m\/}}
\def \hah {{\em h\=a'\/}}
\def \hamza {{\em hamza\/}}
\def \harakat {{\em \d{h}arak\=at\/}}
\def \hhah {{\em \d{h}\=a'\/}}
\def \izafet {{\em i\d{z}\=afet\/}}
\def \kaf {{\em k\=af\/}}
\def \kashida {{\em ka\v{s}\={\i}da}}
\def \kasra {{\em kasra\/}}
\def \khah {{\em \s{h}\=a'\/}}
\def \lam {{\em l\=am\/}}
\def \madda {{\em madda\/}}
\def \maqsura {{\em maq\d{s}\=ura\/}}
\def \marbuta {{\em marbu\d{t}a\/}}
\def \mim {{\em m\={\i}m\/}}
\def \nun {{\em n\=un\/}}
\def \pah {{\em p\=a'\/}}
\def \pish {{\em pi\v{s}\/}}
\def \qaf {{\em q\=af\/}}
\def \rah {{\em r\=a'\/}}
\def \shadda {{\em \v{s}adda\/}}
\def \shin {{\em \v{s}\={\i}n\/}}
\def \sad {{\em \d{s}\=ad\/}}
\def \sin {{\em s\={\i}n\/}}
\def \sukun {{\em suk\=un\/}}
\def \tah {{\em t\=a'\/}}
\def \tashdid {{\em ta\v{s}d\={\i}d\/}}
\def \tanween {{\em tanw\={\i}n\/}}
\def \tanwin {{\em tanw\={\i}n\/}}
\def \tatweel {{\em tatw\={\i}l\/}}
\def \tatwil {{\em tatw\={\i}l\/}}
\def \thah {{\em \b{t}\=a'\/}}
\def \ttah {{\em \d{t}\=a'\/}}
\def \vah {{\em v\=a'\/}}
\def \wasla {{\em wa\d{s}la\/}}
\def \waw {{\em w\=aw\/}}
\def \yah {{\em y\=a'\/}}
\def \yahiwahdat {{\em y\=a'-i-wa\d{h}dat\/}}
\def \zir {{\em z\={\i}r\/}}
\def \zwarakay {{\em zwarakay\/}}
\def \zzah {{\em \d{z}\=a'\/}}
\def \zay {{\em z\=ay\/}}

\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def \arabdocindex {{% print the index

% the following is black magic!

\catcode `\_=12 \catcode `\"=12 \catcode `\~=12 
\catcode `\|=12 \catcode `\<=12 \catcode `\>=12
\let \1 _ \let \2 " \let \3 ~ \let \4 | \let \5 < \let \6 >

\catcode `\_=13 \catcode `\"=13 \catcode `\~=13 
\catcode `\|=13 \catcode `\<=13 \catcode `\>=13

\def _{{\tt \1}} \def "{{\tt \2}} \def ~{{\tt \3}}
\def |{{\tt \4}} \def <{{\tt \5}} \def >{{\tt \6}}

{\catcode `\|=0 \catcode `\\=12 |gdef |B{\}}
\def \|{{\tt \B \4}}

\let \oldindex \theindex
\def \theindex {\oldindex \thispagestyle{headings}}

\input arabdoc.ind % index

}}
}