14 files changed, 110 insertions, 48 deletions
diff --git a/Master/texmf-dist/doc/generic/musixtex/ChangeLog-131.txt b/Master/texmf-dist/doc/generic/musixtex/ChangeLog-131.txt
new file mode 100644
index 00000000000..93fac608e5f
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/musixtex/ChangeLog-131.txt
@@ -0,0 +1,4 @@
+
+Changes from MusiXTeX 130 to 131:
+
+  *  defined \zzdoublebar, \zzbar, \zendpiece
diff --git a/Master/texmf-dist/doc/generic/musixtex/README b/Master/texmf-dist/doc/generic/musixtex/README
index 3e87b0e509f..248beeb18bd 100644
--- a/Master/texmf-dist/doc/generic/musixtex/README
+++ b/Master/texmf-dist/doc/generic/musixtex/README
@@ -1,4 +1,4 @@
-This is MusiXTeX, version 1.30 (2020-03-20).
+This is MusiXTeX, version 1.31 (2021-01-07).
 MusiXTeX is a TeX-based system for typesetting music.
 
 The main author was Daniel Taupin, who died in a climbing
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf b/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf
index 073774546f7..6c62fbdec48 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc/barlines.tex b/Master/texmf-dist/doc/generic/musixtex/musixdoc/barlines.tex
index 92cd5624c77..b3f1d545a78 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc/barlines.tex
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc/barlines.tex
@@ -17,7 +17,9 @@ by a double bar.
 There is no specific command to print a thin-thick double bar line, but
 \keyindex{setdoubleBAR} will cause one in the same cases where
 \verb|\setdoublebar| would cause a thin-thin double bar line.
-To typeset a double-bar line in the middle of a bar, use \keyindex{zdoublebar}.
+To typeset a double-bar line in the middle of a bar, use \keyindex{zdoublebar};
+use \keyindex{zzdoublebar} to force the mid-bar double-bar line to the end
+of a system.
 
 To make the next bar line invisible, use \keyindex{setemptybar} before
 \verb|\bar|.
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex b/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex
index 64be0c29fec..e1402cfb3e6 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex
@@ -1,6 +1,6 @@
 \title{\Huge\bfseries\musixtex\\[\bigskipamount]
 \LARGE\bfseries Using \TeX{} to write polyphonic\\or
-instrumental music\\\Large\itshape Version 1.30}
+instrumental music\\\Large\itshape Version 1.31}
 \author{}
 
 
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc/layout.tex b/Master/texmf-dist/doc/generic/musixtex/musixdoc/layout.tex
index 5d2b353b796..a22a88255cb 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc/layout.tex
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc/layout.tex
@@ -11,7 +11,8 @@ You can force a line or page break by replacing \keyindex{bar} with
 to forbid line-breaking at a particular bar, replace \verb|\bar|
 with \keyindex{xbar}. To force a line or page break where there is
 no bar line, use \keyindex{zalaligne} or \keyindex{zalapage}. To mark any
-mid-bar location as an optional line-breaking point, use \keyindex{zbar}.
+mid-bar location as an optional line-breaking point, use \keyindex{zbar};
+to force the mid-bar bar line to the end of a system, use \keyindex{zzbar}.
 
 The heavy final double bar of a piece is one of the consequences of
 \keyindex{Endpiece} or \keyindex{Stoppiece}. If you just want to terminate
@@ -19,7 +20,7 @@ the text with a simple bar, say \keyindex{stoppiece} or \keyindex{endpiece}.
 To terminate it with no bar line at all, code \keyindex{zstoppiece}.
 If you want to suppress right-justification of the last line of a score,
 use \keyindex{raggedstoppiece}; the bar line can be suppressed by
-using \keyindex{setemptybar}. 
+using \keyindex{zendpiece} (or \keyindex{setemptybar}). 
 
 Once you have stopped the score by any of these means, you may want to restart
 it, and there are several ways to do so. If you don't need to change the key
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc/repeats.tex b/Master/texmf-dist/doc/generic/musixtex/musixdoc/repeats.tex
index 5924d92d437..a0c89b5f592 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc/repeats.tex
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc/repeats.tex
@@ -73,7 +73,7 @@ correctly adjusted, using \keyindex{writezbarno} for the continuation
 if \keyindex{systemnumbers} is in use. 
 
 As an example, here is
