#!/usr/bin/env texlua
-- This file is copyright 2010 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-fonts.lua script.
-- It is part of the luaotfload bundle, please see the luaotfload documentation
-- for more info.
--[[
first we import luaotfload-fonts.lua.
Basically it 'exports' three usefult things: the two overwritable variables
- luaotfload.fonts.basename: the filename of the database
- luaotfload.fonts.directory: the directory of the database
and the function
- luaotfload.fonts.generate: the function to generate the database
]]
kpse.set_program_name("luatex")
require("luaextra")
require("otfl-font-nms")
require("alt_getopt")
local name = 'mkluatexfontdb'
local version = '1.07' -- same version number as luaotfload
mkluatexfontdb = { } -- just for now, elie is rewriting it anyway
local names = fonts.names
names.basename = names.basename or "otfl-names.lua"
names.version = names.version or 2.005
-- the path to add to TEXMFVAR or TEXMFSYSVAR to get the final directory in
-- normal cases
mkluatexfontdb.subtexmfvardir = "/scripts/luatexfontdb/"
-- the directory in which the database will be saved, can be overwritten
mkluatexfontdb.directory = kpse.expand_var("$TEXMFVAR") .. mkluatexfontdb.subtexmfvardir
local log = logs.report
local function help_msg()
texio.write_nl(string.format([[Usage: %s [OPTION]...
Rebuild the LuaTeX font database.
Valid options:
-d --dbdir DIRECTORY writes the database in the specified directory
-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 prints the version and exits
-h --help prints this message
--fc-cache run fc-cache before updating database
--no-fc-cache do not run fc-cache (default)
-p --purge purge removed fonts
--sys writes the database for the whole system
(default is only for the user)
The output database file is named otfl-fonts.lua. By default it is placed
in TEXMFVAR/scripts/luatexfontdb/.
]], name))
end
local function version_msg()
texio.write_nl(string.format(
"%s version %s, database version %s.\n", name, version, names.version))
end
--[[
Command-line processing.
Here we fill cmdargs with the good values, and then analyze it, setting
luaotfload.fonts.log_level luaotfload.fonts.directory if necessary.
]]
local long_opts = {
dbdir = "d",
purge = "p",
force = "f",
quiet = "q",
verbose = 1,
version = "V",
help = "h",
sys = 0,
['fc-cache'] = 0,
['no-fc-cache'] = 0,
}
local short_opts = "d:fqpvVh"
-- Function running fc-cache if needed.
-- The argument is nil for default, 0 for no fc-cache and 1 for fc-cache.
-- Default behaviour is to run fc-cache if available.
local function do_run_fc_cache(c)
if c == 0 then return end
if not c then
-- TODO: detect if fc-cache is available
end
local toexec = 'fc-cache'
if fonts.system == 'windows' then
toexec = 'fc-cache.exe' -- TODO: to test on a non-cygwin Windows
end
log('executing %s...\n', toexec)
os.execute(toexec)
end
-- a temporary variable, containing the command line option concerning fc-cache
local run_fc_cache = 0
local force_reload = nil
local purge = nil
local function process_cmdline()
local opts, optind, optarg = alt_getopt.get_ordered_opts (arg, short_opts, long_opts)
local log_level = 1
for i,v in ipairs(opts) do
if v == "q" then
log_level = 0
elseif v == "v" then
if log_level > 0 then
log_level = log_level + 1
else
log_level = 2
end
elseif v == "V" then
version_msg()
os.exit(0)
elseif v == "h" then
help_msg()
os.exit(0)
elseif v == "d" then
mkluatexfontdb.directory = optarg [i]
elseif v == "f" then
force_reload = 1
elseif v == "p" then
purge = 1
elseif v == "fc-cache" then
run_fc_cache = 1
elseif v == "no-fc-cache" then
run_fc_cache = 0
elseif v == "sys" then
mkluatexfontdb.directory = kpse.expand_var("$TEXMFSYSVAR") .. mkluatexfontdb.subtexmfvardir
end
end
if string.match(arg[0], '-sys') then
mkluatexfontdb.directory = kpse.expand_var("$TEXMFSYSVAR") .. mkluatexfontdb.subtexmfvardir
end
mkluatexfontdb.directory = fonts.path_normalize(mkluatexfontdb.directory)
names.set_log_level(log_level)
end
process_cmdline()
do_run_fc_cache(run_fc_cache)
-- the status table is containing correspondances between absolute path and last modification
-- timestamp, it's uses to save time during update, by not reparsing unchanged fonts.
local status = nil
local status_file = mkluatexfontdb.directory .. "/otfl-names-status.lua"
if not force_reload and file.isreadable(status_file) then
status = dofile(status_file)
end
local function generate(force, purge)
log("generating font names database.")
local savepath = mkluatexfontdb.directory
if not lfs.isdir(savepath) then
log("creating directory %s", savepath)
dir.mkdirs(savepath)
if not lfs.isdir(savepath) then
texio.write_nl(string.format("Error: cannot create directory '%s', exiting.\n", savepath))
os.exit(1)
end
end
savepath = savepath .. '/' .. names.basename
local fh = io.open(savepath, 'a+')
if not fh then
texio.write_nl(string.format("Error: cannot write file '%s', exiting.\n", savepath))
os.exit(1)
end
fh:close()
local fontnames
if kpse.find_file(names.basename) and not force_reload then
fontnames = dofile(kpse.find_file(names.basename))
else
fontnames = nil
end
fontnames, status = names.update(fontnames, status, force, purge)
log("%s fonts in %s families in the database",
#fontnames.mappings, #table.keys(fontnames.families))
io.savedata(savepath, table.serialize(fontnames, true))
log("saved font names database in %s\n", savepath)
io.savedata(status_file, table.serialize(status, true))
end
generate(force_reload, purge)