From aec1c1b77ee51b9359530d61cc7b8df2a37c7685 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:51:33 +0000 Subject: arabtex git-svn-id: svn://tug.org/texlive/trunk@673 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/arabtex/ascan.sty | 502 ++++++++++++++++++++++++++ 1 file changed, 502 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/arabtex/ascan.sty (limited to 'Master/texmf-dist/tex/latex/arabtex/ascan.sty') diff --git a/Master/texmf-dist/tex/latex/arabtex/ascan.sty b/Master/texmf-dist/tex/latex/arabtex/ascan.sty new file mode 100644 index 00000000000..94786041904 --- /dev/null +++ b/Master/texmf-dist/tex/latex/arabtex/ascan.sty @@ -0,0 +1,502 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%% ascan.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% ascan.sty +% ArabTeX +% Standard Scanner +% 22.08.2003 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% (c) Klaus Lagally +% Institut fuer Formale Methoden der Informatik +% Universitaet Stuttgart +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\a@ident {ascan.sty} {3.11 standard ZDMG input encoding } {22.08.2003} + +\chardef \testatcode = \catcode`\@ \catcode`\@ = 11 + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dynamic definitions for Arabic +{\catcode `\^ 7 \catcode `\ =9 \catcode `\^^M=9 \catcode `\^^I=9 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\gdef \seta@codes {% define standard \ArabTeX input coding +\globaldefs=1 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def \sc@@ {@} % illegal character +\def \sc@a {a} +\def \sc@b {b} +\def \sc@c {\ift@rk G\else \ifs@nd J\else + \ifm@lay J\else c\fi\fi\fi } +\def \sc@d {d} +\def \sc@e {e} +\def \sc@f {\ifm@gh \n@xp \a@F \else f\fi } +\def \sc@g {\ifm@lay \n@xp \a@K \else g\fi } +\def \sc@h {h} +\def \sc@i {i} +\def \sc@j {\ift@rk j\else G\fi } +\def \sc@k {\ifs@nd \n@xp \a@ax \else + \ifk@fs \n@xp \a@k \else k\fi\fi } +\def \sc@l {l} +\def \sc@m {m} +\def \sc@n {n} +\def \sc@o {o} +\def \sc@p {\ifm@lay v\else p\fi } +\def \sc@q {\ifm@gh \n@xp \a@Q \else q\fi } +\def \sc@r {r} +\def \sc@s {s} +\def \sc@t {t} +\def \sc@u {u} +\def \sc@v {\ifm@gh \n@xp \a@V \else \ift@rk w\else + \ifm@lay \n@xp \a@x \else v\fi\fi\fi } +\def \sc@w {\ifu@gh \n@xp \a@X \else w\fi } +\def \sc@x {X} +\def \sc@y {y} +\def \sc@z {z} +\def \sc@A {A} +\def \sc@B {B} +\def \sc@C {@} +\def \sc@D {@} +\def \sc@E {E} +\def \sc@F {@} +\def \sc@G {\n@xp \a@g } % Pashto gaf with ring +\def \sc@H {\n@xp \a@H } % Heh marbouta +\def \sc@I {I} +\def \sc@J {@} +\def \sc@K {K} +\def \sc@L {@} +\def \sc@M {M} +\def \sc@N {N} +\def \sc@O {O} +\def \sc@P {@} +\def \sc@Q {@} +\def \sc@R {@} +\def \sc@S {\n@xp \a@S } +\def \sc@T {T} +\def \sc@U {U} +\def \sc@V {v} +\def \sc@W {W} +\def \sc@X {@} +\def \sc@Y {Y} +\def \sc@Z {@} +\a@digits = {0123456789} +\a@paren = {()[]} +\global\a@first = {.^_-'`~,|"=:\a@tok \lq \rq \cap \MIN \IN } +\globaldefs=0 } +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +}% end of dynamic definitions for Arabic +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \a@@scan #1>{% standard scanner call: token sequence -> \a@tokens +\iftest@scan \tracingmacros = 1 +\ifshow \else \a@verb #1>\fi\fi +\global\def \a@rest {}\global\a@tokens = {}\sc@beg #1\@ \@@ +\iftest@scan \tracingmacros = 0 % +\xpa \a@verb \xpa (\the\a@tokens )>\fi } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +{\arab@codes % because of special characters + +\gdef \set@next #1{\def \next {#1}} + +\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 } +\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 } +\default {\t@w@@rd {#1}} +}\endcase +\fi\fi\fi\fi \next } + +\gdef \t@w@@rd #1{% default branch +\ifcat \nxp #1\nxp ~\def \next {\t@cs #1}% % active character +\else \def \sc@char {\nxp #1}% % other character + \ifs@nd \edef \next {\nxp \t@asp {\sc@char }}% + \else \sc@put \def \next {\sc@word }% + \fi +\fi \next } + +} % \arab@codes + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \set@char@next #1#2{\def \sc@char {#1}\def \next {#2}} + +\def \set@@c@n #1{\set@char@next #1} + +\def \t@cs #1{% control sequence within a word; push back +\apply \set@@c@n \tocase #1\of +{ \a@tok \MIN \IN \cap + \shadda \madda \sukun + \raphe \dagesh \mappiq \ldot \rdot \cdot + {{#1} {\csname t@\xpa\@gobble\string #1\endcsname }} + \maqqef {{B} {\sc@put \sc@word }} + \, {{"|} {\sc@put \sc@word }} + \lq {{`} {\sc@put \sc@word }} + \c@p {{\nxp \cap } {\sc@put \sc@word }} + \abbr {{'} {\sc@put \sc@word }} + \rq {{'} {\sc@put \sc@back }} +\default {{#1} {\sc@back #1}}% +}\endcase \next } + +\def \tdef #1{% define robust ArabTeX scanner command +\def #1{\nxp #1}% +\xpa\def \csname t@\xpa\@gobble\string #1\endcsname } + +\tdef \a@tok (#1){% direct substitution +\global \a@tokens \xpa {\the\a@tokens #1}\sc@word } + +\tdef \MIN {\def \sc@char {\nxp\a@ao \nxp\a@Zi }\sc@put \sc@word } + +\tdef \IN {\def \sc@char {\nxp\a@ai \nxp\a@Zi }\sc@put \sc@word } + +\tdef \shadda {\sc@dep {\nxp \a@Ze }} +\tdef \madda {\sc@dep {\nxp \a@ZE }} +\tdef \sukun {\sc@dep {\nxp \a@e }} +\tdef \raphe {\sc@dep {\nxp \a@Zo }} +\tdef \dagesh {\sc@dep {\nxp \a@Zu }} +\tdef \mappiq {\sc@dep {\nxp \a@Zu }} +\tdef \ldot {\sc@dep {\nxp \a@Za }} +\tdef \rdot {\sc@dep {\nxp \a@Ze }} + +\def \t@cdot {\sc@dep {\nxp \a@Zi }} +\def \t@cap #1{\sc@word \c@p #1} % kill braces on #1 + +\def \sc@@back #1\@ \@@ {% end scanning, push back into input +\global\def \a@rest {#1}\global\let \test@token \test@rest } + +\def \sc@@endscan \@@ {\global\let \a@scan \a@@scan } + +\def \sc@dep #1{% deposit tokens and proceed +\def \sc@char {#1}\sc@put \sc@word } + +\def \sc@put {% deposit a symbol % no group! +\edef \temp {\global \nxp \a@tokens % \temp + {\the\a@tokens \sc@char }}\temp } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \t@rquote #1#2{% context '#1#2 , initial +\ifh@mza \ifx #1\@ \def \sc@char {QQ}\sc@put % '> + \def \next {\sc@endscan #2}\else + \ifx #1'\ifx #2\@ \def \sc@char {'}\sc@put + \def \next {\sc@word #2}% ''> + \else \def \sc@char {QQ}\sc@put \def \sc@char {Q}% + \def \next {\sc@word '#2}% ''x + \fi + \else \def \sc@char {QQ}\sc@put \def \sc@char {Q}% + \def \next {\sc@word #1#2}% 'xy + \fi\fi +\else \ifu@gh \def \sc@char {QY}\sc@put + \else \def \sc@char {Q}\sc@put + \fi \def \next {\sc@word #1#2}% +\fi \next } + +\def \t@hamza #1{% context \sc@char ' #1 +\ifh@mza % not verbatim mode + \ifx #1'\let \next \t@hamza@ii \else + \ifcat -\sc@char \def \sc@char {QQ}\sc@put + \else \xpa\def \xpa\sc@char \xpa{\xpa Q\sc@char }\sc@put + \fi \def \sc@char {Q}\def \next {\sc@word #1}% + \fi +\else % verbatim mode + \ifx #1'\def \sc@char {'}\sc@put \let \next \sc@word + \else \ifu@gh \def \sc@char {QY}\sc@put + \else \def \sc@char {Q}\sc@put + \fi \def \next {\sc@word #1}% + \fi +\fi \next } + +\def \t@hamza@ii #1#2{% context \sc@char '' #1 #2 +\ifcat \nxp #1a% + \edef \sc@toks {\the\a@tokens Q\sc@char QQ}% + \global \a@tokens =\xpa {\sc@toks }\def \sc@char {Q}% +\else +\ifcat \nxp #2a% + \edef \sc@toks {\the\a@tokens Q\sc@char QQ}% + \global \a@tokens =\xpa {\sc@toks }\def \sc@char {Q}% +\else \def \sc@char {'}\sc@put % right quote +\fi\fi \sc@word #1#2} + +\def \t@dquote #1{% verbatim +\ifx #1'\ifh@mza \def \sc@char {"QQ}\sc@put + \else \def \sc@char {"Q}\sc@put + \fi \def \sc@char {Q}\let \next \sc@word +\else \def \sc@char {"}\sc@put \def \next {\sc@word #1}% +\fi \next } + +\def \t@ain {% ` = `ain +\def \sc@char {P}\sc@put \sc@word } + +\def \t@lquote #1#2{% context `#1#2 at the beginning of a word +\ifx #1`\def \sc@char {`}\sc@put \def \next {\sc@word #2}% ``x +\else \def \sc@char {P}\sc@put \def \next {\sc@word #1#2}% `xy +\fi \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \t@aa #1{% aa -> A +\edef \@tempa {\sc@char }% +\xpa\ifx \@tempa Q\def \next {\sc@word #1}\def \sc@char {a}\else +\ifx #1a\def \sc@char {A}\def \next {\sc@word }\else + \edef \sc@char {\sc@a }\def \next {\sc@word #1}% +\fi\fi \sc@put \next } + +\def \t@nn #1{% after n + \def \sc@char {n}\def \next {\sc@word }% +\ifm@lay \ifx #1g\def \sc@char {\nxp \a@p }\else + \ifx #1y\def \sc@char {\nxp \a@am }\else + \def \next {\sc@word #1}% + \fi\fi +\else \def \next {\sc@word #1}% +\fi \sc@put \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \t@minus #1{% after - +\ifx #1-\def \sc@char {B}\def \next {\sc@word }\else + \def \sc@char {-}\def \next {\sc@word #1}% +\fi \sc@put \next } + +\def \t@bar #1{% after | +\ifx #1|\def \next {\sc@word \,}\else + \def \sc@char {|}\sc@put \def \next {\sc@word #1}% +\fi \next } + +\def \set@char #1{\def \sc@char {#1}} + +\def \t@tail #1#2{% default exit +\ifx \sc@char \empty \set@char {#1}\def \next {\sc@put \sc@word #2}% +\else \def \next {\edef \temp {\nxp \t@asp {\sc@char }}\temp }% +\fi \next } + +\def \t@dot #1{% after . +\apply \set@char \tocase #1\of +{ a{\ifk@sh \nxp \a@Za \else \nxp \a@A \fi } + b{\nxp \a@b } + c{c} + d{D} + e{\nxp \a@I } + f{\nxp \a@f } + g{R} + h{H} + i{\nxp \a@e } + k{\ift@rk q\else \nxp \a@k \fi } + l{\nxp \a@l } + n{\ifp@sht \nxp \a@m \else + \ifs@nd \nxp \a@an \else \nxp \a@n \fi\fi } + o{\ifk@sh \nxp \a@Zo \else \nxp \a@O \fi } + p{\nxp \a@f } + r{\ifs@nd \nxp \a@ar \else \nxp \a@R \fi } + s{S} + t{V} + u{\ifk@sh \nxp \a@Zu \else \nxp \a@U \fi } + v{\nxp \a@b } + y{\nxp \a@ZI } + z{Z} + A{\nxp \a@ZA } + O{\nxp \a@ZO } + U{\nxp \a@ZU } + Z{\nxp \a@Zz } + T{Y} +}\endcase \t@tail .#1} + +\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 } + 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} + +\def \t@up #1{% after ^ +\apply \set@char \tocase #1\of +{ c{J} + d{\nxp \a@D } + e{\nxp \a@E } + g{\ift@rk \nxp \a@p \else \ifk@rd R\else + \ifu@gh R\else G\fi\fi\fi } + l{\nxp \a@l } + n{\ifs@nd \nxp \a@ag \else \ifm@lay M\else K\fi\fi } + s{x} + u{U} + z{j} +}\endcase \t@tail ^#1} + +\def \t@down #1{% after _ +\apply \set@char \tocase #1\of +{ a{\nxp \a@a } + A{Y} + d{F} + e{\nxp \a@E } + h{X} + i{\nxp \a@i } + k{R} + o{\nxp \a@o } + O{\nxp \a@O } + s{C} + t{C} + u{\nxp \a@u } + U{\nxp \a@o } + z{F} +}\endcase \t@tail @#1} + +\gdef \t@colon #1{% after = or : +\apply \set@char \tocase #1\of +{ a{\ifu@gh \nxp \a@H \else \nxp \a@A \fi } + b{\nxp \a@ab } + d{\nxp \a@ae } + e{\nxp \a@I } + g{\nxp \a@ak } + i{\nxp \a@I } + j{\nxp \a@ah } + I{\nxp \a@e } + n{\nxp \a@al } + o{\ifu@gh \nxp \a@W \else \nxp \a@O \fi } + s{\nxp \a@aJ } + O{\nxp \a@P } + t{V} + u{\ifu@gh \nxp \a@aw \else \nxp \a@U \fi } + U{\nxp \a@w } + z{D} +}\endcase \t@tail :#1} + +\gdef \t@colon #1{% after = or : +\apply \set@char \tocase #1\of +{ a{\nxp \a@A } + b{\nxp \a@ab } + d{\nxp \a@ae } + e{\nxp \a@I } + g{\nxp \a@ak } + i{\nxp \a@I } + j{\nxp \a@ah } + I{\nxp \a@e } + n{\nxp \a@al } + o{\nxp \a@O } + s{\nxp \a@aJ } + O{\nxp \a@P } + t{V} + u{\nxp \a@U } + U{\nxp \a@w } + z{D} +}\endcase \t@tail :#1} + +\def \t@tie #1{% after ~ +\apply \set@char \tocase #1\of +{ l{\nxp \a@l } + g{\nxp \a@p } + n{\ifs@nd \nxp \a@ag \else \ifm@lay M\else K\fi\fi } +}\endcase \t@tail ^#1} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \t@asp #1#2{% test for hah +\ifs@nd \ifx #2h\def \next {\t@@asp {#1}}% + \else \def \next {\sc@put \sc@word #2}% + \fi +\else \def \next {\sc@put \sc@word #2}% +\fi \next } + +\def \t@@asp #1{% test for aspiration +\apply \set@char \tocase #1\of +{ b{\nxp \a@ap } + c{J} + d{\nxp \a@ad } + p{\nxp \a@aq } + k{\ifs@nd \nxp \a@k \else X\fi } + t{\nxp \a@ac } + J{\nxp \a@aj } + \a@D{\nxp \a@af } + \a@at{\nxp \a@T } + \a@ax{\nxp \a@k } +}\endcase +\ifx \empty \sc@char \def \sc@char {\nxp #1}\def \next {\sc@word h}% +\else \def \next {\sc@word }% +\fi \sc@put \next } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% preparations for additional scanners +\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 } + +\pdef \stdcode #1{% prepare temp switch to standard +\let \a@oldcode \sc@code \sc@standard \test@token #1 \@stdcode } + +\def \a@c@@stdcode {\xpa\setcode\xpa{\a@oldcode }} + +\all@w@ne \stdcode +\xpa \all@w@ne \csname stdcode \endcsname + +\def \sc@table {% table of code names +standard\sc@standard arabtex\sc@standard } + +\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 +\let \a@scan \a@@scan \seta@codes +\let \arab@codes \a@arab@codes +\let \unarab@codes \a@unarab@codes +} + +\def \sc@standard {\sc@restore % standard encoding +\ifx \sc@code \sc@oldcode \else +\a@message {input encoding set to ArabTeX standard conventions.}\fi } + +\def \sc@default {\sc@restore % unknown encoding +\a@message {unknown input encoding `\sc@code'; +ArabTeX standard encoding is assumed.}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\a@message {scanner for code `arabtex' installed.} +\let \sc@oldcode \@ \setcode {standard} % default + +\endinput +%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + -- cgit v1.2.3