-a \emph{bour\'ee} by G.-F.~Handel coded using \verb|\zleftrepeat| at the beginning
+a \emph{bourr\'ee} by G.-F.~Handel coded using \verb|\zleftrepeat| at the beginning
 of the \textbf{A} section and \verb|\zzleftrightrepeat| 
 between the \textbf{A} and the \textbf{B} sections:
 
diff --git a/Master/texmf-dist/doc/generic/musixtex/musixdoc/restsdoc.tex b/Master/texmf-dist/doc/generic/musixtex/musixdoc/restsdoc.tex
index 1e3a33431c4..2bf4aebfb6b 100644
--- a/Master/texmf-dist/doc/generic/musixtex/musixdoc/restsdoc.tex
+++ b/Master/texmf-dist/doc/generic/musixtex/musixdoc/restsdoc.tex
@@ -83,6 +83,7 @@ half rest. The ordinary \verb|\pause| or
 must be added to distinguish between the whole and the half rest. The commands,
 which are non-spacing\footnote{Editor's note: The reason for having defined these
 as non-spacing is not obvious}, are
+are
  \begin{itemize}\setlength{\itemsep}{0ex}
  \item \keyindex{liftpause}~$n$ to get a
   \hbox to10pt{\liftpause{-2}\hss}
@@ -95,6 +96,7 @@ as non-spacing is not obvious}, are
  \item \keyindex{lifthpausep}~$n$ to get
   \hbox to10pt{\lifthpausep{-1}\hss} raised the same way.
  \end{itemize}
+
  %\check
  \section{Bar-centered rests}\label{barcentered}
 Sometimes it is necessary to place a rest (or some other symbols) exactly in the middle
diff --git a/Master/texmf-dist/doc/generic/musixtex/scripts/musixtex.pdf b/Master/texmf-dist/doc/generic/musixtex/scripts/musixtex.pdf
index ec49d4a3d6e..30246ff59f9 100644
--- a/Master/texmf-dist/doc/generic/musixtex/scripts/musixtex.pdf
+++ b/Master/texmf-dist/doc/generic/musixtex/scripts/musixtex.pdf
diff --git a/Master/texmf-dist/doc/man/man1/musixtex.1 b/Master/texmf-dist/doc/man/man1/musixtex.1
index 839d07a882b..59b6c8874ef 100644
--- a/Master/texmf-dist/doc/man/man1/musixtex.1
+++ b/Master/texmf-dist/doc/man/man1/musixtex.1
@@ -1,9 +1,9 @@
 .\" This manpage is licensed under the GNU Public License
-.TH MUSIXTEX 1 2020-03-20  "musixtex version 0.22" ""
+.TH MUSIXTEX 1 2020-05-21  "musixtex version 0.23" ""
 
 .SH NAME
-musixtex \- processes MusiXTeX files, using pre-processors prepmx, pmxab and autosp as necessary, 
-and then deletes intermediate and log files (unless 
+musixtex \- processes MusiXTeX files, using pre-processors prepmx, xml2pmx, pmxab and autosp 
+as necessary, and then deletes intermediate and log files (unless 
 .B -i 
 is used)
 .SH SYNOPSIS
@@ -13,7 +13,7 @@ is used)
 .I option 
 | 
 .I jobname 
-[ .mtx  | .pmx  | .aspc | .tex | .ltx ] } ...
+[ .xml | .mtx  | .pmx  | .aspc | .tex | .ltx ] } ...
 .SH DESCRIPTION
 .TP 
 If a jobname argument has a .tex extension, the default effect is to process the file using
@@ -39,6 +39,10 @@ If a jobname argument has a .pmx extension, the file is first preprocessed using
 .BR pmxab (1) 
 and the resulting .tex file is processed as above.
 .P
