diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:57:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:57:51 +0000 |
commit | bfb5860bf0e40f46d39badb79838f5ecfcf58776 (patch) | |
tree | 9e0d2409d0d3b4abe58f78f1368990da14715873 /Master/texmf-dist/tex/latex/ledmac/ledarab.sty | |
parent | 957c6bc9342ffaefb65ef4a3e6f1c3817dbf7631 (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.sty | 213 |
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'. |