Source Browser ?

1%D \module
2%D   [       file=publ-imp-list,
3%D        version=2014.06.16,
4%D          title=\CONTEXT\ Publication Support,
5%D       subtitle=Lists,
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\starttexdefinition mutable protected btx:list:inject:text #content
17    \texdefinition{btx:format:gotointernal} {
18        #content
19    }
20\stoptexdefinition
21
22\startsetups \s!btx:\s!list:text
23   \texdefinition {\s!btx:\s!list:inject:text} {
24        \btxflushlisttext
25        \ifx\currentbtxcombis\empty \else
26            \btxrenderingparameter\c!separator
27            \btxflushlistcombis
28        \fi
29   }
30\stopsetups
31
32\starttexdefinition mutable protected btx:list:inject:number #content
33    \texdefinition{btx:format:gotointernal} {
34        #content
35    }
36\stoptexdefinition
37
38\starttexdefinition mutable protected btx:list:helpers:concat
39    \space
40\stoptexdefinition
41
42\startsetups[\s!btx:\s!list:\s!numbering]
43    \texdefinition {\s!btx:\s!list:inject:number} {
44        \currentbtxfirst
45        \btxparameter\c!stopper
46    }
47\stopsetups
48
49\starttexdefinition mutable protected btx:list:numbering #variant
50    \btxstartstyleandcolor [\currentbtxspecification:\s!list:\s!numbering:#variant]
51        \btxusecommand [\currentbtxspecification:\s!list:\s!numbering:#variant] {
52            \fastsetup{\s!btx:\s!list:\s!numbering}
53        }
54    \btxstopstyleandcolor
55\stoptexdefinition
56
57\startsetups[\s!btx:\s!list:\s!numbering:default]
58    \texdefinition {\s!btx:\s!list:\s!numbering} {default}
59\stopsetups
60
61\startsetups[\s!btx:\s!list:\s!numbering:num]
62    \texdefinition {\s!btx:\s!list:\s!numbering} {num}
63\stopsetups
64
65\startsetups[\s!btx:\s!list:\s!numbering:short]
66    \texdefinition {\s!btx:\s!list:\s!numbering} {short}
67\stopsetups
68
69\startsetups[\s!btx:\s!list:\s!numbering:tag]
70    \texdefinition {\s!btx:\s!list:\s!numbering} {tag}
71\stopsetups
72
73\startsetups[\s!btx:\s!list:\s!numbering:index]
74    \texdefinition {\s!btx:\s!list:\s!numbering} {index}
75\stopsetups
76
77\protect
78