%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