+If a jobname argument has a .xml extension, the file is first preprocessed using
+.BR xml2pmx (1)
+and the resulting .pmx file is processed as above.
+.P
 If a jobname argument has a .mtx extension, the file is first preprocessed using
 .BR prepmx (1)
 and the resulting .pmx file is processed as above.
@@ -55,6 +59,8 @@ If a jobname argument has a .aspc extension, the file is first preprocessed usin
 and the resulting .tex or .ltx file is processed as above.
 .P
 If a jobname argument has none of these extensions, the script will look for a file 
+.IR jobname .xml
+or
 .IR jobname .mtx
 or
 .IR jobname .pmx
@@ -128,6 +134,11 @@ use
 .B aspcx
 as the aspc preprocessor; e.g., -A "autosp -l".
 .TP
+.B -L xmlx
+use 
+.B xmlx
+as the xml preprocessor; e.g., -L "./XML2PMX".
+.TP
 .B -t
 stop processing at the tex/mid files
 .TP
@@ -184,9 +195,10 @@ If the -F option is used, options -l and -p need to be set if the engine name do
 .BR dvipdfm (1),
 .BR dvips (1),
 .BR pmxab (1),
-.BR pmxchords (1)
+.BR pmxchords (1),
 .BR prepmx (1),
-.BR ps2pdf (1)
+.BR ps2pdf (1),
+.BR xml2pmx (1)
 and musixdoc.pdf.
 .SH AUTHOR 
 This manual page was written by Bob Tennent <rdt@cs.queensu.ca>.
diff --git a/Master/texmf-dist/doc/man/man1/musixtex.man1.pdf b/Master/texmf-dist/doc/man/man1/musixtex.man1.pdf
index 8511904f36e..bb00b6cb5b0 100644
--- a/Master/texmf-dist/doc/man/man1/musixtex.man1.pdf
+++ b/Master/texmf-dist/doc/man/man1/musixtex.man1.pdf
diff --git a/Master/texmf-dist/scripts/musixtex/musixtex.lua b/Master/texmf-dist/scripts/musixtex/musixtex.lua
index 5f600b99558..930e90d70fe 100755
--- a/Master/texmf-dist/scripts/musixtex/musixtex.lua
+++ b/Master/texmf-dist/scripts/musixtex/musixtex.lua
@@ -1,10 +1,10 @@
 #!/usr/bin/env texlua  
 
