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
|
-----------------------------------------------------------------------
-- FILE: xindex-base.lua
-- DESCRIPTION: base file for xindex.lua
-- REQUIREMENTS:
-- AUTHOR: Herbert Voß
-- LICENSE: LPPL1.3
-----------------------------------------------------------------------
local info = { version = 0.06}
-- check config
if pageNoPrefixDel ~= "" then
-- numericPage = false
pageNoPrefixPattern = "^.*"..pageNoPrefixDel
end
writeLog(2,"Read Data from file "..inFile.." ... \n",0)
local lines = read_lines_from(inFile)
writeLog(2,#lines.." lines of data read\n",0)
if vlevel > 1 then
writeLog(1,"--------------- Input data -----------------\n",2)
for _,l in pairs(lines) do writeLog(1,l.."\n",2) end
writeLog(1,"--------------- end Input data -----------------\n",2)
end
local Index = {} -- Entry = "Seitenzahl(en)"
local pages = {}
local noEntryfound
local noPagefound
hyperpage, lines = checkHyperpage(lines) -- hyperref used?
if hyperpage then writeLog(1,"We have hyperpages ... \n",1) end
--for _,l in pairs(lines) do print (l) end
writeLog(1,"Change escape chars with macros ... \n",0)
for k,v in pairs(lines) do
if not commandEntry(v) then
for i, str0 in ipairs(escape_chars) do
v = v:gsub(str0[1],str0[2])
end
if k < #lines then
if commandEntry(lines[k+1]) then -- is the next line not a \indexentry ?
Index = getEntryAndPage(v,lines[k+1],Index)-- read two lines
else
Index = getEntryAndPage(v,"",Index)-- current line
end
else
Index = getEntryAndPage(v,"",Index)-- current line
end
end
end
writeLog(1,"... done\n",0)
writeLog(1,"------------------ Start list after getEntryAndPage() ------------------------\n,",2)
printList(Index,2)
writeLog(1,"\n------------------ end list after getEntryAndPage() ------------------------\n",2)
writeLog(2,"Sorting entries: for LARGE idx files it can take some minutes ... \n",0)
if SORTprehook then Index = SORTprehook(Index) end
k = 0
table.sort(Index,UTFCompare)
if SORTposthook then Index = SORTposthook(Index) end
writeLog(1,"\n------------------ Start list after table.sort(Index,UTFCompare)------------\n",2)
printList(Index,2)
writeLog(1,require 'xindex-pretty'.dump(Index),3) -- only for internal dump
writeLog(1,"\n------------------ end list after table.sort(Index,UTFCompare)------------\n",2)
writeLog(1,"\n",0)
writeLog(2,"\ncheck for |(...|) \n",0)
writeLog(1,"------------------ Start list before checkParenthesis(Index)------------\n",2)
writeLog(1,require 'xindex-pretty'.dump(Index),3) -- only for internal dump
--for i=1,#Index do print(Index[i]["Entry"],Index[i]["pages"][1]["number"],Index[i]["pages"][1]["special"]) end
Index = checkParenthesis(Index)
writeLog(1,"\n",0)
--for i=1,#Index do print(Index[i]["Entry"],Index[i]["pages"][1]["number"],Index[i]["pages"][1]["special"]) end
writeLog(1,require 'xindex-pretty'.dump(Index),3) -- only for internal dump
printList(Index,2)
writeLog(1,"------------------ End list after checkParenthesis(Index) ------------\n",2)
writeLog(2,"done\n",0)
writeLog(2,"Replace @-operator ...\n",0)
writeLog(1,"------------------ Start list before compressEntryList(Index)------------\n",1)
writeLog(1,require 'xindex-pretty'.dump(Index),3) -- only for internal dump
local NewIndex = {}
NewIndex = compressEntryList(Index) -- replaces also foo@bar -> bar
-- for i=1,#NewIndex do print(NewIndex[i]["Entry"],NewIndex[i]["pages"][1]["number"],NewIndex[i]["pages"][1]["special"]) end
writeLog(1,require 'xindex-pretty'.dump(NewIndex),3) -- only for internal dump
printList(NewIndex,2)
writeLog(1,"------------------ End list after compressEntryList(Index)------------\n",1)
writeLog(2,"done\n",0)
-- output the .ind-list
--[[
for i, str0 in ipairs(escape_chars) do
outFile:write("\\def"..str0[2].."{"..str0[3].."}\n")
end
]] -- no more needed, we redo the setting
outFile:write("\n")
outFile:write("\\begin{theindex}\n")
if indexOpening ~= "" then -- commands after \begin{theindex}
outFile:write(indexOpening)
end
local entry
local firstCLine = true
local firstNLine = true
local firstSLine = true
local firstChar
local symbols = true
local numbers = false
local letters = false
local charType
local currentChar
local currentCharType = 0 -- assume Symbol; 1 number; 2 letter
local oldChar = ""
local excl = 0 -- number of ! symbols in one entry
local lastItems = {"","",""}
writeLog(2,"Start writing .ind file ... \n",0)
-- first the special cases for symbols and numbers:
writeLog(1,"---------- Start list to write the ind file --------------\n",1)
writeLog(1,require 'xindex-pretty'.dump(NewIndex),3) -- only for internal dump
for k=1,#NewIndex do
-- require 'xindex-pretty'.dump(NewIndex[k]) -- only for internal dump
if NewIndex[k]["Entry"] then
local v = NewIndex[k]
writeLog(1," NewIndex[k]: "..v["Entry"].."\n",2)
writeLog(1,require 'xindex-pretty'.dump(v),3) -- only for internal dump
entry = v["Entry"]
writeLog(1,"\nBase start: "..entry.."\n",2)
-- local c = utf.sub(v["sortChar"],1,1)
-- if utf8.codepoint(c) < 12288 then -- Japanese starts at hex 3000
-- firstChar = v["sortChar"]
-- else
firstChar = utf.sub(v["sortChar"],1,1) -- catch a translatet Ö->OE
-- end
currentChar = firstChar
charType = getCharType(firstChar)
if charType == 0 then
numbers = false
symbols = true
end
if charType == 1 then
numbers = true
symbols = false
end
if charType > 1 then
numbers = false
symbols = false
letters = true
end
if symbols then
writeLog(1,"We have symbols to print ...\n",3)
if firstSLine then
firstSLine = false
if not no_headings then
outFile:write("\\textbf{"..index_header[1].."}\n\\nopagebreak[4]\n")
end
end
if specialItemOutput then
lastItems = specialItemOutput(lastItems, v, hyperpage)
else
lastItems = itemOutput(lastItems, v, hyperpage)
end
else
writeLog(1,"We have no symbols to print ...\n",3)
end
if numbers then
writeLog(1,"We have numbers to print ...\n",3)
if firstNLine then
firstNLine = false
outFile:write("\n\\indexspace\n")
if not no_headings then
outFile:write("\\textbf{"..index_header[2].."}\n\\nopagebreak[4]\n")
end
end
if specialItemOutput then
lastItems = specialItemOutput(lastItems, v, hyperpage)
else
lastItems = itemOutput(lastItems, v, hyperpage)
end
else
writeLog(1,"We have no numbers to print ...\n",3)
end
if letters then
writeLog(1,"We have letters to print ...\n",3)
if (currentChar ~= oldChar) and (charType == 2) then
outFile:write("\n\\indexspace\n")
if not no_headings then
outFile:write("\\textbf{"..currentChar.."}\n\\nopagebreak[4]\n")
end
oldChar = currentChar
end
if specialItemOutput then
lastItems = specialItemOutput(lastItems, v, hyperpage)
else
lastItems = itemOutput(lastItems, v, hyperpage)
end
end
if v["Macro"] then outFile:write(v["Macro"].."\n") end
end
end
outFile:write("\\end{theindex}\n")
outFile:close()
writeLog(2,"\ndone! closing program\n",0)
|