luametalatex/luametalatex-init.lua

do
  local ourpath = arg[0]:match('^%-%-lua=(.*[/\\])[^/\\]*%.lua$')
  kpse = assert(package.loadlib(ourpath .. 'kpse.so', 'luaopen_kpse'))()
end
do
  local arg0, progname
  for _, a in ipairs(arg) do
    if a:sub(1,11) == "--progname=" then
      progname = a:sub(12)
    elseif a:sub(1,7) == "--arg0=" then
      arg0 = a:sub(8)
    end
  end
  kpse.set_program_name(arg0, progname)
end
package.searchers[2] = function(modname)
  local filename = kpse.find_file(modname, "lua", true)
  if not filename then
    return string.format("\n\tno file located through kpse for %s", modname)
  end
  local mod, msg = loadfile(filename)
  if msg then
    error(string.format("error loading module '%s' from file '%s':\n\t%s", modname, filename, msg))
  end
  return mod, filename
end
-- kpse.set_maketex("kpse_fmt_format", true)
bit32 = require'luametalatex-bit32'
kpse.init_prog("LUATEX", 400, "nexthi", nil)
status.init_kpse = 1
require'luametalatex-init-config'
status.safer_option = 0
status.shell_escape = 0
local read_tfm = require'luametalatex-font-tfm'
local read_vf = require'luametalatex-font-vf'
font.read_tfm = read_tfm
font.read_vf = read_vf
local callback_register = callback.register
require'module'
pdf = {
  getfontname = function(id) -- No font sharing
    return id
  end,
  variable = {},
}
require'luametalatex-font-resolve' -- Replace font.define

local function base_define_font_cb(name, size)
  local f = read_tfm(name, size)
  if not f then return end
  local id = font.define(f)
  if status.ini_version then
    lua.prepared_code[#lua.prepared_code+1] = string.format("assert(%i == font.define(font.read_tfm(%q, %i)))", id, name, size)
  end
  return id
end
callback_register('define_font', base_define_font_cb)
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)
  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('find_format_file', function(name) return kpse.find_file(name, 'fmt', true) 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)
callback_register('pre_dump', function()
  local prepared = lua.prepared_code
  prepared[1] = string.format("fixupluafunctions(%i)", fixupluafunctions())
  for i=0,0 do -- maybeFIXME: In practise only one language is preloaded in LuaTeX anyway
  -- for i=0,tex.count[19] do -- Sometimes catches reserved language ids which are not used yet
  -- for i=0,lang.new():id()-1 do -- lang.new():id() is always 0 in luametatex?!?
    local l = lang.new(i)
    local str = string.format("do \z
      local l = lang.new(%i)\z
      l:hyphenationmin(%i)\z
      l:prehyphenchar(%i)\z
      l:posthyphenchar(%i)\z
      l:preexhyphenchar(%i)\z
      l:postexhyphenchar(%i)",
      i,
      l:hyphenationmin(),
      l:prehyphenchar(),
      l:posthyphenchar(),
      l:preexhyphenchar(),
      l:postexhyphenchar())
    local patterns = l:patterns()
    local exceptions = l:hyphenation()
    if patterns and exceptions then
      str = string.format("%sl:patterns(%q)l:hyphenation(%q)end", str, patterns, exceptions)
    elseif patterns then
      str = string.format("%sl:patterns(%q)end", str, patterns)
    elseif exceptions then
      str = string.format("%sl:hyphenation(%q)end", str, exceptions)
    else
      str = str .. 'end'
    end
    prepared[#prepared+1] = str
  end
  for i=2,#prepared do
    if type(prepared[i]) ~= 'string' then
      prepared[i] = assert(prepared[i]())
    end
  end
  lua.bytecode[1] = assert(load(table.concat(prepared, ' ')))
end)
function texconfig.init()
  lua.bytecode[2]()
  if not status.ini_version then
    lua.bytecode[2] = nil
  end
end
if status.ini_version then
  lua.prepared_code = {false}
  local code = package.searchers[2]('luametalatex-firstcode')
  if type(code) == "string" then error(string.format("Initialization code not found %s", code)) end
  lua.bytecode[2] = code
end