Re: TABLE 'last line' tag?

[Hans Hagen <pragma@wxs.nl>]

nico wrote:
> On Thu, 20 Apr 2006 17:27:50 -0700, Johannes Graumann  
> <johannes_graumann@web.de> wrote:
>
>   
>> nico wrote:
>>
>>     
>>> Why don't you test if the attribute is set before applying it to the TR?
>>> You see the problem on the last row, but the fact is that you force the
>>> bottomframe clear for every row (which is dirty IMHO).
>>>       
>> It's not that easy, since the bottomframe - once set - is persistent ...  
>> so
>> every row underneath my header (e.g.) will have 'bottomframe=on' set.
>>     
>
> No, the options are local to the current level where it is set. If  
> bottomframe is on for one row, it won't set bottomframe to the next rows.  
> In the following example, only two rows (the header and another one in the  
> body) have local bottomframe on, and the last row bottomframe is done with  
> table setup:
>
> \starttext
> \setupTABLE[frame=off]
> \setupTABLE[row][last][rulethickness=0.90pt,bottomframe=on]
> \bTABLE
> \bTABLEhead
> \bTR[bottomframe=on]\bTH a \eTH\bTH b \eTH\eTR
> \eTABLEhead
> \bTABLEbody
> \bTR\bTD bla \eTD\bTD bla \eTD\eTR
> \bTR\bTD bla \eTD\bTD bla \eTD\eTR
> \bTR\bTD bla \eTD\bTD bla \eTD\eTR
> \bTR[bottomframe=on]\bTD bla \eTD\bTD bla \eTD\eTR
> \bTR\bTD bla \eTD\bTD bla \eTD\eTR
> \bTR\bTD bla \eTD\bTD bla \eTD\eTR
> \eTABLEbody
> \eTABLE
> \stoptext
>
> You can also put bottomframe only for a cell with  
> bTD[bottomframe=on]...\eTD.
>   

the following patch will permit negative numbers (remove empty lines due 
to mail mess up)

\def\setupTBLcell#1#2% cell over col over row
  {\setupTBLsection % already forgotten
\edef\positiverow{\number#1}%
\edef\positivecol{\number#2}%
\scratchcounter-\maximumrow\advance\scratchcounter#1\advance\scratchcounter\minusone
\edef\negativerow{\number\scratchcounter}%
\scratchcounter-\maximumcol\advance\scratchcounter#2\advance\scratchcounter\minusone
\edef\negativecol{\number\scratchcounter}%
   \getvalue{\@@tblprefix\v!each\v!each}%
   \getvalue{\@@tblprefix\c!y\v!each}%
   \getvalue{\@@tblprefix\c!x\v!each}%
   \getvalue{\@@tblprefix\c!y\v!oddeven\positiverow}%
   \getvalue{\@@tblprefix\c!x\v!oddeven\positivecol}%
   \getvalue{\@@tblprefix\c!x\v!oddeven\positivecol\c!y\v!oddeven\positiverow}%
   \ifnum\positiverow=\plusone
     \getvalue{\@@tblprefix\c!y\v!first}%
     \executeifdefined{\@@tblprefix\c!x\positivecol\c!y\v!first}\donothing
   \fi
   \ifnum\positivecol=\plusone
     \getvalue{\@@tblprefix\c!x\v!first}%
     \executeifdefined{\@@tblprefix\c!x\v!first\c!y\positiverow}\donothing
   \fi
   \ifnum\positiverow=\maximumrow\relax
     \getvalue{\@@tblprefix\c!y\v!last}%
     \executeifdefined{\@@tblprefix\c!x\positivecol\c!y\v!last}\donothing
   \fi
   \ifnum\positivecol=\maximumcol\relax
     \getvalue{\@@tblprefix\c!x\v!last}%
     \executeifdefined{\@@tblprefix\c!x\v!last\c!y\positiverow}\donothing
   \fi
   \ifnum\positiverow=\maximumrow\relax\ifnum\positivecol=\maximumcol\relax
     \getvalue{\@@tblprefix\c!x\v!last\c!y\v!last}%
   \fi\fi
   \ifnum\positiverow=\plusone \ifnum\positivecol=\plusone
     \getvalue{\@@tblprefix\c!x\v!first\c!y\v!first}%
   \fi\fi
   \ifnum#1>\noftblhdnxlines\else
     \executeifdefined{\@@tblprefix\v!header\v!each}\donothing
     \executeifdefined{\@@tblprefix\v!header\positivecol}\donothing
   \fi
   \executeifdefined{\@@tblprefix\c!y\positiverow}\donothing
\executeifdefined{\@@tblprefix\c!y\negativerow}\donothing
   \getvalue{\@@tbl\@@tbl\c!extras}\letvalue{\@@tbl\@@tbl\c!extras}\relax %    \executeifdefined{\@@tblprefix\c!x\positivecol}\donothing
\executeifdefined{\@@tblprefix\c!x\negativecol}\donothing
   \getvalue{\@@tbl\@@tbl\c!extras}\letvalue{\@@tbl\@@tbl\c!extras}\relax %    \executeifdefined{\@@tblprefix\c!x\positivecol\c!y\positiverow}\donothing
\executeifdefined{\@@tblprefix\c!x\negativecol\c!y\negativerow}\donothing
 \global\letcscsname\@@tblsplitafter\csname\@@tbl\@@tbl\c!after\endcsname
   \relax}

\setupcolors[state=start]

\setupTABLE[r]  [2][color=red]
\setupTABLE[r] [-2][color=red]
\setupTABLE[c]  [2][color=green]
\setupTABLE[c] [-2][color=green]
\setupTABLE[4]  [4][color=blue]
\setupTABLE[-4][-4][color=blue]

\bTABLE
\dorecurse{10}{\bTR \dorecurse{6}{\bTD xxx \eTD} \eTR}
\eTABLE

\stoptext


-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------