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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
#!/usr/bin/env texlua
--------------------------------------------------------------------------------
-- FILE: cyrillicnumbers.lua
-- USAGE: called by t-cyrillicnumbers.mkiv
-- DESCRIPTION: part of the Cyrillic Numbers module for ConTeXt
-- REQUIREMENTS: recent ConTeXt MkIV and LuaTeX
-- AUTHOR: Philipp Gesang (phg), <gesang at stud dot uni-heidelberg dot de>
-- VERSION: hg tip
-- CREATED: 2011-11-29 10:06:00+0100
--------------------------------------------------------------------------------
--
--- read this first:
---
--- Жолобов, О. Ф.: *Числительные*. In: *Историческая грамматика древнерусского
--- языка*, vol. 4, Moskva 2006, pp. 58--63
---
--- Trunte, Nikolaos H.: *Altkirchenslavisch*. In: *Словѣньскъи ѩꙁъікъ.
--- Ein praktisches Lehrbuch des Kirchenslavischen in 30
--- Lektionen. Zugleich eine Einführung in die slavische
--- Philologie*, vol. 1, München ⁵2005, pp. 161ff.
--- or have a glance at these:
--- http://www.pravpiter.ru/zads/n018/ta013.htm
--- http://www.uni-giessen.de/partosch/eurotex99/berdnikov2.pdf
--- <http://ru.wikipedia.org/wiki/Кириллическая_система_счисления>
local iowrite = io.write
local mathceil = math.ceil
local mathfloor = math.floor
local tableconcat = table.concat
local tablemaxn = table.maxn
local tableinsert = table.insert
local utf8char = unicode.utf8.char
local utf8len = unicode.utf8.len
local utfupper = unicode.utf8.upper
local cyrnum = {
placetitlo = "font",
prefer100k = false,
titlolocation = "final", -- above final digit
titlospan = 3, -- only with mp
drawdots = true,
debug = false,
}
thirddata = thirddata or { }
thirddata.cyrnum = cyrnum
local dbgpfx = "[cyrnum]"
local dbg = function (...)
if cyrnum.debug then
local args = {...}
if type(args[1]) == "table" then args = args[1] end
iowrite(dbgpfx)
for i=1, #args do
local this = args[i]
local tthis = type(this)
iowrite" "
if tthis == "number" or tthis == "string" then
iowrite(this)
else
iowrite(tostring(this))
end
end
iowrite"\n"
end
end
local cyrillic_numerals = {
{ "а", "в", "г", "д", "е", "ѕ", "з", "и", "ѳ", },
{ "і", "к", "л", "м", "н", "ѯ", "о", "п", "ч", },
{ "р", "с", "т", "у", "ф", "х", "ѱ", "ѡ", "ц", },
}
local cyrillic_1k = "҂"
local cyrillic_100k = utf8char(0x488) -- combining hundred thousands sign
local cyrillic_1m = utf8char(0x489) -- combining million sign
local cyrillic_titlo = utf8char(0x483) -- combining titlo
cyrnum.last_synonyms = {
final = true,
last = true,
right = true,
rightmost = true,
["false"] = true,
}
cyrnum.yes_synonyms = {
yes = true,
yeah = true,
["true"] = true,
}
cyrnum.no_synonyms = {
no = true,
nope = true,
["false"] = true,
}
local handle_plus1k = function (digit)
local before, after
if digit == 7 then
after = cyrillic_1m
elseif cyrnum.prefer100k and digit == 6 then
after = cyrillic_100k
elseif digit > 3 then -- insert thousand sign
before = cyrillic_1k
end
return before, after
end
-- digit list = {
-- [1] = character to be printed
-- [2] = real digit of character
-- [3] = print this before character (e.g. thousand signs)
-- [4] = print this after character (e.g. million signs)
-- }
local digits_only = function (list)
local result = { }
for i=1, tablemaxn(list) do
local elm = list[i]
if type(elm) == "string" then
local before, after
if i > 3 then
before, after = handle_plus1k(i)
end
result[#result+1] = { elm, i, before, after } -- i contains the real digit
end
end
return result
end
local lreverse = function(list)local r={}for i=tablemaxn(list),1,-1 do r[#r+1]=list[i]end return r end
local start_titlo, stop_titlo = [[\cyrnumdrawtitlo{]], "}"
local titlofuncs = {
font = function (list)
if cyrnum.titlolocation == "l" then
local result = lreverse(list)
result[#result+1] = cyrillic_titlo
return result
end
-- “middle” (“m”) or whatever
local pos = mathceil(tablemaxn(list)/2)
tableinsert(list, mathceil(tablemaxn(list)/2), cyrillic_titlo)
return lreverse(list)
end,
mp = function (list)
local result = { }
local titlospan = cyrnum.titlospan
local titlotype = cyrnum.titlotype
local titlostart = #list -- default to “all”
if titlotype == true then -- number
titlostart = (#list >= titlospan) and titlospan or #list
end
for i=tablemaxn(list), 1, -1 do
--local char, digit, before, after = list[i][1], list[i][2], list[i][
local char, digit, before, after = unpack(list[i])
if i == titlostart then
result[#result+1] = start_titlo
end
if before then
result[#result+1] = before
end
result[#result+1] = char
if after then
result[#result+1] = after
end
end
result[#result+1] = stop_titlo
return result
end,
no = function (x) return x end,
}
local concat_cyrillic_nums = function (list, upper)
local result = ""
local digits = digits_only(list) -- strip placeholders
local nlist, ndigits = tablemaxn(list), tablemaxn(digits)
dbg(list)
--dbg(digits)
local titlo = titlofuncs[cyrnum.placetitlo]
if titlo then
result = tableconcat(titlo(digits))
if cyrnum.drawdots then
local sym = cyrnum.dotsymbol
result = sym .. result .. sym
end
end
dbg(result)
return result
end
local do_tocyrillic do_tocyrillic = function (n, result)
if n < 1000 then
local mod100 = n % 100
if #result == 0 and mod100 > 10 and mod100 < 20 then
result[#result+1] = "і"
result[#result+1] = cyrillic_numerals[1][mod100%10] or false
else
result[#result+1] = cyrillic_numerals[1][mathfloor(n%10)] or false
result[#result+1] = cyrillic_numerals[2][mathfloor((n%100)/10)] or false
end
result[#result+1] = cyrillic_numerals[3][mathfloor((n%1000)/100)] or false
else
result = do_tocyrillic(n%1000, result)
result = do_tocyrillic(mathfloor(n/1000), result)
end
return result
end
local tocyrillic = function (n)
local chars = do_tocyrillic(n, { })
return concat_cyrillic_nums(chars)
end
local Tocyrillic = function (n)
local chars = do_tocyrillic(n, { })
return concat_cyrillic_nums(chars, true)
end
converters.tocyrillic = tocyrillic
converters.cyrillicnumerals = tocyrillic
converters.Cyrillicnumerals = Tocyrillic
function commands.cyrillicnumerals (n) context(tocyrillic(n)) end
function commands.Cyrillicnumerals (n) context(Tocyrillic(n)) end
-- vim:ft=lua:ts=2:sw=2:expandtab:fo=croql
|
