1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2% afoot.sty
3% ArabTeX footnotes
4% 12.05.2003
5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6% (c) Klaus Lagally
7%     Institut fuer Formale Methoden der Informatik
8%     Universitaet Stuttgart
9%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10
11\ifx \undefined \LaTeX \xpa \endinput \fi
12
13\a@ident {afoot.sty} {3.11 ArabTeX footnotes} {12.05.2003}
14
15%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%%
16% footnotes inside an Arabic environment, Roman document style
17
18\let \a@@footnotemark \@footnotemark
19\let \a@@footnotetext \@footnotetext
20
21\def \a@footnotemark {% inside Arabic environment
22\iftrans \unskip \unskip \nobreak \@makefnmark \fi
23\ifarab \a@spacefalse \putwordb@x \@makefnmark \a@spacetrue \fi }
24
25\long\def \a@footnotetext #1{\a@@footnotetext {#1}\arab@tail }
26
27\at@arabtext {% inside Arabic environments
28\let \@footnotemark \a@footnotemark
29\let \@footnotetext \a@footnotetext }
30
31\def \a@c@footnote {% ArabTeX-LaTeX version
32\let \@footnotemark \a@footnotemark
33\unarab@codes \footnote }
34
35\def \a@c@footnotemark {% ArabTeX-LaTeX version
36\def \@footnotemark {\a@footnotemark \arab@tail }%
37\unarab@codes \footnotemark }
38
39\long\def \a@c@footnotetext {% ArabTeX-LaTeX version
40\unarab@codes \footnotetext }
41
42\def \LRfootnotes {% left to right footnotes
43\def \a@fnhook {\a@@mkfntext }% Roman document
44%\def \a@fnhook {\a@rmfntext }% Roman document
45\def \a@@fnhook {\a@rmfntext }% Arabic document
46}
47
48\all@wcmd \LRfootnotes			\LRfootnotes	% default
49
50%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%%
51% footnotes inside an Arabic environment, Arabic document style
52
53\iffalse
54\def \a@@footnote {% ArabTeX-LaTeX version
55\def \@footnotemark {%
56	\a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }%
57\def \a@@fntext ##1{% common part for footnote text
58	\def \end {\a@par \egroup \test@token }%
59	\hsize \columnwidth \@parboxrestore
60	\initlineb@x \@footnotemark \test@token ##1 \end }
61}
62
63\def \a@@footnotemark {%
64\def \@footnotemark % ArabTeX-LaTeX version
65	{\a@spacefalse \putwordb@x \@makefnmark \a@spacetrue \test@token }%
66\footnotemark }
67\fi
68
69\long\def \a@@fntext #1{% common part for footnote text
70%\def \@footnotemark {%
71%	\a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }%
72\def \end {\a@par \egroup \test@token }%
73	\a@hsize \columnwidth \hsize \columnwidth \@parboxrestore
74	\initlineb@x \putwordb@x \@makefnmark \a@spacetrue
75\set@arabfont
76	\arabtrue \test@token #1 \end }
77
78\long\def \a@@@fntext #1{% common part for RL footnote text, Roman mode
79%\def \@footnotemark {%
80%	\a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }%
81\def \end {\a@par \egroup }%
82	\a@hsize \columnwidth \hsize \columnwidth \@parboxrestore
83	\the\arabtext@hook \putwordb@x \@makefnmark \a@spacetrue
84	\test@token #1 \end }
85
86%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%%
87%%%%%%%%%%%%%%%%%%%%%%%%%w%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
89\def \RLfootnotes {% right to left footnotes
90\def \a@fnhook {\a@@@fntext }% Roman document
91\def \a@@fnhook {\a@@fntext }% Arabic document
92}
93
94\all@wcmd \RLfootnotes
95
96\let \arabfootnotes \RLfootnotes	\all@wcmd \arabfootnotes
97
98%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99\endinput
100%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101