1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2% apatch.sty
3% last minute corrections
4% see \datum and \level at the end of the file
5% template: 22.08.2003
6\def \version {3.11}
7%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8% (c) Klaus Lagally
9%     Institut fuer Informatik
10%     Universitaet Stuttgart
11%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12% this is just another *.sty file
13% you do not have to do any manual patching
14% just put this file onto the TEXINPUT path
15%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16
17\chardef \patchatcode = \catcode`\@            \catcode`\@ = 11
18\chardef \patchdqcode = \catcode`\"            \catcode`\" = 12
19
20\ifx \version \theversion \else \edef \next {\errmessage
21{This patch file only works with ArabTeX version \version }}
22\next \def \a@patchlevel {-undefined-}
23\xpa \endinput
24\fi
25
26%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27
28% presently no patches
29
30%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31% two passes with LaTeX;  see: alatex.sty
32
33%\iffalse			% no patches yet; otherwise: delete !
34\ifx \LaTeX \undefined \else
35\ifx \a@patchlevel \undefined % first patching run
36\let \a@@@document \a@document
37\a@extend \document {\setnone \input {apatch.sty}}
38\else % second pass after loading all modules
39\let \a@document \a@@@document
40\fi\fi
41
42%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43% patch patterns:
44
45\ifx \a@patchlevel \undefined % load only the first time
46% patches on first pass
47\else
48% patches on second pass
49\fi
50
51\ifx \a@hebr \undefined \else
52%\a@message {Hebrew mode patches}
53\fi
54
55\ifx \LaTeX \undefined \else
56%\a@message {LaTeX mode patches}
57\fi
58%\fi 				% no patches yet; otherwise: delete !
59
60%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61\def \datum {22.08.2003}		\def \level {-}
62%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63% aligs.sty
64
65\def \hah@end #1#2*#3#4+#5*#6{% hah, test for ligature
66% c1 m1 * c2 m21 + m22 * c3
67\ifu@gh \ifx #1\a@H
68	\else \set@act \sk@h@u
69	\fi
70\else
71\ifurd@ \ifm@lay
72	\else \set@act \sk@h@s \hah@urd #3% round h?
73	\fi
74	\ifx #1T\else
75	\ifx #3l\test@allah #4#6\else
76	\ifx #1\a@H
77	\else 	\set@act\sk@h@u
78		\if\is@end@char #3%
79		\else \set@loww@act \global\a@min 1
80		\fi
81	\fi\fi\fi
82\else
83\ifx #3l\test@allah #4#6\else
84\ifnum \chr@cls = 1 \set@chr\sk@b \put@tatwil   % 1 YntCbyp
85\else
86\ifnum \chr@cls = 3 \put@tatwil 		% 3 GHX
87\else \gim@test #6\put@tatwil
88\fi\fi\fi\fi\fi }
89
90\def \test@allah #1#2{% special ligature
91\ifx #2l\ifnum #1 = \c@shadda \set@chr\sk@l@w
92               % special short form of lam for the Name of God
93\fi\fi \put@tatwil }
94
95%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96% arabtex.sty
97
98\def \setarabfont #1{% define font switching
99        \def \the@arabfont {\tr@ceoff #1\tr@ceon }}
100
101\def \arab@output {\ifx \a@lang \a@arab \else
102\tr@ceoff % switch to Arabic output conventions
103\def@arabchars         % define character macros for Arabic
104\def@arabaccent % define accent macros for Arabic
105\def@arabvoc         % define vowel parsing routines for Arabic
106\def@arabstrut         % define strut for Arabic
107\tr@zdmg        % define standard transliteration
108\global\let \a@write \a@@write \global\let \a@write@hook \relax
109\def \set@arabfont {\the@arabfont }%
110\tr@ceon \let \a@lang \a@arab \fi }
111
112%\setnash
113
114\ifx \a@hebr \undefined \else
115%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116% hebtex.sty
117
118\def \heb@output {\ifx \a@lang \a@hebr \else
119\tr@ceoff % switch to Hebrew output conventions
120\def@hebchars % define character macros for Hebrew
121\def@hebvoc % define vowel parsing routines for Hebrew
122\def@hebstrut % define strut for Hebrew
123\global\let \a@write \heb@write \global\let \a@write@hook \relax
124%\def \set@arabfont {\the@hebfont }%
125%\def \set@arabfont {\pheb }%
126\def \set@arabfont {\hebfont }%
127\tr@heb	\tr@ceon \global\let \a@lang \a@hebr \fi }
128
129\def \sethebfont #1{% define font switching
130        \def \hebfont {\tr@ceoff #1\tr@ceon }}
131
132\pdef \sethebrew {% switch to hebrew writing
133\all@false \@ssimtrue \yahd@tstrue \heb@output }
134
135\let \setheb \sethebrew
136
137\ifx \LaTeX \undefined \else
138%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139% hefonts2.sty
140
141\def \fdef #1#2#3#4{% define NFSS2 font command
142\pdef #1{\def \pheb {\fontencoding {U}\fontfamily {#2}%
143\fontseries {#3}\fontshape {#4}\selectfont }%
144\sethebfont \pheb }%
145\all@wcmd #1}
146
147\hdef \hc {m}{n}
148\hdef \hp {bx}{n}
149\hdef \Jm {m}{Jm}
150\hdef \jm {m}{jm}
151\hdef \ds {m}{ds}
152\hdef \oj {m}{oj}
153\hdef \ta {m}{ta}
154\hdef \shlmold {m}{so}
155\hdef \shlmscr {m}{sr}
156\hdef \shlmstk {m}{sk}
157\hdef \fr    {m}{fr}
158\hdef \frbx {bx}{fr}
159\hdef \frsl {sl}{fr}
160\hdef \crml    {m}{crml}
161\hdef \crmlsl {sl}{crml}
162
163\sethebfont \hc
164
165%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166\fi % LaTeX
167%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168\fi % Hebrew
169
170%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171\def \datum {27.08.2003}		\def \level {a}
172%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173
174\ifx \a@hebr \undefined \else
175%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176
177\ifx \LaTeX \undefined
178%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179% hebtex.tex
180
181\def\smash{\relax % \relax, in case this comes first in \halign
182\ifmmode \xpa\mathpalette \xpa\mathsm@sh \else \xpa\makesm@sh
183\fi }
184
185\def \jm {\sethebfont {\jerusalem}}
186
187%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188\fi % Plain
189
190\hc % default Hebrew font
191
192%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193\fi % Hebrew
194
195\ifx \a@patchlevel \undefined % load only the first time
196\ifx \LaTeX \undefined \else
197%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198% alatex.tex
199
200\UsePackage {alists} % load LaTeX extensions for Arabic lists
201\UsePackage {asect} % load LaTeX extensions for Arabic sections
202\UsePackage {atabg} % load LaTeX extensions for Arabic tabbing
203
204%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205\fi % LaTeX
206\fi
207
208%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209\def \datum {08.09.2003}		\def \level {b}
210%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211\ifx \a@hebr \undefined \else
212%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213% heparse.sty
214
215\def \add@@shewa {% put shewa on final kaf
216\xpa\case \the\last@con \of
217%{  k R {\add@shewa }}
218{  k {\add@shewa }}
219\endcase }
220
221\let \sv@qameslongum \sv@qamesaleph
222
223%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224% hebtex.sty
225
226\pdef \setjudarab {% switch to hebrew writing
227\all@false \@ssimtrue \yahd@tstrue \jud@output }
228
229\all@wcmd \setjudarab
230
231%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232
233\def \jud@output {\ifx \a@lang \a@juda \else
234\heb@output \tr@ceoff % switch to Hebrew output conventions
235\def@judchars % define character macros for Judeo-Arabic
236\tr@zdmg % standard transliteration
237\tr@ceon \global\let \a@lang \a@juda \fi }
238
239\def \a@juda {JUDARAB}
240
241%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242% hebchrs.sty
243
244{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9
245\gdef \def@judchars {% define character macros for Judeo-Arabic
246\gdef \tc@f {\act@cd\hc@f \@finaltrue }                     % f
247\gdef \tc@C {\act@cd\hc@t \act@mod \j@d@t }                 % _t
248\gdef \tc@D {\act@cd\hc@ss \act@mod \j@d@t \@finaltrue }    % .d
249\gdef \tc@F {\act@cd\hc@d \act@mod \j@d@t }                 % _d
250\gdef \tc@G {\act@cd\hc@j \act@mod \j@d@t }                 % ^g
251\gdef \tc@R {\act@cd\hc@j \act@mod \j@@@d@t }               % .g
252\gdef \tc@T {\act@cd\hc@h \act@mod \j@@d@t }                % T
253\gdef \tc@X {\act@cd\hc@k \act@mod \j@d@t \@finaltrue }     % _h
254\gdef \tc@Z {\act@cd\hc@tt \act@mod \j@d@t }                % .z
255}}% end of dynamic definitions
256
257%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258\fi %\a@hebr
259
260\ifx \setjudarab \undefined \else
261%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262% hewrite.sty
263
264\chardef \j@d@t 5       \chardef \j@@d@t 6      \chardef \j@@@d@t 7
265
266\def \h@putmod #1{% deposit modifier
267\ifcase #1\relax
268\or \h@sindot \or \h@shindot \or \h@rdot \or \h@raphe
269\or \j@dot \or \j@@dot \or \j@@@dot \fi }
270
271\def \the@dots {\the@dot \kern2\h@p \the@dot }
272
273\def \the@gim {\raise \h@p \hbox {\the@dot }%
274\the@dot \raise \h@p \hbox {\the@dot }}
275
276\def \j@dot {\j@put@dia {.5}{1.3}{\the@dot }}
277\def \j@@dot {\j@put@dia {.5}{1.3}{\the@dots }}
278\def \j@@@dot {\j@put@dia {.5}{1.3}{\the@gim}}
279
280\def \j@put@dia #1#2#3{% put diacritic #3 at (#1,#2)
281\setbox0 \hbox to \z@ {\hss #3\hss}\dimen@ #2\a@ht
282\dimen2 \a@slant\dimen@ \advance\dimen2 #1\a@wd
283\global\setbox\ab@x \hbox
284{\rlap {\kern\dimen2 \raise\dimen@\box0 }\unhcopy\ab@x }}%
285
286%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287\fi %\setjudarab
288%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289\def \datum {17.09.2003}		\def \level {c}
290%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291% acmd.sty
292
293\let \a@c@emph \a@c@emphasize
294
295\def \arab@em #1{% overstrike group
296\def \next@command {\test@special}%
297\ifarab \setbox0 \hbox {\a@sequence {#1}}%
298        \putwordb@x {\vbox {\hrule \kern 1pt \box0}}%
299\fi
300\ifshow {\tt \string \emphasize \ }%
301\if \bgroup \nxp \next@token \a@@verb {{#1}}\else \a@@verb {#1}%
302\fi\fi
303\iftrans \underbar {{\set@transfont \trans@text #1 \end }}%
304\fi \test@token }
305
306\def \a@c@textbf #1{\a@c@bf #1\rm }
307
308%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309% for LyX: spacing.sty
310
311\let \a@c@noun \test@token
312
313\def \a@spacing {\let \a@@restore@spacing \restore@spacing
314\let \restore@spacing \a@restore@spacing }
315
316\def \a@restore@spacing {\a@par \a@@restore@spacing }
317
318\def \a@c@singlespace {\a@par \a@spacing
319\def \endsinglespace {\a@par \par }%
320\singlespace \test@token }
321
322\def \a@c@onehalfspace {\a@par \a@spacing \onehalfspace \test@token }
323
324\def \a@c@doublespace {\a@par \a@spacing \doublespace \test@token }
325
326\def \a@c@spacing #1{\a@par \a@spacing \spacing {#1}\test@token }
327
328\xpa\def \csname a@c@singlespace*\endcsname
329{\a@par \a@spacing
330\xpa\let \xpa\a@endsinglespace \csname endsinglespace*\endcsname
331\xpa\def \csname endsinglespace*\endcsname
332{\a@par \a@endsinglespace \vskip -\baselineskip }%
333\csname singlespace*\endcsname \test@token }
334
335\let \a@c@textsf \test@token % these are preliminary
336\let \a@c@textsf \a@c@textbf
337
338\let \a@c@textit \test@token
339\let \a@c@textit \a@c@textbf
340\let \a@c@textit \a@c@emph
341
342\let \a@c@textsl \test@token
343\let \a@c@textsl \a@c@textbf
344
345\let \a@c@texttt \test@token
346\let \a@c@texttt \a@c@textbf
347
348\let \a@c@underbar \test@token
349\let \a@c@underbar \a@c@textbf
350
351\def \a@c@underbar {% get next token
352\def \next@command {\arab@ub }%
353\futurelet \next@token \test@space }
354
355\def \arab@ub #1 {% underbar
356\def \next@command {\test@special}%
357\ifarab \setbox0 \hbox {\a@sequence {#1}}%
358        \putwordb@x {\vtop {\box0 \kern -5pt \hrule }}%
359\fi
360\ifshow {\tt \string \underbar \ }%
361\if \bgroup \nxp \next@token \a@@verb {{#1}}\else \a@@verb {#1}%
362\fi\fi
363\iftrans \underbar {{\set@transfont \trans@text #1 \end }}%
364\fi \test@token }
365
366%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367% awrite.sty
368
369\def \arab@testfont {% diagnose font, look for vowels and ayin
370\edef \next {\the\font }%
371\ifx \next \a@font \else
372\ifnum \tracingarab > 0 \a@message{Arabic font \next selected.}\fi
373\global\let \a@font \next \a@testfont \fi }
374
375%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376% hewrite.sty
377
378\def \heb@testfont {% diagnose font, look for vowels and ayin
379\edef \next {\the\font }%
380\ifx \next \h@font \else
381\ifnum \tracingarab > 0 \a@message {Hebrew font \next selected.}\fi
382\global\let \h@font \next \h@testfont \fi }
383
384%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385% arabrep.cls
386
387\at@arabtext {%
388	\def\a@l@section{\@dottedtocline{1}{1.0em}{1.8em}}
389	\def\a@l@subsection{\@dottedtocline{2}{2.8em}{2.1em}}
390	\def\a@l@subsubsectiom{\@dottedtocline{3}{4.9}{2.8em}}
391}
392
393%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394% arabaux.sty
395
396\def \a@gextend #1#2{% global extend command definition, no pars!
397\xpa\gdef \xpa#1\xpa{#1#2}}
398
399\def \a@extend #1#2{% extend command definition, no pars!
400\xpa\def \xpa#1\xpa{#1#2}}
401
402%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403% aparse.sty
404
405\def \syl@@quote@beg #1{% start word with quote: " #1 #2
406\if\is@vowel #1\def \next {\syl@wasla #1}% 	" v k: alif vowel
407%	\if@wasla \v@ctrue \else \add@wasla \togglev@c \fi
408	\if@wasla \v@ctrue \global\@waslafalse
409	\else \global\@waslatrue \togglev@c \fi
410\else \put@con a\togglev@c \add@wasla \put@syl  % alif implied
411	\ifx #1"\def \next {\syl@con }% 	" " k: alif wasla
412     	\else \def \next {\syl@con #1}% 	" k:   alif wasla
413	\fi
414\fi \next }
415
416%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417% asect.sty
418
419\def \a@dottedtocline #1#2#3#4#5{% Level, Indent, Numwidth, Text, Pageno
420% for Arabic mode
421\ifnum #1>\c@tocdepth
422\else \vskip \z@ plus.2\p@
423	\begin{arabtext}
424%	\tocp@rs {#2}{#3}#4 {\le@ders \thep@geno {#5}}
425	\tocp@rs {#2}{#3}#4 \le@ders \thep@geno {#5}
426	\end{arabtext}
427\fi }
428
429%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430% aboxes.sty
431
432\def \fix@act@box {% fixup position and set tatwil
433\if@high@act \advance\a@disp -\a@dsp \@high@actfalse \fi
434%\advance\a@min@dp \a@ic \advance\a@disp \a@ic
435\global\advance\a@min@dp \a@ic \advance\a@disp \a@ic
436\if@tat \put@tat \@tatfalse \fi }
437
438
439%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440% aligs.sty
441
442\def \aw@endligs #1#2*#3#4*#5{% test for final ligatures
443% c1 m1 * c2 m2 * c3
444\ifcase \act@cls \lam@lig #3#5%                 % 0 l
445\or                                             % 1 YntCbyp
446        \ifnum \act@cd = \a@yah    	\yah@end #1#3#5\else
447        \ifnum \act@cd = \a@yah@h  	\yah@end #1#3#5\else
448        \ifnum \act@cd = \a@yah@p  	\yah@p@end #1#3#5\else
449        \ifnum \act@cd = \a@yah@p@s 	\yah@p@end #1#3#5\else
450        \ifnum \act@cd = \a@nun    	\nun@end #1#3#5\else
451                                	\bah@end #1%
452        \fi\fi\fi\fi\fi
453\or \sin@lig #1#5%                              % 2 sxSD
454\or \gim@lig #1#3#5%                            % 3 GHXJ
455	\global\a@min 0
456\or \global\@highfalse \@mod@acttrue \put@tatwil % 4 cR
457\or \kaf@end #3#5%                              % 5 kgM
458\or \fah@end #1%                                % 6 fqv
459\or \ttah@lig #1#5%                             % 7 VZ
460\or \rah@end #1#2*#3#5%                         % 8 rzj \a@r \a@R
461\or                                             % 9 \a@t \a@n
462        \ifnum \act@cd = \a@yah@p@s	\yah@p@end #1#3#5\else
463        \ifnum \act@cd = \a@nun@p 	\nun@end #1#3#5\else
464                                	\bah@end #1%
465        \fi\fi
466\else \global\@highfalse \@mod@acttrue           % 10 ...
467        \ifnum \act@cd = \a@hah 	\hah@end #1#2*#3#4*#5\else
468        \ifnum \act@cd = \a@h@s 	\hah@urd #3\else
469        \ifnum \act@cd = \a@mim 	\mim@end #2*#3#5\else
470                \put@tatwil
471                \ifnum \act@cd = \a@dal \gim@test #5\else
472                \ifnum \act@cd = \a@dal@p \gim@test #5\else
473                \fi\fi
474        \fi\fi\fi
475\fi \aw@lower #5}
476
477\def \act@gim #1{% deposit ligature
478\ifnum \act@cd = \a@khah    \set@act\sk@kh@s \act@mod = 0
479\else                       \set@act\sk@hh@s \@mod@acttrue
480%\fi \a@min 1 }
481\fi \global\a@min 1 }
482
483\def \hah@end #1#2*#3#4+#5*#6{% hah, test for ligature
484% c1 m1 * c2 m21 + m22 * c3
485\ifu@gh \ifx #1\a@H
486	\else \set@act \sk@h@u
487	\fi
488\else
489\ifurd@ \ifm@lay
490	\else \set@act \sk@h@s \hah@urd #3% round h?
491	\fi
492	\ifx #1T\else
493%	\ifx #3l\test@allah #4#6\else
494	\ifx #3l\test@allah {#4}{#6}\else
495	\ifx #1\a@H
496	\else 	\set@act\sk@h@u
497		\if\is@end@char #3%
498		\else \set@loww@act \global\a@min 1
499		\fi
500	\fi\fi\fi
501\else
502%\ifx #3l\test@allah #4#6\else
503\ifx #3l\test@allah {#4}{#6}\else
504\ifnum \chr@cls = 1 \set@chr\sk@b \put@tatwil   % 1 YntCbyp
505\else
506\ifnum \chr@cls = 3 \put@tatwil 		% 3 GHX
507\else \gim@test #6\put@tatwil
508\fi\fi\fi\fi\fi }
509
510%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511% aoutput.sty
512
513\def \put@ab@x {% deposit line
514\ifhmode \unskip {\endgraf }\penalty \clubpenalty
515\parindent \z@ \parskip \z@ \else
516\ifnum \a@prevgraf = \z@ \else \penalty \widowpenalty
517\fi\fi
518\begingroup \parfillskip 0pt plus 1fill
519	\leftskip \z@ \rightskip \z@ \noindent
520	\ifdim \a@leftmargin = \z@ \else \hskip \a@leftmargin \fi
521	\box\a@tempb@x \endgraf
522%\endgroup \parindent \z@ \parskip \z@ \initlineb@x
523\endgroup \parindent \z@ \parskip \z@ plus 1pt \initlineb@x
524\advance \a@prevgraf \@ne	\a@@prevgraf \prevgraf
525\advance \a@@prevgraf \@ne	\prevgraf \a@@prevgraf }
526
527%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528\def \datum {23.10.2003}		\def \level {d}
529%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530
531\ifx \a@patchlevel \undefined % first patching run
532\a@ident {apatch.sty} {\version\level\space last minute patches } {\datum }
533	\edef \a@patchlevel {\version \level \space (\datum )}
534\else \a@message {version \a@patchlevel: second phase of patching}
535\fi
536
537%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538\catcode`\" = \patchdqcode         \catcode`\@ = \patchatcode
539\endinput
540%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541
542