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
|
-----------------------------------------------------------------------
-- FILE: xindex-cfg.lua
-- DESCRIPTION: configuration file for xindex.lua
-- REQUIREMENTS:
-- AUTHOR: Herbert Voß
-- LICENSE: LPPL1.3
-----------------------------------------------------------------------
if not modules then modules = { } end modules ['xindex-cfg'] = {
version = 0.19,
comment = "DTK configuration to xindex.lua",
author = "Herbert Voss",
copyright = "Herbert Voss",
license = "LPPL 1.3"
}
itemPageDelimiter = "" -- Hello, 14
compressPages = true -- something like 12--15, instaead of 12,13,14,15. the |( ... |) syntax is still valid
fCompress = true -- 3f -> page 3, 4 and 3ff -> page 3, 4, 5
minCompress = 3 -- 14--17 or
numericPage = true -- for non numerical pagenumbers, like "VI-17"
sublabels = {"","","",""} -- for the sub(sub(sub-items
pageNoPrefixDel = "" -- a delimiter for page numbers like "VI-17" -- not used !!!
rangeSymbol = "--"
indexOpening = "" --[[\providecommand*\lettergroupDefault[1]{}
\providecommand*\lettergroup[1]{%
\par\textbf{#1}\par
\nopagebreak
}
]]
--[[
Each character's position in this array-like table determines its 'priority'.
Several characters in the same slot have the same 'priority'.
]]
alphabet_lower = { -- for sorting
{ ' ' }, -- only for internal tests
{ 'a', 'á', 'à', 'ä'},
{ 'b' },
{ 'c' },
{ 'd' },
{ 'e', 'é', 'è', 'ë' },
{ 'f' },
{ 'g' },
{ 'h' },
{ 'i', 'í', 'ì', 'ï' },
{ 'j' },
{ 'k' },
{ 'l' },
{ 'm' },
{ 'n', 'ñ' },
{ 'o', 'ó', 'ò', 'ö' },
{ 'p' },
{ 'q' },
{ 'r' },
{ 's' },
{ 't' },
{ 'u', 'ú', 'ù', 'ü' },
{ 'v' },
{ 'w' },
{ 'x' },
{ 'y' },
{ 'z' }
}
alphabet_upper = { -- for sorting
{ ' ' },
{ 'A', 'Á', 'À', 'Ä'},
{ 'B' },
{ 'C' },
{ 'D' },
{ 'E', 'È', 'È', 'ë' },
{ 'F' },
{ 'G' },
{ 'H' },
{ 'I', 'Í', 'Ì', 'ï' },
{ 'J' },
{ 'K' },
{ 'L' },
{ 'M' },
{ 'N', 'Ñ' },
{ 'O', 'Ó', 'Ò', 'Ö' },
{ 'P' },
{ 'Q' },
{ 'R' },
{ 'S' },
{ 'T' },
{ 'U', 'Ú', 'Ù', 'Ü' },
{ 'V' },
{ 'W' },
{ 'X' },
{ 'Y' },
{ 'Z' }
}
function specialGetPageList(v,hyperpage)
local Pages = {}
if v["pages"] then
table.sort(v["pages"],pageCompare)-- nur nötig, da User manuell eine Zeile einfügen kann
if specialCompressPageList then
Pages = specialCompressPageList(v["pages"])
else
Pages = compressPageList(v["pages"])
end
local pageNo
if hyperpage then
if string.find(v["pages"][1]["special"],"hyperindexformat") then
pageNo = v["pages"][1]["special"].."{"..checkFF(Pages[1]["number"].."}")
else
pageNo = "\\hyperpage{"..checkFF(Pages[1]["number"]).."}"
end
for i=2,#Pages do
if string.find(v["pages"][i]["special"],"hyperindexformat") then
pageNo = pageNo..", "..v["pages"][i]["special"].."{"..checkFF(Pages[i]["number"].."}")
else
pageNo = pageNo..", \\hyperpage{"..checkFF(Pages[i]["number"]).."}"
end
-- Pages[i] = nil
end
else
if args_v then print("getPageList: "..tostring(Pages[1]["special"])..tostring(Pages[1]["number"])) end
if (Pages[1]["special"] == nil) or (Pages[1]["number"] == nil) then return "" end
if #Pages == 1 then
return "\\relax "..Pages[1]["number"].."\\@nil"
else
pageNo = "\\relax "..Pages[1]["number"]
for i=2,#Pages do
if Pages[i]["number"] then
pageNo = pageNo..", "..Pages[i]["number"]
Pages[i] = {}
end
end
pageNo = pageNo.."\\@nil" -- add \@nil
end
return pageNo
end
else
return ""
end
end
function specialItemOutput(last, v, hyperpage)
local lastItems = last
local currentItems = {}
local Entry = v["Entry"]
local name = getItem(Entry,0)
local adress = getItem(Entry,1)
outFile:write(" \\item "..name..itemPageDelimiter.."\n")
str = " \\subitem "..itemPageDelimiter.." "..adress..getPageList(v,hyperpage).."\n"
for i, str0 in ipairs(escape_chars) do -- undo the escape char setting
str = str:gsub(str0[2],str0[3])
end
outFile:write(str)
return last
end
|
