summaryrefslogtreecommitdiff
path: root/mkluatexfontdb.lua
diff options
context:
space:
mode:
Diffstat (limited to 'mkluatexfontdb.lua')
-rwxr-xr-xmkluatexfontdb.lua395
1 files changed, 0 insertions, 395 deletions
diff --git a/mkluatexfontdb.lua b/mkluatexfontdb.lua
deleted file mode 100755
index 96dcf60..0000000
--- a/mkluatexfontdb.lua
+++ /dev/null
@@ -1,395 +0,0 @@
-#!/usr/bin/env texlua
---[[
-This file was originally written by Elie Roux and Khaled Hosny and is under CC0
-license (see http://creativecommons.org/publicdomain/zero/1.0/legalcode).
-
-This file is a wrapper for the luaotfload's font names module. It is part of the
-luaotfload bundle, please see the luaotfload documentation for more info.
---]]
-
-kpse.set_program_name"luatex"
-
-local stringformat = string.format
-local texiowrite_nl = texio.write_nl
-local stringfind = string.find
-local stringlower = string.lower
-
--- First we need to be able to load module (code copied from
--- luatexbase-loader.sty):
-local loader_file = "luatexbase.loader.lua"
-local loader_path = assert(kpse.find_file(loader_file, "lua"),
- "File '"..loader_file.."' not found")
-
-string.quoted = string.quoted or function (str)
- return string.format("%q",str)
-end
-
---texiowrite_nl("("..loader_path..")")
-dofile(loader_path) -- FIXME this pollutes stdout with filenames
-
---[[doc--
-Depending on how the script is called we change its behavior.
-For backwards compatibility, moving or symlinking the script to a
-file name starting with \fileent{mkluatexfontdb} will cause it to
-trigger a database update on every run.
-Running as \fileent{fontdbutil} -- the new name -- will do this upon
-request only.
-
-There are two naming conventions followed here: firstly that of
-utilities such as \fileent{mktexpk}, \fileent{mktexlsr} and the likes,
-and secondly that of \fileent{fmtutil}.
-After support for querying the database was added, the latter appeared
-to be the more appropriate.
---doc]]--
-
-config = config or { }
-local config = config
-config.luaotfload = config.luaotfload or { }
-
-do -- we don’t have file.basename and the likes yet, so inline parser ftw
- local C, P = lpeg.C, lpeg.P
- local lpegmatch = lpeg.match
- local slash = P"/"
- local dot = P"."
- local noslash = 1 - slash
- local slashes = slash^1
- local path = slashes^-1 * (noslash^1 * slashes)^1
- local thename = (1 - slash - dot)^1
- local extension = dot * (1 - slash - dot)^1
- local p_basename = path^-1 * C(thename) * extension^-1 * P(-1)
-
- -- if stringfind(stringlower(arg[0]), "^fontdbutil") then
- local self = lpegmatch(p_basename, stringlower(arg[0]))
- if self == "fontdbutil" then
- config.luaotfload.self = "fontdbutil"
- else
- config.luaotfload.self = "mkluatexfontdb"
- end
-end
-
-config.lualibs = config.lualibs or { }
-config.lualibs.verbose = false
-config.lualibs.prefer_merged = true
-config.lualibs.load_extended = false
-
-require"lualibs"
-require"otfl-basics-gen.lua"
-require"otfl-luat-ovr.lua" --- this populates the logs.* namespace
-require"otfl-font-nms"
-require"alt_getopt"
-
-local version = "2.2" -- same version number as luaotfload
-local names = fonts.names
-
-local db_src_out = names.path.dir.."/"..names.path.basename
-local db_bin_out = file.replacesuffix(db_src_out, "luc")
-
-local help_messages = {
- fontdbutil = [[
-
-Usage: %s [OPTION]...
-
-Operations on the LuaTeX font database.
-
-This tool is part of the luaotfload package. Valid options are:
-
--------------------------------------------------------------------------------
- VERBOSITY AND LOGGING
-
- -q --quiet don't output anything
- -v --verbose=LEVEL be more verbose (print the searched directories)
- -vv print the loaded fonts
- -vvv print all steps of directory searching
- -V --version print version and exit
- -h --help print this message
-
--------------------------------------------------------------------------------
- DATABASE
-
- -u --update update the database
- -f --force force re-indexing all fonts
-
- --find="font name" query the database for a font name
- -F --fuzzy look for approximate matches if --find fails
- --limit=n limit display of fuzzy matches to <n>
- (default: n = 1)
- -i --info display font metadata
-
- --log=stdout redirect log output to stdout
-
-The font database will be saved to
- %s
- %s
-
-]],
- mkluatexfontdb = [[
-
-Usage: %s [OPTION]...
-
-Rebuild the LuaTeX font database.
-
-Valid options:
- -f --force force re-indexing all fonts
- -q --quiet don't output anything
- -v --verbose=LEVEL be more verbose (print the searched directories)
- -vv print the loaded fonts
- -vvv print all steps of directory searching
- -V --version print version and exit
- -h --help print this message
-
-The font database will be saved to
- %s
- %s
-
-]],
-}
-
-local help_msg = function ( )
- local template = help_messages[config.luaotfload.self]
- or help.messages.fontdbutil
- texiowrite_nl(stringformat(template, config.luaotfload.self, db_src_out, db_bin_out))
-end
-
-local version_msg = function ( )
- texiowrite_nl(stringformat(
- "%s version %s, database version %s.\n",
- config.luaotfload.self, version, names.version))
-end
-
-local show_info_items = function (fontinfo)
- local items = table.sortedkeys(fontinfo)
- for n = 1, #items do
- local item = items[n]
- texiowrite_nl(stringformat(
- [[ %11s: %s]], item, fontinfo[item]))
- end
-end
-
-local show_font_info = function (filename)
- local fullname = resolvers.findfile(filename)
- if fullname then
- local fontinfo = fontloader.info(fullname)
- local nfonts = #fontinfo
- if nfonts > 0 then -- true type collection
- logs.names_report(true, 0, "resolve",
- [[%s is a font collection]], filename)
- for n = 1, nfonts do
- logs.names_report(true, 0, "resolve",
- [[showing info for font no. %d]], n)
- show_info_items(fontinfo[n])
- end
- else
- show_info_items(fontinfo)
- end
- else
- logs.names_report(true, 0, "resolve",
- "font %s not found", filename)
- end
-end
-
---[[--
-Running the scripts triggers one or more actions that have to be
-executed in the correct order. To avoid duplication we track them in a
-set.
---]]--
-
-local action_sequence = {
- "loglevel", "help", "version", "generate", "query"
-}
-local action_pending = table.tohash(action_sequence, false)
-
-action_pending.loglevel = true --- always set the loglevel
-action_pending.generate = false --- this is the default action
-
-local actions = { } --- (jobspec -> (bool * bool)) list
-
-actions.loglevel = function (job)
- logs.set_loglevel(job.log_level)
- logs.names_report("log", 2, "util",
- "setting log level", "%d", job.log_level)
- return true, true
-end
-
-actions.version = function (job)
- version_msg()
- return true, false
-end
-
-actions.help = function (job)
- help_msg()
- return true, false
-end
-
-actions.generate = function (job)
- local fontnames, savedname
- fontnames = names.update(fontnames, job.force_reload)
- logs.names_report("log", 0, "db",
- "fonts in the database", "%i", #fontnames.mappings)
- savedname = names.save(fontnames)
- if savedname then --- FIXME have names.save return bool
- return true, true
- end
- return false, false
-end
-
-actions.query = function (job)
-
- local query = job.query
- local tmpspec = {
- name = query,
- lookup = "name",
- specification = "name:" .. query,
- optsize = 0,
- }
-
- local foundname, _whatever, success =
- fonts.names.resolve(nil, nil, tmpspec)
-
- if success then
- logs.names_report(false, 0,
- "resolve", "Font “%s” found!", query)
- logs.names_report(false, 0,
- "resolve", "Resolved file name “%s”:", foundname)
- if job.show_info then
- show_font_info(foundname)
- end
- else
- logs.names_report(false, 0,
- "resolve", "Cannot find “%s”.", query)
- if job.fuzzy == true then
- logs.names_report(false, 2,
- "resolve", "Looking for close matches, this may take a while ...")
- local success = fonts.names.find_closest(query, job.fuzzy_limit)
- end
- end
- return true, true
-end
-
---[[--
-Command-line processing.
-mkluatexfontdb.lua relies on the script alt_getopt to process argv and
-analyzes its output.
-
-TODO with extended lualibs we have the functionality from the
-environment.* namespace that could eliminate the dependency on
-alt_getopt.
---]]--
-
-local process_cmdline = function ( ) -- unit -> jobspec
- local result = { -- jobspec
- force_reload = nil,
- query = "",
- log_level = 1,
- }
-
- if config.luaotfload.self == "mkluatexfontdb" then
- action_pending["generate"] = true
- end
-
- local long_options = {
- find = 1,
- force = "f",
- fuzzy = "F",
- help = "h",
- info = "i",
- limit = 1,
- log = 1,
- quiet = "q",
- update = "u",
- verbose = 1 ,
- version = "V",
- }
-
- local short_options = "fFiquvVh"
-
- local options, _, optarg =
- alt_getopt.get_ordered_opts (arg, short_options, long_options)
-
- local nopts = #options
- for n=1, nopts do
- local v = options[n]
- if v == "q" then
- result.log_level = 0
- elseif v == "u" then
- action_pending["generate"] = true
- elseif v == "v" then
- if result.log_level > 0 then
- result.log_level = result.log_level + 1
- else
- result.log_level = 2
- end
- elseif v == "V" then
- action_pending["version"] = true
- elseif v == "h" then
- action_pending["help"] = true
- elseif v == "f" then
- result.update = true
- result.force_reload = 1
- elseif v == "verbose" then
- local lvl = optarg[n]
- if lvl then
- result.log_level = tonumber(lvl)
- end
- elseif v == "log" then
- local str = optarg[n]
- if str then
- logs.set_logout(str)
- end
- elseif v == "find" then
- action_pending["query"] = true
- result.query = optarg[n]
- elseif v == "F" then
- result.fuzzy = true
- elseif v == "limit" then
- local lim = optarg[n]
- if lim then
- result.fuzzy_limit = tonumber(lim)
- end
- elseif v == "i" then
- result.show_info = true
- end
- end
- return result
-end
-
-local main = function ( ) -- unit -> int
- local retval = 0
- local job = process_cmdline()
-
--- inspect(action_pending)
--- inspect(job)
-
- for i=1, #action_sequence do
- local actionname = action_sequence[i]
- local exit = false
- if action_pending[actionname] then
- logs.names_report("log", 3, "util", "preparing for task",
- "%s", actionname)
-
- local action = actions[actionname]
- local success, continue = action(job)
-
- if not success then
- logs.names_report(false, 0, "util",
- "could not finish task", "%s", actionname)
- retval = -1
- exit = true
- elseif not continue then
- logs.names_report(false, 3, "util",
- "task completed, exiting", "%s", actionname)
- exit = true
- else
- logs.names_report(false, 3, "util",
- "task completed successfully", "%s", actionname)
- end
- end
- if exit then break end
- end
-
- texiowrite_nl""
- return retval
-end
-
-return main()
-
--- vim:tw=71:sw=4:ts=4:expandtab