114 lines
3.6 KiB
Lua
114 lines
3.6 KiB
Lua
-- Two callbacks are defined in other files: pre_dump in lateinit and find_fmt_file in init
|
|
|
|
local read_tfm = font.read_tfm
|
|
local font_define = font.define
|
|
local callback_register = callback.register
|
|
|
|
if status.ini_version then
|
|
callback_register('define_font', function(name, size)
|
|
local f = read_tfm(name, size)
|
|
if not f then return end
|
|
local id = font_define(f)
|
|
lua.prepared_code[#lua.prepared_code+1] = string.format("assert(%i == font.define(font.read_tfm(%q, %i)))", id, name, size)
|
|
return id
|
|
end)
|
|
else
|
|
callback_register('define_font', function(name, size)
|
|
local f = read_tfm(name, size)
|
|
if not f then
|
|
tex.error(string.format("Font %q not found", name), "The requested font could't be loaded.\n\z
|
|
Are you sure that you passed the right name and\n\z
|
|
that the font is actually installed?")
|
|
return 0
|
|
end
|
|
return font.define(f)
|
|
end)
|
|
end
|
|
callback_register('find_log_file', function(name) return name end)
|
|
do
|
|
local function normal_find_data_file(name)
|
|
return kpse.find_file(name, 'tex', true)
|
|
end
|
|
if status.ini_version then
|
|
function unhook_expl()
|
|
callback_register('find_data_file', normal_find_data_file)
|
|
end
|
|
callback_register('find_data_file', function(name)
|
|
if name == 'ltexpl.ltx' then
|
|
name = 'luametalatex-ltexpl-hook'
|
|
end
|
|
return normal_find_data_file(name)
|
|
end)
|
|
else
|
|
callback_register('find_data_file', normal_find_data_file)
|
|
end
|
|
end
|
|
-- callback_register('read_data_file', function(name) error[[TODO]]return kpse.find_file(name, 'tex', true) end)
|
|
callback_register('open_data_file', function(name)
|
|
local f = io.open(name, 'r')
|
|
return setmetatable({
|
|
reader = function()
|
|
local line = f:read()
|
|
return line
|
|
end,
|
|
close = function()error[[1]] return f:close() end,
|
|
}, {
|
|
__gc = function()f:close()end,
|
|
})
|
|
end)
|
|
callback_register('handle_error_hook', function()
|
|
repeat
|
|
texio.write_nl'? '
|
|
local line = io.read()
|
|
if not line then
|
|
tex.fatalerror'End of line encountered on terminal'
|
|
end
|
|
if line == "" then return 3 end
|
|
local first = line:sub(1,1):upper()
|
|
if first == 'H' then
|
|
texio.write(tex.gethelptext() or "Sorry, I don't know how to help in this situation.\n\z
|
|
Maybe you should try asking a human?")
|
|
elseif first == 'I' then
|
|
line = line:sub(2)
|
|
tex.runtoks(function()
|
|
tex.sprint(token.scan_token(), line)
|
|
end)
|
|
return 3
|
|
elseif first == 'Q' then texio.write'OK, entering \\batchmode...\n' return 0
|
|
elseif first == 'R' then texio.write'OK, entering \\nonstopmode...\n' return 1
|
|
elseif first == 'S' then texio.write'OK, entering \\scrollmode...\n' return 2
|
|
elseif first == 'X' then return -1
|
|
else
|
|
texio.write'Type <return> to proceed, S to scroll future error messages,\
|
|
\z R to run without stopping, Q to run quietly,\
|
|
\z I to insert something,\
|
|
\z H for help, X to quit.'
|
|
end
|
|
until false
|
|
return 3
|
|
end)
|
|
|
|
-- Now overwrite the callback functionality. Our system is based on the ssumption there there are
|
|
-- no unknown callback names, just callbacks very unlikely to ever be called. That doesn't lead to
|
|
-- good error checking, but we expect this to be overwritten by LaTeX anyway.
|
|
|
|
local callback_find = callback.find
|
|
local rawset = rawset
|
|
local callbacks = setmetatable({}, {
|
|
__index = function(cbs, name)
|
|
return callback_find(name)
|
|
end,
|
|
__newindex = function(cbs, name, new)
|
|
return callback_register(name, new) or rawset(cbs, name, new)
|
|
end,
|
|
})
|
|
|
|
function callback.register(name, new)
|
|
callbacks[name] = new
|
|
end
|
|
function callback.find(name)
|
|
return callbacks[name]
|
|
end
|
|
|
|
return callbacks
|