Re: feature request: \everytrypass

[Vit Zyka <vit.zyka@seznam.cz>]

Peter Rolf wrote:
> Vit Zyka wrote:
>> Dear ConTeXters,
>>
>> I am counting occurence of some macro in the text. Problem is when this 
>> macro is inside \bTABLE (and may be somewhere else). Due to try passes 
>> the increment is counter is incremented more then once and the result is 
>> multiplied.
>>
>> It is possible to implement some \everytrypass in which user can (e.g.) 
>> null incrementing? Or there is some another solution?
>>
>> Thanks
>> Vit
>>
>> Minimal example:
>> -----------------------------------------------
>> \newcount\C
>> \def\doIncrement{\global\advance\C by1\relax}
> 
> \def\doIncrement{\iftrialtypesetting
>   \else\global\advance\C by1\relax\fi}%
> 
> donno if this works correctly inside a TABLE...

Oh, it is already done! ... How I was able to think in opposite...
Seems it works correctly in TABLE.

... but there is (at least) two \trialtypesettingtrue missing in caption 
composition. Bellow is the patch (see VZ comment marks).

Thanks Peter
Vit

--------------------------------------------------
\def\dopreparestackcaptionaut#1#2#3#4%
   {\doifsomething\@@kjkjalign
      {\ExpandBothAfter\doifnotinset\v!middle\@@kjkjalign
         {\let\captionovershoot\!!zeropoint}}%
    \edef\captionhsize{\the\wd\tempfloatbox}%
    \ifdim\captionhsize>\hsize
      % float is wider than \hsize
      \dosetraggedvbox\@@kjkjalign
      \setbox\scratchbox\raggedbox % trial run
        {\hsize\captionhsize
         \trialtypesettingtrue % VZ
         \notesenabledfalse
         \putcompletecaption{#4}{#2}{#3}{0}}%
      \ifdim\ht\scratchbox>\lineheight % more lines
        \dosetraggedvbox\@@kjkjalign
        \setbox\tempcaptionbox\raggedbox
          {\hsize\captionhsize
           \advance\hsize -\captionovershoot\relax
           \ifdim\hsize<\captionminwidth\relax
             \hsize\captionhsize
           \fi
           \putcompletecaption{#4}{#2}{#3}{0}}%
      \else
        \setbox\tempcaptionbox\raggedbox
          {\hsize\captionhsize
           \putcompletecaption{#4}{#2}{#3}{0}}%
      \fi
    \else
      % float is smaller of equal to \hsize
      \ifdim\captionhsize<\captionminwidth\relax
        \scratchdimen\captionminwidth % float smaller than min width
        \edef\captionhsize{\the\scratchdimen}%
      \fi
      \setbox\scratchbox\vbox     % test with overshoot
        {\scratchdimen\captionhsize
         \trialtypesettingtrue % VZ
         \advance\scratchdimen \captionovershoot
         \advance\scratchdimen 3em % an average word length
         \ifdim\scratchdimen<\hsize \hsize\scratchdimen \fi
         \notesenabledfalse
         \putcompletecaption{#4}{#2}{#3}{0}}%
      \ifdim\ht\scratchbox>\lineheight
        % at least an average word longer than a line
        \dosetraggedvbox\@@kjkjalign
        \setbox\tempcaptionbox\raggedbox
          {\scratchdimen\captionhsize
           \advance\scratchdimen \captionovershoot
           \ifdim\scratchdimen<\hsize \hsize\scratchdimen \fi
           \putcompletecaption{#4}{#2}{#3}{0}}%
      \else
        % just over a line, don't use an overshoot
 
\expanded{\doifcommonelse{\@@kjkjalign}}{\v!left,\v!right,\v!flushleft,\v!flushright}
          {\dosetraggedvbox\@@kjkjalign
           \setbox\tempcaptionbox\raggedbox
             {\hsize\captionhsize
              % strange : \raggedcenter
              \putcompletecaption{#4}{#2}{#3}{0}}}
          {% nicer
           \setbox\tempcaptionbox\cbox
             {\hsize\captionhsize
              \putcompletecaption{#4}{#2}{#3}{0}}}%
      \fi
    \fi}
------------------------------------------------------------
> 
> Greets, Peter
> 
>> % \def\nullIncrement{\let\doIncrement\relax}
>> % \appendtoks \nullIncrement to \everytrypass
>>
>> \starttext
>>    \bTABLE
>>      \bTR\bTD Counter\doIncrement\eTD\eTR
>>    \eTABLE
>>    \message{ <<Counter=\the\C>> }%
>> \stoptext
>> ------------------------------------------------