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
%setnewconstant\align_callback_showpreamble  \plusone
23\setnewconstant\align_callback_aligncharacter\plusone
\setnewconstant\align_callback_mathalign     \plustwo
\setnewconstant\align_callback_mathmatrix    \plusthree
26
27\definesystemattribute[aligncharacter][public]

\permanent\protected\def\setalignmentcharacter#1%
  {\enablealignmentcharacter
31   \global\c_tabl_use_size\conditionaltrue
   \global\c_tabl_sparse_skips\conditionaltrue
   \enforced\permanent\protected\gdef\setalignmentcharacter##1%
34     {\attribute\aligncharacterattribute`##1\relax}%
   \attribute\aligncharacterattribute`#1\relax}

37\permanent\protected\def\resetalignmentcharacter
38  {\attribute\aligncharacterattribute\attributeunsetvalue}
39
40\permanent\def\alignmentcharactertrigger
41  {\s!callback
42     \align_callback_aligncharacter
43   \s!attr % not needed, we can trigger on the callback id
44     \aligncharacterattribute\plusone}
45
46\noaligned\permanent\protected\def\aligncontentleft  {\ignorespaces\aligncontent\unskip\hss}
47\noaligned\permanent\protected\def\aligncontentmiddle{\hss\ignorespaces\aligncontent\unskip\hss}
48\noaligned\permanent\protected\def\aligncontentright {\hss\ignorespaces\aligncontent\unskip}
49
50% \enablealignmentcharacter % defined at the lua end
51
52% maybe frozen instead
53
54\permanent\protected\lettonothing\AR
55\permanent\protected\lettonothing\BA
56\permanent\protected\lettonothing\BC
57\permanent\protected\lettonothing\BH
58\permanent\protected\lettonothing\BL
59\permanent\protected\lettonothing\BR
60\permanent\protected\lettonothing\BT
61\permanent\protected\lettonothing\CC
62\permanent\protected\lettonothing\CL
63\permanent\protected\lettonothing\CM
64\permanent\protected\lettonothing\CR
65\permanent\protected\lettonothing\DB
66\permanent\protected\lettonothing\DC
67\permanent\protected\lettonothing\DL
68\permanent\protected\lettonothing\DR
69\permanent\protected\lettonothing\DV
70\permanent\protected\lettonothing\EH
71\permanent\protected\lettonothing\EQ
72\permanent\protected\lettonothing\ER
73\permanent\protected\lettonothing\FB
74\permanent\protected\lettonothing\FL
75\permanent\protected\lettonothing\FR
76\permanent\protected\lettonothing\HC
77\permanent\protected\lettonothing\HL
78\permanent\protected\lettonothing\HQ
79\permanent\protected\lettonothing\HR
80\permanent\protected\lettonothing\HF
81\permanent\protected\lettonothing\HLHL
82\permanent\protected\lettonothing\LB
83\permanent\protected\lettonothing\LC
84\permanent\protected\lettonothing\LT
85\permanent\protected\lettonothing\LL
86\permanent\protected\lettonothing\LR
87\permanent\protected\lettonothing\MC
88\permanent\protected\lettonothing\ML
89\permanent\protected\lettonothing\MR
90\permanent\protected\lettonothing\NA
91\permanent\protected\lettonothing\NB
92\permanent\protected\lettonothing\NC
93\permanent\protected\lettonothing\ND
94\permanent\protected\lettonothing\NF
95\permanent\protected\lettonothing\NG
96\permanent\protected\lettonothing\NI
97\permanent\protected\lettonothing\NL
98\permanent\protected\lettonothing\NN
99\permanent\protected\lettonothing\NP
100\permanent\protected\lettonothing\NR
101\permanent\protected\lettonothing\PB
102\permanent\protected\lettonothing\RC
103\permanent\protected\lettonothing\RQ
104\permanent\protected\lettonothing\SL
105\permanent\protected\lettonothing\SM
106\permanent\protected\lettonothing\SR
107\permanent\protected\lettonothing\TB
108\permanent\protected\lettonothing\TC
109\permanent\protected\lettonothing\TL
110\permanent\protected\lettonothing\TM
111\permanent\protected\lettonothing\TR
112\permanent\protected\lettonothing\TT
113\permanent\protected\lettonothing\VL
114\permanent\protected\lettonothing\VLVL
115\permanent\protected\lettonothing\VC
116\permanent\protected\lettonothing\VD
117\permanent\protected\lettonothing\VN
118\permanent\protected\lettonothing\VS
119\permanent\protected\lettonothing\VT
120\permanent\protected\lettonothing\XC
121
122\permanent\protected\lettonothing\FC
123\permanent\protected\lettonothing\RB
124\permanent\protected\lettonothing\RT
125
126\permanent\protected\lettonothing\NS % span
127
128\popoverloadmode
129
130\installmacrostack\BC
131\installmacrostack\EC
132\installmacrostack\EQ
133\installmacrostack\NC
134\installmacrostack\NN
135\installmacrostack\NR
136
137\protect \endinput
138