Source Browser ?

1%D \module
2%D   [       file=publ-imp-page,
3%D        version=2014.11.05,
4%D          title=\CONTEXT\ Publication Support,
5%D       subtitle=Page numbers,
6%D         author=Alan Braslau and Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\unprotect
15
16\startsetups \s!btx:\s!list:\s!page:concat
17    \ifcase\currentbtxoverflow
18        \btxparameter{\c!separator:\number\currentbtxconcat}
19    \fi
20\stopsetups
21
22% for the moment we have only one variant
23
24\startsetups [\s!btx:\s!list:\s!page]
25    \fastsetup{\s!btx:\s!list:\s!page:concat}
26    \fastsetup{\s!btx:\currentbtxspecification:\s!list:page-or-pages}
27    \ifconditional\btxinteractivepage
28        \ifx\currentbtxfirstinternal\empty
29            \donefalse
30        \else\ifnum\currentbtxfirstinternal=\zerocount
31            \donefalse
32        \else
33            \donetrue
34        \fi\fi
35    \else
36        \donefalse
37    \fi
38    \ifdone
39        \goto {
40            \currentbtxfirstpage
41        } [
42            internal(\currentbtxfirstinternal)
43        ]
44        \ifx\currentbtxlastpage\empty \else
45            %\btxparameter\c!pageconnector
46            \btxparameter\c!range
47            \goto {
48                \currentbtxlastpage
49            } [
50                internal(\currentbtxlastinternal)
51            ]
52        \fi
53    \else
54        \currentbtxfirstpage
55        \ifx\currentbtxlastpage\empty \else
56            \btxparameter\c!range
57            \currentbtxlastpage
58        \fi
59    \fi
60\stopsetups
61
62\protect
63