[NTG-context] setupregister with realpage?

[Hans Hagen]

On 9/23/2022 11:08 PM, Benjamin Buchmuller via ntg-context wrote:
> Dear list,
> 
> \setuplist has the convenient option [pagenumber=realpage]
> 
> \setupregister has not (yet).
> 
> How can I get the realpagenumber instead of the userpagenumber for the register indices?
> 
> I tried
> 
> \def\MyPageCommand#1{\realpagenumber}
> 
> \setupregister[MyIndex][pagecommand=\MyPageCommand]
> 
> but this prints only the current (although real) page number.
you can try with this in cont-new.mkxl

\pushoverloadmode \unprotect

\let\currentregisterrealpage\!!zerocount % todo: more general accessor

\permanent\protected\def\withregisterpagecommand#1#2#3#4%
   {\ifcase#3\relax
      {\tt [entry\space not\space flushed]}%
    \else
      \def\currentregisterpageindex{#2}%
      \def\currentregisterrealpage{#3}%
      \iflocation
 
\strc_references_goto_internal{\applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}}[internal(#2)]%
      \else
        \applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}%
      \fi
    \fi}

\protect \popoverloadmode

which sets \currentregisterrealpage

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