* Re: Definition of \registerpagerange (Henning Hraban Ramm)
[not found] <mailman.138.1588740902.6418.ntg-context@ntg.nl>
@ 2020-05-06 10:45 ` Hynek, Stefan
0 siblings, 0 replies; only message in thread
From: Hynek, Stefan @ 2020-05-06 10:45 UTC (permalink / raw)
To: ntg-context
[-- Attachment #1.1: Type: text/plain, Size: 3470 bytes --]
Am Mittwoch, den 06.05.2020, 06:55 +0200 schrieb ntg-context-
request@ntg.nl:
> This doesn’t answer your question, but I found:
>
> \setupregister[index][compress=yes] % 14, 15 becomes 14-15
> \setupregister[index][compress=text] % 14, 15 becomes 14f.
>
> To change the "f."/"ff." text, you’d use:
>
> \setuplabeltext[de][following:singular=sq.,following:plural=sqq.]
>
> This is defined in tex/context/base/mkiv/lang-txt.lua
> and addressed in context/base/mkiv/strc-reg.mkiv in the definition of
> \registerpagerange:
>
> \unexpanded\def\registerpagerange#1#2#3#4#5#6#7#8% #1:class
> #2:processor content, content todo: -- configurable
> {\pushcurrentregister{#1}%
> \edef\p_pagenumber{\registerparameter\c!pagenumber}%
> \ifx\p_pagenumber\v!no\else
> \registerpageseparator
> \global\setconstant\c_strc_registers_page_state\plusone
> \dostarttagged\t!registerpagerange\empty
> \dostarttagged\t!registerfrompage\empty
> \withregisterpagecommand{#2}{#3}{#4}{#5}%
> \dostoptagged
> \ifconditional\c_strc_registers_following
> \ifnum#3=\numexpr#6-1\relax
> \labeltext{following:\s!singular}%
> \else
> \labeltext{following:\s!plural}%
> \fi
> \else
> \registeronepagerangeseparator
> \dostarttagged\t!registertopage\empty
> \withregisterpagecommand{#2}{#6}{#7}{#8}%
> \fi
> \dostoptagged
> \dostoptagged
> \fi
> \popcurrentregister}
>
> (see
> https://source.contextgarden.net/tex/context/base/mkiv/strc-reg.mkiv?search=singular
> )
>
>
> You should be able to combine the two "else" branches.
Thank you for answering. I have had looked into this source before and
tried exactly the same approach you descrived but I am on TeXlive 2019
where this is defined differently:
\unexpanded\def\registerpagerange#1#2#3#4#5#6#7#8% #1:class
#2:processor content, content todo: -- configurable
{\pushcurrentregister{#1}%
\edef\p_pagenumber{\registerparameter\c!pagenumber}%
\ifx\p_pagenumber\v!no\else
\registerpageseparator
\global\setconstant\c_strc_registers_page_state\plusone
\dostarttagged\t!registerpagerange\empty
\dostarttagged\t!registerfrompage\empty
\withregisterpagecommand{#2}{#3}{#4}{#5}%
\dostoptagged
\registeronepagerangeseparator
\dostarttagged\t!registertopage\empty
\withregisterpagecommand{#2}{#6}{#7}{#8}%
\dostoptagged
\dostoptagged
\fi
\popcurrentregister}
and, most importantly, does not work with this approach:
\unexpanded\def\registerpagerange#1#2#3#4#5#6#7#8% #1:class
#2:processor content, content todo: -- configurable
{ \pushcurrentregister{#1}%
\edef\p_pagenumber{\registerparameter\c!pagenumber}%
\ifx\p_pagenumber\v!no\else
\registerpageseparator
\global\setconstant\c_strc_registers_page_state\plusone
\dostarttagged\t!registerpagerange\empty
\dostarttagged\t!registerfrompage\empty
\withregisterpagecommand{#2}{#3}{#4}{#5}%
\dostoptagged
\ifnum#3=\numexpr#6-1\relax
f.%
\else
\registeronepagerangeseparator
\dostarttagged\t!registertopage\empty
\withregisterpagecommand{#2}{#6}{#7}{#8}%
\fi
\dostoptagged
\dostoptagged
\fi
\popcurrentregister}
May it be that parameters have changed since then?
Best regards
Stefan
[-- Attachment #1.2: smime.p7s --]
[-- Type: application/x-pkcs7-signature, Size: 7015 bytes --]
[-- Attachment #2: Type: text/plain, Size: 493 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] only message in thread