-VERSION = "0.22"
+VERSION = "0.23a"
 
 --[[
-     musixtex.lua: processes MusiXTeX files using prepmx and/or pmxab and/or 
-     autosp as pre-processors (and deletes intermediate files)
+     musixtex.lua: processes MusiXTeX files using xml2pmx and/or prepmx and/or pmxab 
+     and/or autosp as pre-processors (and deletes intermediate files)
 
      (c) Copyright 2011-2020 Bob Tennent rdt@cs.queensu.ca
                              and Dirk Laurie dirk.laurie@gmail.com
@@ -29,6 +29,12 @@ VERSION = "0.22"
 
   ChangeLog:
 
+     version 0.23a 2020-08-14  RDT
+       pmxprep files now deleted by xml2pmx
+
+     version 0.23  2020-05-21 RDT
+       added support for xml2pmx pre-preprocessing
+
      version 0.22  2020-03-20 RDT
        add -X option
        add -version, --version, -help, --help options
@@ -131,12 +137,12 @@ local orig_print = print
 function usage()
   orig_print 
 [[
-Usage:  [texlua] musixtex.lua { option | basename[.mtx | .pmx | .aspc | .tex | .ltx] } ...
+Usage:  [texlua] musixtex.lua { option | basename[ .xml | .mtx | .pmx | .aspc | .tex | .ltx] } ...
         When no extension is given, extensions are tried in the above order
-        until a source file is found. Preprocessing goes mtx-pmx-tex or 
-        aspc-etex/ltx, with the entry point determined by the extension.
+        until a source file is found. Preprocessing goes xml-pmx-tex or mtx-pmx-tex or 
+        aspc-tex, with the entry point determined by the extension.
         The normal route after preprocessing goes tex-dvi-ps-pdf, but shorter 
-        routes are also available, see the options. The default processing route
+        routes are also available, see the options. The default 3-pass processing route
         for .tex files is etex-musixflx-etex.
 Options: -v, --version  version
          -h, --help   help
@@ -148,9 +154,10 @@ Options: -v, --version  version
          -P ps2pdfxx  use ps2pdfxx as the Postscript processor
          -c  preprocess pmx file using pmxchords
          -m  stop at pmx
-         -M prepmxx use prepmxx as the mtx preprocessor
-         -A autospx use autospx as the aspc preprocessor
-         -X pmxabx use pmxabx as the pmx preprocessor
+         -M prepmxx  use prepmxx as the mtx preprocessor
+         -A autospx  use autospx as the aspc preprocessor
+         -X pmxabx  use pmxabx as the pmx preprocessor
+         -L xmlx use xmlx as the xml preprocessor
          -t  stop at tex/mid
          -s  stop at dvi
          -g  stop at ps
@@ -207,6 +214,7 @@ end
 --         dvi == false  "do not process the DVI file" (but stop after TeX)
 local dvips = "dvips -e0"
 function defaults()
+  xml2pmx = "xml2pmx"
   prepmx = "prepmx"
   pmx = "pmxab"
   autosp = "autosp"
@@ -340,6 +348,9 @@ function process_option(this_arg)
   elseif this_arg == "-A" then
     narg = narg+1
     autosp = arg[narg]
+  elseif this_arg == "-L" then
+    narg = narg+1
+    xml2pmx = arg[narg]
   elseif this_arg == "-q" then
     if not tempname then
       tempname = tempname or os.tmpname()
@@ -360,19 +371,19 @@ end
 
 function find_file(this_arg)
   basename, extension = this_arg:match"(.*)%.(.*)"  
-  extensions = {["mtx"] = true, ["pmx"] = true, ["aspc"] = true, ["tex"] = true, ["ltx"] = true}
+  extensions = {["xml"] = true, ["mtx"] = true, ["pmx"] = true, ["aspc"] = true, ["tex"] = true, ["ltx"] = true}
   if extensions[extension] then
     return basename, extension
   end
   basename, extension  = this_arg, null
-  for ext in ("mtx,pmx,aspc,tex,ltx"):gmatch"[^,]+" do
+  for ext in ("xml,mtx,pmx,aspc,tex,ltx"):gmatch"[^,]+" do
     if exists (basename .. "." .. ext) then
       extension = ext
       break
     end
   end
   if extension == null then
-    print("!! No file " .. basename .. ".[mtx|pmx|aspc|tex|ltx]")
+    print("!! No file " .. basename .. ".[xml|mtx|pmx|aspc|tex|ltx]")
     exit_code = exit_code+1
     return
   end
@@ -381,14 +392,21 @@ end
 
 function preprocess(basename,extension)
   if not (basename and extension) then return end
-  if extension == "mtx" then
+  if extension == "xml" then
+    if execute(xml2pmx .. " " .. basename .. ".xml" .. " " .. basename .. ".pmx" ) == 0 then 
+      extension = "pmx"
+    else
+      print ("!! xml2pmx preprocessing of " .. basename .. ".xml fails.")
+      return
+    end
+  elseif extension == "mtx" then
     if execute(prepmx .. " " .. basename ) == 0 then
       extension = "pmx"
     else
       print ("!! prepmx preprocessing of " .. basename .. ".mtx fails.")
       return
     end
-  end
+  end 
   if extension == "pmx" then
     local OK = true
     if pmx then 
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixps.tex b/Master/texmf-dist/tex/generic/musixtex/musixps.tex
index 6e877494e7f..9ab8b0ce3fe 100644
--- a/Master/texmf-dist/tex/generic/musixtex/musixps.tex
+++ b/Master/texmf-dist/tex/generic/musixtex/musixps.tex
@@ -1,11 +1,12 @@
 %% PostScript slurs, ties and crescendos
 %   Coded by Stanislav Kneifl
 %   RDT added \psRslurskip \iRslur \tRslur \psRtieskip \tRtie \psLtieskip \tLtie 2019/06/17
+%   RDT added \iRtieu \iRtied 2020/09/07
 
 \ifx\undefined\startpiece\errmessage{Input musixtex.tex before musixps.tex}\fi
 \ifx\undefined\liftcresc\else\endinput\fi
 
-\immediate\write16{MusiXPS PostScript slurs, ties and crescendos 0.93 (17.2.2015)}%
+\immediate\write16{MusiXPS PostScript slurs, ties and crescendos 0.94 (07.09.2020)}%
 
 \catcode`\@=11
 
@@ -603,6 +604,8 @@
 \def\iltied#1#2{\iTied{#1}{#2}{\pslslurskip}}
 \def\irtieu#1#2{\iTieu{#1}{#2}{\psrslurskip}}
 \def\irtied#1#2{\iTied{#1}{#2}{\psrslurskip}}
+\def\iRtieu#1#2{\iTieu{#1}{#2}{\psRslurskip}}
+\def\iRtied#1#2{\iTied{#1}{#2}{\psRslurskip}}
 \def\ttie#1{\tTie{#1}{\psttieskip}}
 \def\tltie#1{\tTie{#1}{\psltieskip}}
 \def\trtie#1{\tTie{#1}{\psrtieskip}}
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixtex.tex b/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
index b11caaa6b54..ba5b4f38801 100644
--- a/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
+++ b/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
@@ -25,33 +25,37 @@
 
 \def\mufl@x{0.83}%
 \def\mxmajorvernumber{1}
-\def\mxminorvernumber{30}
+\def\mxminorvernumber{31}
 \def\mxvernumber{\mxmajorvernumber\mxminorvernumber}% make it possible to compare with \ifnum
-\def\mxversuffix{beta}% 
+\def\mxversuffix{}% 
 \edef\mxversion{\mxmajorvernumber.\mxminorvernumber\mxversuffix}
-\def\mxdate{2018-08-09}
+\def\mxdate{2021-01-07}
 
 \immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}%
 \everyjob{\immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}}%
 
+% version 1.31
+%
+% defined \zzdoublebar, \zzbar, \zendpiece
 
 % version 1.30
+%
 % defined \zdoublebar for use within a bar
 % defined \hbp and \hbpp 
 
 % version 1.29
-
+%
 % defined \tabfnt, \tabcleffnt, \tabstringfnt, \tab etc. to support tablature
 
 % version 1.28
-
+%
 % defined 
 %  \z[left|right|leftright]repeat, for use *within* a bar
 %  \zz...repeat, to force to the end of a system
 % corrected definition of \C@Inter for \nblines < 4
 
 % version 1.27
-
+%
 % introduced \meterN 
 % eliminated \ds@oup 
 % introduced \nqqb \nqqh \nqqqb \nqqqh abbreviations and
@@ -62,18 +66,18 @@
 % introduced \xxtuplet 
 
 % version 1.26
-
+%
 % deleted spurious definition in \resetlayout and 
 %  spurious space in definition of \interfacteur...
 
 % version 1.25
-
+%
 % included a "dummy" tuplet.tex in the distribution
 % added \ignorespaces in musixltx.tex
 % defined \qap, \qapp, \tqsk
 
 % version 1.24
-
+%
 % preserve changes to \transpose in an hboxed tremolo command
 % test that musixtex.tex has already been loaded in some extensions: 
 %   musixps, musixec, musixhv, musixplt, musixtmr, musixppff 
@@ -83,13 +87,13 @@
 % correct typos \twtybf[g] \svtbf[g] 
 
 % version 1.23
-
+%
 % added \xtr and \ptr ornaments
 % adjusted spacing of \tr
 % corrected definition of \C@Inter for \nblines > 6 
 
 % version 1.22
-
+%
 % bi and sc font definitions added; sl and tt definitions for musixsty moved 
 % explicit font choices for \txtfont replaced by generic commands \smalltype\it etc.
 % \pdlud \halfwidthbigwedge and \raise-height font-dependent
@@ -97,7 +101,7 @@
 
 
 % version 1.21
-
+%
 % RDT adjusted the offsets and/or vertical positions for some tremolos
 % RDT moved \lastbarpos\lin@pos after calls to \Writ@meters 
 %   to correct \centerbar positioning
@@ -108,24 +112,24 @@
 % RDT added support for piano-pedal bracket notation
 
 % version 1.20
-
+%
 % RDT re-defined tremolo commands to allow for numerical pitches; 
 %  use of \raise and \hbox suggested by Jean-Pierre Colon
 
 % version 1.19:
-
+%
 % RDT corrected typos in the definition of \comput@fonts 
 %   affecting ppff fonts for \Largemusicsize
 % RDT introduced definitions for tremolo commands \trml, \trmu, etc. 
 % RDT turned off lyrics for \metron and \metronequiv notes
 
 % version 1.18:
-
+%
 % RDT added definitions of \raggedstoppiece and \slide from musixext.tex
 % RDT increased the length of beam stems (adapted from J.-P. Coulon)
 
 % version 1.17:
-
+%
 % RDT re-defined \txtfont for non-normal staff sizes
 % RDT defined \tinyppff and \ppfftwelve, and re-defined \ppff to be staffsize dependent
 % RDT introduced \tqqb \tqqh \tqqqb \tqqqh abbreviations 
@@ -136,7 +140,7 @@
 % RDT introduced double-dotted rests \qppp, \dspp, \qspp, etc.
 
 % version 1.16:
-
+%
 % RDT corrected the definitions of \nnotes and \nnnotes
 
 % HM corrected the definitions for cautionary small accidentals
@@ -162,7 +166,7 @@
 % added dynamic-mark  macros \sfz \sfzp
 
 % version 1.15:
-
+%
 % moved out:
 % - 1/128th beams        -> musixbm
 % - triple pointed notes -> musixtri
@@ -2288,7 +2292,7 @@
 % if you need a line which appears ragged
 \def\raggedstoppiece{\ifx\ragg@d\empty \fil@{r}\fi % version 1.18 RDT (from musixext)
   \check@nopen\n@wbar\hfill\z@suspend\@nds@ction}
-\def\zendpiece{\setemptybar\raggedstoppiece}
+\def\zendpiece{\setemptybar\raggedstoppiece}       % RDT version 1.31
 
 \def\Stoppiece{\setdoubleBAR\stoppiece}
 \let\Endpiece\Stoppiece
@@ -2303,6 +2307,7 @@
   \let\T@bil\iftrue \let\everyst@ff\everystaff \let\fil@spc\empty
   \let\fil@termskip\empty \let\fil@signs\empty \let\fil@barno\empty
   \let\leftrepeat\leftrepeat@II \let\leftrightrepeat\leftrightrepeat@II
+  \let\doublebar\doublebar@II
   \piece@beginc\Writ@meters\lastbarpos\lin@pos\let\pdl@cut\empty\addspace\afterruleskip}
                             %%% 1.21: added \lastbarpos and \pdl@cut settings 
 
@@ -2550,7 +2555,7 @@
 \let\leftrepeat\leftrepeat@II
 \let\zleftrepeat\zleftrepeat@II                 % RDT 1.28
 
-\def\zzleftrepeat{%                             % RDT 1.28
+\def\zzleftrepeat{%                           % RDT 1.28
 \advance\barno\m@ne%
 \stoppiece%
 \let\z@sw\@ne%
@@ -2610,6 +2615,21 @@
 
 \def\zdoublebar{\advance\barno\m@ne\doublebar}  % RDT 1.30
 
+\def\zzdoublebar{%                              % RDT 1.31
+\advance\barno\m@ne%
+\setdoublebar%
+\stoppiece%
+\let\z@sw\@ne%
+\contpiece%
+}
+
+\def\zzbar{%                                    % RDT 1.31
+\advance\barno\m@ne%
+\stoppiece%
+\let\z@sw\@ne%
+\contpiece%
+}
+
 \def\alapage{\stoppiece\eject\contpiece}
 \def\zalapage{\zstoppiece\eject\contpiece}