latex/arabtex/utfcode.sty

23 \utf@beg #1\@ \@ \@ \@@ % transform
26 \def \utf@beg #1#2{% start UTF-8 scanner
29 	\def \next {\utf@word #1#2}%
30 \ifnum `#1="D8 \ifnum `#2="27 \def \next {\utf@alif }\fi \else
31 %\ifx #1"\def \next {\utf@lquote #2}\else
32 \ifx #1/\global \a@tokens ={#1}\def \next {\utf@word #2}\else % x>
37 \gdef \utf@word #1#2{% transform input into internal notation
38 \ifx #1\@ \def \next {\utf@end #2}\else		% finished
39 \ifx #1-\def \next {\utf@minus #2}\else %
40 %ifx #1"\def \next {\utf@rquote #2}\else %
42 %\if \nxp ^^M\nxp #1\def \next {\utf@par #2}\else % active character
43 \ifnum `#1="D6 \def \next {\utf@dvi #2}\else %
44 \ifnum `#1="D7 \def \next {\utf@dvii #2}\else %
45 \ifnum `#1="D8 \def \next {\utf@dviii #2}\else %
46 \ifnum `#1="D9 \def \next {\utf@dix #2}\else %
47 \ifnum `#1="DA \def \next {\utf@da #2}\else %
48 \ifnum `#1="DB \def \next {\utf@db #2}\else %
49 	\def \next {\utf@asci #1#2}%
54 \gdef \utf@word #1{% transform input into internal notation
55 \ifx #1\@ \def \next {\utf@end }\else		% finished
56 \ifx #1-\def \next {\utf@minus }\else %
58 \ifnum `#1="D6 \def \next {\utf@dvi }\else %
59 \ifnum `#1="D7 \def \next {\utf@dvii }\else %
60 \ifnum `#1="D8 \def \next {\utf@dviii }\else %
61 \ifnum `#1="D9 \def \next {\utf@dix }\else %
62 \ifnum `#1="DA \def \next {\utf@da }\else %
63 \ifnum `#1="DB \def \next {\utf@db }\else %
64 	\def \next {\utf@asci #1}%
69 \def \utf@end #1\@@ {\relax }
71 \def \utf@next {% save and deposit character
72 \sc@put \utf@word }
74 \def \utf@asci #1{% deposit ASCII item
75 \def \sc@char {#1}\utf@next }
81 \def \utf@dvi #1{% segment D6
96 \fi \utf@next }
100 \def \utf@dvii #1{% segment D7
133 \fi \utf@next }
137 \def \utf@dviii #1{% segment D8
154 \fi \utf@next }
158 \def \utf@dix #1{% segment D9
182 \fi \utf@next }
186 \def \utf@da #1{% segment DA
213 \fi \utf@next }
217 \def \utf@db #1{% segment DB
239 \fi \utf@next }
243 \def \utf@alif {% alif at the beginning of a word
244 \def \sc@char {a}\sc@put \utf@word }
246 \def \utf@minus {% hyphen between words
247 \def \sc@char {-}\sc@put \utf@beg }
248 %\def \sc@char {B}\sc@put \utf@beg }
250 \def \utf@lquote {% left quote
253 \fi \sc@put \utf@beg }
255 \def \utf@rquote {% right quote
256 \global\a@quotefalse \def \sc@char {'}\sc@put \utf@word }
258 \def \utf@par #1\@ \@@ {% new line, push back the rest
261 \def \utf@b@cs #1#2{% test word end
264 \ifx #2\@ \def \next {\utf@end #2}\else
265 \ifcat -\nxp #2 \def \next {\utf@word #2}\else
268 \def \utf@cs #1#2{% control sequence within a word; push back?
269 \xpa \ifx #1\closegeresh \def \next {\utf@b@cs {\nxp \lq }#2}\else
270 \xpa \ifx #1\closequote \def \next {\utf@b@cs {`}#2}\else