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/afoot.sty | 100 ++++++++++++++++++++++++++ 1 file changed, 100 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/arabtex/afoot.sty (limited to 'Master/texmf-dist/tex/latex/arabtex/afoot.sty') diff --git a/Master/texmf-dist/tex/latex/arabtex/afoot.sty b/Master/texmf-dist/tex/latex/arabtex/afoot.sty new file mode 100644 index 00000000000..2d0bde03ce1 --- /dev/null +++ b/Master/texmf-dist/tex/latex/arabtex/afoot.sty @@ -0,0 +1,100 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% afoot.sty +% ArabTeX footnotes +% 12.05.2003 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% (c) Klaus Lagally +% Institut fuer Formale Methoden der Informatik +% Universitaet Stuttgart +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\ifx \undefined \LaTeX \xpa \endinput \fi + +\a@ident {afoot.sty} {3.11 ArabTeX footnotes} {12.05.2003} + +%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%% +% footnotes inside an Arabic environment, Roman document style + +\let \a@@footnotemark \@footnotemark +\let \a@@footnotetext \@footnotetext + +\def \a@footnotemark {% inside Arabic environment +\iftrans \unskip \unskip \nobreak \@makefnmark \fi +\ifarab \a@spacefalse \putwordb@x \@makefnmark \a@spacetrue \fi } + +\long\def \a@footnotetext #1{\a@@footnotetext {#1}\arab@tail } + +\at@arabtext {% inside Arabic environments +\let \@footnotemark \a@footnotemark +\let \@footnotetext \a@footnotetext } + +\def \a@c@footnote {% ArabTeX-LaTeX version +\let \@footnotemark \a@footnotemark +\unarab@codes \footnote } + +\def \a@c@footnotemark {% ArabTeX-LaTeX version +\def \@footnotemark {\a@footnotemark \arab@tail }% +\unarab@codes \footnotemark } + +\long\def \a@c@footnotetext {% ArabTeX-LaTeX version +\unarab@codes \footnotetext } + +\def \LRfootnotes {% left to right footnotes +\def \a@fnhook {\a@@mkfntext }% Roman document +%\def \a@fnhook {\a@rmfntext }% Roman document +\def \a@@fnhook {\a@rmfntext }% Arabic document +} + +\all@wcmd \LRfootnotes \LRfootnotes % default + +%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%% +% footnotes inside an Arabic environment, Arabic document style + +\iffalse +\def \a@@footnote {% ArabTeX-LaTeX version +\def \@footnotemark {% + \a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }% +\def \a@@fntext ##1{% common part for footnote text + \def \end {\a@par \egroup \test@token }% + \hsize \columnwidth \@parboxrestore + \initlineb@x \@footnotemark \test@token ##1 \end } +} + +\def \a@@footnotemark {% +\def \@footnotemark % ArabTeX-LaTeX version + {\a@spacefalse \putwordb@x \@makefnmark \a@spacetrue \test@token }% +\footnotemark } +\fi + +\long\def \a@@fntext #1{% common part for footnote text +%\def \@footnotemark {% +% \a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }% +\def \end {\a@par \egroup \test@token }% + \a@hsize \columnwidth \hsize \columnwidth \@parboxrestore + \initlineb@x \putwordb@x \@makefnmark \a@spacetrue +\set@arabfont + \arabtrue \test@token #1 \end } + +\long\def \a@@@fntext #1{% common part for RL footnote text, Roman mode +%\def \@footnotemark {% +% \a@spacefalse \putwordb@x \@makefnmark \a@spacetrue }% +\def \end {\a@par \egroup }% + \a@hsize \columnwidth \hsize \columnwidth \@parboxrestore + \the\arabtext@hook \putwordb@x \@makefnmark \a@spacetrue + \test@token #1 \end } + +%%%%%%%%%%%%%%%%%%% \footnote in an arabic environment %%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%w%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def \RLfootnotes {% right to left footnotes +\def \a@fnhook {\a@@@fntext }% Roman document +\def \a@@fnhook {\a@@fntext }% Arabic document +} + +\all@wcmd \RLfootnotes + +\let \arabfootnotes \RLfootnotes \all@wcmd \arabfootnotes + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\endinput +%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -- cgit v1.2.3