Re: Newbie wants to make long tables

[Hans Hagen <pragma@wxs.nl>]

At 23:41 15/09/2003 +0100, you wrote:
>Hans,
>Thank you again for your speedy response.
> > \bTABLE[split=yes]
> > \bTR \bTD left \eTD\bTD right \eTD\eTR
> > \bTR[after=\pagina] \bTD left \eTD\bTD right \eTD\eTR
> > \bTR \bTD left \eTD\bTD right \eTD\eTR
> > \bTR \bTD left \eTD\bTD right \eTD\eTR
> > \bTR \bTD left \eTD\bTD right \eTD\eTR
> > \bTR \bTD left \eTD\bTD right \eTD\eTR
> > \eTABLE
> >
> > i'll send you the adapted core-ntb in another mail
>Thanks received and installed
> >
> > Hans
>\pagina seems to be synonymous with \page at least \page appears to have the
>same effect. I was hoping for [after={\page[bigpreference]}] but that does
>not appear to work. [after={\page[yes]}] does the same as \page. It seems to
>be just that the preference does not do anything.
>
>I was also hoping for [split=repeat] but that stops [after=\pagina] from
>doing anything.

the next solution is quite ugly but seems to work; i wonder what happens in 
boundary cases

\def\splittblbox#1% #1 <> 0/2
   {\ifinsidefloat
      \unvbox#1%
    \else
      % spacing between rows gets lost in split
      \setbox4\vbox
        {\doifsomething\tbltbltussenwit{\blank[\tbltbltussenwit]}}%
      \setbox2\vbox
        {}%
      \dorecurse\noftblheadlines
        {\setbox0\vsplit#1 to \lineheight
         \setbox2\vbox{\unvcopy2\unvcopy0}}%
      \ifcase\noftblheadlines\else\unvcopy2\fi
      \donefalse
      \doloop
        {\setbox0\vsplit#1 to \lineheight
         \ifdim\pagegoal<\maxdimen
           \setbox0\vbox{\unvbox0}%
           \dimen0\ht0
           \advance\dimen0\ht4
           \advance\dimen0\pagetotal
           \ifdim\dimen0>\pagegoal
             \bgroup \pagina \egroup % make sure that local vars are kept
             \ifcase\noftblheadlines\else\unvcopy2\fi
           \fi
         \fi
         \ifdone
           \doifsomething\tbltbltussenwit{\blank[\tbltbltussenwit]}%
         \fi
         \unvbox0
         % old solution: \allowbreak
         % start of forced break handling for Nigel King
         \bgroup
         \scratchcounter\recurselevel
         \advance\scratchcounter\noftblheadlines
         \setupTBLcell{\number\scratchcounter}1
         \ifx\@@tblsplitafter\relax\else
           \scratchcounter\realpageno
           \@@tblsplitafter
           \ifnum\scratchcounter<\realpageno
             \ifcase\noftblheadlines\else\unvcopy2\fi
           \fi
         \else
           \allowbreak
         \fi
         \egroup
         % so far for the repeated head after forced break
         \ifvoid#1 \exitloop \else \donetrue \fi}%
    \fi}

works ok for :

% \bTABLE[split=repeat]
%   \bTABLEhead
%     \bTR \bTH lxxxeft \eTH\bTD right \eTD\eTR
%   \eTABLEhead
%   \bTABLEbody
%     \dorecurse{100}{\bTR[after={\pagina[bigpreference]}] \bTD left 
\eTD\bTD right \eTD\eTR}
%     \dorecurse{100}{\bTR\bTD left \eTD\bTD right \eTD\eTR}
%   \eTABLEbody
% \eTABLE

As said, an ugly, not so wel tested, patch

Hans
-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------