summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ledmac/ledarab.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:57:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:57:51 +0000
commitbfb5860bf0e40f46d39badb79838f5ecfcf58776 (patch)
tree9e0d2409d0d3b4abe58f78f1368990da14715873 /Master/texmf-dist/tex/latex/ledmac/ledarab.sty
parent957c6bc9342ffaefb65ef4a3e6f1c3817dbf7631 (diff)
ledmac
git-svn-id: svn://tug.org/texlive/trunk@1031 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ledmac/ledarab.sty')
-rw-r--r--Master/texmf-dist/tex/latex/ledmac/ledarab.sty213
1 files changed, 213 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/ledmac/ledarab.sty b/Master/texmf-dist/tex/latex/ledmac/ledarab.sty
new file mode 100644
index 00000000000..cab93190138
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ledmac/ledarab.sty
@@ -0,0 +1,213 @@
+%%
+%% This is file `ledarab.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ledarab.dtx (with options: `ledarab')
+%%
+%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+%% Copyright 2005 Peter R. Wilson
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
+%%
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ledarab}[2005/03/24 v0.1 Cooperation between arabtex and ledmac]
+
+\providecommand*{\tr@ce@n}{\tracingmacros 0}
+\providecommand*{\tr@ce@ff}{\edef \tr@ce@n
+{\nxp\tracingmacros \the\tracingmacros }\tracingmacros 0}
+\let \tr@ce@n \relax
+
+\newif\if@l@dparpack
+ \@l@dparpackfalse
+\@ifpackageloaded{ledpar}{\@l@dparpacktrue}{\@l@dparpackfalse}
+
+\renewcommand*{\do@linehook}{%
+ \advance\baselineskip 1ex}
+
+%%%%%%%%%%%%%%%%%%%%% ledpar fix %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\arabledparfixi}{%
+\renewcommand*{\do@lineLhook}{%
+ \advance\baselineskip 1ex}
+\renewcommand*{\do@lineRhook}{%
+ \advance\baselineskip 1ex}
+\newcommand*{\a@l@dparparamsL}{%
+ \ifnum \parshape = \z@
+ \a@hsize \Lcolwidth
+ \a@leftmargin \z@
+ \else
+ \a@hsize \Lcolwidth \a@leftmargin \@totalleftmargin
+ \fi
+ \a@leftmargin \z@
+ \a@prevgraf \z@ \spreadfalse }
+\newcommand*{\a@l@dparparamsR}{%
+ \ifnum \parshape = \z@
+ \a@hsize \Rcolwidth
+ \a@leftmargin \z@
+ \else
+ \a@hsize \Rcolwidth \a@leftmargin \@totalleftmargin
+ \fi
+ \a@leftmargin \z@
+ \a@prevgraf \z@ \spreadfalse }
+\renewcommand*{\Leftsidehook}{%
+ \let\a@parparams\a@l@dparparamsL}
+\renewcommand*{\Rightsidehook}{%
+ \let\a@parparams\a@l@dparparamsR}
+\newcommand*{\ledarabstrut}{%
+ \rule[-1ex]{0pt}{4ex}}
+\newcommand*{\savestruts}{%
+ \let\oldl@dstr@tL\ledstrutL
+ \let\oldl@dstr@tR\ledstrutR}
+\newcommand*{\restorestruts}{%
+ \let\ledstrutL\oldl@dstr@tL
+ \let\ledstrutR\oldl@dstr@tR}
+\newcommand*{\latinarabic}{%
+ \def\ledstrutL{\ledarabstrut}%
+ \def\ledstrutR{}}
+\newcommand*{\arabiclatin}{%
+ \def\ledstrutL{}%
+ \def\ledstrutR{\ledarabstrut}}
+
+}% end of \newcommand{\arabledparfixi}{...
+
+\if@l@dparpack
+ \arabledparfixi
+ \savestruts
+\fi
+%%%%%%%%%%%%%%%%%%%%% end major ledpar fix %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\newcommand*{\a@c@edtext}{%
+ \tr@ce@n \leavea@vmode \unarab@codes
+\begingroup
+ \tr@ce@ff \rmfamily \tr@ce@n \a@@edtext}
+
+\newcommand*{\a@@edtext}[1]{%
+%%% \def\next@command{\a@@@edtext {\RL{#1}}}% causes errors
+ \def\next@command{\a@@@edtext {#1}}%
+ \futurelet \next@token \test@space }
+
+\def\a@edget@text #1\@@{%
+ \a@edappend{\flag@start}\a@@Linsert{#1}}
+
+\newcommand*{\a@edend@lemma}{%
+ \ifx\end@lemmas\empty \else
+ \gl@p\end@lemmas\to\x@lemma
+ \x@lemma
+ \global\let\x@lemma=\relax
+ \fi}
+
+\newcommand*{\a@edput@text}{%
+ \a@Lunpack \putwordb@x {\ins@skip }}
+
+\newcommand*{\a@edappend}[1]{%
+ \setbox \lineb@x \hbox {\unhbox \lineb@x #1}}
+
+\newcommand{\a@@@edtext}[2]{
+ \no@expands
+ \def\next@command{\test@special}%
+%%% \xdef \@tag{#1}\set@line % the original produces roman in notes
+%%% \def\@@@tag{\RL{#1}} \xdef\@tag{\@@@tag}\set@line % produces errors
+ \xdef \@tag{{\RL{#1}}}\set@line% produces arabic in notes GOOD ONE!!
+ \global\insert@count=0
+ \aftergroup \a@edget@text
+ \ignorespaces #2\relax
+\endgroup
+%%% #1\a@edend@lemma \@@ %% gives roman in arabic text
+ \showlemma{#1}\a@edend@lemma \@@% GOOD ONE
+ \a@edput@text \a@edappend {\flag@end }%
+ \arab@codes
+ \a@spacetrue
+\tr@ce@ff \test@token}
+
+\renewcommand{\showlemma}[1]{%
+ \ifin@arab\RL{#1}\else #1\fi} % arabic in text, but roman in notes
+
+\all@wcmd{\beginnumbering}
+\all@wcmd{\endnumbering}
+
+\if@l@dparpack
+ \all@wcmd{\beginnumberingR}
+ \all@wcmd{\endnumberingR}
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\let\a@par=\a@@par % save for \a@@everypar in \a@c@autopar
+
+\def\a@c@pstart{\pstart \test@token}
+\def\a@c@pend{\a@par \pend \a@par \test@token}
+
+\def\a@c@autopar{% use inside Arabic environment
+\ifnumbering \else \errmessage
+{\string\autopar\space must be used within a numbered section}%
+\beginnumbering
+\fi
+\a@@everypar= {\setbox0 = \box \lineb@x \let \next \test@token
+\a@par \pstart % starts a group
+\def \a@@par {\a@par \pend \a@par }%
+\def \end {\a@par \pend \test@token \end }%
+\a@@everypar= {}\arab@indent }%
+\a@spacefalse \test@token}
+
+\all@w@ne{\@arabic}
+\newcommand*{\arablinenumr@p}[1]{\RL{\@arabic{#1}}}
+
+\def\linenumrep#1{\LR{\@arabic{#1}}}
+\let\oldlinenumrep\linenumrep
+\def\sublinenumrep#1{\LR{\@arabic{#1}}}
+\let\oldsublinenumrep\sublinenumrep
+\newcommand*{\arablnumrep}{\global\let\linenumrep\arablinenumr@p
+ \global\let\sublinenumrep\arablinenumr@p}
+\newcommand*{\restorelnumrep}{\global\let\linenumrep\oldlinenumrep
+ \global\let\sublinenumrep\oldsublinenumrep}
+\all@wcmd{\arablnumrep}
+\all@wcmd{\restorelnumrep}
+
+\if@l@dparpack
+ \def\linenumrepR#1{\LR{\@arabic{#1}}}
+ \let\oldlinenumrepR\linenumrepR
+ \def\sublinenumrepR#1{\LR{\@arabic{#1}}}
+ \let\oldsublinenumrepR\sublinenumrepR
+ \newcommand*{\arablnumrepR}{\global\let\linenumrepR\arablinenumr@p
+ \global\let\sublinenumrepR\arablinenumr@p}
+ \newcommand*{\restorelnumrepR}{\global\let\linenumrepR\oldlinenumrepR
+ \global\let\sublinenumrepR\oldsublinenumrepR}
+ \all@wcmd{\arablnumrepR}
+ \all@wcmd{\restorelnumrepR}
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\all@w@ne{\edlabel}
+\all@w@ne{\edpageref}
+\all@w@ne{\xpageref}
+\all@w@ne{\lineref}
+\all@w@ne{\xlineref}
+\all@w@ne{\sublineref}
+\all@w@ne{\xsublineref}
+\all@w@ne{\edindex}
+\all@w@ne{\typeout}
+\all@wtw@{\edmakelabel}
+\all@wtw@{\xxref}
+
+\if@l@dparpack
+ \all@wcmd{\Columns}
+ \all@wcmd{\Pages}
+\fi
+
+\InputIfFileExists{ledarabpatch.sty}
+
+\endinput
+%%
+%% End of file `ledarab.sty'.