Source Browser ?

1%D \module
2%D   [       file=strc-doc,
3%D        version=2008.10.20,
4%D          title=\CONTEXT\ Structure Macros,
5%D       subtitle=Document Structure,
6%D         author=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\writestatus{loading}{ConTeXt Structure Macros / Document Structure}
15
16\registerctxluafile{strc-doc}{}
17
18\unprotect
19
20%D This will move:
21
22\mutable\lettonothing\currentstructureattribute
23\mutable\lettonothing\currentstructurebackreference
24\mutable\lettonothing\currentstructurebookmark
25\mutable\lettonothing\currentstructurecatcodes
26\mutable\lettonothing\currentstructurecoding
27\mutable\lettonothing\currentstructurecoupling
28\mutable\lettonothing\currentstructureexpansion
29\mutable\lettonothing\currentstructureincrementnumber
30\mutable\lettonothing\currentstructurelabel
31\mutable\lettonothing\currentstructurelevel
32\mutable\lettonothing\currentstructurelist
33\mutable\lettonothing\currentstructurelistattribute
34\mutable\lettonothing\currentstructuremarking
35\mutable\lettonothing\currentstructurename
36\mutable\lettonothing\currentstructureownnumber
37\mutable\lettonothing\currentstructureplaceholder
38\mutable\lettonothing\currentstructurereference
39\mutable\lettonothing\currentstructurereferenceattribute
40\mutable\lettonothing\currentstructurereferenceprefix
41\mutable\lettonothing\currentstructuresaveinlist
42\mutable\lettonothing\currentstructureshownumber
43\mutable\lettonothing\currentstructuretitle
\mutable\lettonothing\currentstructurexmlsetup
45
46\mutable\lettonothing\currentstructurecomponentattribute
47\mutable\lettonothing\currentstructurecomponentbookmark
48\mutable\lettonothing\currentstructurecomponentcatcodes
49\mutable\lettonothing\currentstructurecomponentcoding
50\mutable\lettonothing\currentstructurecomponentcounter
51\mutable\lettonothing\currentstructurecomponentexpansion
52\mutable\lettonothing\currentstructurecomponentlabel
53\mutable\lettonothing\currentstructurecomponentlevel
54\mutable\lettonothing\currentstructurecomponentlist
55\mutable\lettonothing\currentstructurecomponentmarking
56\mutable\lettonothing\currentstructurecomponentname
57\mutable\lettonothing\currentstructurecomponentreference
58\mutable\lettonothing\currentstructurecomponentreferenceprefix
59\mutable\lettonothing\currentstructurecomponentsynchronize
\mutable\lettonothing\currentstructurecomponenttitle
61\mutable\lettonothing\currentstructurecomponentxmlsetup
62
63\permanent\protected\def\setstructuresynchronization#1% todo: use ctxcontext
64  {\clf_setinternalreference
65     prefix    {\currentstructurereferenceprefix}%
66     reference {\currentstructurereference}
67     internal  \locationcount
68     view      {\interactionparameter\c!focus}%
69   \relax
70   \enforced\xdef\currentstructureattribute
71     {\the\lastdestinationattribute}%
72   \enforced\xdef\currentstructuresynchronize
73     {\currentstructuresynchronize
74      \strc_lists_inject_enhance{#1}}}
75
76\permanent\protected\def\setstructurecomponentsynchronization#1% todo: use ctxcontext
77  {\clf_setinternalreference
78     prefix    {\currentstructurecomponentreferenceprefix}%
79     reference {\currentstructurecomponentreference}
80     internal  \locationcount
81     view      {\interactionparameter\c!focus}%
82   \relax
83   \enforced\xdef\currentstructurecomponentattribute  {\the\lastdestinationattribute}%
84   \enforced\xdef\currentstructurecomponentsynchronize{\strc_lists_inject_enhance{#1}}}
85
86\protect \endinput
87