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
|
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 ischar = nuts.ischar
local getattr = nuts.getattr
local nodecodes = nodes.nodecodes
local glyph_code = nodecodes.glyph
local getscriptstatus = scripts.getstatus
local inserters = scripts.inserters
local colors = scripts.colors
-- 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 = inserters.zerowidthspace_before,
ethiopic_word = inserters.nobreakspace_before,
ethiopic_sentence = inserters.nobreakspace_before,
},
ethiopic_word = {
ethiopic_syllable = inserters.space_before,
ethiopic_word = inserters.space_before,
ethiopic_sentence = inserters.space_before,
},
ethiopic_sentence = {
ethiopic_syllable = inserters.space_before,
ethiopic_word = inserters.space_before,
ethiopic_sentence = inserters.space_before,
},
}
colors.ethiopic_syllable = "trace:1"
colors.ethiopic_word = "trace:2"
colors.ethiopic_sentence = "trace:3"
local function process(head,first,last)
if first ~= last then
local injector = false
local current = first
while current do
local char, id = ischar(current)
if char then
local category = getscriptstatus(current)
if injector then
local action = injector[category]
if action then
action(head,current)
end
end
injector = injectors[category]
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,
},
},
}
|