summaryrefslogtreecommitdiff
path: root/luaotfload-tool.lua
diff options
context:
space:
mode:
Diffstat (limited to 'luaotfload-tool.lua')
-rwxr-xr-xluaotfload-tool.lua82
1 files changed, 70 insertions, 12 deletions
diff --git a/luaotfload-tool.lua b/luaotfload-tool.lua
index f1302a7..f2814ee 100755
--- a/luaotfload-tool.lua
+++ b/luaotfload-tool.lua
@@ -235,30 +235,83 @@ local version_msg = function ( )
config.luaotfload.self, version, names.version))
end
+local tw = 80
+local print_font_name = function (name)
+ local s = "-- " .. name .. " "
+ s = s .. string.rep("-", tw-string.len(s))
+ texiowrite_nl (s)
+ texiowrite_nl ""
+end
+
local show_info_items = function (fontinfo)
local items = table.sortedkeys(fontinfo)
+ print_font_name(fontinfo.fullname)
for n = 1, #items do
local item = items[n]
texiowrite_nl(stringformat(
[[ %11s: %s]], item, fontinfo[item]))
end
+ texiowrite_nl ""
end
-local show_font_info = function (filename)
- local fullname = resolvers.findfile(filename)
+local subfont_by_name
+subfont_by_name = function (lst, askedname, n)
+ if not n then
+ return subfont_by_name (lst, askedname, 1)
+ end
+
+ local font = lst[n]
+ if font then
+ if font.fullname == askedname then
+ return font
+ end
+ return subfont_by_name (lst, askedname, n+1)
+ end
+ return false
+end
+
+--[[doc--
+The font info knows two levels of detail:
+
+ a) basic information returned by fontloader.info(); and
+ b) detailed information that is a subset of the font table returned
+ by fontloader.open().
+--doc]]--
+
+local show_font_info = function (basename, askedname, full)
+ local filenames = names.data.filenames
+ local index = filenames.base[basename]
+ local fullname = filenames.full[index]
+ if not fullname then -- texmf
+ fullname = resolvers.findfile(basename)
+ end
+ local info = { }
if fullname then
- local fontinfo = fontloader.info(fullname)
- local nfonts = #fontinfo
+ info.location = fullname
+ local shortinfo = fontloader.info(fullname)
+ local nfonts = #shortinfo
if nfonts > 0 then -- true type collection
- logs.names_report(true, 1, "resolve",
- [[%s is a font collection]], filename)
- for n = 1, nfonts do
+ local subfont
+ if askedname then
logs.names_report(true, 1, "resolve",
- [[showing info for font no. %d]], n)
- show_info_items(fontinfo[n])
+ [[%s is part of the font collection %s]],
+ askedname, basename)
+ subfont = subfont_by_name(shortinfo, askedname)
+ end
+ if subfont then
+ show_info_items(subfont)
+ else -- list all subfonts
+ logs.names_report(true, 1, "resolve",
+ [[%s is a font collection]], basename)
+ inspect(shortinfo)
+ for n = 1, nfonts do
+ logs.names_report(true, 1, "resolve",
+ [[showing info for font no. %d]], n)
+ show_info_items(shortinfo[n])
+ end
end
else
- show_info_items(fontinfo)
+ show_info_items(shortinfo)
end
else
logs.names_report(true, 1, "resolve",
@@ -378,7 +431,7 @@ actions.query = function (job)
"resolve", "Resolved file name ā€œ%sā€", foundname)
end
if job.show_info then
- show_font_info(foundname)
+ show_font_info(foundname, query, job.full_info)
end
else
logs.names_report(false, 0,
@@ -553,6 +606,7 @@ alt_getopt.
local process_cmdline = function ( ) -- unit -> jobspec
local result = { -- jobspec
force_reload = nil,
+ full_info = false,
criterion = "",
query = "",
log_level = 0, --- 2 is approx. the old behavior
@@ -569,6 +623,7 @@ local process_cmdline = function ( ) -- unit -> jobspec
fuzzy = "F",
help = "h",
info = "i",
+ inspect = "I",
limit = 1,
list = 1,
log = 1,
@@ -580,7 +635,7 @@ local process_cmdline = function ( ) -- unit -> jobspec
version = "V",
}
- local short_options = "bDfFilpquvVh"
+ local short_options = "bDfFiIlpquvVh"
local options, _, optarg =
alt_getopt.get_ordered_opts (arg, short_options, long_options)
@@ -627,6 +682,9 @@ local process_cmdline = function ( ) -- unit -> jobspec
end
elseif v == "i" then
result.show_info = true
+ elseif v == "I" then
+ result.show_info = true
+ result.full_info = true
elseif v == "alias" then
config.luaotfload.self = optarg[n]
elseif v == "l" then