poemscol (30jun15)

git-svn-id: svn://tug.org/texlive/trunk@37724 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 610 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
index 825ae7c4c68..b64355fa848 100644
--- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
+++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
@@ -22,7 +22,7 @@
 %% in the same archive or directory.)
 \NeedsTeXFormat{LaTeX2e}[1997/12/01]
 \ProvidesPackage{poemscol}
-   [2015/6/18 v2.7 poemscol file]
+   [2015/6/18 v2.72 poemscol file]
 
 
 
@@ -30,6 +30,14 @@
 
 
 
+%%
+%% In my own book I also, strictly to save money, and at the price of
+%% some ugliness, changed the definition of |\normalsize| and |\small|,
+%% so that the former was 10 pt type on 11 pt leading (rather than 12
+%% pt), and that the latter was 9 pt type on 10 pt leading.  You can
+%% reproduce this setting by issuing |\tightleading|, although I would
+%% advise not doing so unless you are under financial constraints.
+
 
 
  \newcommand{\tightgeometry}{\geometry{verbose, tmargin= 33pt,
@@ -234,7 +242,6 @@
 \leftheader{\relax}
 \volumeheader{\relax}
 \newcommand{\rightheader}[1]{\volumeheader{#1}}
-
 \newlength{\headoffsetlength}
 \setlength{\headoffsetlength}{-1sp}
 \raggedbottom
@@ -2499,7 +2506,8 @@ r@#2\endcsname{}{}\@nil
 \c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
 {\contentsindenttwoamount}%
 }
-\newcommand{\versoset@p@emtitle}[6]{\setlength{\titleentryoverrun}{#6}%
+\newcommand{\versoset@p@emtitle}[6]{\pmclversoresetsettitleinnotes%
+\setlength{\titleentryoverrun}{#6}%
 {#2}%
 {#3 \begin{titleentryenvironment}%
 {\ifcentertitleson\begin{center}#4 #1\end{center}\else #4 #1\fi}%
@@ -2552,7 +2560,8 @@ r@#2\endcsname{}{}\@nil
 \c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
 {\contentsindenttwoamount}%
 }
-\newcommand{\rectoset@p@emtitle}[6]{\setlength{\titleentryoverrun}{#6}%
+\newcommand{\rectoset@p@emtitle}[6]{\pmclrectoresetsettitleinnotes
+\setlength{\titleentryoverrun}{#6}%
 {#2}%
 {#3 \begin{titleentryenvironment}%
 {\ifcentertitleson\begin{center}#4 #1\end{center}\else #4 #1\fi}%
@@ -2739,7 +2748,604 @@ r@#2\endcsname{}{}\@nil
 \end{quotedverse}
 \fi
 \rectofalse\versofalse\paralleltextsfalse
+\makeatletter\pmclresetsettitleinnotes\makeatother
+}
+\newtoks{\versotextnotesname}
+\versotextnotesname={TEXTUAL NOTES}
+\newcommand{\changeversotextnotesname}[1]{\versotextnotesname={#1}}
+\newtoks{\versotextnotesheadername}
+\versotextnotesheadername={Textual Notes to}
+\newcommand{\changeversotextnotesheader}[1]{\versotextnotesheadername={#1}}
+\newtoks{\versotextnotescontentsname}
+\versotextnotescontentsname={Textual Notes}
+\newcommand{\changeversotextnotescontentsname}[1]{%
+\versotextnotescontentsname={#1}}
+\newif\ifversotextnotestwocol
+\versotextnotestwocolfalse
+\newcommand{\makeversotextnotes}{\global\textnotesontrue
+  \newwrite\versotextnotes
+  \global\verselinenumberstrue
+   \immediate\openout\versotextnotes=\jobname.vtn
+   \literalversotextnote{\flushbottom{\par\clearpage
+   {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versotextnotesheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versotextnotesheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versotextnotesname}{versotextnotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversotextnotestwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifversotextnotessinglepar
+\newif\ifnoversotextnoteyet
+\newcommand{\literalversotextnote}[1]{\begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\versotextnotes{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newcommand{\firstversotextnote}{\immediate\write\versotextnotes{\versotitletoothernotes}
+    \ifversotextnotessinglepar%
+    \literalversotextnote{\par}%
+    \fi% ifversotextnotessinglepa
+ }
+\newcommand{\versotextnote}[2][0]{\versotitleinnotescheck
+    \setlemmarange{#1}%
+    \ifnoversotextnoteyet % firstversotextnote
+     \firstversotextnote
+      \fi %noversotextnoteyet
+      \global\noversotextnoteyetfalse
+\immediate\write\versotextnotes{\checknoteheaders}%
+    \literalversotextnote{#2}%
+    \ifversotextnotessinglepar%
+    \literalversotextnote{\par}%
+    \fi% ifversotextnotessinglepar
+\resetlemmacounters
+}
+\newtoks{\rectotextnotesname}
+\rectotextnotesname={TEXTUAL NOTES}
+\newcommand{\changerectotextnotesname}[1]{\rectotextnotesname={#1}}
+\newtoks{\rectotextnotesheadername}
+\rectotextnotesheadername={Textual Notes to}
+\newcommand{\changerectotextnotesheader}[1]{\rectotextnotesheadername={#1}}
+\newtoks{\rectotextnotescontentsname}
+\rectotextnotescontentsname={Textual Notes}
+\newcommand{\changerectotextnotescontentsname}[1]{%
+\rectotextnotescontentsname={#1}}
+\newif\ifrectotextnotestwocol
+\rectotextnotestwocolfalse
+\newcommand{\makerectotextnotes}{\global\textnotesontrue
+  \newwrite\rectotextnotes
+  \global\verselinenumberstrue
+   \immediate\openout\rectotextnotes=\jobname.rtn
+   \literalrectotextnote{\flushbottom{\par\clearpage
+   {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectotextnotesheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectotextnotesheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectotextnotesname}{rectotextnotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectotextnotestwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifrectotextnotessinglepar
+\newif\ifnorectotextnoteyet
+\newcommand{\literalrectotextnote}[1]{\begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\rectotextnotes{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newcommand{\firstrectotextnote}{\immediate\write\rectotextnotes{\rectotitletoothernotes}
+    \ifrectotextnotessinglepar%
+    \literalrectotextnote{\par}%
+    \fi% ifrectotextnotessinglepar
+}
+\newcommand{\rectotextnote}[2][0]{\rectotitleinnotescheck
+    \setlemmarange{#1}%
+    \ifnorectotextnoteyet % firstrectotextnote
+     \firstrectotextnote
+      \fi %norectotextnoteyet
+      \global\norectotextnoteyetfalse
+\immediate\write\rectotextnotes{\checknoteheaders}%
+    \literalrectotextnote{#2}%
+    \ifrectotextnotessinglepar%
+    \literalrectotextnote{\par}%
+    \fi% ifrectotextnotessinglepar
+\resetlemmacounters
+}
+\newtoks{\versoemendationsname}
+\versoemendationsname={EMENDATIONS}
+\newcommand{\changeversoemendationsname}[1]{\versoemendationsname={#1}}
+\newtoks{\versoemendationsheadername}
+\versoemendationsheadername={Emendations to}
+\newcommand{\changeversoemendationsheader}[1]{\versoemendationsheadername={#1}}
+\newtoks{\versoemendationscontentsname}
+\versoemendationscontentsname={Emendations}
+\newcommand{\changeversoemendationscontentsname}[1]{%
+\versoemendationscontentsname={#1}}
+\newif\ifversoemendationstwocol
+\versoemendationstwocolfalse
+\newcommand{\makeversoemendations}{\global\emendationsontrue
+  \newwrite\versoemendations
+  \global\verselinenumberstrue
+   \immediate\openout\versoemendations=\jobname.vem
+   \literalversoemendation{\flushbottom{\par\clearpage
+   {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versoemendationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versoemendationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versoemendationsname}{versoemendations}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversoemendationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifversoemendationssinglepar
+\newif\ifnoversoemendationyet
+\newcommand{\literalversoemendation}[1]{\begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\versoemendations{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newcommand{\firstversoemendation}{\immediate\write\versoemendations{\versotitletoothernotes}
+    \ifversoemendationssinglepar%
+    \literalversoemendation{\par}%
+    \fi% ifversoemendationssinglepar
+}
+\newcommand{\versoemendation}[2][0]{\versotitleinnotescheck%
+    \setlemmarange{#1}%
+    \ifnoversoemendationyet % firstversoemendation
+     \firstversoemendation
+      \fi %noversoemendationyet
+      \global\noversoemendationyetfalse
+\immediate\write\versoemendations{\checknoteheaders}%
+    \literalversoemendation{#2}%
+    \ifversoemendationssinglepar%
+    \literalversoemendation{\par}%
+    \fi% ifversoemendationssinglepar
+\resetlemmacounters
+}
+\newtoks{\rectoemendationsname}
+\rectoemendationsname={EMENDATIONS}
+\newcommand{\changerectoemendationsname}[1]{\rectoemendationsname={#1}}
+\newtoks{\rectoemendationsheadername}
+\rectoemendationsheadername={Emendations to}
+\newcommand{\changerectoemendationsheader}[1]{\rectoemendationsheadername={#1}}
+\newtoks{\rectoemendationscontentsname}
+\rectoemendationscontentsname={Emendations}
+\newcommand{\changerectoemendationscontentsname}[1]{%
+\rectoemendationscontentsname={#1}}
+\newif\ifrectoemendationstwocol
+\rectoemendationstwocolfalse
+\newcommand{\makerectoemendations}{\global\emendationsontrue
+  \newwrite\rectoemendations
+  \global\verselinenumberstrue
+   \immediate\openout\rectoemendations=\jobname.rem
+   \literalrectoemendation{\flushbottom{\par\clearpage
+   {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectoemendationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectoemendationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectoemendationsname}{rectoemendations}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectoemendationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifrectoemendationssinglepar
+\newif\ifnorectoemendationyet
+\newcommand{\literalrectoemendation}[1]{\begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\rectoemendations{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newcommand{\firstrectoemendation}{\immediate\write\rectoemendations{\rectotitletoothernotes}
+    \ifrectoemendationssinglepar%
+    \literalrectoemendation{\par}%
+    \fi% ifrectoemendationssinglepar
+}
+\newcommand{\rectoemendation}[2][0]{\rectotitleinnotescheck
+    \setlemmarange{#1}%
+    \ifnorectoemendationyet % firstrectoemendation
+     \firstrectoemendation
+      \fi %norectoemendationyet
+      \global\norectoemendationyetfalse
+\immediate\write\rectoemendations{\checknoteheaders}%
+    \literalrectoemendation{#2}%
+    \ifrectoemendationssinglepar%
+    \literalrectoemendation{\par}%
+    \fi% ifrectoemendationssinglepar
+\resetlemmacounters
+}
+\newtoks{\versoexplanationsname}
+\versoexplanationsname={EXPLANATORY NOTES}
+\newcommand{\changeversoexplanationsname}[1]{\versoexplanationsname={#1}}
+\newtoks{\versoexplanationsheadername}
+\versoexplanationsheadername={Explanatory Notes to}
+\newcommand{\changeversoexplanationsheader}[1]{\versoexplanationsheadername={#1}}
+\newtoks{\versoexplanationscontentsname}
+\versoexplanationscontentsname={Explanatory Notes}
+\newcommand{\changeversoexplanationscontentsname}[1]{%
+\versoexplanationscontentsname={#1}}
+\newif\ifversoexplanationstwocol
+\versoexplanationstwocolfalse
+\newcommand{\makeversoexplanatorynotes}{\global\explanontrue
+     \global\verselinenumberstrue
+     \newwrite\versoexplanations
+     \immediate\openout\versoexplanations=\jobname.vex
+     \literalversoexplain{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versoexplanationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versoexplanationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versoexplanationsname}{versoexplanatorynotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversoexplanationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newcommand{\literalversoexplain}[1]{
+     \begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\versoexplanations{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newif\ifversoexplanationssinglepar
+\newcommand{\firstversoexplanatory}{\immediate\write\versoexplanations{\versotitletoothernotes}
+    \ifversoexplanationssinglepar%
+    \literalversoexplain{\par}%
+\fi}
+\newif\ifnoversoexplainyet
+\newcommand{\versoexplanatory}[2][0]{\versotitleinnotescheck%
+\ifexplanon
+    \setlemmarange{#1}%
+    \ifnoversoexplainyet % first versoexplanation
+    \firstversoexplanatory
+      \fi %noversoexplainyet
+      \global\noversoexplainyetfalse
+\immediate\write\versoexplanations{\checknoteheaders}%
+    \literalversoexplain{#2}%
+    \ifversoexplanationssinglepar%
+    \literalversoexplain{\par}%
+    \fi%
+    \fi % ifexplanon
+\resetlemmacounters
+}
+\newtoks{\rectoexplanationsname}
+\rectoexplanationsname={EXPLANATORY NOTES}
+\newcommand{\changerectoexplanationsname}[1]{\rectoexplanationsname={#1}}
+\newtoks{\rectoexplanationsheadername}
+\rectoexplanationsheadername={Explanatory Notes to}
+\newcommand{\changerectoexplanationsheader}[1]{\rectoexplanationsheadername={#1}}
+\newtoks{\rectoexplanationscontentsname}
+\rectoexplanationscontentsname={Explanatory Notes}
+\newcommand{\changerectoexplanationscontentsname}[1]{%
+\rectoexplanationscontentsname={#1}}
+\newif\ifrectoexplanationstwocol
+\rectoexplanationstwocolfalse
+\newcommand{\makerectoexplanatorynotes}{\global\explanontrue
+     \global\verselinenumberstrue
+     \newwrite\rectoexplanations
+     \immediate\openout\rectoexplanations=\jobname.rex
+     \literalrectoexplain{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectoexplanationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectoexplanationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectoexplanationsname}{rectoexplanatorynotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectoexplanationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newcommand{\literalrectoexplain}[1]{
+     \begingroup
+        \def\next{#1}%
+        \newlinechar='40
+        \immediate\write\rectoexplanations{\expandafter\strip\meaning\next}%
+     \endgroup
+}
+\newif\ifrectoexplanationssinglepar
+\newcommand{\firstrectoexplanatory}{\immediate\write\rectoexplanations{\rectotitletoothernotes}
+    \ifrectoexplanationssinglepar%
+    \literalrectoexplain{\par}%
+    \fi%
+}
+\newif\ifnorectoexplainyet
+\newcommand{\rectoexplanatory}[2][0]{\rectotitleinnotescheck%
+\ifexplanon
+    \setlemmarange{#1}%
+    \ifnorectoexplainyet % first rectoexplanation
+    \firstrectoexplanatory
+      \fi %norectoexplainyet
+      \global\norectoexplainyetfalse
+\immediate\write\rectoexplanations{\checknoteheaders}%
+    \literalrectoexplain{#2}%
+    \ifrectoexplanationssinglepar%
+    \literalrectoexplain{\par}%
+    \fi%
+    \fi % ifexplanon
+\resetlemmacounters
+}
+\newcommand{\versoprosetextnote}[3][0]{%
+\iftextnoteson%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+   \ifnoversotextnoteyet % firstversotextnote
+     \firstversotextnote
+      \fi %noversotextnoteyet
+      \global\noversotextnoteyetfalse
+\immediate\write\versotextnotes{\checkprosenoteheaders}%
+\literalversotextnote{#3}%
+\ifversotextnotessinglepar%
+\literalversotextnote{\par}%
+\fi%
+\resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\versoproseemendation}[3][0]{%
+\ifemendationson%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+    \ifredundantemendations
+       \iftextnoteson
+ \ifrangelemma
+     \versoprosetextnote[#1]{#2}{#3}%
+ \else
+     \versoprosetextnote{#2}{#3}%
+ \fi % ifrangelemma}
+       \fi %iftextnoteson
+\ifversotextnotessinglepar%
+\literalversotextnote{\par}%
+\fi%  iftextnotessinglepar
+   \fi % ifredundantemendations
+    \ifnoversoemendationyet % firstemendation
+     \firstversoemendation
+      \fi%noemendyet
+      \global\noversoemendationyetfalse
+\immediate\write\versoemendations{\checkprosenoteheaders}%
+    \literalversoemendation{#3}%
+\ifversoemendationssinglepar%
+\literalversoemendation{\par}%
+\fi% ifemendationssinglep
+    \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\versoproseexplanatory}[3][0]{%
+\ifexplanon%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+    \ifnoversoexplainyet% firstexplanation
+     \firstversoexplanatory%
+      \fi%noexplainyet
+      \global\noversoexplainyetfalse%
+\immediate\write\versoexplanations{\checkprosenoteheaders}%
+    \literalversoexplain{#3}%
+\ifversoexplanationssinglepar%
+    \literalversoexplain{\par}%
+    \fi% ifexplanationssinglepar
+    \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoprosetextnote}[3][0]{%
+\iftextnoteson%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+  \ifnorectotextnoteyet % firstrectotextnote
+     \firstrectotextnote
+      \fi %norectotextnoteyet
+      \global\norectotextnoteyetfalse
+\immediate\write\rectotextnotes{\checkprosenoteheaders}%
+\literalrectotextnote{#3}%
+\ifrectotextnotessinglepar%
+\literalrectotextnote{\par}%
+\fi%
+\resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoproseemendation}[3][0]{%
+\ifemendationson%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+    \ifredundantemendations
+       \iftextnoteson
+ \ifrangelemma
+     \rectoprosetextnote[#1]{#2}{#3}%
+ \else
+     \rectoprosetextnote{#2}{#3}%
+ \fi % ifrangelemma}
+       \fi %iftextnoteson
+\ifrectotextnotessinglepar%
+\literalrectotextnote{\par}%
+\fi%  iftextnotessinglepar
+   \fi % ifredundantemendations
+    \ifnorectoemendationyet % firstemendation
+     \firstrectoemendation
+      \fi%noemendyet
+      \global\norectoemendationyetfalse
+\immediate\write\rectoemendations{\checkprosenoteheaders}%
+    \literalrectoemendation{#3}%
+\ifrectoemendationssinglepar%
+\literalrectoemendation{\par}%
+\fi% ifemendationssinglep
+    \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoproseexplanatory}[3][0]{%
+\ifexplanon%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+    \ifnorectoexplainyet% firstexplanation
+     \firstrectoexplanatory%
+      \fi%noexplainyet
+      \global\norectoexplainyetfalse%
+\immediate\write\rectoexplanations{\checkprosenoteheaders}%
+    \literalrectoexplain{#3}%
+\ifrectoexplanationssinglepar%
+    \literalrectoexplain{\par}%
+    \fi% ifexplanationssinglepar
+    \resetlemmacounters%
+\fi\unskip%
 }
+\newcommand{\pmclresetsettitleinnotes}{%
+\noversoemendationyettrue%
+\noversoexplainyettrue%
+\noversotextnoteyettrue%
+\norectoemendationyettrue%
+\norectoexplainyettrue%
+\norectotextnoteyettrue%
+}
+\newcommand{\pmclversoresetsettitleinnotes}{%
+\noversoemendationyettrue%
+\noversoexplainyettrue%
+\noversotextnoteyettrue%
+}
+\newcommand{\pmclrectoresetsettitleinnotes}{%
+\norectoemendationyettrue%
+\norectoexplainyettrue%
+\norectotextnoteyettrue%
+}
+\let\literalexplanatory=\literalexplain
+\let\literalversoexplanatory=\literalversoexplain
+\let\literalrectoexplanatory=\literalrectoexplain
+\newcommand{\putversotextnotes}{
+\iftextnoteson
+\ifversotextnotestwocol
+\literalversotextnote{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\versotextnotes
+   \input \jobname.vtn
+\contentsendnotestitle{\the\versotextnotescontentsname}{versotextnotes}
+\else
+ \relax
+\fi}
+\newcommand{\putrectotextnotes}{
+\iftextnoteson
+\ifrectotextnotestwocol
+\literalrectotextnote{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\rectotextnotes
+   \input \jobname.rtn
+\contentsendnotestitle{\the\rectotextnotescontentsname}{rectotextnotes}
+\else
+ \relax
+\fi}
+\newcommand{\putversoemendations}{
+\ifemendationson
+\ifversoemendationstwocol
+\literalversoemendation{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\versoemendations
+   \input \jobname.vem
+\contentsendnotestitle{\the\versoemendationscontentsname}{versoemendations}
+\else
+ \relax
+\fi}
+\newcommand{\putrectoemendations}{
+\ifemendationson
+\ifrectoemendationstwocol
+\literalrectoemendation{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\rectoemendations
+   \input \jobname.rem
+\contentsendnotestitle{\the\rectoemendationscontentsname}{rectoemendations}
+\else
+ \relax
+\fi}
+\newcommand{\putversoexplanatorynotes}{
+\ifexplanon
+\ifversoexplanationstwocol
+\literalversoexplain{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\versoexplanations
+   \input \jobname.vex
+\ifpoemcontentson
+ \ifexplanon
+\contentsendnotestitle{\the\versoexplanationscontentsname}{versoexplanatorynotes}
+  \fi
+\fi
+\else
+ \relax
+\fi}%    \end{macrocode}
+\newcommand{\putrectoexplanatorynotes}{
+\ifexplanon
+\ifrectoexplanationstwocol
+\literalrectoexplain{\end{multicols}}
+\fi %\iftextnotetwocol
+   \newpage
+   \hyphenationforsmall
+   \immediate\closeout\rectoexplanations
+   \input \jobname.rex
+\ifpoemcontentson
+ \ifexplanon
+\contentsendnotestitle{\the\rectoexplanationscontentsname}{rectoexplanatorynotes}
+  \fi
+\fi
+\else
+ \relax
+\fi}
 \newif\ifversopassagestillopen
 \versopassagestillopenfalse
 \newif\ifrectopassagestillopen