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