diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/arabtex/apatch.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/arabtex/apatch.sty | 1987 |
1 files changed, 1987 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/arabtex/apatch.sty b/Master/texmf-dist/tex/latex/arabtex/apatch.sty new file mode 100644 index 00000000000..319bf4705f7 --- /dev/null +++ b/Master/texmf-dist/tex/latex/arabtex/apatch.sty @@ -0,0 +1,1987 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% apatch.sty +% last minute corrections +% see \datum and \level at the end of the file +% template: 22.08.2003 +\def \version {3.11} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% (c) Klaus Lagally +% Institut fuer Informatik +% Universitaet Stuttgart +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% this is just another *.sty file +% you do not have to do any manual patching +% just put this file onto the TEXINPUT path +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\chardef \patchatcode = \catcode`\@ \catcode`\@ = 11 +\chardef \patchdqcode = \catcode`\" \catcode`\" = 12 + +\ifx \version \theversion \else \edef \next {\errmessage +{This patch file only works with ArabTeX version \version }} +\next \def \a@patchlevel {-undefined-} +\xpa \endinput +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% presently no patches + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% two passes with LaTeX; see: alatex.sty + +%\iffalse % no patches yet; otherwise: delete ! +\ifx \LaTeX \undefined \else +\ifx \a@patchlevel \undefined % first patching run +\let \a@@@document \a@document +\a@extend \document {\setnone \input {apatch.sty}} +\else % second pass after loading all modules +\let \a@document \a@@@document +\fi\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% patch patterns: + +\ifx \a@patchlevel \undefined % load only the first time +% patches on first pass +\else +% patches on second pass +\fi + +\ifx \a@hebr \undefined \else +%\a@message {Hebrew mode patches} +\fi + +\ifx \LaTeX \undefined \else +%\a@message {LaTeX mode patches} +\fi +%\fi % no patches yet; otherwise: delete ! + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {22.08.2003} \def \level {-} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aligs.sty + +\def \hah@end #1#2*#3#4+#5*#6{% hah, test for ligature +% c1 m1 * c2 m21 + m22 * c3 +\ifu@gh \ifx #1\a@H + \else \set@act \sk@h@u + \fi +\else +\ifurd@ \ifm@lay + \else \set@act \sk@h@s \hah@urd #3% round h? + \fi + \ifx #1T\else + \ifx #3l\test@allah #4#6\else + \ifx #1\a@H + \else \set@act\sk@h@u + \if\is@end@char #3% + \else \set@loww@act \global\a@min 1 + \fi + \fi\fi\fi +\else +\ifx #3l\test@allah #4#6\else +\ifnum \chr@cls = 1 \set@chr\sk@b \put@tatwil % 1 YntCbyp +\else +\ifnum \chr@cls = 3 \put@tatwil % 3 GHX +\else \gim@test #6\put@tatwil +\fi\fi\fi\fi\fi } + +\def \test@allah #1#2{% special ligature +\ifx #2l\ifnum #1 = \c@shadda \set@chr\sk@l@w + % special short form of lam for the Name of God +\fi\fi \put@tatwil } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabtex.sty + +\def \setarabfont #1{% define font switching + \def \the@arabfont {\tr@ceoff #1\tr@ceon }} + +\def \arab@output {\ifx \a@lang \a@arab \else +\tr@ceoff % switch to Arabic output conventions +\def@arabchars % define character macros for Arabic +\def@arabaccent % define accent macros for Arabic +\def@arabvoc % define vowel parsing routines for Arabic +\def@arabstrut % define strut for Arabic +\tr@zdmg % define standard transliteration +\global\let \a@write \a@@write \global\let \a@write@hook \relax +\def \set@arabfont {\the@arabfont }% +\tr@ceon \let \a@lang \a@arab \fi } + +%\setnash + +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebtex.sty + +\def \heb@output {\ifx \a@lang \a@hebr \else +\tr@ceoff % switch to Hebrew output conventions +\def@hebchars % define character macros for Hebrew +\def@hebvoc % define vowel parsing routines for Hebrew +\def@hebstrut % define strut for Hebrew +\global\let \a@write \heb@write \global\let \a@write@hook \relax +%\def \set@arabfont {\the@hebfont }% +%\def \set@arabfont {\pheb }% +\def \set@arabfont {\hebfont }% +\tr@heb \tr@ceon \global\let \a@lang \a@hebr \fi } + +\def \sethebfont #1{% define font switching + \def \hebfont {\tr@ceoff #1\tr@ceon }} + +\pdef \sethebrew {% switch to hebrew writing +\all@false \@ssimtrue \yahd@tstrue \heb@output } + +\let \setheb \sethebrew + +\ifx \LaTeX \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hefonts2.sty + +\def \fdef #1#2#3#4{% define NFSS2 font command +\pdef #1{\def \pheb {\fontencoding {U}\fontfamily {#2}% +\fontseries {#3}\fontshape {#4}\selectfont }% +\sethebfont \pheb }% +\all@wcmd #1} + +\hdef \hc {m}{n} +\hdef \hp {bx}{n} +\hdef \Jm {m}{Jm} +\hdef \jm {m}{jm} +\hdef \ds {m}{ds} +\hdef \oj {m}{oj} +\hdef \ta {m}{ta} +\hdef \shlmold {m}{so} +\hdef \shlmscr {m}{sr} +\hdef \shlmstk {m}{sk} +\hdef \fr {m}{fr} +\hdef \frbx {bx}{fr} +\hdef \frsl {sl}{fr} +\hdef \crml {m}{crml} +\hdef \crmlsl {sl}{crml} + +\sethebfont \hc + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % LaTeX +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % Hebrew + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {27.08.2003} \def \level {a} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\ifx \LaTeX \undefined +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebtex.tex + +\def\smash{\relax % \relax, in case this comes first in \halign +\ifmmode \xpa\mathpalette \xpa\mathsm@sh \else \xpa\makesm@sh +\fi } + +\def \jm {\sethebfont {\jerusalem}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % Plain + +\hc % default Hebrew font + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % Hebrew + +\ifx \a@patchlevel \undefined % load only the first time +\ifx \LaTeX \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% alatex.tex + +\UsePackage {alists} % load LaTeX extensions for Arabic lists +\UsePackage {asect} % load LaTeX extensions for Arabic sections +\UsePackage {atabg} % load LaTeX extensions for Arabic tabbing + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % LaTeX +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {08.09.2003} \def \level {b} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% heparse.sty + +\def \add@@shewa {% put shewa on final kaf +\xpa\case \the\last@con \of +%{ k R {\add@shewa }} +{ k {\add@shewa }} +\endcase } + +\let \sv@qameslongum \sv@qamesaleph + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebtex.sty + +\pdef \setjudarab {% switch to hebrew writing +\all@false \@ssimtrue \yahd@tstrue \jud@output } + +\all@wcmd \setjudarab + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \jud@output {\ifx \a@lang \a@juda \else +\heb@output \tr@ceoff % switch to Hebrew output conventions +\def@judchars % define character macros for Judeo-Arabic +\tr@zdmg % standard transliteration +\tr@ceon \global\let \a@lang \a@juda \fi } + +\def \a@juda {JUDARAB} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebchrs.sty + +{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +\gdef \def@judchars {% define character macros for Judeo-Arabic +\gdef \tc@f {\act@cd\hc@f \@finaltrue } % f +\gdef \tc@C {\act@cd\hc@t \act@mod \j@d@t } % _t +\gdef \tc@D {\act@cd\hc@ss \act@mod \j@d@t \@finaltrue } % .d +\gdef \tc@F {\act@cd\hc@d \act@mod \j@d@t } % _d +\gdef \tc@G {\act@cd\hc@j \act@mod \j@d@t } % ^g +\gdef \tc@R {\act@cd\hc@j \act@mod \j@@@d@t } % .g +\gdef \tc@T {\act@cd\hc@h \act@mod \j@@d@t } % T +\gdef \tc@X {\act@cd\hc@k \act@mod \j@d@t \@finaltrue } % _h +\gdef \tc@Z {\act@cd\hc@tt \act@mod \j@d@t } % .z +}}% end of dynamic definitions + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi %\a@hebr + +\ifx \setjudarab \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.sty + +\chardef \j@d@t 5 \chardef \j@@d@t 6 \chardef \j@@@d@t 7 + +\def \h@putmod #1{% deposit modifier +\ifcase #1\relax +\or \h@sindot \or \h@shindot \or \h@rdot \or \h@raphe +\or \j@dot \or \j@@dot \or \j@@@dot \fi } + +\def \the@dots {\the@dot \kern2\h@p \the@dot } + +\def \the@gim {\raise \h@p \hbox {\the@dot }% +\the@dot \raise \h@p \hbox {\the@dot }} + +\def \j@dot {\j@put@dia {.5}{1.3}{\the@dot }} +\def \j@@dot {\j@put@dia {.5}{1.3}{\the@dots }} +\def \j@@@dot {\j@put@dia {.5}{1.3}{\the@gim}} + +\def \j@put@dia #1#2#3{% put diacritic #3 at (#1,#2) +\setbox0 \hbox to \z@ {\hss #3\hss}\dimen@ #2\a@ht +\dimen2 \a@slant\dimen@ \advance\dimen2 #1\a@wd +\global\setbox\ab@x \hbox +{\rlap {\kern\dimen2 \raise\dimen@\box0 }\unhcopy\ab@x }}% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi %\setjudarab +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {17.09.2003} \def \level {c} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% acmd.sty + +\let \a@c@emph \a@c@emphasize + +\def \arab@em #1{% overstrike group +\def \next@command {\test@special}% +\ifarab \setbox0 \hbox {\a@sequence {#1}}% + \putwordb@x {\vbox {\hrule \kern 1pt \box0}}% +\fi +\ifshow {\tt \string \emphasize \ }% +\if \bgroup \nxp \next@token \a@@verb {{#1}}\else \a@@verb {#1}% +\fi\fi +\iftrans \underbar {{\set@transfont \trans@text #1 \end }}% +\fi \test@token } + +\def \a@c@textbf #1{\a@c@bf #1\rm } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% for LyX: spacing.sty + +\let \a@c@noun \test@token + +\def \a@spacing {\let \a@@restore@spacing \restore@spacing +\let \restore@spacing \a@restore@spacing } + +\def \a@restore@spacing {\a@par \a@@restore@spacing } + +\def \a@c@singlespace {\a@par \a@spacing +\def \endsinglespace {\a@par \par }% +\singlespace \test@token } + +\def \a@c@onehalfspace {\a@par \a@spacing \onehalfspace \test@token } + +\def \a@c@doublespace {\a@par \a@spacing \doublespace \test@token } + +\def \a@c@spacing #1{\a@par \a@spacing \spacing {#1}\test@token } + +\xpa\def \csname a@c@singlespace*\endcsname +{\a@par \a@spacing +\xpa\let \xpa\a@endsinglespace \csname endsinglespace*\endcsname +\xpa\def \csname endsinglespace*\endcsname +{\a@par \a@endsinglespace \vskip -\baselineskip }% +\csname singlespace*\endcsname \test@token } + +\let \a@c@textsf \test@token % these are preliminary +\let \a@c@textsf \a@c@textbf + +\let \a@c@textit \test@token +\let \a@c@textit \a@c@textbf +\let \a@c@textit \a@c@emph + +\let \a@c@textsl \test@token +\let \a@c@textsl \a@c@textbf + +\let \a@c@texttt \test@token +\let \a@c@texttt \a@c@textbf + +\let \a@c@underbar \test@token +\let \a@c@underbar \a@c@textbf + +\def \a@c@underbar {% get next token +\def \next@command {\arab@ub }% +\futurelet \next@token \test@space } + +\def \arab@ub #1 {% underbar +\def \next@command {\test@special}% +\ifarab \setbox0 \hbox {\a@sequence {#1}}% + \putwordb@x {\vtop {\box0 \kern -5pt \hrule }}% +\fi +\ifshow {\tt \string \underbar \ }% +\if \bgroup \nxp \next@token \a@@verb {{#1}}\else \a@@verb {#1}% +\fi\fi +\iftrans \underbar {{\set@transfont \trans@text #1 \end }}% +\fi \test@token } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% awrite.sty + +\def \arab@testfont {% diagnose font, look for vowels and ayin +\edef \next {\the\font }% +\ifx \next \a@font \else +\ifnum \tracingarab > 0 \a@message{Arabic font \next selected.}\fi +\global\let \a@font \next \a@testfont \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.sty + +\def \heb@testfont {% diagnose font, look for vowels and ayin +\edef \next {\the\font }% +\ifx \next \h@font \else +\ifnum \tracingarab > 0 \a@message {Hebrew font \next selected.}\fi +\global\let \h@font \next \h@testfont \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabrep.cls + +\at@arabtext {% + \def\a@l@section{\@dottedtocline{1}{1.0em}{1.8em}}% + \def\a@l@subsection{\@dottedtocline{2}{2.8em}{2.1em}}% + \def\a@l@subsubsectiom{\@dottedtocline{3}{4.9}{2.8em}}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabaux.sty + +\def \a@gextend #1#2{% global extend command definition, no pars! +\xpa\gdef \xpa#1\xpa{#1#2}} + +\def \a@extend #1#2{% extend command definition, no pars! +\xpa\def \xpa#1\xpa{#1#2}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aparse.sty + +\def \syl@@quote@beg #1{% start word with quote: " #1 #2 +\if\is@vowel #1\def \next {\syl@wasla #1}% " v k: alif vowel +% \if@wasla \v@ctrue \else \add@wasla \togglev@c \fi + \if@wasla \v@ctrue \global\@waslafalse + \else \global\@waslatrue \togglev@c \fi +\else \put@con a\togglev@c \add@wasla \put@syl % alif implied + \ifx #1"\def \next {\syl@con }% " " k: alif wasla + \else \def \next {\syl@con #1}% " k: alif wasla + \fi +\fi \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% asect.sty + +\def \a@dottedtocline #1#2#3#4#5{% Level, Indent, Numwidth, Text, Pageno +% for Arabic mode +\ifnum #1>\c@tocdepth +\else \vskip \z@ plus.2\p@ + \begin{arabtext} +% \tocp@rs {#2}{#3}#4 {\le@ders \thep@geno {#5}} + \tocp@rs {#2}{#3}#4 \le@ders \thep@geno {#5} + \end{arabtext} +\fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aboxes.sty + +\def \fix@act@box {% fixup position and set tatwil +\if@high@act \advance\a@disp -\a@dsp \@high@actfalse \fi +%\advance\a@min@dp \a@ic \advance\a@disp \a@ic +\global\advance\a@min@dp \a@ic \advance\a@disp \a@ic +\if@tat \put@tat \@tatfalse \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aligs.sty + +\def \aw@endligs #1#2*#3#4*#5{% test for final ligatures +% c1 m1 * c2 m2 * c3 +\ifcase \act@cls \lam@lig #3#5% % 0 l +\or % 1 YntCbyp + \ifnum \act@cd = \a@yah \yah@end #1#3#5\else + \ifnum \act@cd = \a@yah@h \yah@end #1#3#5\else + \ifnum \act@cd = \a@yah@p \yah@p@end #1#3#5\else + \ifnum \act@cd = \a@yah@p@s \yah@p@end #1#3#5\else + \ifnum \act@cd = \a@nun \nun@end #1#3#5\else + \bah@end #1% + \fi\fi\fi\fi\fi +\or \sin@lig #1#5% % 2 sxSD +\or \gim@lig #1#3#5% % 3 GHXJ + \global\a@min 0 +\or \global\@highfalse \@mod@acttrue \put@tatwil % 4 cR +\or \kaf@end #3#5% % 5 kgM +\or \fah@end #1% % 6 fqv +\or \ttah@lig #1#5% % 7 VZ +\or \rah@end #1#2*#3#5% % 8 rzj \a@r \a@R +\or % 9 \a@t \a@n + \ifnum \act@cd = \a@yah@p@s \yah@p@end #1#3#5\else + \ifnum \act@cd = \a@nun@p \nun@end #1#3#5\else + \bah@end #1% + \fi\fi +\else \global\@highfalse \@mod@acttrue % 10 ... + \ifnum \act@cd = \a@hah \hah@end #1#2*#3#4*#5\else + \ifnum \act@cd = \a@h@s \hah@urd #3\else + \ifnum \act@cd = \a@mim \mim@end #2*#3#5\else + \put@tatwil + \ifnum \act@cd = \a@dal \gim@test #5\else + \ifnum \act@cd = \a@dal@p \gim@test #5\else + \fi\fi + \fi\fi\fi +\fi \aw@lower #5} + +\def \act@gim #1{% deposit ligature +\ifnum \act@cd = \a@khah \set@act\sk@kh@s \act@mod = 0 +\else \set@act\sk@hh@s \@mod@acttrue +%\fi \a@min 1 } +\fi \global\a@min 1 } + +\def \hah@end #1#2*#3#4+#5*#6{% hah, test for ligature +% c1 m1 * c2 m21 + m22 * c3 +\ifu@gh \ifx #1\a@H + \else \set@act \sk@h@u + \fi +\else +\ifurd@ \ifm@lay + \else \set@act \sk@h@s \hah@urd #3% round h? + \fi + \ifx #1T\else +% \ifx #3l\test@allah #4#6\else + \ifx #3l\test@allah {#4}{#6}\else + \ifx #1\a@H + \else \set@act\sk@h@u + \if\is@end@char #3% + \else \set@loww@act \global\a@min 1 + \fi + \fi\fi\fi +\else +%\ifx #3l\test@allah #4#6\else +\ifx #3l\test@allah {#4}{#6}\else +\ifnum \chr@cls = 1 \set@chr\sk@b \put@tatwil % 1 YntCbyp +\else +\ifnum \chr@cls = 3 \put@tatwil % 3 GHX +\else \gim@test #6\put@tatwil +\fi\fi\fi\fi\fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aoutput.sty + +\def \put@ab@x {% deposit line +\ifhmode \unskip {\endgraf }\penalty \clubpenalty +\parindent \z@ \parskip \z@ \else +\ifnum \a@prevgraf = \z@ \else \penalty \widowpenalty +\fi\fi +\begingroup \parfillskip 0pt plus 1fill + \leftskip \z@ \rightskip \z@ \noindent + \ifdim \a@leftmargin = \z@ \else \hskip \a@leftmargin \fi + \box\a@tempb@x \endgraf +%\endgroup \parindent \z@ \parskip \z@ \initlineb@x +\endgroup \parindent \z@ \parskip \z@ plus 1pt \initlineb@x +\advance \a@prevgraf \@ne \a@@prevgraf \prevgraf +\advance \a@@prevgraf \@ne \prevgraf \a@@prevgraf } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {23.10.2003} \def \level {d} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabtex.sty + +\newarabfont % as a side effect an Arabic font default is defined! +%\setnash + +% wg. utfcode.sty und inputenc.sty: + +\long\def \test@special #1{% check for special cases +\if \bgroup \nxp \next@token % arabic group + \a@@putword \def \next {\arab@group {#1}}\else +\if \relax \nxp #1% % command + \if\is@in@set #1\a@accent % known to scanner + \a@@append {#1}\def \next {\get@token }% + \else % general command + \a@@putword \def \next {\test@command #1}% + \fi \else +%\if \sp@ce \nxp \next@token % RTL space +% \a@@putword \def \next {\get@token }\else +\ifnum `#1 > 127 % inputenc command + \a@@append {#1}\def \next {\get@token}\else +\ifcat \nxp ~\nxp #1% % active character + \a@@putword \def \next {\test@command #1}\else +\if \nxp <\nxp #1\unarab@codes % Roman insert + \a@@putword \let \next \test@insert \else +\ifx $#1\unarab@codes % Math insert + \a@@putword \let \next \test@math +\else \a@@append {#1}\def \next {\get@token}% % normal case +\fi\fi\fi\fi\fi\fi \next } + +{\catcode `\< = \@other % better make sure +\gdef \a@ins {% arabic insertion or 'less' +\ifmmode \global\let \a@less < +%\else \global\let \a@less \arab@insert \leavevmode +\else \global\let \a@less \a@@insert \leavevmode + \bgroup \arab@codes \set@arabfont \global\@waslafalse \@wasfalse +\fi \a@less } +} % catcode < + +\def \a@@insert #1{% check for < > +\ifx #1>\egroup \unskip \else \xpa \arab@insert \xpa #1\fi} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% ascan.sty + +{\arab@codes % because of special characters + +\gdef \t@b@g #1{% start \ArabTeX scanner + \def \next {\sc@word {#1}}\def \sc@char {@}% +\ifcat a\nxp #1\else % letter +\apply \set@next \tocase #1\of +{ \@{\sc@endscan } % finished + '{\t@rquote } + `{\t@lquote } + *{\t@star } +\default {\sc@word {#1}} +}\endcase +\fi \next } + +\gdef \t@w@rd #1{% transform input into internal notation + \def \next {\sc@word }% +\ifx #1\@\def \next {\sc@endscan }\else % finished +\ifcat \nxp #1a% + \ifx #1a\def \next {\t@aa }\else % test for aa -> A + \ifx #1n\def \next {\t@nn }\else % test for ng, ny + \edef \sc@char {\csname sc@#1\endcsname }% letter + \ifx \sc@char \relax \def \sc@char {#1}% undef letter + \fi + \ifs@nd \edef \next {\nxp \t@asp {\sc@char }}\else \sc@put + \fi + \fi\fi \else % other character +\ifcat \nxp #1\relax \def \next {\t@cs #1}\else % control sequence +\ifx #1'\def \next {\t@hamza }\else % hamza + \def \sc@char {#1}% +\apply \set@next \tocase #1\of +{~\@ldtie{\t@tie } + .{\t@dot } + ,{\t@comma } + -{\t@minus } + `{\t@ain } + "{\t@dquote } + :={\t@colon } + ^{\t@up } + _{\t@down } + |{\t@bar } + *{\t@shadda } +\default {\t@w@@rd {#1}} +}\endcase +\fi\fi\fi\fi \next } + +} % \arab@codes + +\def \t@star {\sc@dep *} + +\let \sc@beg \t@b@g % apatch only +\let \sc@word \t@w@rd % apatch only + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aligs.sty + +\def \test@allah #1#2{% special ligature +\ifx #2l% +%\ifnum #1 = \c@shadda +\set@chr\sk@l@w + % special short form of lam for the Name of God +%\fi +\fi \put@tatwil } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aparse.sty + +\def \set@shadda {\advance \last@mod \c@shadda } + +\def \add@shadda {\ifcase \last@mod % set bit 1 +\set@shadda \or\or \set@shadda \or\or \set@shadda \or\or \set@shadda +\fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%\ifx \a@hebr \undefined \else +\iffalse +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebtex.sty + +\def \heb@output {\ifx \a@lang \a@hebr \else +\tr@ceoff % switch to Hebrew output conventions +\def@hebchars % define character macros for Hebrew +\def@hebvoc % define vowel parsing routines for Hebrew +\def@hebstrut % define strut for Hebrew +\global\let \a@write \heb@write \global\let \a@write@hook \relax +\def \set@arabfont {\the@hebfont }% +\tr@heb \tr@ceon \global\let \a@lang \a@hebr \fi } + +\def \sethebfont #1{% define font switching + \def \the@hebfont {\tr@ceoff #1\tr@ceon }} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hefonts2.sty % apatch.sty only! + +\hdef \hc {m}{n} +\sethebfont \hc + +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% abidir.sty + +\def \a@Rtobox #1{% pack the insertion into \Rinsertb@x +\setbox \Rinsertb@x \vbox {\a@hsize \a@Lwidth +\advance \a@hsize -\leftskip \advance \a@hsize -\rightskip +\a@normpen \widowpenalty \a@normpen \clubpenalty +\leftskip \z@ \rightskip \z@ +\parfillskip \z@ plus 1fil \relax \parskip \z@ +\let \a@@kern \a@kern \let \a@@mkern \a@mkern +\def \a@kern {\nobreak \a@@kern}\def \a@mkern {\nobreak \a@@mkern}% +\let \end \relax \spreadtrue \vskip \a@vglue \hbadness 10000 +\putlineb@x {\arab@strut \hskip \a@Llength }\a@spacefalse +\test@token #1 \end \unskip \unskip \vskip \a@vglue +\hbox {\box\lineb@x \hfill }}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.sty + +\gdef \h@putvowel #1{% vowel mark +\ifx #1\relax \relax \else \def \hadj {0}\def \vadj {0}% +\ifnum \act@cd = \hc@P \let\vadj \v@adj \put@b@x{\hc@Pv }\else % vowel-ayin +%\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.85}\else % final kaph +\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.75}\else % final kaph +\ifnum \act@cd = \hc@r \def \hadj {.35}\else % resh +\ifnum \act@cd = \hc@d \def \hadj {.2}\else % daleth +\ifnum \act@cd = \hc@q \def \hadj {.1}\else % qoph +\ifnum \act@cd = \hc@y \def \hadj {.1}\else % yod +\ifnum \act@cd = \hc@w \def \hadj {.15}\else % waw +\ifnum \act@cd = \hc@si \def \hadj {-.1}\else % sin +\fi\fi\fi\fi\fi\fi\fi\fi +\setbox0 \hbox to \a@wd {\hss #1\hss}\dimen@ \vadj\a@ht +\advance \dimen@ -2\h@p +\dimen2 \a@slant\dimen@ \advance\dimen2 \hadj\a@wd +\global\setbox\ab@x \hbox +{\rlap {\kern\dimen2 \raise\dimen@\box0 }\unhcopy\ab@x }\fi } + +\gdef \h@putvowel #1{% vowel mark +\ifx #1\relax \relax \else \def \hadj {0}\def \vadj {0}% +\ifnum \act@cd = \hc@P \let\vadj \v@adj \put@b@x{\hc@Pv }\else % vowel-ayin +%\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.85}\else % final kaph +\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.75}\else % final kaph +\ifnum \act@cd = \hc@r \def \hadj {.35}\else % resh +\ifnum \act@cd = \hc@d \def \hadj {.2}\else % daleth +\ifnum \act@cd = \hc@q \def \hadj {.1}\else % qoph +\ifnum \act@cd = \hc@y \def \hadj {.1}\else % yod +\ifnum \act@cd = \hc@w \def \hadj {.15}\else % waw +\ifnum \act@cd = \hc@si \def \hadj {-.1}\else % sin +\fi\fi\fi\fi\fi\fi\fi\fi +\setbox0 \hbox to \a@wd {\hss #1\hss}\dimen@ \vadj\a@ht +\advance \dimen@ -2\h@p +\dimen2 \a@slant\dimen@ \advance\dimen2 \hadj\a@wd +\global\setbox\ab@x \hbox +{\rlap {\kern\dimen2 \raise\dimen@\box0 }\unhcopy\ab@x }\fi } + +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% utfcode.sty + +\ifx \utfatcode \undefined \else + +{\catcode `\^ 7 \catcode `\^^M=13 +\gdef \utf@word #1{% transform input into internal notation +\ifx #1\@ \def \next {\utf@end }\else % finished +\ifx #1-\def \next {\utf@minus }\else % +\ifx #1/\def \next {\sc@back #1}\else % +\ifnum `#1="D6 \def \next {\utf@dvi }\else % +\ifnum `#1="D7 \def \next {\utf@dvii }\else % +\ifnum `#1="D8 \def \next {\utf@dviii }\else % +\ifnum `#1="D9 \def \next {\utf@dix }\else % +\ifnum `#1="DA \def \next {\utf@da }\else % +\ifnum `#1="DB \def \next {\utf@db }\else % +\ifnum `#1="E2 \def \next {\utf@eii }\else % + \def \next {\utf@asci #1}% +\fi % +\fi\fi\fi\fi\fi\fi % +\fi\fi\fi \next }% +} % catcode 13 + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \utf@eii #1#2{% segment E2 + \u@lb `#1\relax \advance \u@lb -128 + \u@lq `#2\relax \advance \u@lq -128 + \edef \sc@char {}% +\ifnum \u@lb = 0 +\ifnum \u@lq = 12 % ZERO WIDTH NON-JOINER (U+200C) +% \edef \sc@char {||}\else + \edef \sc@char {\n@xp\a@ba}\else +\ifnum \u@lq = 13 % ZERO WIDTH JOINER (U+200D) + \edef \sc@char {-}\else +% \edef \sc@char {\n@xp\a@bb}\else +\fi\fi\fi \utf@next } + +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \utf@dix #1{% segment D9 + \u@lb `#1\relax \advance \u@lb -"80 + \u@lq \u@lb \divide \u@lq 8 +\ifcase \u@lq \edef \sc@char {\ifcase \u@lb + B\or f\or q\or k\or l\or m\or n\or h\or \fi }% +\or \advance \u@lb -8 \edef \sc@char {\ifcase \u@lb + w\or Y\or y\or "aN\or "uN\or "iN\or "a\or "u\or \fi }% +\or \advance \u@lb -"10 \edef \sc@char {\ifcase \u@lb + "i\or "\n@xp\a@Ze\or ""\or "\n@xp\a@ZE\or + "\n@xp\a@Za\or "\n@xp\a@Zu\or \or \or \fi }% +\or \advance \u@lb -"18 \edef \sc@char {}% +\or \advance \u@lb -"20 \edef \sc@char {\ifcase \u@lb + 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or \fi }% +\or \advance \u@lb -"28 \edef \sc@char {\ifcase \u@lb + 8\or 9\or \a@pc\or \f@sila\or + \f@sila\or *\or \n@xp\a@b\or \n@xp\a@bq\or \fi }% +\or \advance \u@lb -"30 \edef \sc@char {\ifcase \u@lb + "\n@xp\a@a\or "\or "\n@xp\a@ZA\or "\n@xp\a@ZU\or +% N"\n@xp\a@Za\or Qa\or Qw\or Qw"u\or \fi }% +N"\n@xp\a@Za\or N"\n@xp\a@Za A\or N"\n@xp\a@Za w\or N"\n@xp\a@Za w"u\or \fi }% +\or \advance \u@lb -"38 \edef \sc@char {\ifcase \u@lb +% Qy\or \n@xp\a@t\or \n@xp\a@T\or \n@xp\a@ab\or + N"\n@xp\a@Za Y\or \n@xp\a@t\or \n@xp\a@T\or \n@xp\a@ab\or + \n@xp\a@v\or \n@xp\a@at\or p\or \n@xp\a@ac\or \fi }% +\fi \utf@next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \utf@db #1{% segment DB + \u@lb `#1\relax \advance \u@lb -"80 + \u@lq \u@lb \divide \u@lq 8 +\ifcase \u@lq \edef \sc@char {\ifcase \u@lb + Qh\or \n@xp\a@h\or \n@xp\a@B\or \n@xp\a@j\or + \n@xp\a@aU\or \n@xp\a@aV\or \n@xp\a@W\or \n@xp\a@w\or \fi }% +\or \advance \u@lb -8 \edef \sc@char {\ifcase \u@lb + \n@xp\a@aw\or \n@xp\a@au\or \n@xp\a@av\or \n@xp\a@X\or + Y\or L\or \n@xp\a@az\or \n@xp\a@x\or \fi }% +\or \advance \u@lb -"10 \edef \sc@char {\ifcase \u@lb + \n@xp\a@Y\or \n@xp\a@y\or E\or \n@xp\a@ay\or + B\or \n@xp\a@H\or \or \or \fi }% +\or \advance \u@lb -"18 \edef \sc@char {}% +\or \advance \u@lb -"20 \edef \sc@char {}% +\or \advance \u@lb -"28 \edef \sc@char {\ifcase \u@lb + \or \or \or \or + \or \or \n@xp\a@bd\or \n@xp\a@br\or \fi }% +\or \advance \u@lb -"30 \edef \sc@char {\ifcase \u@lb + 0\or 1\or 2\or 3\or + 4\or 5\or 6\or 7\or \fi }% +\or \advance \u@lb -"38 \edef \sc@char {\ifcase \u@lb + 8\or 9\or \n@xp\a@aI\or \n@xp\a@aN\or + \n@xp\a@P\or \n@xp\a@ai"\n@xp\a@Zi\or + \n@xp\a@ao"\n@xp\a@Zi\or \n@xp\a@bh-\or \fi }% +\fi \utf@next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabtoks.sty + +\def \a@br {\sk@r ,25 } % rah with roof +\def \a@ba {\sk@W , 0 } % ZERO WIDTH NON-JOINER +\def \a@bb {\sk@spc , 0 } % ZERO WIDTH JOINER +\def \a@bb {\sk@N , 0 } % ZERO WIDTH JOINER +\def \a@bd {\sk@d ,25 } % dal with roof +\def \a@bh {\sk@h ,25 } % hah with roof +\def \a@bq {\sk@q@s , 0 } % qaf without dots +\def \a@br {\sk@r ,25 } % rah with roof + +\gdef \sk@Q {10 ,\a@hamzc ,0 ,{{0,0}{0,0}{0,0}{0,0}}} % hamza char +\gdef \sk@W {10 ,\a@break ,0 ,{{0,0}{0,0}{0,0}{0,0}}} % small space 34 +\gdef \sk@Wp {10 ,\a@break ,1 ,{{0,0}{0,0}{0,0}{0,0}}} % small space 34 +\gdef \sk@N {10 ,\a@break ,1 ,{{0,0}{0,0}{0,0}{0,0}}} % small space 34 +\gdef \sk@spc {10 ,\a@smspc ,1 ,{{0,0}{0,0}{2,0}{2,0}}} % small space 36 +\gdef \sk@spcn {10 ,\a@smspc ,0 ,{{0,0}{0,0}{2,0}{2,0}}} % small space 36 +\gdef \sk@skip{10 ,\a@skip ,1 ,{{0,0}{0,0}{2,0}{2,0}}} % small space 37 +\gdef \sk@skipn{10 ,\a@skip ,0 ,{{0,0}{0,0}{2,0}{2,0}}} % small space 37 + +\def \a@bc {\sk@@ , 0 } % empty +%\def \a@bc {\sk@skipn , 0 } % empty +\def \a@be {\sk@@ , 0 } % empty +%\def \a@be {\sk@spc , 0 } % empty +\def \a@bf {\sk@@ , 0 } % empty +%\def \a@bf {\sk@spcn , 0 } % empty +\def \a@bg {\sk@@ , 0 } % empty +%\def \a@bg {\sk@skip , 0 } % empty +\def \a@bi {\sk@@ , 0 } % empty +%\def \a@bi {\sk@Wp , 0 } % empty +\def \a@bj {\sk@@ , 0 } % empty +\def \a@bk {\sk@@ , 0 } % empty +\def \a@bl {\sk@@ , 0 } % empty +\def \a@bm {\sk@@ , 0 } % empty +\def \a@bn {\sk@@ , 0 } % empty +\def \a@bo {\sk@@ , 0 } % empty +\def \a@bp {\sk@@ , 0 } % empty +\def \a@bs {\sk@@ , 0 } % empty +\def \a@bt {\sk@@ , 0 } % empty +\def \a@bu {\sk@@ , 0 } % empty +\def \a@bv {\sk@@ , 0 } % empty +\def \a@bw {\sk@@ , 0 } % empty +\def \a@bx {\sk@@ , 0 } % empty +\def \a@by {\sk@@ , 0 } % empty +\def \a@bz {\sk@@ , 0 } % empty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% atrans.sty + +\let \tr@@zdmg \tr@zdmg + +\iffalse % inserted in 3.11f +\def \tr@zdmg {% patches for Uzbek +\tr@def \a@H {\"a}% +\tr@def \a@ab {\"e}% +} +\fi % inserted in 3.11f + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% ascan.sty + +\def \setcode #1{% switch the input encoding +\lowercase {\def \sc@code {#1}% +\ifx \sc@code \sc@oldcode \else +\begingroup \def \sc@lookup ##1#1##2##3\@@ {\endgroup ##2}% +\xpa \sc@lookup \sc@table #1\sc@default \@@ \fi }% +%\let \sc@oldcode \sc@code } +\global\let \sc@oldcode \sc@code } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aligs.sty + +\def \hah@urd #1{% wavy hah +% c2 +\if\is@end@char #1\set@act\sk@h % isolated round h +\fi +\ifx #1\a@h +\@mod@actfalse % no mark below +\fi +\ifnum \chr@cls = 1 \set@chr\sk@b % YntCbyp normal height +\fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {16.11.2003} \def \level {d+UCS} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% witbhs.sty + +\if\AND{\isx\bhscode\undefined}{\isx\buckatcode\undefined}\else +\def \test@@token {\iftest@command \tracingmacros 0 \fi +\futurelet \next@token \test@space } + +\let \test@token \test@@token % get next token + +\xpa\def \xpa\kill@space \space {% gobble LTR space +\futurelet \next@token \test@space } + +\xpa\def \xpa\kill@sp@ce \sp@ce {% gobble RTL space +\futurelet \next@token \test@space } + +\def \test@space {% check for LTR space +\if \space \nxp\next@token \xpa\kill@space +\else \xpa\test@sp@ce \fi } + +\def \test@sp@ce {% check for RTL space +\if \sp@ce \nxp\next@token \xpa\kill@sp@ce +\else \xpa\next@command \fi } + +\long\def \test@special #1{% check for special cases +\ifcat \bgroup \nxp \next@token % arabic group + \def \next {\arab@group {#1}}\else +\if\is@in@set #1\a@first % normal case + \def \next {\test@word #1}\else +\if \relax \nxp #1% % command + \def \next {\test@command #1}\else +\ifcat \nxp ~\nxp #1% % active character + \def \next {\test@command #1}\else +\if \nxp <\nxp #1\unarab@codes % Roman insert + \let \next \test@insert \else +\ifx $#1\unarab@codes % Math insert + \let \next \test@math \else + \def \next {\test@word #1}% % normal case +\fi\fi\fi\fi\fi\fi \next } + +{\catcode `\^^a0 12 +\gdef \test@word #1 {% process next RTL word +\a@test@word #1^^a0\@@ } + +\gdef \a@test@word #1^^a0#2\@@ {% process next RTL word +\ifarab \putwordb@x {\arab@item #1\@@ }\fi +\a@spacetrue \a@showinput {#1}% +\ifx \relax #2\relax \def \next {\test@token }\else +\def \next {\test@token #2 }\fi +\next } +}% catcode ^^a0 + +\fi % witbhs + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabaux.sty + +\def \tr@ceoff {% suspend temporarily, local, no nesting! +\edef \tr@ceon {\nxp\tracingmacros \the\tracingmacros \relax }% +\tracingmacros 0 } + +\def \notr@ce {% suspend temporarily, for NFSS only, no nesting! +\edef \dotr@ce {\nxp\tracingmacros \the\tracingmacros \relax}% +\tracingmacros 0 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {08.12.2003} \def \level {e} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aboxes.sty + +\def \put@tie {% deposit ties between characters +\setbox0 \hbox {\char \the\act@tie }% +\setbox2 \hbox {\char \the\act@tie \/}% +\ifdim \a@disp = \z@ \unhcopy0 +\else \raise\a@disp \hbox {\unhcopy0 }\fi +\global\advance\a@disp \wd2 \global\advance\a@disp -\wd0 } + +\def \set@high@act {% prepare raising of actual character +\global\advance \a@disp \a@dsp \global\@high@acttrue } + +\def \set@low@act {% lower actual character +\global\advance \a@disp -.25ex } + +\def \set@loww@act {% lower actual character +\global\advance \a@disp -.50ex } + +\def \set@lowww@act {% lower actual character +\global\advance \a@disp -.75ex } + +\def \fix@act@box {% fixup position and set tatwil +\if@high@act \global\advance\a@disp -\a@dsp \global\@high@actfalse \fi +\global\advance\a@min@dp \a@ic \global\advance\a@disp \a@ic +\if@tat \put@tat \@tatfalse \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%\ifx \a@patchlevel \undefined % load only the first time +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% atrans.sty + +\iffalse +\def \tr@zdmg {% patches for Uzbek +\tr@@zdmg +\tr@def \a@H {\"a}% +\tr@def \a@ab {\"e}% +} +\fi +\let \tr@zdmg \tr@@zdmg % nullify problems in version 3.11d + +\gdef \tr@@aword #1{% transcribe rest of word +\let \tr@old \tr@act \def \tr@act {#1}% +\case #1\of +{ >{\@gobble } + \cap {\c@ptrue \tr@aword } +% |"^\a@e{\tr@aword } + |"^{\tr@aword } + -{-\tr@aword } +% XlEeQ{\csname tr@@\string #1\endcsname } + TXlEeQ{\csname tr@@\string #1\endcsname } + \a@a NUW{\setc@p #1\kill@alif } + P{\tr@P \tr@aword } + aiu{\tr@wasla #1} + \a@Ze{\xpa\tr@aword \tr@old } +\default {\@vocalfalse + \ifcat \nxp #1-#1\else \setc@p #1% + \fi \tr@aword } +}\endcase } + +\gdef \tr@@T #1{\@vocalfalse +\ifx #1|h\let \next \tr@aword \else +t\def \next {\tr@aword #1}\fi \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%\fi +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebchrs.sty + +{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +\gdef \def@judchars {% define character macros for Judeo-Arabic +\gdef \tc@f {\act@cd\hc@f \@finaltrue } % f +\gdef \tc@C {\act@cd\hc@t \act@mod \j@d@t } % _t +\gdef \tc@D {\act@cd\hc@ss \act@mod \j@d@t \@finaltrue } % .d +\gdef \tc@F {\act@cd\hc@d \act@mod \j@d@t } % _d +\gdef \tc@G {\act@cd\hc@j \act@mod \j@d@t } % ^g +\gdef \tc@H {\act@cd \hc@hh } % .h +\gdef \tc@R {\act@cd \hc@j } % .g +\gdef \tc@T {\act@cd\hc@h \act@mod \j@@d@t } % T +\gdef \tc@V {\act@cd \hc@tt } % .t +\gdef \tc@X {\act@cd\hc@k \act@mod \j@d@t \@finaltrue } % _h +\gdef \tc@Z {\act@cd\hc@tt \act@mod \j@d@t } % .z +}}% end of dynamic definitions + +\fi % Hebrew +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {12.02.2004} \def \level {f} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% cp1256.sty + +\ifx \awinatcode \undefined \else + +\def \set@awin {% select the CP 1256 scanner +\let \sc@beg \awin@beg \let \sc@word \awin@word +\let \sc@back \sc@@back \let \sc@endscan \awin@endscan +\global\let \a@scan \awin@scan \setawin@codes +\awin@catcodes \yahdots +\global \a@paren {}% +\a@message {input encoding set to Windows CP 1256 conventions}} + +\xpa \def \xpa \sc@table \xpa {\sc@table % add the CP 1256 encoding +arabwin\set@awin cp1256\set@awin } + +\gdef \awin@beg #1{% start CP 1256 scanner +\h@mzafalse \iz@fetfalse \yahdots \@ssimfalse +\novocalize % because of explicit quoting +\ifx #1"\def \next {\awin@lquote}\else +\ifx #1^^c7\def \next {\awin@alif}\else +\def \next {\awin@word #1}\fi\fi \next } + +\gdef \awin@lquote {% initial quote +\def \sc@char {`}\sc@put \awin@beg } + +\gdef \awin@dquote {% double quote, intermediate version +%\def \sc@char {\a@dq}\sc@put \awin@word } +\def \sc@char {\nxp\a@dq }\sc@put \awin@word } + +\gdef \awin@dquote {% right quote +\def \sc@char {'}\sc@put \awin@word } + +\fi % cp1256 + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabtex.sty + +\long\def \test@special #1{% check for special cases +%\if \bgroup \nxp \next@token % arabic group +\ifcat \bgroup \nxp \next@token % arabic group + \a@@putword \def \next {\arab@group {#1}}\else +\if \relax \nxp #1% % command + \if\is@in@set #1\a@accent % known to scanner + \a@@append {#1}\def \next {\get@token }% + \else % general command + \a@@putword \def \next {\test@command #1}% + \fi \else +%\if \sp@ce \nxp \next@token % RTL space +% \a@@putword \def \next {\get@token }\else +\ifnum `#1 > 127 % inputenc command + \a@@append {#1}\def \next {\get@token}\else +\ifcat \nxp ~\nxp #1% % active character + \a@@putword \def \next {\test@command #1}\else +\if \nxp <\nxp #1\unarab@codes % Roman insert + \a@@putword \let \next \test@insert \else +\ifx $#1\unarab@codes % Math insert + \a@@putword \let \next \test@math +\else \a@@append {#1}\def \next {\get@token}% % normal case +\fi\fi\fi\fi\fi\fi \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% ascan.sty + +{\arab@codes % because of special characters + +\gdef \t@b@g #1{% start \ArabTeX scanner + \def \next {\sc@word {#1}}\def \sc@char {@}% +\ifcat a\nxp #1\else % letter +\apply \set@next \tocase #1\of +{ \@{\sc@endscan } % finished + '{\t@rquote } + `{\t@lquote } + *{\t@star } + +{\t@plus } + ={\t@equ } +\default {\sc@word {#1}} +}\endcase +\fi \next } + +\gdef \t@w@rd #1{% transform input into internal notation + \def \next {\sc@word }% +\ifx #1\@\def \next {\sc@endscan }\else % finished +\ifcat \nxp #1a% + \ifx #1a\def \next {\t@aa }\else % test for aa -> A + \ifx #1n\def \next {\t@nn }\else % test for ng, ny + \edef \sc@char {\csname sc@#1\endcsname }% letter + \ifx \sc@char \relax \def \sc@char {#1}% undef letter + \fi + \ifs@nd \edef \next {\nxp \t@asp {\sc@char }}\else \sc@put + \fi + \fi\fi \else % other character +\ifcat \nxp #1\relax \def \next {\t@cs #1}\else % control sequence +\ifx #1'\def \next {\t@hamza }\else % hamza + \def \sc@char {#1}% +\apply \set@next \tocase #1\of +{~\@ldtie{\t@tie } + .{\t@dot } + ,{\t@comma } + -{\t@minus } + `{\t@ain } + "{\t@dquote } + :{\t@colon } + ^{\t@up } + _{\t@down } + |{\t@bar } + *{\t@shadda } + +{\t@madda } + ={\t@sukun } +\default {\t@w@@rd {#1}} +}\endcase +\fi\fi\fi\fi \next } + +} % \arab@codes + +\def \t@star {\sc@dep *} +\def \t@plus {\sc@dep +} +\def \t@equ {\sc@dep =} + +\let \sc@beg \t@b@g % apatch only +\let \sc@word \t@w@rd % apatch only + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aparse.sty + +\def \a@parse #1>{% parse token sequence into syllables +\iftest@parse \tracingmacros = 1 +\iftest@scan \else \a@verb (#1)>\fi\fi +\csname a@parse@hook\endcsname +\last@con ={.}\last@mod = 0 \last@voc = 0 \global\@highfalse +\global \sv@revwd ={}\global \a@revwd ={}\syl@beg #1<<<>% +\iftest@parse \tracingmacros = 0 % +\xpa \a@verb \xpa (\the\a@revwd )>\fi } + +\def \sv@@I #1{% long i +\ifx #1N\def \next {\sv@Zi }\else +\ifk@sh \put@syl \put@con y\add@kasraspec + \put@syl \def \next {\syl@con #1}% +\else \add@kasra \put@syl \def \next {\test@B #1\sv@Ivwl }% +\fi\fi \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% verses.sty + +\ifx \verseatcode \undefined \else + +% define some verse dimensions, verses will be centered +\def \setversedim #1#2{% set length of half-verse, separation +\a@hvlen #1\relax \a@hvsep #2\relax +\ifx \LaTeX \undefined \a@hvind \hsize +\else \a@hvind \textwidth \fi +\advance \a@hvind -\a@hvsep +\divide \a@hvind 2 \advance \a@hvind -\a@hvlen } + +\def \connverses #1#2#3{% first half-verse, connection, second half-verse +\cond{\ifdim 0pt > \a@hvind }% +{\spreadbox \a@hvlen {#1}\par \hfill }% first block +{\noindent \hspace \a@hvind \spreadbox \a@hvlen {#1}}\fi +\spreadbox \a@hvsep {#2}% separator +\spreadbox \a@hvlen {#3}% second block +\par } + +\fi % verses.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% awrite.sty + +\def \a@@write #1>{% Arabic output +\iftest@write \tracingmacros 1 +\iftest@parse \else \a@verb (#1 )>\fi\fi +\csname a@write@hook\endcsname +\ifa@@write \arab@testfont \aw@beg #1>0+0*>0+0*>\fi +\iftest@write \tracingmacros 0 \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.sty + +\ifx \a@hebr \undefined \else + +\def \heb@write #1>{% Hebrew output routine +\iftest@write \tracingmacros = 1 +\iftest@parse \else \a@verb (#1)>\fi\fi +\csname a@write@hook\endcsname +\ifa@@write \heb@testfont \heb@beg #1>0+0*>\fi +\iftest@write \tracingmacros = 0 +\fi } + +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {26.02.2004} \def \level {g} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% ascan.sty + +\def \sc@restore {% restore scanner defaults +\let \vocalize \v@calize \let \fullvocalize \fullv@calize +\let \sc@beg \t@b@g \let \sc@word \t@w@rd +\let \sc@back \sc@@back \let \sc@endscan \sc@@endscan +\global\let \a@scan \a@@scan \seta@codes +\let \arab@codes \a@arab@codes +\let \unarab@codes \a@unarab@codes } + +\def \t@comma #1{% after , +\apply \set@char \tocase #1\of +{ a{a\nxp \a@H } + A{\nxp \a@a \nxp \a@H } + c{\ift@rk J\else \nxp \a@c \fi } + d{\ifp@sht \nxp \a@aA \else + \ifs@nd \nxp \a@D \else \nxp \a@d \fi\fi } + e{e\nxp \a@H } + g{\nxp \a@L } + h{\nxp \a@h } +% n{\ifs@nd \nxp \a@an \else \nxp \a@M \fi } + n{\ifs@nd \nxp \a@an \else \nxp \a@m \fi } + r{\ifp@sht \nxp \a@q \else + \ifs@nd \nxp \a@ar \else \nxp \a@r \fi\fi } + s{\ift@rk x\else \nxp \a@s \fi } + t{\ifp@sht \nxp \a@v \else + \ifs@nd \nxp \a@at \else \nxp \a@t \fi\fi } + z{\ift@rk D\else \nxp \a@z \fi } +}\endcase \t@tail ,#1} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% utf8.sty + +\ifx \utfatcode \undefined \else + +\gdef \set@utfc {% select the UTF-8 scanner +\global\let \a@scan \utfc@scan +\let \sc@beg \utf@beg +\let \sc@word \utf@word +\global\a@digits = {0123456789}% +\global\a@first = {Ö×ØÙÚÛ}% +\catcode ` 11 +\a@message {input encoding set to UTF-8 conventions}} + +\fi % utf8.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% bhs.sty + +\ifx \bhsatcode \undefined \else + +% dynamic definitions for BHS Hebrew coding +{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +\catcode `\"=12 \catcode `\&=12 \catcode `\$ 12 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\gdef \setbhs@codes {% activate and change some codes +\globaldefs=1 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \sc@A {a} \def \sc@B {b} \def \sc@C {S} \def \sc@D {d} +\def \sc@E {e} \def \sc@F {A} \def \sc@G {g} \def \sc@H {h} +\def \sc@I {i} \def \sc@J {t} \def \sc@K {k} \def \sc@L {l} +%\def \sc@M {m} \def \sc@N {n} \def \sc@O {O} \def \sc@P {p} +\def \sc@M {m} \def \sc@N {n}\def\sc@O{\n@xp\a@o}\def \sc@P {p} +\def \sc@Q {q} \def \sc@R {r} \def \sc@S {s} \def \sc@T {t} +%\def \sc@U {u} \def \sc@V {D} \def \sc@W {W} \def \sc@X {X} +\def \sc@U {u} \def \sc@V {D} \def \sc@W {w} \def \sc@X {X} +\def \sc@Y {y} \def \sc@Z {z} \def \sc@@ {QQ} +\a@digits = {0123456789} \a@paren = {[]} +\a@first = {)+(##&$":.,*0123456789} +\globaldefs=0 } +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +}% end of dynamic definitions for BHS + +{\arab@codes +\catcode `\& 12 \catcode `\$ 12 + +\gdef \bhs@beg #1#2{% start BHS scanner +\@ssimfalse \def \next {\bhs@word #1#2}% +\ifx #1\@\def \next {\sc@endscan #2}\else % finished +\ifx #2\@\def \next {\bhs@testpara #1#2}\else +\ifx #2?\def \next {\bhs@testpara #1#2}\else +\fi\fi\fi \next } + +\gdef \bhs@word #1#2{% transform input into internal notation + \def \next {\bhs@word #2}% +\ifx #1\@\def \next {\sc@endscan #2}\else % finished +\ifx #1]\def \next {\bhs@word }\else +\ifx #10\def \next {\bhs@zero #2}\else +\ifx #17\def \next {\bhs@seven #2}\else +% +\if\is@in@set #1\a@digits \def \next {\bhs@word }\else +\ifx #1?\def \next {\bhs@query #2}\else +\ifx #1:\def \next {\bhs@colon #2}\else +\ifx #1|\def \sc@char {|}\sc@put \else +% +\ifx #1.\def \sc@char {\nxp \a@Zu }\sc@put \else +\ifx #1'\def \sc@char {'}\sc@put \else +\ifx #1)\def \sc@char {Q}\sc@put \else +\ifx #1+\def \sc@char {C}\sc@put \else +% +\ifx #1(\def \sc@char {P}\sc@put \else +\if #1\a@hash \def \sc@char {\nxp \a@S }\sc@put \else +\ifx #1&\def \sc@char {\nxp \a@s }\sc@put \else +\ifx #1$\def \sc@char {x}\sc@put \else +% +\ifx #1"\def \sc@char {\nxp \a@E }\sc@put \else +\ifx #1-\def \sc@char {B}\sc@put \else +\ifx #1*\def \sc@char {*}\sc@put \else +\ifcat \nxp #1a\edef \sc@char {\csname sc@#1\endcsname }% + \sc@put +\fi\fi\fi\fi +\fi\fi\fi\fi +\fi\fi\fi\fi +\fi\fi\fi\fi +\fi\fi\fi\fi +\next } +} % arabcodes + +\fi % bhs.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% cp1255.sty + +\ifx \hwinatcode \undefined \else + +\def \hwin@catcodes {% assignments for CP 1255 +\countdef \is@m=2 \is@m = 192 \is@n = 64 +\loop \catcode \is@m = 11 \global\lccode \is@m = \is@n +\ifnum 255 > \is@m \advance \is@m 1 \advance \is@n 1 \repeat +\is@m=0 \is@n=0 \catcode `\^^a0 12 } + +{\hwin@catcodes +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dynamic definitions for Hebrew +{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\gdef \sethwin@codes {% activate and change some codes +\globaldefs=1 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \sc@^^c0 {"\n@xp\a@e} \def \sc@^^c1 {"\n@xp\a@I} +\def \sc@^^c2 {"\n@xp\a@A} \def \sc@^^c3 {"\n@xp\a@O} +\def \sc@^^c4 {"i} \def \sc@^^c5 {"\n@xp\a@E} +\def \sc@^^c6 {"e} \def \sc@^^c7 {"a} +\def \sc@^^c8 {"A} \def \sc@^^c9 {"\n@xp\a@o} +\def \sc@^^ca {L} \def \sc@^^cb {"u} +\def \sc@^^cc {"\n@xp\a@Zu} \def \sc@^^cd {|} +\def \sc@^^ce {B} \def \sc@^^cf {"\n@xp\a@Zo} + +\def \sc@^^d0 {K} \def \sc@^^d1 {"\n@xp\a@Ze} +\def \sc@^^d2 {"\n@xp\a@Za} \def \sc@^^d3 {:} +\def \sc@^^d4 {"\n@xp\a@Zi} \def \sc@^^d5 {w-w} +\def \sc@^^d6 {wy} \def \sc@^^d7 {y-y} +\def \sc@^^d8 {@} \def \sc@^^d9 {@} \def \sc@^^da {@} \def \sc@^^db {@} +\def \sc@^^dc {@} \def \sc@^^dd {@} \def \sc@^^de {@} \def \sc@^^df {@} + +\def \sc@M {M} %\def \sc@N {N} +\def \sc@^^e0 {Q} \def \sc@^^e1 {b} \def \sc@^^e2 {g} \def \sc@^^e3 {d} +\def \sc@^^e4 {h} \def \sc@^^e5 {w} \def \sc@^^e6 {z} \def \sc@^^e7 {X} +\def \sc@^^e8 {C} \def \sc@^^e9 {y} \def \sc@^^ea {k} \def \sc@^^eb {k} +\def \sc@^^ec {l} \def \sc@^^ed {m} \def \sc@^^ee {m} \def \sc@^^ef {n} + +\def \sc@^^f0 {n} \def \sc@^^f1 {s} \def \sc@^^f2 {P} \def \sc@^^f3 {p} +\def \sc@^^f4 {p} \def \sc@^^f5 {S} \def \sc@^^f6 {S} \def \sc@^^f7 {q} +\def \sc@^^f8 {r} \def\sc@^^f9{\n@xp\a@S} \def\sc@^^fa {t} \def \sc@^^fb {@} +\def \sc@^^fc {@} \def \sc@^^fd {@} \def \sc@^^fe {@} \def \sc@^^ff {@} +\a@digits = {0123456789} +\a@paren = {()[]} +\a@first = {"`^^e6} +\globaldefs=0 } +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +}% end of dynamic definitions for Arabic +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\fi % cp1255.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ifx \a@hebr \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hescan.sty + +\def \hwin@catcodes {% assignments for CP 1255 +\countdef \is@m=2 \is@m = 192 \is@n = 64 +\loop \catcode \is@m = 11 \global\lccode \is@m = \is@n +\ifnum 255 > \is@m \advance \is@m 1 \advance \is@n 1 \repeat +\is@m=0 \is@n=0 \catcode `\^^a0 12 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% heparse.sty + +\def \sv@ay {% Yiddish ay +\put@syl \put@con \a@h \v@ctrue \add@fatha \put@syl \test@patf } + +\def \sv@ey {% Yiddish ey +\put@syl \put@con \a@h \put@syl \test@patf } + +\def \sv@oy {% Yiddish oy +\put@syl \put@con \a@p \put@syl \test@patf } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hebchrs.sty + +\tc@def \a@h {\act@cd \hc@ey } % yod yod +\tc@def \a@p {\act@cd \hc@oy } % waw yod + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % Hebrew + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% verses.sty + +\ifx \verseatcode \undefined \else + +%\newdimen \a@@hvlen +\csname newdimen\endcsname \a@@hvlen + +% define some verse dimensions, verses will be centered +\def \setversedim #1#2{% set lengths of half-verse, separation +\ifx \LaTeX \undefined \a@hvind \hsize +\else \a@hvind \textwidth \fi +\a@hvlen #1\relax \advance \a@hvind -\a@hvlen +\ifx [#2\def \next {\set@verseI [}\else +\a@@hvlen \a@hvlen \def \next {\set@@verse {#2}}\fi \next } + +\def \set@verseI [#1]{% optional parameter +\a@@hvlen #1\relax \set@@verse } + +\def \set@@verse #1{% separation +\advance \a@hvind -\a@@hvlen \a@hvsep #1\relax +\advance \a@hvind -\a@hvsep \divide \a@hvind 2 } + +\def \connverses #1#2#3{% first half-verse, connection, second half-verse +\cond{\ifdim 0pt > \a@hvind }% +{\spreadbox \a@hvlen {#1}\\ \hfill }% first block +{\noindent \hskip \a@hvind \relax \spreadbox \a@hvlen {#1}}\fi +\spreadbox \a@hvsep {#2}% separator +\spreadbox \a@@hvlen {#3}% second block +\tracingmacros 0 +\par } + +\def \a@c@halfverses #1#2{% optional parameter? +%\tracingmacros 1 +\cond{\ifx [#2}{\half@verses {#1}[}% +{\half@verses {#1}[\hfill]{#2}}\fi } + +\def \half@verses #1[#2]#3{% first[mid]second +\test@token \connverses {#1}{#2}{#3}} + +\fi % verses.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% utfcode.sty + +\ifx \utfatcode \undefined \else + +\def \utf@dvii #1{% segment D7 + \u@lb `#1\relax \advance \u@lb -128 + \u@lq \u@lb \divide \u@lq 8 +\ifcase \u@lq \edef \sc@char + {\ifcase \u@lb + K\or "\n@xp\a@Ze\or "\n@xp\a@Za\or :\or "\n@xp\a@Zi\or \or \or \or + \fi }% +\or \advance \u@lb -8 \edef \sc@char {}% +\or \advance \u@lb -16 \edef \sc@char + {\ifcase \u@lb + Q\or b\or g\or d\or h\or w\or z\or X\or + \fi }% +\or \advance \u@lb -24 \edef \sc@char + {\ifcase \u@lb + C\or y\or k\or k\or l\or m\or m\or n\or + \fi }% +\or \advance \u@lb -32 \edef \sc@char + {\ifcase \u@lb + n\or s\or P\or p\or p\or S\or S\or q\or + \fi }% +\or \advance \u@lb -40 \edef \sc@char + {\ifcase \u@lb + r\or \n@xp\a@S \or t\or \or \or \or \or \or + \fi }% +\or \advance \u@lb -48 \edef \sc@char + {\ifcase \u@lb +% w\n@xp\a@U w\or wy\or y\n@xp\a@U y\or '\or + \n@xp\a@w \or \n@xp\a@p \or \n@xp\a@h \or '\or + ''\or \or \or \or + \fi }% +\or \advance \u@lb -56 \edef \sc@char + {\ifcase \u@lb + \or \or \or \or \or \or \or "|\or + \fi }% +\fi \utf@next } + +\fi % utfcode.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% yiddish.sty + +\ifx \yidatcode \undefined \else + +\def \yid@t #1{% ts ? +\ifx #1s\def \next {\yid@ts }\else +\def \sc@char {C}\def \next {\yid@word #1}\sc@put +\fi \next } + +\def \yid@ts #1{% tsh ? +\ifx #1h\def \sc@char {C\nxp\a@S}\def \next {\yid@word }\else +\def \sc@char {S}\def \next {\yid@word #1}% +\fi \sc@put \next } + +\fi % yiddish.sty + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {15.03.2004} \def \level {h} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% abidir.sty + +\ifx \a@patchlevel \undefined % first patching run + +\newtoks \a@oldoutput +\newbox \a@oldbox +\newbox \a@newbox +\newdimen \a@prevdepth + +\def \a@@Rinsert #1{% RL insertion inside Ltext +%\tracingmacros 1 +\ifshow \a@@verb {#1}\fi % verbating listing +\ifarab \a@Rinsert {#1}\fi % arabic writing +\iftrans \set@transfont \trans@text #1 \end \/\fi +\ifnum \tracingarab > \@ne \message {>}\fi +\unskip \egroup } + +\def \a@Rinsert #1{% put a sequence of RL words into Ltext +%\leavevmode % go to hmode if not there already +\ifinner \a@sequence {#1}% inside a \hbox: append +\else \a@@Rsplit {#1}% splice into the current paragraph +\fi } + +\def \a@box@aparm {% Arabic parameters for vbox +\let \end \relax \def \next@command {\test@special}\transfalse +\def \a@kern {\nobreak\kern.05em } \def \a@mkern {\nobreak\kern-.05em } +\showfalse \spreadtrue \a@hsize \a@Lwidth +\advance \a@hsize -\leftskip \advance \a@hsize -\rightskip +\leftskip \z@ \rightskip \z@ +%\advance \a@hsize 20pt % TENTATIVE +\def \arab@space {\nobreak\hskip 5pt plus 4pt minus 1pt }% +\def \tat@skip {0.04ex plus 0.5ex }} + +\def \a@box@rparm {% Roman parameters for vbox +\hbadness 10000 \tolerance 5000 +\parskip \z@ \parfillskip \z@ plus 1fil \relax \vskip \a@vglue } + +\def \a@@Rsplit #1{% splice RL words into the current paragraph +\tracingmacros 0 +\bgroup \global\a@oldoutput = \output +$$\global\a@lines \prevgraf \global\a@Lwidth \displaywidth +$${\endgraf }% +\ifinner \a@back@line \else +\global\output = {\a@newoutput }\eject +\fi \vskip -\parskip \prevdepth \a@prevdepth +\ifvoid \a@oldbox +\else \advance \a@lines -1 \setbox\a@oldbox \hbox +{\hskip -\leftskip \unhbox\a@oldbox \unskip \unskip \unpenalty }\fi +\setbox\Rinsertb@x \vbox {\a@box@rparm \a@box@aparm +\putlineb@x {\copy\a@oldbox }\a@spacefalse +\test@token #1 \end \unskip \unskip +\vskip \a@vglue \hbox {\box\lineb@x \hfill }}% +\a@Rgetline +\setbox\tempb@x \hbox {\unhbox \tempb@x \unskip \unpenalty + \global\setbox \a@newbox \lastbox }% +\noindent \prevgraf \a@lines +\ifdim \wd\a@newbox = 0pt \unhbox \tempb@x +\else \unhbox \a@newbox +\ifdim \wd\tempb@x = 0pt +\else \space \ins@skip \unhbox \tempb@x +\fi\fi \penalty -9999 +\ifvbox \Rinsertb@x \break \a@Runpack \fi +\egroup } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\gdef \a@back@line {% skip back +\dimen0 \baselineskip \unskip \unpenalty \setbox0 \lastbox +\dimen2 \lastskip \unskip \unskip \unpenalty +\global\setbox \a@oldbox \lastbox +\ifvoid \a@oldbox \else \dimen2 \lastskip \unskip +\advance\dimen0 -\ht\a@oldbox \fi +\advance\dimen0 -\dimen2 \global\a@prevdepth \dimen0 \unskip }% + +\gdef \a@newoutput {% intermediate output routine +\global\output = \a@oldoutput +%\showbox 255 +\setbox 255 \vbox {\unvbox 255 % put back to MVL +\a@back@line }\unvbox 255 } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\fi % first run + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {29.04.2004} \def \level {i1} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% buck.sty + +\ifx \buckatcode \undefined \else +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dynamic definitions for Arabic +{\catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\gdef \setbuck@codes {% activate and change some codes +\globaldefs=1 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \sc@@ {@} \def \sc@c {@} \def \sc@e {@} +\def \sc@B {@} \def \sc@C {J} \def \sc@G {g} \def \sc@I {Qi} +\def \sc@J {j} \def \sc@L {@} \def \sc@M {@} \def \sc@O {Qa} +\def \sc@P {p} \def \sc@Q {@} \def \sc@R {@} \def \sc@U {Qw} +\def \sc@V {v} \def \sc@W {Qw} \def \sc@X {@} + +\sc@def ' {Q|} \sc@def | {QA} \sc@def > {Qa} \sc@def & {Qw} +\sc@def < {Qi} \sc@def ## {|} \def \sc@A {A} \def \sc@b {b} +\def \sc@p {T} \def \sc@t {t} \def \sc@v {C} \def \sc@j {G} +\def \sc@H {H} \def \sc@x {X} \def \sc@d {d} \sc@def * {F} +\def \sc@r {r} \def \sc@z {z} \def \sc@s {s} \sc@def $ {x} +\def \sc@S {S} \def \sc@D {D} \def \sc@T {V} \def \sc@Z {Z} +\def \sc@E {P} \def \sc@g {R} \sc@def _ {|B} +\def \sc@f {f} \def \sc@q {q} \def \sc@k {k} \def \sc@l {l} +\def \sc@m {m} \def \sc@n {n} \def \sc@h {h} \def \sc@w {w} +\def \sc@Y {Y} \def \sc@y {y} \def \sc@F {"aN} \def \sc@N {"uN} +\def \sc@K {"iN} \def \sc@a {"a} \def \sc@u {"u} \def \sc@i {"i} +%\sc@def ~ {@} \def \sc@o {""} \sc@def ` {"\n@xp \a@a} +\sc@def ~ {\n@xp \a@Ze} \def \sc@o {""} \sc@def ` {"\n@xp \a@a} +\sc@def ^ {"'} +\sc@def = {"\n@xp \a@ZE } + +\a@digits = {0123456789} \a@paren = {()[]} +\a@first = {"`} +\setbuck@codes@hook +\globaldefs=0 } +\global\let \setbuck@codes@hook \relax +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +}% end of dynamic definitions for Arabic +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +{\catcode `\[ 1 \catcode `\{ 11 +\gdef \buck@beg #1[% start the TB scanner +\h@mzafalse \iz@fetfalse \novocalize \@ssimfalse + \def \next [\buck@word #1}% +\ifx #1\@ \def \next [\sc@endscan }\else % finished +\ifx #1{\def \next [\buck@lbrace }\else +\ifx #1"\def \next [\buck@lquote }\else +\ifx #1A\def \next [\buck@alif }\else +\fi\fi\fi\fi \next } +} % catcodes 1 and 11 + +{\catcode `\^^M=13 \catcode `\~ 11 % +\gdef \buck@word #1#2{% transform input into internal notation + \def \next {\buck@word #2}% +\ifx #1\@ \def \next {\sc@endscan #2}\else % finished +\ifx #1-\def \next {\buck@minus #2}\else % +\ifx #1"\def \next {\buck@rquote #2}\else % +\ifx #1y\def \next {\buck@yah #2}\else % +\if \nxp ^^M\nxp #1\def \next {\buck@par #1#2}\else % active character +\ifx #1#2\def \next {\buck@two #1}\else % + \ifcat a\nxp #1\edef \sc@char {\csname sc@#1\endcsname }% + \else \def \sc@char {\nxp #1}% + \fi % + \sc@put % +\fi\fi\fi\fi\fi\fi \next }% +} % catcodes 13 and 11 + +\def \buck@alif #1{% specials? +\def \next {\buck@word }% +\if \nxp #1=\def \sc@char {QA}\sc@put \else +\if \nxp #1@\def \sc@char {"}\sc@put \else +\if \nxp #1^\def \sc@char {Qa}\sc@put \else +\if \nxp #1_\def \sc@char {Qi}\sc@put \else +\def \sc@char {A}\def \next {\buck@word #1}\sc@put +\fi\fi \fi\fi \next } + +\def \buck@yah #1{% hamza? +\def \next {\buck@word }% +\if \nxp #1^\def \sc@char {Qy}\sc@put \else +\def \sc@char {y}\def \next {\buck@word #1}\sc@put +\fi \next } + +\def \set@buck {% substitute new scanner +\let \sc@beg \buck@beg \let \sc@word \buck@word +\let \sc@back \sc@@back \let \sc@endscan \sc@@endscan +\global\let \a@scan \a@@scan \setbuck@codes +\let \arab@codes \buck@codes \let \unarab@codes \unbuck@codes +\let \test@special \buck@special +\message {input coding set to Tim Buckwalter's encoding conventions}} + +\def \buck@cat {% change catcodes +\catcode `\# 11 \catcode `\= 11 \catcode `\^ 11 \catcode `\~ 11 +\catcode `\' 11 \catcode `\| 11 \catcode `\> 11 \catcode `\& 11 +\catcode `\< 11 \catcode `\} 11 \catcode `\* 11 \catcode `\$ 11 +\catcode `\_ 11 \catcode `\~ 11 \catcode `\` 11 \catcode `\{ 11 } + +\def \buck@recat {% change catcodes back +\catcode `\# 6 \catcode `\= 12 \catcode `\^ 7 \catcode `\~ 13 +\catcode `\' 12 \catcode `\| 12 \catcode `\> 12 \catcode `\& 4 +\catcode `\< 12 \catcode `\} 2 \catcode `\* 12 \catcode `\$ 3 +\catcode `\_ 8 \catcode `\~ 13 \catcode `\` 12 \catcode `\{ 1 } + +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aparse.sty + +\def \syl@hamzaverb #1{% verbatim hamza, #1 = carrier +\case #1\of +{ |{\put@con Q} + A{\put@con a\add@madda \@sukfalse } + y{\put@con Y\add@hamza \ifqur@n \add@hamzalow \fi } + u{\put@con w\add@hamza } + i{\put@con a\add@hamza \add@hamzalow } +\default {\put@con #1\add@hamza } +}\endcase \syl@voctest } + +\def \syl@quote@voc #1{% continue syllable with quote: " #1 #2 +\case #1\of +{ B{\togglev@c \add@sukun \put@syl \syl@con #1} + "{\togglev@c \add@sukun \put@syl \syl@beg } + |{\syl@@quote@voc } + '{\add@hamza \syl@voctest } +\default {\togglev@c \syl@voctest #1}% vowel: sukun +}\endcase } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% hewrite.sty + +\ifx \a@hebr \undefined \else + +\ifx \a@patchlevel \undefined % load only the first time +\else +\global\let \@@set@hcls \set@hcls + +\gdef \set@hcls {% +\@@set@hcls +\global\let \h@putvowel \h@put@@vowel +} + +\fi + +\gdef \h@put@@vowel #1{% vowel mark +\ifx #1\relax \relax \else \def \hadj {0}\def \vadj {0}% +\ifnum \act@cd = \hc@P \let\vadj \v@adj \put@b@x{\hc@Pv }\else % vowel-ayin +%\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.85}\else % final kaph +\ifnum \act@cd = \hc@kf \def \hadj {-.1}\def \vadj {.80}\else % final kaph +\ifnum \act@cd = \hc@r \def \hadj {.35}\else % resh +\ifnum \act@cd = \hc@d \def \hadj {.2}\else % daleth +\ifnum \act@cd = \hc@q \def \hadj {.1}\else % qoph +\ifnum \act@cd = \hc@y \def \hadj {.1}\else % yod +\ifnum \act@cd = \hc@w \def \hadj {.15}\else % waw +\ifnum \act@cd = \hc@si \def \hadj {-.1}\else % sin +\fi\fi\fi\fi\fi\fi\fi\fi +\setbox0 \hbox to \a@wd {\hss #1\hss}\dimen@ \vadj\a@ht +\advance \dimen@ -1\h@p +\dimen2 \a@slant\dimen@ \advance\dimen2 \hadj\a@wd +\global\setbox\ab@x \hbox +{\rlap {\kern\dimen2 \raise\dimen@\box0 }\unhcopy\ab@x }\fi } + +\fi % a@hebr + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {17.05.2004} \def \level {j} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% abidir.sty + +\def \a@RL {% RTL insertion inside LRtext +\ifaRL \else \aRLtrue + \let \a@RLpar \par % prepare for normal baselines + \edef \a@lslimit {\lineskiplimit \the\lineskiplimit}% + \def \par {\a@RLpar \let \par \a@RLpar \a@lslimit \aRLfalse }% +\fi +\ifhmode \lineskiplimit -.9\baselineskip +\fi % enforce uniform baselines +\bgroup \arab@codes \set@arabfont \@waslafalse \@wasfalse \a@@Rinsert } + +\def \a@Rinsert #1{% put a sequence of RL words into Ltext +\leavevmode % go to hmode if not there already +\ifinner \a@sequence {#1}% inside a \hbox: append +\else \a@@Rsplit {#1}% splice into the current paragraph +\fi } + +\def \a@@Rsplit #1{% splice RL words into the current paragraph +\bgroup \global\a@oldoutput = \output +$$\global\a@lines \prevgraf \global\a@Lwidth \displaywidth +$${\endgraf }% +\ifinner \a@back@line \else +\global\output = {\a@newoutput }\eject +\fi \vskip -\parskip \global\prevdepth \a@prevdepth +\ifvoid \a@oldbox \else +\advance \a@lines -1 \setbox\a@oldbox \hbox +{\hskip -\leftskip \unhbox\a@oldbox \unskip \unskip \unpenalty }\fi +\setbox\Rinsertb@x \vbox {\a@box@rparm \a@box@aparm + \putlineb@x {\copy\a@oldbox }\a@spacefalse + \test@token #1 \end \unskip \unskip + \vskip \a@vglue \hbox {\box\lineb@x \hfill }}% +\a@Rgetline +\setbox\tempb@x \hbox {\unhbox \tempb@x \unskip \unpenalty + \global\setbox \a@newbox \lastbox }% +\noindent \prevgraf \a@lines \unhcopy \a@newbox +\ifdim \wd\a@newbox = 0pt \else +\ifdim \wd\a@newbox = \parindent \else \space \ins@skip +\fi\fi \unhbox \tempb@x \penalty -9999 +\ifvbox \Rinsertb@x \break \a@Runpack \fi +\egroup } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% alatex.sty + +\def \a@endx {\if@ignore \@ignorefalse \xpa\ignorespaces \fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {24.05.2004} \def \level {k} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabtex.sty + +\def \all@false {% reset language code to default +\k@rdfalse \t@rkfalse \m@ghfalse \urd@false \p@shtfalse +\s@ndfalse \m@layfalse \u@ghfalse \k@srafalse \k@shfalse +\h@mzafalse \@ssimfalse \iz@fetfalse \yahd@tsfalse \k@fsfalse \f@rsnfalse +\let \vocalize \v@calize \let \fullvocalize \fullv@calize +\arab@output \catcode`\<=\active } + +\pdef \setuighur {% switch language specific processing +\let \vocalize \novocalize \let \fullvocalize \novocalize +\novocalize \all@false \@ssimfalse \h@mzafalse +\u@ghtrue \def \a@defaultfont {\setnash }} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% abidir.sty + +\def \a@RL {% RTL insertion inside LRtext +\ifaRL \else \aRLtrue + \let \a@RLpar \par % prepare for normal baselines + \edef \a@lslimit {\lineskiplimit \the\lineskiplimit}% + \def \par {\a@RLpar \let \par \a@RLpar \a@lslimit \aRLfalse }% +\fi +\lineskiplimit -.9\baselineskip % enforce uniform baselines +\bgroup \arab@codes \set@arabfont \@waslafalse \@wasfalse \a@@Rinsert } + +\def \a@@Rsplit #1{% splice RL words into the current paragraph +\bgroup \global\a@oldoutput = \output +$$\global\a@lines \prevgraf \global\a@Lwidth \displaywidth +$${\endgraf }% +\ifinner \a@back@line \else +\global\output = {\a@newoutput }\eject +\fi \global\prevdepth \a@prevdepth +\ifvoid \a@oldbox \else \advance \a@lines -1 +\setbox\a@oldbox \hbox {\hskip -\leftskip \unhbox\a@oldbox + \unskip \unskip \unpenalty \unpenalty }% +\fi +\setbox\Rinsertb@x \vbox {\a@box@rparm \a@box@aparm + \putlineb@x {\hbox {\unhcopy\a@oldbox }}\a@spacefalse + \test@token #1 \end \hbox {\box\lineb@x \hfill }}% +\a@Rgetline +\setbox\tempb@x \hbox {\unhbox \tempb@x \unskip \unpenalty + \global\setbox \a@newbox \lastbox }% +\noindent \prevgraf \a@lines \unhcopy \a@newbox +\ifdim \wd\a@newbox = 0pt \else +\ifdim \wd\a@newbox = \parindent \else +\ifdim \wd\tempb@x = 0pt \else + \space \LRskip +\fi\fi\fi \unhbox \tempb@x +\ifvbox \Rinsertb@x \break \a@Runpack \fi +\egroup } + +\gdef \a@newoutput {% intermediate output routine +\global\output = \a@oldoutput +%\showbox 255 +\setbox 255 \vbox {\unvbox 255 % put back to MVL +\a@back@line }\unvbox 255 } + +\def \a@Runpack {% unpack all lines from the insertion +\loop \a@Rgetline \unhbox \tempb@x \unskip \unskip \break +\ifvbox \Rinsertb@x \repeat \unpenalty \RLskip } + +\def \LRskip {\hskip \z@ plus 0.1em }% before RL insertion (right) +\def \RLskip {\hskip \z@ plus 0.1em }% after RL insertion (left) + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \a@Linsert #1{% splice Ltext into RL paragraph +\putwordb@x {\RLskip }\a@spacefalse \a@@Linsert {#1}\a@Lunpack +\putwordb@x {\LRskip }\a@spacetrue \arab@codes +\tracingmacros 0 +\test@token } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {22.06.2004} \def \level {l} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% alists.sty + +\def \a@c@item +{\@ifnextchar [{\a@@item }{\@noitemargtrue +\expandafter \a@@item \expandafter [\@itemlabel ]}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% awrite.sty + +\let \ac@high \relax + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% arabrep.cls + +\at@arabtext {% switch to Arabic terms + \def\labelenumi{\theenumi\nospace-} + \def\labelenumiii{\theenumiii\nospace)} +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% aparse.sty + +\def \test@B #1#2{% tatweel or ligature break +#2#1}% deposit vowel carrier + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \datum {24.01.2005} \def \level {m} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\ifx \a@patchlevel \undefined % first patching run +\a@ident {apatch.sty} {\version\level\space last minute patches } {\datum } + \edef \a@patchlevel {\version \level \space (\datum )} +\else \a@message {version \a@patchlevel: second phase of patching} +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\catcode`\" = \patchdqcode \catcode`\@ = \patchatcode +\endinput +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |