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
|
-----------------------------------------------------------------------
-- FILE: xindex-baselib.lua
-- DESCRIPTION: baselibrary for xindex.lua
-- REQUIREMENTS:
-- AUTHOR: Herbert Voß
-- LICENSE: LPPL1.3
--
-- $Id: xindex-baselib.lua 19 2022-01-22 09:59:15Z hvoss $
-----------------------------------------------------------------------
if not modules then modules = { } end modules ['xindex-baselib'] = {
version = 0.35,
comment = "base library to xindex.lua",
author = "Herbert Voss",
copyright = "Herbert Voss",
license = "LPPL 1.3"
}
function dofile(filename)
local file = kpse.find_file(filename)
local f = assert(loadfile(file))
return f()
end
-- see if the file exists
function file_exists(file)
local f = io.open(file, "rb")
if f then f:close() end
return f ~= nil
end
function array_concat(...)
local t = {}
for n = 1,select("#",...) do
local arg = select(n,...)
if type(arg)=="table" then
for _,v in ipairs(arg) do
t[#t+1] = v
end
else
t[#t+1] = arg
end
end
return t
end
function IntegerOrString(str)
local x = tonumber(str)
if x == nil -- true, if str contains _not_ only digits -> integer
then return str
else return x
end
end
function getPathFileExt(str)
local filepath = str:match("(.*[/\\])")
local filename = str:match("^.+/(.+)$")
local fileext = str:match("^.+(%..+)$")
return filepath,filename,fileext
end
local romanMap = {
I = 1,
V = 5,
X = 10,
L = 50,
C = 100,
D = 500,
M = 1000,
}
local numbers = { 1, 5, 10, 50, 100, 500, 1000 }
local romanchars = { "I", "V", "X", "L", "C", "D", "M" }
local RomanNumerals = { }
function numberToRoman(s)
--s = tostring(s)
s = tonumber(s)
if not s or s ~= s then error"Unable to convert to number" end
if s == math.huge then error"Unable to convert infinity" end
s = math.floor(s)
if s <= 0 then return s end
local ret = ""
for i = #numbers, 1, -1 do
local num = numbers[i]
while s - num >= 0 and s > 0 do
ret = ret .. romanchars[i]
s = s - num
end
for j = 1, i - 1 do
local n2 = numbers[j]
if s - (num - n2) >= 0 and s < num and s > 0 and num - n2 ~= n2 then
ret = ret .. romanchars[j] .. romanchars[i]
s = s - (num - n2)
break
end
end
end
return ret
end
function romanToNumber(s)
-- if args_v then print("romanToNumber: "..tostring(s)) end
-- if not s then return end
s = s:upper()
local ret = 0
local i = 1
while i <= s:len() do
local c = s:sub(i, i)
if c ~= " " then -- allow spaces
local m = romanMap[c]
if not m then return nil end --error("Unknown Roman Numeral '" .. c .. "'")
local next = s:sub(i + 1, i + 1)
local nextm = romanMap[next]
if next and nextm then
if nextm > m then
ret = ret + (nextm - m)
i = i + 1
else
ret = ret + m
end
else
ret = ret + m
end
end
i = i + 1
end
return ret
end
function string:split()
local sep, fields = " ", {}
local pattern = string.format("([^%s]+)", sep)
self:gsub(pattern, function(c) fields[#fields+1] = c end)
return fields
end
function shellsort(a)
local inc = math.ceil( #a / 2 )
while inc > 0 do
for i = inc, #a do
local tmp = a[i]
local j = i
while j > inc and not UTFCompare(a[j-inc],tmp) do
a[j] = a[j-inc]
j = j - inc
end
a[j] = tmp
end
inc = math.floor( 0.5 + inc / 2.2 )
end
return a
end
function stripLeadingSpaces(str)
return str:gsub("^%s*(.-)%s*$", "%1")
end
|
