On Tue, Mar 10, 2009 at 4:35 PM, Wolfgang Schuster < schuster.wolfgang@googlemail.com> wrote:
I still say it's not a very good idea to do this
In order to make an informed decision, what are you refering to Wolfgang ?
but here is a fixed version of your macros. You should always take care to keep scratch counters/dimenens/... local.
\def\doCountLines#1\par{% \begingroup \setbox\scratchbox\vbox{#1\par}% \getnoflines{\htdp\scratchbox}% \global\parlines=\number\numexpr\noflines (step 2: P\space\the\parnumber, \the\parlines\space L)\relax \ifnum \parlines = 1 (step 3: P\space \the\parnumber, \the\parlines\space L)% \fi \endgroup#1\par}
\def\CountLines{% \global\parnumber=0 \EveryPar{% \advance\parnumber by 1 % (step 1: P\space\the\parnumber, \the\parlines\space L) \ifnum \parnumber = 1 \expandafter\doCountLines \fi}}
I apologize for my ignorance, I'm still confused with this one (see attachments)... \def\doCountLines#1\par{% \begingroup \setbox\scratchbox\vbox{#1\par}% \getnoflines{\htdp\scratchbox}% \global\parlines=\number\numexpr\noflines % (step 2: P\space\the\parnumber, \the\parlines\space L) \ifnum \parlines = 1 (step 3: P\space \the\parnumber, \the\parlines\space L)% \fi \endgroup#1\par} \def\CountLines{% \global\parnumber=0 \EveryPar{% \advance\parnumber by 1 % (step 1: P\space\the\parnumber, \the\parlines\space L) \ifnum \parnumber = 1 \expandafter\doCountLines \fi}}
Wolfgang