Source Browser ?

1%D \module
2%D   [       file=tabl-com,
3%D        version=2009.08.22,
4%D          title=\CONTEXT\ Table Macros,
5%D       subtitle=Common Code,
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 Table Macros / Common Code}
15
16\unprotect
17
18\pushoverloadmode
19
20\registerctxluafile{node-ali}{autosuffix}
21
22%setnewconstant\align_callback_showpreamble  \plusone
23\setnewconstant\align_callback_aligncharacter\plusone
24\setnewconstant\align_callback_mathalign     \plustwo
25\setnewconstant\align_callback_mathmatrix    \plusfour
26\setnewconstant\align_callback_alignskip     \pluseight
27
28\definesystemattribute[aligncharacter][public]
29
30\permanent\protected\def\setalignmentcharacter#1%
31  {\enablealignmentcharacter
32   \global\c_tabl_use_size\conditionaltrue
33   \global\c_tabl_sparse_skips\conditionaltrue
34   \enforced\permanent\protected\gdef\setalignmentcharacter##1%
35     {\attribute\aligncharacterattribute`##1\relax}%
36   \attribute\aligncharacterattribute`#1\relax}
37
38\permanent\protected\def\resetalignmentcharacter
39  {\attribute\aligncharacterattribute\attributeunsetvalue}
40
41\permanent\def\alignmentcharactertrigger
42  {\s!callbacks % plural as we also need to support align_callback_alignskip
43     \align_callback_aligncharacter
44   \s!attr % not needed, we can trigger on the callback id
45     \aligncharacterattribute\plusone}
46
47\noaligned\permanent\protected\def\aligncontentleft  {\ignorespaces\aligncontent\unskip\hss}
48\noaligned\permanent\protected\def\aligncontentmiddle{\hss\ignorespaces\aligncontent\unskip\hss}
49\noaligned\permanent\protected\def\aligncontentright {\hss\ignorespaces\aligncontent\unskip}
50
51% \enablealignmentcharacter % defined at the lua end
52
53% maybe frozen instead
54
55\permanent\protected\lettonothing\AR
56\permanent\protected\lettonothing\BA
57\permanent\protected\lettonothing\BC
58\permanent\protected\lettonothing\BH
59\permanent\protected\lettonothing\BL
60\permanent\protected\lettonothing\BR
61\permanent\protected\lettonothing\BT
62\permanent\protected\lettonothing\CC
63\permanent\protected\lettonothing\CL
64\permanent\protected\lettonothing\CM
65\permanent\protected\lettonothing\CR
66\permanent\protected\lettonothing\DB
67\permanent\protected\lettonothing\DC
68\permanent\protected\lettonothing\DL
69\permanent\protected\lettonothing\DR
70\permanent\protected\lettonothing\DV
71\permanent\protected\lettonothing\EH
72\permanent\protected\lettonothing\EQ
73\permanent\protected\lettonothing\ER
74\permanent\protected\lettonothing\FB
75\permanent\protected\lettonothing\FL
76\permanent\protected\lettonothing\FR
77\permanent\protected\lettonothing\HC
78\permanent\protected\lettonothing\HL
79\permanent\protected\lettonothing\HQ
80\permanent\protected\lettonothing\HR
81\permanent\protected\lettonothing\HF
82\permanent\protected\lettonothing\HLHL
83\permanent\protected\lettonothing\LB
84\permanent\protected\lettonothing\LC
85\permanent\protected\lettonothing\LT
86\permanent\protected\lettonothing\LL
87\permanent\protected\lettonothing\LR
88\permanent\protected\lettonothing\MC
89\permanent\protected\lettonothing\ML
90\permanent\protected\lettonothing\MR
91\permanent\protected\lettonothing\NA
92\permanent\protected\lettonothing\NB
93\permanent\protected\lettonothing\NC
94\permanent\protected\lettonothing\ND
95\permanent\protected\lettonothing\NF
96\permanent\protected\lettonothing\NG
97\permanent\protected\lettonothing\NI
98\permanent\protected\lettonothing\NL
99\permanent\protected\lettonothing\NN
100\permanent\protected\lettonothing\NP
101\permanent\protected\lettonothing\NR
102\permanent\protected\lettonothing\PB
103\permanent\protected\lettonothing\RC
104\permanent\protected\lettonothing\RQ
105\permanent\protected\lettonothing\SL
106\permanent\protected\lettonothing\SM
107\permanent\protected\lettonothing\SR
108\permanent\protected\lettonothing\TB
109\permanent\protected\lettonothing\TC
110\permanent\protected\lettonothing\TL
111\permanent\protected\lettonothing\TM
112\permanent\protected\lettonothing\TR
113\permanent\protected\lettonothing\TT
114\permanent\protected\lettonothing\VL
115\permanent\protected\lettonothing\VLVL
116\permanent\protected\lettonothing\VC
117\permanent\protected\lettonothing\VD
118\permanent\protected\lettonothing\VN
119\permanent\protected\lettonothing\VS
120\permanent\protected\lettonothing\VT
121\permanent\protected\lettonothing\XC
122
123\permanent\protected\lettonothing\FC
124\permanent\protected\lettonothing\RB
125\permanent\protected\lettonothing\RT
126
127\permanent\protected\lettonothing\NS % span
128
129\popoverloadmode
130
131\installmacrostack\BC
132\installmacrostack\EC
133\installmacrostack\EQ
134\installmacrostack\NC
135\installmacrostack\NN
136\installmacrostack\NR
137
138% Per 2024-05 (tested for a while):
139
140\bitwiseflip \normalizelinemode \discardzerotabskipsnormalizecode
141
142\protect \endinput
143