summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--NEWS7
-rw-r--r--luaotfload-database.lua323
-rw-r--r--luaotfload-diagnostics.lua58
-rw-r--r--luaotfload-override.lua5
-rwxr-xr-xluaotfload-tool.lua24
-rw-r--r--luaotfload-tool.rst33
-rw-r--r--luaotfload.dtx3
7 files changed, 379 insertions, 74 deletions
diff --git a/NEWS b/NEWS
index 0875cfa..960a8d5 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,13 @@
Change History
--------------
+2013/XX/XX, luaotfload v2.4
+ * additional self-tests, now in separate file (luaotfload-diagnostics.lua)
+ * better path and directory handling, especially on Windows
+ * database now indexes Type1 fonts (PFA, PFB) and makes them accessible
+ with style modifiers (requires --format=+pfa,pfb option to luaotfload-tool)
+ * test runner (script mktests)
+
2013/07/10, luaotfload v2.3a
* Detect LuaJIT interpreter (LuaJITTeX)
* Self-test functionality for luaotfload-tool.lua (option ``--diagnose``)
diff --git a/luaotfload-database.lua b/luaotfload-database.lua
index a0a532e..ac2d0db 100644
--- a/luaotfload-database.lua
+++ b/luaotfload-database.lua
@@ -28,7 +28,9 @@ local tonumber = tonumber
local unpack = table.unpack
local fontloaderinfo = fontloader.info
+local fontloaderclose = fontloader.close
local fontloaderopen = fontloader.open
+local fontloaderto_table = fontloader.to_table
local iolines = io.lines
local ioopen = io.open
local kpseexpand_path = kpse.expand_path
@@ -67,6 +69,7 @@ local filejoin = file.join
local filenameonly = file.nameonly
local filereplacesuffix = file.replacesuffix
local filesplitpath = file.splitpath or file.split_path
+local filesuffix = file.suffix
local lfsisdir = lfs.isdir
local lfsisfile = lfs.isfile
local lfsmkdirs = lfs.mkdirs
@@ -75,6 +78,7 @@ local stringsplit = string.split
local stringstrip = string.strip
local tableappend = table.append
local tablecopy = table.copy
+local tablefastcopy = table.fastcopy
local tabletofile = table.tofile
local tabletohash = table.tohash
@@ -90,13 +94,15 @@ local names = fonts.names
config = config or { }
config.luaotfload = config.luaotfload or { }
config.luaotfload.resolver = config.luaotfload.resolver or "normal"
+config.luaotfload.formats = config.luaotfload.formats or "otf,ttf,ttc,dfont"
+
if config.luaotfload.update_live ~= false then
--- this option allows for disabling updates
--- during a TeX run
config.luaotfload.update_live = true
end
-names.version = 2.207
+names.version = 2.208
names.data = nil --- contains the loaded database
names.lookups = nil --- contains the lookup cache
@@ -232,6 +238,7 @@ end
This is a sketch of the luaotfload db:
type dbobj = {
+ formats : string list; // { "otf", "ttf", "ttc", "dfont" }
mappings : fontentry list;
status : filestatus;
version : float;
@@ -308,12 +315,13 @@ mtx-fonts has in names.tma:
--doc]]--
-local fontnames_init = function (keep_cache) --- returns dbobj
+local fontnames_init = function (formats) --- returns dbobj
return {
mappings = { },
status = { },
-- filenames = { }, -- created later
version = names.version,
+ formats = formats,
}
end
@@ -351,7 +359,8 @@ local crude_file_lookup
local crude_file_lookup_verbose
local find_closest
local flush_lookup_cache
-local font_fullinfo
+local ot_fullinfo
+local t1_fullinfo
local load_names
local load_lookups
local read_blacklist
@@ -363,6 +372,8 @@ local resolve_fullpath
local save_names
local save_lookups
local update_names
+local get_font_filter
+local set_font_filter
--- state of the database
local fonts_loaded = false
@@ -397,7 +408,8 @@ load_names = function (dry_run)
[[Font names database not found, generating new one.]])
report("both", 0, "db",
[[This can take several minutes; please be patient.]])
- data = update_names(fontnames_init(false), nil, dry_run)
+ data = update_names (fontnames_init (get_font_filter ()),
+ nil, dry_run)
local success = save_names(data)
if not success then
report("both", 0, "db", "Database creation unsuccessful.")
@@ -1095,22 +1107,33 @@ local sanitize_names = function (names)
return res
end
+local load_font_file = function (filename, subfont)
+ local rawfont, _msg = fontloaderopen (filename, subfont)
+ if not rawfont then
+ report ("log", 1, "db", "ERROR: failed to open %s", filename)
+ return
+ end
+ local metadata = fontloaderto_table (rawfont)
+ fontloaderclose (rawfont)
+ collectgarbage "collect"
+ return metadata
+end
+
--[[doc--
The data inside an Opentype font file can be quite heterogeneous.
Thus in order to get the relevant information, parts of the original
table as returned by the font file reader need to be relocated.
--doc]]--
+
--- string -> int -> bool -> string -> fontentry
-font_fullinfo = function (filename, subfont, texmf, basename)
+ot_fullinfo = function (filename, subfont, texmf, basename)
local tfmdata = { }
- local rawfont = fontloaderopen(filename, subfont)
- if not rawfont then
- report("log", 1, "error", "Failed to open %s", filename)
- return
+
+ local metadata = load_font_file (filename, subfont)
+ if not metadata then
+ return nil
end
- local metadata = fontloader.to_table(rawfont)
- fontloader.close(rawfont)
- collectgarbage("collect")
+
-- see http://www.microsoft.com/typography/OTSPEC/features_pt.htm#size
if metadata.fontstyle_name then
for _, name in next, metadata.fontstyle_name do
@@ -1119,6 +1142,7 @@ font_fullinfo = function (filename, subfont, texmf, basename)
end
end
end
+
if metadata.names then
for _, namedata in next, metadata.names do
if namedata.lang == "English (US)" then
@@ -1171,13 +1195,106 @@ font_fullinfo = function (filename, subfont, texmf, basename)
return tfmdata
end
+--[[doc--
+
+ Type1 font inspector. PFB’s contain a good deal less name fields
+ which makes it tricky in some parts to find a meaningful representation
+ for the database.
+
+--doc]]--
+
+--- string -> int -> bool -> string -> fontentry
+t1_fullinfo = function (filename, _subfont, texmf, basename)
+ local namedata = { }
+ local metadata = load_font_file (filename)
+
+ local fontname = metadata.fontname
+ local fullname = metadata.fullname
+ local familyname = metadata.familyname
+ local italicangle = metadata.italicangle
+ local weight = metadata.weight
+
+ --- we have to improvise and detect whether we deal with
+ --- italics since pfb fonts don’t come with a “subfamily”
+ --- field
+ local style
+ if italicangle == 0 then
+ style = false
+ else
+ style = "italic"
+ end
+
+ local style_synonyms_set = style_synonyms.set
+ if weight then
+ weight = sanitize_string (weight)
+ local tmp = ""
+ if style_synonyms_set.bold[weight] then
+ tmp = "bold"
+ end
+ if style then
+ style = tmp .. style
+ else
+ if style_synonyms_set.regular[weight] then
+ style = "regular"
+ else
+ style = tmp
+ end
+ end
+ end
+
+ if not style then
+ style = "regular"
+ --- else italic
+ end
+
+ namedata.sanitized = sanitize_names ({
+ fontname = fontname,
+ psname = fullname,
+ pfullname = fullname,
+ metafamily = family,
+ family = familyname,
+ subfamily = weight,
+ prefmodifiers = style,
+ })
+
+ namedata.fontname = fontname
+ namedata.fullname = fullname
+ namedata.familyname = familyname
+
+ namedata.weight = 0 -- dummy
+ namedata.version = metadata.version
+
+ namedata.size = { }
+
+ namedata.filename = filename --> sys
+ namedata.basename = basename --> texmf
+ namedata.texmf = texmf or false
+ namedata.subfont = subfont
+ return namedata
+end
+
+local loaders = {
+ otf = ot_fullinfo,
+ ttc = ot_fullinfo,
+ ttf = ot_fullinfo,
+
+ afm = function (filename, _, texmf, basename)
+ --- TODO
+ local pfbname = filereplacesuffix (filename, "pfb")
+ if lfsisfile (pfbname) then
+ return t1_fullinfo (pfbname, nil, texmf, basename)
+ end
+ report ("both", 1, "db",
+ "Cannot find matching pfb for %s; skipping.", basename)
+ return false
+ end,
+ pfb = t1_fullinfo,
+ pfa = t1_fullinfo,
+}
+
--- we return true if the fond is new or re-indexed
--- string -> dbobj -> dbobj -> bool
local load_font = function (fullname, fontnames, newfontnames, texmf)
- if not fullname then
- return false
- end
-
local newmappings = newfontnames.mappings
local newstatus = newfontnames.status --- by full path
@@ -1187,6 +1304,8 @@ local load_font = function (fullname, fontnames, newfontnames, texmf)
local basename = filebasename(fullname)
local barename = filenameonly(fullname)
+ local format = stringlower (filesuffix (basename))
+
local entryname = fullname
if texmf == true then
entryname = basename
@@ -1230,11 +1349,18 @@ local load_font = function (fullname, fontnames, newfontnames, texmf)
return false
end
+ local loader = loaders[format] --- ot_fullinfo, t1_fullinfo
+ if not loader then
+ report ("both", 0, "db",
+ "Unknown format: %q, skipping.", format)
+ return false
+ end
+
local info = fontloaderinfo(fullname)
if info then
if type(info) == "table" and #info > 1 then --- ttc
for n_font = 1, #info do
- local fullinfo = font_fullinfo(fullname, n_font-1, texmf, basename)
+ local fullinfo = loader (fullname, n_font-1, texmf, basename)
if not fullinfo then
return false
end
@@ -1246,7 +1372,7 @@ local load_font = function (fullname, fontnames, newfontnames, texmf)
newentrystatus.index[n_font] = index
end
else
- local fullinfo = font_fullinfo(fullname, false, texmf, basename)
+ local fullinfo = loader (fullname, false, texmf, basename)
if not fullinfo then
return false
end
@@ -1409,22 +1535,73 @@ read_blacklist = function ()
names.blacklist = create_blacklist(blacklist, whitelist)
end
-local font_extensions = { "otf", "ttf", "ttc", "dfont" }
-local font_extensions_set = tabletohash (font_extensions)
-local p_font_extensions
+local p_font_filter
+
do
- local extns
- --tablesort (font_extensions) --- safeguard
- for i=#font_extensions, 1, -1 do
- local e = font_extensions[i]
- if not extns then
- extns = P(e)
- else
- extns = extns + P(e)
+ local current_formats = { }
+
+ local extension_pattern = function (list)
+ local pat
+ for i=#list, 1, -1 do
+ local e = list[i]
+ if not pat then
+ pat = P(e)
+ else
+ pat = pat + P(e)
+ end
+ end
+ pat = pat * P(-1)
+ return (1 - pat)^1 * pat
+ end
+
+ --- small helper to adjust the font filter pattern (--formats
+ --- option)
+
+ set_font_filter = function (formats)
+
+ if not formats or type (formats) ~= "string" then
+ return
+ end
+
+ if stringsub (formats, 1, 1) == "+" then -- add
+ formats = lpegmatch (splitcomma, stringsub (formats, 2))
+ if formats then
+ current_formats = tableappend (current_formats, formats)
+ end
+ elseif stringsub (formats, 1, 1) == "-" then -- add
+ formats = lpegmatch (splitcomma, stringsub (formats, 2))
+ if formats then
+ local newformats = { }
+ for i = 1, #current_formats do
+ local fmt = current_formats[i]
+ local include = true
+ for j = 1, #formats do
+ if current_formats[i] == formats[j] then
+ include = false
+ goto skip
+ end
+ end
+ newformats[#newformats+1] = fmt
+ ::skip::
+ end
+ current_formats = newformats
+ end
+ else -- set
+ formats = lpegmatch (splitcomma, formats)
+ if formats then
+ current_formats = formats
+ end
end
+
+ p_font_filter = extension_pattern (current_formats)
+ end
+
+ get_font_filter = function (formats)
+ return tablefastcopy (current_formats)
end
- extns = extns * P(-1)
- p_font_extensions = (1 - extns)^1 * extns
+
+ --- initialize
+ set_font_filter (config.luaotfload.formats)
end
local process_dir_tree
@@ -1451,8 +1628,7 @@ process_dir_tree = function (acc, dirs)
then
dirs[#dirs+1] = fullpath
elseif lfsisfile (fullpath) then
- if lpegmatch (p_font_extensions,
- stringlower (ent))
+ if lpegmatch (p_font_filter, stringlower (ent))
then
newfiles[#newfiles+1] = fullpath
end
@@ -1476,8 +1652,7 @@ local process_dir = function (dir)
if ent ~= "." and ent ~= ".." and not blacklist[ent] then
local fullpath = dir .. "/" .. ent
if lfsisfile (fullpath) then
- if lpegmatch (p_font_extensions,
- stringlower (ent))
+ if lpegmatch (p_font_filter, stringlower (ent))
then
files[#files+1] = fullpath
end
@@ -1569,6 +1744,8 @@ local filter_out_pwd = function (dirs)
return result
end
+local path_separator = ostype == "windows" and ";" or ":"
+
--[[doc--
scan_texmf_fonts() scans all fonts in the texmf tree through the
kpathsea variables OPENTYPEFONTS and TTFONTS of texmf.cnf.
@@ -1578,8 +1755,10 @@ end
--- dbobj -> dbobj -> bool? -> (int * int)
local scan_texmf_fonts = function (fontnames, newfontnames, dry_run)
+
local n_scanned, n_new, fontdirs = 0, 0
local osfontdir = kpseexpand_path "$OSFONTDIR"
+
if stringis_empty (osfontdir) then
report ("info", 2, "db", "Scanning TEXMF fonts...")
else
@@ -1593,9 +1772,11 @@ local scan_texmf_fonts = function (fontnames, newfontnames, dry_run)
end
end
end
+
fontdirs = kpseexpand_path "$OPENTYPEFONTS"
- fontdirs = fontdirs .. (ostype == "windows" and ";" or ":")
- .. kpseexpand_path "$TTFONTS"
+ fontdirs = fontdirs .. path_separator .. kpseexpand_path "$TTFONTS"
+ fontdirs = fontdirs .. path_separator .. kpseexpand_path "$T1FONTS"
+
if not stringis_empty (fontdirs) then
local tasks = filter_out_pwd (filesplitpath (fontdirs))
report ("info", 3, "db",
@@ -1607,6 +1788,7 @@ local scan_texmf_fonts = function (fontnames, newfontnames, dry_run)
n_new = n_new + new
end
end
+
return n_scanned, n_new
end
@@ -1861,22 +2043,36 @@ local function get_os_dirs ()
return {}
end
---- dbobj -> dbobj -> bool? -> (int * int)
-local scan_os_fonts = function (fontnames, newfontnames, dry_run)
- local n_scanned, n_new = 0, 0
- --[[
- This function scans the OS fonts through
- - fontcache for Unix (reads the fonts.conf file and scans the
+--[[doc--
+
+ scan_os_fonts() scans the OS fonts through
+ - fontconfig for Unix (reads the fonts.conf file[s] and scans the
directories)
- a static set of directories for Windows and MacOSX
- ]]
- report("info", 2, "db", "Scanning OS fonts...")
- report("info", 3, "db", "Searching in static system directories...")
- for _, d in next, get_os_dirs() do
- local found, new = scan_dir(d, fontnames, newfontnames, dry_run)
+
+ **NB**: If $OSFONTDIR is nonempty, as it appears to be by default
+ on Windows setups, the system fonts will have already been
+ processed while scanning the TEXMF. Thus, this function is
+ never called.
+
+--doc]]--
+
+--- dbobj -> dbobj -> bool? -> (int * int)
+local scan_os_fonts = function (fontnames, newfontnames,
+ dry_run)
+
+ local n_scanned, n_new = 0, 0
+ report ("info", 2, "db", "Scanning OS fonts...")
+ report ("info", 3, "db",
+ "Searching in static system directories...")
+
+ for _, d in next, get_os_dirs () do
+ local found, new = scan_dir (d, fontnames,
+ newfontnames, dry_run)
n_scanned = n_scanned + found
n_new = n_new + new
end
+
return n_scanned, n_new
end
@@ -1968,14 +2164,17 @@ end
--- dbobj? -> bool? -> bool? -> dbobj
update_names = function (fontnames, force, dry_run)
+
if config.luaotfload.update_live == false then
report("info", 2, "db",
"skipping database update")
--- skip all db updates
return fontnames or names.data
end
+
local starttime = os.gettimeofday()
local n_scanned, n_new = 0, 0
+
--[[
The main function, scans everything
- “newfontnames” is the final table to return
@@ -1985,26 +2184,26 @@ update_names = function (fontnames, force, dry_run)
.. (force and " forcefully" or ""))
if force then
- fontnames = fontnames_init(false)
+ fontnames = fontnames_init (get_font_filter ())
else
if not fontnames then
- fontnames = load_names(dry_run)
+ fontnames = load_names (dry_run)
end
if fontnames.version ~= names.version then
- report("both", 1, "db", "No font names database or old "
- .. "one found; generating new one")
- fontnames = fontnames_init(true)
+ report ("both", 1, "db", "No font names database or old "
+ .. "one found; generating new one")
+ fontnames = fontnames_init (get_font_filter ())
end
end
- local newfontnames = fontnames_init(true)
- read_blacklist()
+ local newfontnames = fontnames_init (get_font_filter ())
+ read_blacklist ()
local scanned, new
- scanned, new = scan_texmf_fonts(fontnames, newfontnames, dry_run)
+ scanned, new = scan_texmf_fonts (fontnames, newfontnames, dry_run)
n_scanned = n_scanned + scanned
n_new = n_new + new
- scanned, new = scan_os_fonts(fontnames, newfontnames, dry_run)
+ scanned, new = scan_os_fonts (fontnames, newfontnames, dry_run)
n_scanned = n_scanned + scanned
n_new = n_new + new
@@ -2118,11 +2317,11 @@ local purge_from_cache = function (category, path, list, all)
osremove(filename)
n = n + 1
else
- local suffix = file.suffix(filename)
+ local suffix = filesuffix(filename)
if suffix == "lua" then
local checkname = file.replacesuffix(
filename, "lua", "luc")
- if lfs.isfile(checkname) then
+ if lfsisfile(checkname) then
report("info", 5, "cache", "Removing %s", filename)
osremove(filename)
n = n + 1
@@ -2148,7 +2347,7 @@ local collect_cache collect_cache = function (path, all, n, luanames,
local filename = all[n]
if filename then
- local suffix = file.suffix(filename)
+ local suffix = filesuffix(filename)
if suffix == "lua" then
luanames[#luanames+1] = filename
elseif suffix == "luc" then
@@ -2238,6 +2437,7 @@ end
-----------------------------------------------------------------------
names.scan_dir = scan_dir
+names.set_font_filter = set_font_filter
names.flush_lookup_cache = flush_lookup_cache
names.save_lookups = save_lookups
names.load = load_names
@@ -2263,7 +2463,8 @@ else
names.resolve = resolve
names.resolvespec = resolve
end
-names.find_closest = find_closest
+
+names.find_closest = find_closest
-- for testing purpose
names.read_fonts_conf = read_fonts_conf
diff --git a/luaotfload-diagnostics.lua b/luaotfload-diagnostics.lua
index db807de..efb7e5e 100644
--- a/luaotfload-diagnostics.lua
+++ b/luaotfload-diagnostics.lua
@@ -29,14 +29,17 @@ local osname = os.name
local osremove = os.remove
local ostype = os.type
local stringformat = string.format
+local stringlower = string.lower
local stringsub = string.sub
local fileisreadable = file.isreadable
local fileiswritable = file.iswritable
local filesplitpath = file.splitpath
+local filesuffix = file.suffix
local ioloaddata = io.loaddata
local lua_of_json = utilities.json.tolua
local tableconcat = table.concat
+local tablesortedkeys = table.sortedkeys
local tabletohash = table.tohash
local lpeg = require "lpeg"
@@ -47,6 +50,47 @@ local out = function (...)
logs.names_report (false, 0, "diagnose", ...)
end
+local check_index = function (errcnt)
+
+ out "================= font names =================="
+
+ if not names.data then
+ names.data = names.load ()
+ end
+
+ local namedata = names.data
+ local mappings = namedata.mappings
+
+ if not namedata and namedata.formats and namedata.version then
+ out "Database corrupt."
+ return errcnt + 1
+ end
+
+ out ("Database version: %.3f.", names.version)
+ out ("Font formats indexed: %s.",
+ tableconcat (namedata.formats, ", "))
+ out ("%d font files indexed.", #mappings)
+
+ local by_format = { }
+ for i = 1, #mappings do
+ local record = mappings[i]
+ local format = stringlower (filesuffix (record.filename))
+ local count = by_format[format]
+ if count then
+ by_format[format] = count + 1
+ else
+ by_format[format] = 1
+ end
+ end
+
+ local formats = tablesortedkeys (by_format)
+ for i = 1, #formats do
+ local format = formats[i]
+ out ("%20s: %5d", format, by_format[format])
+ end
+ return errcnt
+end
+
local verify_files = function (errcnt, status)
out "================ verify files ================="
local hashes = status.hashes
@@ -312,7 +356,12 @@ else
out ("%d of %d Github API requests left.", left, limit)
if left == 0 then
out ("Cannot make any more API requests.")
- out ("Try again later at %s.", osdate ("%F %T", reset))
+ if ostype == "unix" then
+ out ("Try again later at %s.", osdate ("%F %T", reset))
+ else --- windows doesn’t C99
+ out ("Try again later at %s.",
+ osdate ("%Y-%m-d %H:%M:%S", reset))
+ end
end
return true
end
@@ -548,6 +597,7 @@ end
local anamneses = {
"environment",
"files",
+ "index",
"repository",
"permissions"
}
@@ -564,6 +614,11 @@ local diagnose = function (job)
asked = tabletohash (asked, true)
end
+ if asked.index == true then
+ errcnt = check_index (errcnt)
+ asked.index = nil
+ end
+
if asked.environment == true then
errcnt = check_environment (errcnt)
asked.environment = nil
@@ -620,3 +675,4 @@ end
return diagnose
+-- vim:tw=71:sw=4:ts=4:expandtab
diff --git a/luaotfload-override.lua b/luaotfload-override.lua
index 19cd505..8e467d5 100644
--- a/luaotfload-override.lua
+++ b/luaotfload-override.lua
@@ -99,8 +99,9 @@ end
local set_logout = function (s, finalizers)
if s == "stdout" then
- logout = "term"
+ logout = "redirect"
elseif s == "file" then --- inject custom logger
+ logout = "redirect"
local chan = choose_logfile ()
chan:write (stringformat ("logging initiated at %s",
osdate ("%F %T", ostime ())))
@@ -224,7 +225,7 @@ local names_report = function (mode, lvl, ...)
if loglevel >= lvl then
if mode == "log" then
log (...)
- elseif mode == "both" and log ~= "stdout" then
+ elseif mode == "both" and logout ~= "redirect" then
log (...)
stdout (...)
else
diff --git a/luaotfload-tool.lua b/luaotfload-tool.lua
index 92483d6..3bec847 100755
--- a/luaotfload-tool.lua
+++ b/luaotfload-tool.lua
@@ -46,6 +46,7 @@ local iowrite = io.write
local kpsefind_file = kpse.find_file
local next = next
local osdate = os.date
+local ostype = os.type
local stringexplode = string.explode
local stringformat = string.format
local stringlower = string.lower
@@ -107,6 +108,7 @@ config.luaotfload.names_dir = config.luaotfload.names_dir or "names"
config.luaotfload.cache_dir = config.luaotfload.cache_dir or "fonts"
config.luaotfload.index_file = config.luaotfload.index_file
or "luaotfload-names.lua"
+config.luaotfload.formats = config.luaotfload.formats or "otf,ttf,ttc,dfont"
do -- we don’t have file.basename and the likes yet, so inline parser ftw
local slash = P"/"
@@ -197,7 +199,8 @@ This tool is part of the luaotfload package. Valid options are:
-V --version print version and exit
-h --help print this message
--diagnose=CHECK run a self test procedure; one of "files",
- "permissions", or "repository"
+ "environment", "index", "permissions", or
+ "repository"
--alias=<name> force behavior of "luaotfload-tool" or legacy
"mkluatexfontdb"
@@ -209,6 +212,7 @@ This tool is part of the luaotfload package. Valid options are:
-f --force force re-indexing all fonts
-l --flush-lookups empty lookup cache of font requests
-D --dry-run skip loading of fonts, just scan
+ --formats=[+|-]EXTENSIONS set, add, or subtract formats to index
-p --prefer-texmf prefer fonts in the TEXMF over system fonts
--find="font name" query the database for a font name
@@ -265,6 +269,7 @@ The font database will be saved to
short = [[
Usage: luaotfload-tool [--help] [--version] [--verbose=<lvl>]
[--update] [--force] [--prefer-texmf]
+ [--dry-run] [--formats=<extension list>]
[--find=<font name>] [--fuzzy] [--info] [--inspect]
[--list=<criterion>] [--fields=<field list>]
[--cache=<directive>] [--flush-lookups]
@@ -507,7 +512,14 @@ local display_general = function (fullinfo)
val = #fullinfo[key]
end
elseif mode == "d" then
- val = osdate("%F %T", fullinfo[key])
+ if ostype == "unix" then
+ val = osdate("%F %T", fullinfo[key])
+ else
+ --- the MS compiler doesn’t support C99, so
+ --- strftime is missing some functionality;
+ --- see loslib.c for details.
+ val = osdate("%Y-%m-d %H:%M:%S", fullinfo[key])
+ end
end
if not val then
val = "<none>"
@@ -795,7 +807,8 @@ actions.query = function (job)
"Resolved file name %q", foundname)
end
if job.show_info then
- show_font_info(foundname, query, job.full_info, job.warnings)
+ show_font_info (foundname, query, job.full_info, job.warnings)
+ texiowrite_nl ""
end
else
logs.names_report(false, 0,
@@ -1016,8 +1029,9 @@ local process_cmdline = function ( ) -- unit -> jobspec
["prefer-texmf"] = "p",
quiet = "q",
["show-blacklist"] = "b",
+ formats = 1,
update = "u",
- verbose = 1 ,
+ verbose = 1,
version = "V",
warnings = "w",
}
@@ -1099,6 +1113,8 @@ local process_cmdline = function ( ) -- unit -> jobspec
elseif v == "diagnose" then
action_pending["diagnose"] = true
result.asked_diagnostics = optarg[n]
+ elseif v == "formats" then
+ names.set_font_filter (optarg[n])
end
end
diff --git a/luaotfload-tool.rst b/luaotfload-tool.rst
index 2e95381..2d3ae2f 100644
--- a/luaotfload-tool.rst
+++ b/luaotfload-tool.rst
@@ -6,18 +6,20 @@
generate and query the Luaotfload font names database
-----------------------------------------------------------------------
-:Date: 2013-07-10
+:Date: 2013-07-31
:Copyright: GPL v2.0
-:Version: 2.3a
+:Version: 2.4
:Manual section: 1
:Manual group: text processing
SYNOPSIS
=======================================================================
-**luaotfload-tool** [ -bDcfFiIpquvVwh ]
+**luaotfload-tool** [ -bDfFiIlpquvVhw ]
-**luaotfload-tool** --update [ --force ] [ --quiet ] [ --verbose ] [ --prefer-texmf ] [ --dry-run ]
+**luaotfload-tool** --update [ --force ] [ --quiet ] [ --verbose ]
+ [ --prefer-texmf ] [ --dry-run ]
+ [ --formats=[+|-]EXTENSIONS ]
**luaotfload-tool** --find=FONTNAME [ --fuzzy ] [ --info ] [ --inspect ]
@@ -60,6 +62,25 @@ update mode
--prefer-texmf, -p Organize the file name database in a way so
that it prefer fonts in the *TEXMF* tree over
system fonts if they are installed in both.
+--formats=EXTENSIONS Extensions of the font files to index.
+ Where *EXTENSIONS* is a comma-separated list of
+ supported file extensions (otf, ttf, ttc,
+ dfont, pfa, and pfb). If the list is prefixed
+ with a ``+`` sign, the given list is added to
+ the currently active one; ``-`` subtracts.
+ Default: *otf,ttf,ttc,dfont*.
+ Examples:
+
+ 1) ``--formats=-ttc,ttf`` would skip
+ TrueType fonts and font collections;
+ 2) ``--formats=otf`` would scan only OpenType
+ files;
+ 3) ``--formats=+pfb`` includes binary
+ Postscript files. **Warning**: with a
+ standard TeX Live installation this will
+ grow the database considerably and slow down
+ font indexing.
+
--dry-run, -D Don’t load fonts, scan directories only.
(For debugging file system related issues.)
@@ -138,7 +159,9 @@ miscellaneous
3) ``environment`` -> print relevant
environment and kpse variables;
4) ``repository`` -> check the git repository
- for new releases.
+ for new releases,
+ 5) ``index`` -> check database, display
+ information about it.
Procedures can be chained by concatenating with
commas, e.g. ``--diagnose=files,permissions``.
diff --git a/luaotfload.dtx b/luaotfload.dtx
index e42c14e..4802844 100644
--- a/luaotfload.dtx
+++ b/luaotfload.dtx
@@ -1545,10 +1545,11 @@ config.luaotfload.prioritize = config.luaotfload.prioritize or "sys"
config.luaotfload.names_dir = config.luaotfload.names_dir or "names"
config.luaotfload.cache_dir = config.luaotfload.cache_dir or "fonts"
config.luaotfload.index_file = config.luaotfload.index_file or "luaotfload-names.lua"
+config.luaotfload.formats = config.luaotfload.formats or "otf,ttf,ttc,dfont"
luaotfload.module = {
name = "luaotfload",
- version = 2.40001,
+ version = 2.40002,
date = "2013/07/28",
description = "OpenType layout system.",
author = "Elie Roux & Hans Hagen",