summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-03 22:49:28 +0000
committerKarl Berry <karl@freefriends.org>2018-12-03 22:49:28 +0000
commit510cc1b8395f714ec6c1b7299cf73371563b1a16 (patch)
treeef1d3f055e87db8e906501a88ca550b861ac22e2 /Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua
parentf855360800d3dd036378f102ca41cf5fa3e87db1 (diff)
xindex (2dec18)
git-svn-id: svn://tug.org/texlive/trunk@49312 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua')
-rw-r--r--Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua157
1 files changed, 157 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua b/Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua
new file mode 100644
index 00000000000..0104f37cece
--- /dev/null
+++ b/Master/texmf-dist/tex/lualatex/xindex/xindex-dtk.lua
@@ -0,0 +1,157 @@
+-----------------------------------------------------------------------
+-- 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.05,
+ 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 !!!
+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
+
+