texlive[51317] Master/texmf-dist/tex/csplain/opmac/opmac.tex: csplain

[commits+karl at tug.org]

Revision: 51317
          http://tug.org/svn/texlive?view=revision&revision=51317
Author:   karl
Date:     2019-06-04 23:23:54 +0200 (Tue, 04 Jun 2019)
Log Message:
-----------
csplain (4jun19)

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/csplain/opmac/opmac.tex

Modified: trunk/Master/texmf-dist/tex/csplain/opmac/opmac.tex
===================================================================
--- trunk/Master/texmf-dist/tex/csplain/opmac/opmac.tex	2019-06-04 21:23:36 UTC (rev 51316)
+++ trunk/Master/texmf-dist/tex/csplain/opmac/opmac.tex	2019-06-04 21:23:54 UTC (rev 51317)
@@ -5,7 +5,7 @@
 %% The history of versions is at the end of this file, after \endpinput
 
 \ifx\OPmacversion\undefined \else \endinput \fi
-\def\OPmacversion{May 2019}  
+\def\OPmacversion{Jun. 2019}  
 \immediate\write16{This is OPmac (Olsak's Plain macros), version <\OPmacversion>}
 
 %%%%%%%%%%%%%% Basic macros, sec. 3.1 in opmac-d.pdf
@@ -1166,7 +1166,7 @@
 \def\scantabdata#1{\let\next=\scantabdata
    \ifx\relax#1\let\next=\relax
    \else\ifx|#1\addtabvrule
-      \else\ifx[#1\def\next{\scantabdataE}%
+      \else\ifx(#1\def\next{\scantabdataE}%
          \else\isinlist{123456789}#1\iftrue \def\next{\scantabdataC#1}%
              \else \expandafter\ifx\csname tabdeclare#1\endcsname \relax
                    \expandafter\ifx\csname paramtabdeclare#1\endcsname \relax
@@ -1180,7 +1180,7 @@
 \def\scantabdataC {\def\tmpb{}\afterassignment\scantabdataD \tmpnum=}
 \def\scantabdataD#1{\loop \ifnum\tmpnum>0 \advance\tmpnum by-1 \addto\tmpb{#1}\repeat
    \expandafter\scantabdata\tmpb}
-\def\scantabdataE#1]{\addtabdata{#1}\scantabdata}
+\def\scantabdataE#1){\addtabdata{#1}\scantabdata}
 \def\tabdeclarec{\tabiteml\hfil##\unsskip\hfil\tabitemr}
 \def\tabdeclarel{\tabiteml##\unsskip\hfil\tabitemr}
 \def\tabdeclarer{\tabiteml\hfil##\unsskip\tabitemr}
@@ -1224,16 +1224,11 @@
     \vbox to\tmpdim{}\ddlinedata \crcr \noalign{\gdef\tabstrutA{\tabstrut}}}
 
 \def\mspan{\omit \tabdata={\tabstrut}\let\tmpa=\relax \afterassignment\mspanA \mscount=}
-\def\mspanA[#1]{\loop \ifnum\mscount>1 \csname span\endcsname \omit \advance\mscount by-1 \repeat 
-   \mspanB#1\relax}
-\def\mspanB#1{\ifx\relax#1\def\tmpa{\def\tmpa####1}%
-   \expandafter\tmpa\expandafter{\the\tabdata\ignorespaces}\expandafter\tmpa\else
-   \ifx |#1\ifx\tmpa\vrule\addtabdata{\kern\vvkern}\fi \addtabdata{\vrule}\let\tmpa=\vrule
-   \else \let\tmpa=\relax
-      \ifx c#1\addtabdata{\tabiteml\hfil\ignorespaces##1\unsskip\hfil\tabitemr}\fi
-      \ifx l#1\addtabdata{\tabiteml\ignorespaces##1\unsskip\hfil\tabitemr}\fi
-      \ifx r#1\addtabdata{\tabiteml\hfil\ignorespaces##1\unsskip\tabitemr}\fi
-   \fi \expandafter\mspanB \fi}
+\def\mspanA[#1]#2{\loop \ifnum\mscount>1 \csname span\endcsname \omit \advance\mscount -1 \repeat
+   \colnum=0 \def\tmpa{}\tabdata={}\scantabdata#1\relax
+   \setbox0=\vbox{\halign\expandafter{\the\tabdata\cr#2\crcr}\global\setbox8=\lastbox}%
+   \setbox0=\hbox{\unhbox8 \unskip \global\setbox8=\lastbox}%
+   \unhbox8 \ignorespaces}
 
 \newdimen\drulewidth  \drulewidth=0.4pt
 \let\orihrule=\hrule  \let\orivrule=\vrule
@@ -1858,7 +1853,8 @@
            \boxlines added.
            \titskip introduced.
            \fnote corrected: \iflocfnum\openref.
-May  2019  \table declarator [] added.
+May  2019  \table declarator () added.
+Jun. 2019  \mspan improved.
 
 
 %%%%%%%%%%%%%% End of opmac.tex