Re: [NTG-context] feature request: \everytrypass

21 Apr 2006

      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{ <> }%
\stoptext
------------------------------------------------