1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
if not modules then modules = { } end modules ['scrp-eth'] = {
version = 1.001,
comment = "companion to scrp-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- at some point I will review the script code but for the moment we
-- do it this way; so space settings like with cjk yet
local nuts = nodes.nuts
local getnext = nuts.getnext
local getfont = nuts.getfont
local getid = nuts.getid
local getattr = nuts.getattr
local insert_node_before = nuts.insert_before
local nodepool = nuts.pool
local new_glue = nodepool.glue
local new_penalty = nodepool.penalty
local nodecodes = nodes.nodecodes
local glyph_code = nodecodes.glyph
local a_scriptstatus = attributes.private('scriptstatus')
local a_scriptinjection = attributes.private('scriptinjection')
local categorytonumber = scripts.categorytonumber
local numbertocategory = scripts.numbertocategory
local hash = scripts.hash
local numbertodataset = scripts.numbertodataset
local fonthashes = fonts.hashes
local parameters = fonthashes.parameters
local space, stretch, shrink, lastfont
local inter_character_space_factor = 1
local inter_character_stretch_factor = 1
local inter_character_shrink_factor = 1
local function space_glue(current)
local data = numbertodataset[getattr(current,a_scriptinjection)]
if data then
inter_character_space_factor = data.inter_character_space_factor or 1
inter_character_stretch_factor = data.inter_character_stretch_factor or 1
inter_character_shrink_factor = data.inter_character_shrink_factor or 1
end
local font = getfont(current)
if lastfont ~= font then
local pf = parameters[font]
space = pf.space
stretch = pf.space_stretch
shrink = pf.space_shrink
lastfont = font
end
return new_glue(
inter_character_space_factor * space,
inter_character_stretch_factor * stretch,
inter_character_shrink_factor * shrink
)
end
local function insert_space(head,current)
insert_node_before(head,current,space_glue(current))
end
local function insert_zerowidthspace(head,current)
insert_node_before(head,current,new_glue(0))
end
local function insert_nobreakspace(head,current)
insert_node_before(head,current,new_penalty(10000))
insert_node_before(head,current,space_glue(current))
end
-- syllable [zerowidthspace] syllable
-- syllable [zerowidthspace] word
-- syllable [zerowidthspace] sentence
-- word [nobreakspace] syllable
-- word [space] word
-- word [space] sentence
-- sentence [nobreakspace] syllable
-- sentence [space] word
-- sentence [space] sentence
local injectors = { -- [previous] [current]
ethiopic_syllable = {
ethiopic_syllable = insert_zerowidthspace,
ethiopic_word = insert_nobreakspace,
ethiopic_sentence = insert_nobreakspace,
},
ethiopic_word = {
ethiopic_syllable = insert_space,
ethiopic_word = insert_space,
ethiopic_sentence = insert_space,
},
ethiopic_sentence = {
ethiopic_syllable = insert_space,
ethiopic_word = insert_space,
ethiopic_sentence = insert_space,
},
}
local function process(head,first,last)
if first ~= last then
local injector = false
local current = first
while current do
local id = getid(current)
if id == glyph_code then
local scriptstatus = getattr(current,a_scriptstatus)
local category = numbertocategory[scriptstatus]
if injector then
local action = injector[category]
if action then
action(head,current)
end
end
injector = injectors[category]
else
-- nothing yet
end
if current == last then
break
else
current = getnext(current)
end
end
end
end
scripts.installmethod {
name = "ethiopic",
injector = process,
datasets = {
default = {
inter_character_space_factor = 1,
inter_character_stretch_factor = 1,
inter_character_shrink_factor = 1,
},
half = {
inter_character_space_factor = 0.5,
inter_character_stretch_factor = 0.5,
inter_character_shrink_factor = 0.5,
},
quarter = {
inter_character_space_factor = 0.25,
inter_character_stretch_factor = 0.25,
inter_character_shrink_factor = 0.25,
},
},
}
|
