Re: [NTG-context] Newbie wants to make long tables

16 Sep 2003


      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
-------------------------------------------------------------------------