1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt Typesetting Macros Characters }
15
16\unprotect
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36\registerctxluafile { typo chr }{}
37
38\definesystemattribute [ marked ][ public ]
39
40\unexpanded \def \removepunctuation
41 { \clf_pickuppunctuation action { remove } \relax }
42
43\unexpanded \def \pushpunctuation
44 { \clf_pickuppunctuation action { push } \relax }
45
46\unexpanded \def \poppunctuation
47 { \clf_pickuppunctuation action { pop } \relax }
48
49\unexpanded \def \markcontent
50 { \dosingleempty \typo_marked_mark }
51
52\def \typo_marked_mark [# 1 ]# 2
53 { \dontleavehmode
54 \bgroup
55 \clf_markcontent { # 1 }
56 \bgroup
57 # 2
58 \egroup
59 \egroup }
60
61\unexpanded \def \startmarkedcontent
62 { \dontleavehmode
63 \bgroup
64 \dosingleempty \typo_marked_start }
65
66\def \typo_marked_start [# 1 ]
67 { \clf_markcontent { # 1 }
68
69 \bgroup }
70
71\unexpanded \def \stopmarkedcontent
72 { \egroup
73 \egroup }
74
75\unexpanded \def \removemarkedcontent
76 { \dosingleempty \typo_marked_remove }
77
78\def \typo_marked_remove [# 1 ]
79 { \clf_pickupmarkedcontent action { remove } mark { # 1 } \relax }
80
81\unexpanded \def \doifelsemarkedcontent # 1
82 { \clf_doifelsemarkedcontent { # 1 }}
83
84
85
86
87
88
89
90
91
92
93
94
95\newcount \c_syst_last_node_id
96
97\unexpanded \def \doifelselastnode { \clf_lastnodeequals }
98\unexpanded \def \doifelseatwordboundary { \clf_atwordboundary }
99\unexpanded \def \lastnodeid { \clf_lastnodeid \c_syst_last_node_id }
100
101
102
103\protect \endinput
104 |