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
|
-- langno.lua
-- library for working with luatex's language numbers
-- glyph nodes have numerical lang field, but the language names for
-- these numbers aren't saved.
--
-- this library tries to find language names by parsing `language.dat` file
--
local M = {}
local tex = tex or {}
local format = tex.formatname -- or "luatex"
-- languages object
local lang_obj = function(names, numbers)
local obj = {}
obj.__index = obj
local self = setmetatable({},obj)
self.names = names
self.numbers = numbers
-- get language name by number
self.get_name = function(self, number)
return self.numbers[number]
end
-- get language number by name
self.get_number = function(self, name)
return self.names[name]
end
return self
end
-- default language loader, language.dat file is parsed
local load_lang_dat = function(start)
-- languages are saved in the file language.dat
local lang_dat = kpse.find_file("language.dat")
if not lang_dat then
return nil, "Cannot load file language.dat"
end
local f = io.open(lang_dat, "r")
local i = start or 0
local numlang = {} -- return language name
local langnum = {} -- return language number
for line in f:lines() do
-- match comment, equal sign and first word on a line
local first, language = line:match("%s*([%%%=]?)([%a]*)")
if first ~="%" then -- ignore comments
langnum[language] = i
if first ~="=" then -- on lines starting with eq are language synonyms
--print(i, language)
numlang[i] = language
i = i + 1
end
end
end
return lang_obj(langnum, numlang)--{numbers = numlang, names = langnum}
end
local load_lang_dat_lualatex = function()
return load_lang_dat(1)
end
local load_csplain= function()
local l = require "luavlna-csplain-langs"
local langnum = {}
local numlang = {}
for k, v in pairs(l) do
local first = k:gsub(" *;.*","")
langnum[first] = v
for _,i in ipairs(v) do
numlang[i] = first
end
end
return lang_obj(langnum, numlang)
end
-- because different formats may use different ways to load languages
-- driver mechanism is provided.
local drivers = {}
drivers["lualatex"] = load_lang_dat_lualatex
drivers["luatex"] = load_lang_dat
drivers["default"] = load_lang_dat
drivers["csplain"] = load_csplain
drivers["pdfcsplain"] = load_csplain
drivers["luacsplain"] = load_csplain
local load_languages = function(name)
local name = name or format
print ("Load driver: "..name)
local func = drivers[name] or drivers["default"]
if not func then return nil, "Cannot find driver function "..name end
return func()
end
-- only load_languages function is provided to the outside world
M.load_languages = load_languages
return M
--[[
-- sample usage:
local j = load_languages()
print(j:get_name(16))
print(j:get_number("slovak"))
for k, v in pairs(j.numbers) do
print(k,v)
end
--]]
-- this may be used in future, if I find a way how does local language.dat
-- affect language loading
-- load local language.dat
--[[
local loc = kpse.var_value('TEXMFLOCAL') .. "tex/generic/config/language.dat"
local f, msg = io.open(loc, "r")
f:read("*all")
--]]
|
