summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-11-10 00:01:45 +0000
committerKarl Berry <karl@freefriends.org>2011-11-10 00:01:45 +0000
commitf01a57cb491fec4fe48784ed8a048788ddc572d4 (patch)
tree8bd2b79ee03fc8d87e4dea2daf972fc7cc6e58db /Master/texmf-dist/source/latex/ledmac/ledpar.dtx
parent7ec50efcbabe73cfe05cb85be9ebca8319eb32c6 (diff)
ledmac (9nov11)
git-svn-id: svn://tug.org/texlive/trunk@24561 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/ledmac/ledpar.dtx')
-rw-r--r--Master/texmf-dist/source/latex/ledmac/ledpar.dtx64
1 files changed, 42 insertions, 22 deletions
diff --git a/Master/texmf-dist/source/latex/ledmac/ledpar.dtx b/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
index 898fe8b4e26..1a00904d366 100644
--- a/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
+++ b/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
@@ -50,7 +50,7 @@
%
% \fi
%
-% \CheckSum{4485}
+% \CheckSum{4524}
%
% \makeatletter
% \newcommand*{\DescribeIt}{\leavevmode\@bsphack\begingroup\MakePrivateLetters
@@ -129,6 +129,7 @@
% \def\fileversion{v0.8} \def\filedate{2011/09/16}
% \def\fileversion{v0.9}\def\filedate{2011/10/01}
% \def\fileversion{v0.9.1}\def\filedate{2011/10/02}
+% \def\fileversion{v0.9.2}\def\filedate{2011/11/08}
% \changes{v0.1}{2004/12/10}{First public release}
% \changes{v0.2}{2005/01/01}{Fix babel problems}
% \changes{v0.3}{2005/03/24}{Reorganize for ledarab}
@@ -142,6 +143,7 @@
% \changes{v0.8}{2011/09/16}{Possibility to have a symbol on each hanging of verses, like in the french typography. Redefine the commande \cs{hangingsymbol} to define the character.}
% \changes{v0.9}{2011/10/01}{Possibilty to number the pstart with the commands \cs{numberpstarttrue}.}
% \changes{v0.9.1}{2011/10/02}{The numbering of the pstarts restarts on each \cs{beginnumbering}.}
+% \changes{v0.9.2}{2011/11/08}{Debug : with \cs{Columns}, the hanging indentation now runs on the left columns and the hanging symbol is shown only when \cs{stanza} is used.}
% \hyphenation{man-u-script man-u-scripts}
%
% \newcommand{\Lpack}[1]{\textsf{#1}}
@@ -296,12 +298,8 @@
% then you can increase \cs{maxchunks}. The \cs{maxchunks} must be called in the preamble.
%
% TeX has a limited number of boxes; if you get an error
-% message along the lines of `no room for a new box', then decrease
-% the number. A chunk also requires a counter so you may get a message
-% along the lines `no room for a new count', which may be resolved by reducing
-% \cs{maxchunks}.
-%
-% On the other hand, if you get a \Ledmac{} error message along the
+% message along the lines of `no room for a new box', then load the package etex, which needs pdflatex or xelatex. If you \cs{maxchunks} is too little
+%you can get a \Ledmac{} error message along the
% lines: `Too many \cs{pstart} without printing. Some text will be lost.'
% then you will have to either increase \cs{maxchunks} or use the
% parallel printing commands (\cs{Columns} or \cs{Pages}) more frequently.
@@ -566,7 +564,7 @@
%
%
%
-%\changes{v.0.9}{2011/10/01}{Possibility to number \cs{pstart}.}
+%\changes{v0.9}{2011/10/01}{Possibility to number \cs{pstart}.}
% It's possible to insert a number at every \cs{pstart} command. You must use the \DescribeMacro{\numberpstarttrue}\cs{numberpstarttrue} command to have it. You can stop the numerotation with \DescribeMacro{\numberpstartfalse}\cs{numberpstartfalse}. You can redefine the commands \DescribeMacro{\thepstartL}\cs{thepstartL} and \DescribeMacro{\thepstartR}\cs{thepstartR} to change style. The numbering restarts on each \cs{beginnumbering}
% \section{Verse}
%
@@ -696,12 +694,12 @@
%
% Announce the name and version of the package, which is
% targetted for LaTeX2e. The package also requires the \Ledmac{}
-% package, preferably at least version 0.10 (2011/08/22).
+% package, preferably at least version 0.13 (2011/11/08).
%
% \begin{macrocode}
%<*code>
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledpar}[2011/10/02 v0.9.1 ledmac extension for parallel texts]
+\ProvidesPackage{ledpar}[2011/11/08 v0.9.2 ledmac extension for parallel texts]
% \end{macrocode}
% With the option `shiftedverses' a long verse one the left side (or in the right side) don't make a blank on the corresponding verse, but the blank is put on the bottom of the page. Consequently, the verses on the parallel pages are shifted, but the shifted stop at every end of pages.
@@ -2122,6 +2120,16 @@
% \end{environment}
% \end{environment}
%
+%
+% \begin{macro}{ifinstanzaL}
+% \begin{macro}{ifinstanzaR}
+% These boolean tests are switched by the \cs{stanza} command, using either the left or right side.
+% \begin{macrocode}
+ \newif\ifinstanzaL
+ \newif\ifinstanzaR
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
% \begin{environment}{Leftside}
% Within the \verb?pairs? and \verb?pages? environments the left and
% right hand texts are within \verb?Leftside? and \verb?Rightside?
@@ -2138,7 +2146,11 @@
\let\pend\pendL
\let\memorydump\memorydumpL
\Leftsidehook
-}{\Leftsidehookend}
+ \let\oldstanza\stanza
+ \renewcommand{\stanza}{\oldstanza\global\instanzaLtrue}
+}{
+ \let\stanza\oldstanza
+ \Leftsidehookend}
% \end{macrocode}
% \end{environment}
%
@@ -2180,8 +2192,11 @@
\let\pend\pendR
\let\lineation\lineationR
\Rightsidehook
+ \let\oldstanza\stanza
+ \renewcommand{\stanza}{\oldstanza\global\instanzaRtrue}
}{%
\ledRcolfalse
+ \let\stanza\oldstanza
\Rightsidehookend
}
@@ -2449,7 +2464,7 @@
% some common code}
% \begin{macrocode}
\newcommand*{\do@lineL}{%
- \manageparhangingsymbol
+\ifinstanzaL\manageparhangingsymbol\fi
\advance\countLline \@ne
\ifvbox\namebox{l@dLcolrawbox\the\l@dpscL}%
{\vbadness=10000
@@ -2500,7 +2515,7 @@
% \changes{v0.3}{2005/02/10}{Changed \cs{do@lineR} similarly to \cs{do@lineL}}
% \begin{macrocode}
\newcommand*{\do@lineR}{%
-\manageparhangingsymbol
+\ifinstanzaR\manageparhangingsymbol\fi
\advance\countRline \@ne
\ifvbox\namebox{l@dRcolrawbox\the\l@dpscR}%
{\vbadness=10000
@@ -3850,8 +3865,8 @@
\do@lineR
\fi
\hb@xt@ \hsize{%
- \unhbox\l@dleftbox
- \hfill \columnseparator \hfill
+ \hfill \unhbox\l@dleftbox
+ \hfill \columnseparator \hfill
\unhbox\l@drightbox
}%
\checkraw@text
@@ -3866,7 +3881,7 @@
\repeat
% \end{macrocode}
% Having output all chunks, make sure all notes have been output,
-% then zero counts ready for the next set of texts.
+% then zero counts ready for the next set of texts. The boolean tests for stanza are switched to false.
% \begin{macrocode}
\flush@notes
\flush@notesR
@@ -3877,7 +3892,9 @@
\global\l@dpscR=\z@
\global\l@dnumpstartsL=\z@
\global\l@dnumpstartsR=\z@
- \ignorespaces}
+ \ignorespaces
+ \global\instanzaLfalse
+ \global\instanzaRfalse}
% \end{macrocode}
% \end{macro}
@@ -3914,7 +3931,8 @@
\ifnum\l@dnumpstartsR>\l@dpscR
\@pstartstrue
\fi
- \fi}
+ \fi
+}
% \end{macrocode}
% \end{macro}
@@ -3928,7 +3946,7 @@
% \begin{macro}{\checkraw@text}
% \cs{checkraw@text} checks whether the current Left or Right box is
% void or not. If one or other is not void it sets \cs{araw@texttrue},
-% otherwise both are void and it sets \cs{araw@textfalse}.
+% otherwise both are void and it sets \cs{araw@textfalse}.
% \begin{macrocode}
\newif\ifaraw@text
\araw@textfalse
@@ -3940,7 +3958,8 @@
\ifvbox\namebox{l@dRcolrawbox\the\l@dpscR}
\araw@texttrue
\fi
- \fi}
+ \fi
+}
% \end{macrocode}
% \end{macro}
@@ -4179,13 +4198,14 @@
\flush@notesR
\endgroup
% \end{macrocode}
-% Zero counts ready for the next set of left/right text chunks.
+% Zero counts ready for the next set of left/right text chunks. The boolean tests for stanza are switched to false.
% \begin{macrocode}
\global\l@dpscL=\z@
\global\l@dpscR=\z@
\global\l@dnumpstartsL=\z@
\global\l@dnumpstartsR=\z@
-
+ \global\instanzaLfalse
+ \global\instanzaRfalse
\ignorespaces}
% \end{macrocode}