1
2
3
4
5
6
7
8
9
10
11
12
13
14\registerctxluafile
{
syst
lua
}{}
15
16\unprotect
17
18\def
\expdoifelse
#
1
#
2
{
\clf_doifelsesame
{
#
1
}{
#
2
}}
19\def
\expdoif
#
1
#
2
{
\clf_doifsame
{
#
1
}{
#
2
}}
20\def
\expdoifnot
#
1
#
2
{
\clf_doifnotsame
{
#
1
}{
#
2
}}
21
22
23
24
25
26
27\def
\expandeddoifelse
#
1
#
2
28 {
\immediateassignment\edef
\m_syst_string_one
{
#
1
}
29 \immediateassignment\edef
\m_syst_string_two
{
#
2
}
30 \ifx
\m_syst_string_one
\m_syst_string_two
31 \expandafter
\firstoftwoarguments
32 \else
33 \expandafter
\secondoftwoarguments
34 \fi
}
35
36\def
\expandeddoif
#
1
#
2
37 {
\immediateassignment\edef
\m_syst_string_one
{
#
1
}
38 \immediateassignment\edef
\m_syst_string_two
{
#
2
}
39 \ifx
\m_syst_string_one
\m_syst_string_two
40 \expandafter
\firstofoneargument
41 \else
42 \expandafter
\gobbleoneargument
43 \fi
}
44
45\def
\expandeddoifnot
#
1
#
2
46 {
\immediateassignment\edef
\m_syst_string_one
{
#
1
}
47 \immediateassignment\edef
\m_syst_string_two
{
#
2
}
48 \ifx
\m_syst_string_one
\m_syst_string_two
49 \expandafter
\gobbleoneargument
50 \else
51 \expandafter
\firstofoneargument
52 \fi
}
53
54
55
56
57\def
\expdoifelsecommon
#
1
#
2
{
\clf_doifelsecommon
{
#
1
}{
#
2
}}
58\def
\expdoifelseinset
#
1
#
2
{
\clf_doifelseinset
{
#
1
}{
#
2
}}
59
60\def
\expdoifcommonelse\expdoifelsecommon
61\def
\expdoifinsetelse
\expdoifelseinset
62
63
64
65
66\def
\luastringsep
{
===
}
67
68\edef
\!!bs
{
[
\luastringsep
[
}
69\edef
\!!es
{
]
\luastringsep
]
}
70
71\unexpanded
\def
\writestatus
#
1
#
2
{
\clf_writestatus
{
#
1
}{
#
2
}}
72
73
74
75
76
77\def
\luaexpr
#
1
{
\ctxlua{
tex
.
print
(
tostring
(
#
1
)
)
}
}
78
79
80
81
82\let
\syst_write_execute
\clf_execute
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123\protect
\endinput
124