Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
alltt.sty	3.06 KB	-rw-r--r--
ansinew.def	6.67 KB	-rw-r--r--
applemac.def	6.25 KB	-rw-r--r--
article.cls	19.67 KB	-rw-r--r--
article.sty	1.7 KB	-rw-r--r--
ascii.def	1.69 KB	-rw-r--r--
atbegshi-ltx.sty	2.96 KB	-rw-r--r--
atveryend-ltx.sty	2.4 KB	-rw-r--r--
bezier.sty	2.01 KB	-rw-r--r--
bk10.clo	8.09 KB	-rw-r--r--
bk11.clo	8.11 KB	-rw-r--r--
bk12.clo	8.09 KB	-rw-r--r--
book.cls	22.72 KB	-rw-r--r--
book.sty	1.68 KB	-rw-r--r--
cp1250.def	6.09 KB	-rw-r--r--
cp1252.def	6.66 KB	-rw-r--r--
cp1257.def	6.3 KB	-rw-r--r--
cp437.def	4.69 KB	-rw-r--r--
cp437de.def	4.69 KB	-rw-r--r--
cp850.def	5.92 KB	-rw-r--r--
cp852.def	5.38 KB	-rw-r--r--
cp858.def	5.87 KB	-rw-r--r--
cp865.def	4.75 KB	-rw-r--r--
decmulti.def	4.88 KB	-rw-r--r--
doc-v3beta.sty	40.85 KB	-rw-r--r--
doc.sty	29.78 KB	-rw-r--r--
docstrip.tex	33.86 KB	-rw-r--r--
exscale.sty	2.52 KB	-rw-r--r--
fix-cm.sty	14.4 KB	-rw-r--r--
fixltx2e.sty	15.15 KB	-rw-r--r--
flafter.sty	9.6 KB	-rw-r--r--
fleqn.clo	4.69 KB	-rw-r--r--
fleqn.sty	1.66 KB	-rw-r--r--
fltrace.sty	38.24 KB	-rw-r--r--
fontenc.sty	4.83 KB	-rw-r--r--
fontmath.cfg	1.94 KB	-rw-r--r--
fontmath.ltx	24.36 KB	-rw-r--r--
fonttext.cfg	1.94 KB	-rw-r--r--
fonttext.ltx	3.23 KB	-rw-r--r--
graphpap.sty	3.31 KB	-rw-r--r--
hyphen.ltx	1.89 KB	-rw-r--r--
idx.tex	2.64 KB	-rw-r--r--
ifthen.sty	5.04 KB	-rw-r--r--
inputenc.sty	4.93 KB	-rw-r--r--
lablst.tex	3.98 KB	-rw-r--r--
latex.ltx	528.8 KB	-rw-r--r--
latex209.def	12.06 KB	-rw-r--r--
latexrelease.sty	523.07 KB	-rw-r--r--
latexsym.sty	2.79 KB	-rw-r--r--
latin1.def	5.54 KB	-rw-r--r--
latin10.def	5.27 KB	-rw-r--r--
latin2.def	4.84 KB	-rw-r--r--
latin3.def	4.95 KB	-rw-r--r--
latin4.def	5.07 KB	-rw-r--r--
latin5.def	5.52 KB	-rw-r--r--
latin9.def	5.2 KB	-rw-r--r--
lcyenc.dfu	7.03 KB	-rw-r--r--
leqno.clo	1.91 KB	-rw-r--r--
leqno.sty	1.66 KB	-rw-r--r--
letter.cls	13.41 KB	-rw-r--r--
letter.sty	1.69 KB	-rw-r--r--
lppl.tex	22.84 KB	-rw-r--r--
ltluatex.lua	18.76 KB	-rw-r--r--
ltluatex.tex	8.39 KB	-rw-r--r--
ltnews.cls	19.99 KB	-rw-r--r--
ltxcheck.tex	26.49 KB	-rw-r--r--
ltxdoc.cls	7.94 KB	-rw-r--r--
ltxguide.cls	7.35 KB	-rw-r--r--
ly1enc.dfu	6.87 KB	-rw-r--r--
macce.def	3.68 KB	-rw-r--r--
makeidx.sty	1.89 KB	-rw-r--r--
minimal.cls	1.89 KB	-rw-r--r--
newlfont.sty	2.84 KB	-rw-r--r--
next.def	6.55 KB	-rw-r--r--
nfssfont.tex	13.01 KB	-rw-r--r--
oldlfont.sty	3.37 KB	-rw-r--r--
omlcmm.fd	2.28 KB	-rw-r--r--
omlcmr.fd	2.41 KB	-rw-r--r--
omlenc.def	1.86 KB	-rw-r--r--
omllcmm.fd	2.19 KB	-rw-r--r--
omscmr.fd	2.41 KB	-rw-r--r--
omscmsy.fd	2.21 KB	-rw-r--r--
omsenc.def	2.63 KB	-rw-r--r--
omsenc.dfu	1.94 KB	-rw-r--r--
omslcmsy.fd	2.19 KB	-rw-r--r--
omxcmex.fd	1.99 KB	-rw-r--r--
omxlcmex.fd	2.1 KB	-rw-r--r--
openbib.sty	1.88 KB	-rw-r--r--
ot1cmdh.fd	2.01 KB	-rw-r--r--
ot1cmfib.fd	2.01 KB	-rw-r--r--
ot1cmfr.fd	2.07 KB	-rw-r--r--
ot1cmr.fd	3.62 KB	-rw-r--r--
ot1cmss.fd	3.08 KB	-rw-r--r--
ot1cmtt.fd	2.84 KB	-rw-r--r--
ot1cmvtt.fd	2.22 KB	-rw-r--r--
ot1enc.def	4.54 KB	-rw-r--r--
ot1enc.dfu	3.45 KB	-rw-r--r--
ot1lcmss.fd	2.93 KB	-rw-r--r--
ot1lcmtt.fd	2.43 KB	-rw-r--r--
ot2enc.dfu	7.24 KB	-rw-r--r--
ot4enc.def	4.63 KB	-rw-r--r--
preload.cfg	1.94 KB	-rw-r--r--
preload.ltx	1.98 KB	-rw-r--r--
proc.cls	3.84 KB	-rw-r--r--
proc.sty	3.67 KB	-rw-r--r--
report.cls	22.66 KB	-rw-r--r--
report.sty	1.69 KB	-rw-r--r--
sample2e.tex	7.03 KB	-rw-r--r--
sfonts.def	1.56 KB	-rw-r--r--
shortvrb.sty	3.7 KB	-rw-r--r--
showidx.sty	3.29 KB	-rw-r--r--
size10.clo	8.25 KB	-rw-r--r--
size11.clo	8.27 KB	-rw-r--r--
size12.clo	8.25 KB	-rw-r--r--
slides.cls	16.34 KB	-rw-r--r--
slides.def	17.81 KB	-rw-r--r--
slides.sty	1.69 KB	-rw-r--r--
small2e.tex	1.65 KB	-rw-r--r--
source2edoc.cls	8.95 KB	-rw-r--r--
structuredlog.sty	2.74 KB	-rw-r--r--
syntonly.sty	2.77 KB	-rw-r--r--
t1cmdh.fd	2.12 KB	-rw-r--r--
t1cmfib.fd	2.16 KB	-rw-r--r--
t1cmfr.fd	2.15 KB	-rw-r--r--
t1cmr.fd	2.41 KB	-rw-r--r--
t1cmss.fd	2.56 KB	-rw-r--r--
t1cmtt.fd	2.39 KB	-rw-r--r--
t1cmvtt.fd	2.18 KB	-rw-r--r--
t1enc.def	10.63 KB	-rw-r--r--
t1enc.dfu	12.17 KB	-rw-r--r--
t1enc.sty	1.75 KB	-rw-r--r--
t1lcmss.fd	3.14 KB	-rw-r--r--
t1lcmtt.fd	2.31 KB	-rw-r--r--
t2aenc.dfu	9.65 KB	-rw-r--r--
t2benc.dfu	9.42 KB	-rw-r--r--
t2cenc.dfu	9.28 KB	-rw-r--r--
testpage.tex	12.23 KB	-rw-r--r--
texsys.cfg	7.88 KB	-rw-r--r--
textcomp-2018-08-11.sty	15.77 KB	-rw-r--r--
textcomp.sty	2.83 KB	-rw-r--r--
tracefnt.sty	9.62 KB	-rw-r--r--
ts1cmr.fd	2.37 KB	-rw-r--r--
ts1cmss.fd	2.32 KB	-rw-r--r--
ts1cmtt.fd	2.23 KB	-rw-r--r--
ts1cmvtt.fd	2.18 KB	-rw-r--r--
ts1enc.def	7.86 KB	-rw-r--r--
ts1enc.dfu	4.93 KB	-rw-r--r--
tuenc.def	28.42 KB	-rw-r--r--
tulmdh.fd	2.22 KB	-rw-r--r--
tulmr.fd	4.71 KB	-rw-r--r--
tulmss.fd	3.58 KB	-rw-r--r--
tulmssq.fd	2.68 KB	-rw-r--r--
tulmtt.fd	4.47 KB	-rw-r--r--
tulmvtt.fd	3.31 KB	-rw-r--r--
ucmr.fd	3.59 KB	-rw-r--r--
ucmss.fd	3.06 KB	-rw-r--r--
ucmtt.fd	2.78 KB	-rw-r--r--
ulasy.fd	2.18 KB	-rw-r--r--
ullasy.fd	2.14 KB	-rw-r--r--
utf8-2018.def	9.68 KB	-rw-r--r--
utf8.def	11 KB	-rw-r--r--
utf8enc.dfu	24.17 KB	-rw-r--r--
x2enc.dfu	10.86 KB	-rw-r--r--

Code Editor : ltluatex.lua

--
-- This is file `ltluatex.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- ltluatex.dtx  (with options: `lua')
-- 
-- This is a generated file.
-- 
-- The source is maintained by the LaTeX Project team and bug
-- reports for it can be opened at https://latex-project.org/bugs.html
-- (but please observe conditions on bug reports sent to that address!)
-- 
-- 
-- Copyright (C) 2015-2021
-- The LaTeX Project and any individual authors listed elsewhere
-- in this file.
-- 
-- This file was generated from file(s) of the LaTeX base system.
-- --------------------------------------------------------------
-- 
-- It may be distributed and/or modified under the
-- conditions of the LaTeX Project Public License, either version 1.3c
-- of this license or (at your option) any later version.
-- The latest version of this license is in
--    https://www.latex-project.org/lppl.txt
-- and version 1.3c or later is part of all distributions of LaTeX
-- version 2008 or later.
-- 
-- This file has the LPPL maintenance status "maintained".
-- 
-- This file may only be distributed together with a copy of the LaTeX
-- base system. You may however distribute the LaTeX base system without
-- such generated files.
-- 
-- The list of all files belonging to the LaTeX base distribution is
-- given in the file `manifest.txt'. See also `legal.txt' for additional
-- information.
-- 
-- The list of derived (unpacked) files belonging to the distribution
-- and covered by LPPL is defined by the unpacking scripts (with
-- extension .ins) which are part of the distribution.
luatexbase       = luatexbase or { }
local luatexbase = luatexbase
local string_gsub      = string.gsub
local tex_count        = tex.count
local tex_setattribute = tex.setattribute
local tex_setcount     = tex.setcount
local texio_write_nl   = texio.write_nl
local flush_list       = node.flush_list
local luatexbase_warning
local luatexbase_error
local modules = modules or { }
local function luatexbase_log(text)
  texio_write_nl("log", text)
end
local function provides_module(info)
  if not (info and info.name) then
    luatexbase_error("Missing module name for provides_module")
  end
  local function spaced(text)
    return text and (" " .. text) or ""
  end
  luatexbase_log(
    "Lua module: " .. info.name
      .. spaced(info.date)
      .. spaced(info.version)
      .. spaced(info.description)
  )
  modules[info.name] = info
end
luatexbase.provides_module = provides_module
local function msg_format(mod, msg_type, text)
  local leader = ""
  local cont
  local first_head
  if mod == "LaTeX" then
    cont = string_gsub(leader, ".", " ")
    first_head = leader .. "LaTeX: "
  else
    first_head = leader .. "Module "  .. msg_type
    cont = "(" .. mod .. ")"
      .. string_gsub(first_head, ".", " ")
    first_head =  leader .. "Module "  .. mod .. " " .. msg_type  .. ":"
  end
  if msg_type == "Error" then
    first_head = "\n" .. first_head
  end
  if string.sub(text,-1) ~= "\n" then
    text = text .. " "
  end
  return first_head .. " "
    .. string_gsub(
         text
 .. "on input line "
         .. tex.inputlineno, "\n", "\n" .. cont .. " "
      )
   .. "\n"
end
local function module_info(mod, text)
  texio_write_nl("log", msg_format(mod, "Info", text))
end
luatexbase.module_info = module_info
local function module_warning(mod, text)
  texio_write_nl("term and log",msg_format(mod, "Warning", text))
end
luatexbase.module_warning = module_warning
local function module_error(mod, text)
  error(msg_format(mod, "Error", text))
end
luatexbase.module_error = module_error
function luatexbase_warning(text)
  module_warning("luatexbase", text)
end
function luatexbase_error(text)
  module_error("luatexbase", text)
end
local luaregisterbasetable = { }
local registermap = {
  attributezero = "assign_attr"    ,
  charzero      = "char_given"     ,
  CountZero     = "assign_int"     ,
  dimenzero     = "assign_dimen"   ,
  mathcharzero  = "math_given"     ,
  muskipzero    = "assign_mu_skip" ,
  skipzero      = "assign_skip"    ,
  tokszero      = "assign_toks"    ,
}
local createtoken
if tex.luatexversion > 81 then
  createtoken = token.create
elseif tex.luatexversion > 79 then
  createtoken = newtoken.create
end
local hashtokens    = tex.hashtokens()
local luatexversion = tex.luatexversion
for i,j in pairs (registermap) do
  if luatexversion < 80 then
    luaregisterbasetable[hashtokens[i][1]] =
      hashtokens[i][2]
  else
    luaregisterbasetable[j] = createtoken(i).mode
  end
end
local registernumber
if luatexversion < 80 then
  function registernumber(name)
    local nt = hashtokens[name]
    if(nt and luaregisterbasetable[nt[1]]) then
      return nt[2] - luaregisterbasetable[nt[1]]
    else
      return false
    end
  end
else
  function registernumber(name)
    local nt = createtoken(name)
    if(luaregisterbasetable[nt.cmdname]) then
      return nt.mode - luaregisterbasetable[nt.cmdname]
    else
      return false
    end
  end
end
luatexbase.registernumber = registernumber
local attributes=setmetatable(
{},
{
__index = function(t,key)
return registernumber(key) or nil
end}
)
luatexbase.attributes = attributes
local attribute_count_name =
                     attribute_count_name or "e@alloc@attribute@count"
local function new_attribute(name)
  tex_setcount("global", attribute_count_name,
                          tex_count[attribute_count_name] + 1)
  if tex_count[attribute_count_name] > 65534 then
    luatexbase_error("No room for a new \\attribute")
  end
  attributes[name]= tex_count[attribute_count_name]
  luatexbase_log("Lua-only attribute " .. name .. " = " ..
                 tex_count[attribute_count_name])
  return tex_count[attribute_count_name]
end
luatexbase.new_attribute = new_attribute
local whatsit_count_name = whatsit_count_name or "e@alloc@whatsit@count"
local function new_whatsit(name)
  tex_setcount("global", whatsit_count_name,
                         tex_count[whatsit_count_name] + 1)
  if tex_count[whatsit_count_name] > 65534 then
    luatexbase_error("No room for a new custom whatsit")
  end
  luatexbase_log("Custom whatsit " .. (name or "") .. " = " ..
                 tex_count[whatsit_count_name])
  return tex_count[whatsit_count_name]
end
luatexbase.new_whatsit = new_whatsit
local bytecode_count_name =
                         bytecode_count_name or "e@alloc@bytecode@count"
local function new_bytecode(name)
  tex_setcount("global", bytecode_count_name,
                         tex_count[bytecode_count_name] + 1)
  if tex_count[bytecode_count_name] > 65534 then
    luatexbase_error("No room for a new bytecode register")
  end
  luatexbase_log("Lua bytecode " .. (name or "") .. " = " ..
                 tex_count[bytecode_count_name])
  return tex_count[bytecode_count_name]
end
luatexbase.new_bytecode = new_bytecode
local chunkname_count_name =
                        chunkname_count_name or "e@alloc@luachunk@count"
local function new_chunkname(name)
  tex_setcount("global", chunkname_count_name,
                         tex_count[chunkname_count_name] + 1)
  local chunkname_count = tex_count[chunkname_count_name]
  chunkname_count = chunkname_count + 1
  if chunkname_count > 65534 then
    luatexbase_error("No room for a new chunkname")
  end
  lua.name[chunkname_count]=name
  luatexbase_log("Lua chunkname " .. (name or "") .. " = " ..
                 chunkname_count .. "\n")
  return chunkname_count
end
luatexbase.new_chunkname = new_chunkname
local luafunction_count_name =
                         luafunction_count_name or "e@alloc@luafunction@count"
local function new_luafunction(name)
  tex_setcount("global", luafunction_count_name,
                         tex_count[luafunction_count_name] + 1)
  if tex_count[luafunction_count_name] > 65534 then
    luatexbase_error("No room for a new luafunction register")
  end
  luatexbase_log("Lua function " .. (name or "") .. " = " ..
                 tex_count[luafunction_count_name])
  return tex_count[luafunction_count_name]
end
luatexbase.new_luafunction = new_luafunction
local callbacklist = callbacklist or { }
local list, data, exclusive, simple, reverselist = 1, 2, 3, 4, 5
local types   = {
  list        = list,
  data        = data,
  exclusive   = exclusive,
  simple      = simple,
  reverselist = reverselist,
}
local callbacktypes = callbacktypes or {
  find_read_file     = exclusive,
  find_write_file    = exclusive,
  find_font_file     = data,
  find_output_file   = data,
  find_format_file   = data,
  find_vf_file       = data,
  find_map_file      = data,
  find_enc_file      = data,
  find_pk_file       = data,
  find_data_file     = data,
  find_opentype_file = data,
  find_truetype_file = data,
  find_type1_file    = data,
  find_image_file    = data,
  open_read_file     = exclusive,
  read_font_file     = exclusive,
  read_vf_file       = exclusive,
  read_map_file      = exclusive,
  read_enc_file      = exclusive,
  read_pk_file       = exclusive,
  read_data_file     = exclusive,
  read_truetype_file = exclusive,
  read_type1_file    = exclusive,
  read_opentype_file = exclusive,
  find_cidmap_file   = data,
  read_cidmap_file   = exclusive,
  process_input_buffer  = data,
  process_output_buffer = data,
  process_jobname       = data,
  contribute_filter      = simple,
  buildpage_filter       = simple,
  build_page_insert      = exclusive,
  pre_linebreak_filter   = list,
  linebreak_filter       = exclusive,
  append_to_vlist_filter = exclusive,
  post_linebreak_filter  = reverselist,
  hpack_filter           = list,
  vpack_filter           = list,
  hpack_quality          = list,
  vpack_quality          = list,
  pre_output_filter      = list,
  process_rule           = exclusive,
  hyphenate              = simple,
  ligaturing             = simple,
  kerning                = simple,
  insert_local_par       = simple,
  pre_mlist_to_hlist_filter = list,
  mlist_to_hlist         = exclusive,
  post_mlist_to_hlist_filter = reverselist,
  new_graf               = exclusive,
  pre_dump             = simple,
  start_run            = simple,
  stop_run             = simple,
  start_page_number    = simple,
  stop_page_number     = simple,
  show_error_hook      = simple,
  show_warning_message = simple,
  show_error_message   = simple,
  show_lua_error_hook  = simple,
  start_file           = simple,
  stop_file            = simple,
  call_edit            = simple,
  finish_synctex       = simple,
  wrapup_run           = simple,
  finish_pdffile            = data,
  finish_pdfpage            = data,
  page_objnum_provider      = data,
  page_order_index          = data,
  process_pdf_image_content = data,
  define_font                     = exclusive,
  glyph_info                      = exclusive,
  glyph_not_found                 = exclusive,
  glyph_stream_provider           = exclusive,
  make_extensible                 = exclusive,
  font_descriptor_objnum_provider = exclusive,
  input_level_string              = exclusive,
  provide_charproc_data           = exclusive,
}
luatexbase.callbacktypes=callbacktypes
local callback_register = callback_register or callback.register
function callback.register()
  luatexbase_error("Attempt to use callback.register() directly\n")
end
local function data_handler(name)
  return function(data, ...)
    for _,i in ipairs(callbacklist[name]) do
      data = i.func(data,...)
    end
    return data
  end
end
local function data_handler_default(value)
  return value
end
local function exclusive_handler(name)
  return function(...)
    return callbacklist[name][1].func(...)
  end
end
local function list_handler(name)
  return function(head, ...)
    local ret
    local alltrue = true
    for _,i in ipairs(callbacklist[name]) do
      ret = i.func(head, ...)
      if ret == false then
        luatexbase_warning(
          "Function `" .. i.description .. "' returned false\n"
            .. "in callback `" .. name .."'"
         )
        return false
      end
      if ret ~= true then
        alltrue = false
        head = ret
      end
    end
    return alltrue and true or head
  end
end
local function list_handler_default()
  return true
end
local function reverselist_handler(name)
  return function(head, ...)
    local ret
    local alltrue = true
    local callbacks = callbacklist[name]
    for i = #callbacks, 1, -1 do
      local cb = callbacks[i]
      ret = cb.func(head, ...)
      if ret == false then
        luatexbase_warning(
          "Function `" .. cb.description .. "' returned false\n"
            .. "in callback `" .. name .."'"
         )
        return false
      end
      if ret ~= true then
        alltrue = false
        head = ret
      end
    end
    return alltrue and true or head
  end
end
local function simple_handler(name)
  return function(...)
    for _,i in ipairs(callbacklist[name]) do
      i.func(...)
    end
  end
end
local function simple_handler_default()
end
local handlers  = {
  [data]        = data_handler,
  [exclusive]   = exclusive_handler,
  [list]        = list_handler,
  [reverselist] = reverselist_handler,
  [simple]      = simple_handler,
}
local defaults = {
  [data]        = data_handler_default,
  [exclusive]   = nil,
  [list]        = list_handler_default,
  [reverselist] = list_handler_default,
  [simple]      = simple_handler_default,
}
local user_callbacks_defaults = {
  pre_mlist_to_hlist_filter = list_handler_default,
  mlist_to_hlist = node.mlist_to_hlist,
  post_mlist_to_hlist_filter = list_handler_default,
}
local function create_callback(name, ctype, default)
  local ctype_id = types[ctype]
  if not name  or name  == ""
  or not ctype_id
  then
    luatexbase_error("Unable to create callback:\n" ..
                     "valid callback name and type required")
  end
  if callbacktypes[name] then
    luatexbase_error("Unable to create callback `" .. name ..
                     "':\ncallback is already defined")
  end
  default = default or defaults[ctype_id]
  if not default then
    luatexbase_error("Unable to create callback `" .. name ..
                     "':\ndefault is required for `" .. ctype ..
                     "' callbacks")
  elseif type (default) ~= "function" then
    luatexbase_error("Unable to create callback `" .. name ..
                     "':\ndefault is not a function")
  end
  user_callbacks_defaults[name] = default
  callbacktypes[name] = ctype_id
end
luatexbase.create_callback = create_callback
local function call_callback(name,...)
  if not name or name == "" then
    luatexbase_error("Unable to create callback:\n" ..
                     "valid callback name required")
  end
  if user_callbacks_defaults[name] == nil then
    luatexbase_error("Unable to call callback `" .. name
                     .. "':\nunknown or empty")
   end
  local l = callbacklist[name]
  local f
  if not l then
    f = user_callbacks_defaults[name]
  else
    f = handlers[callbacktypes[name]](name)
  end
  return f(...)
end
luatexbase.call_callback=call_callback
local function add_to_callback(name, func, description)
  if not name or name == "" then
    luatexbase_error("Unable to register callback:\n" ..
                     "valid callback name required")
  end
  if not callbacktypes[name] or
    type(func) ~= "function" or
    not description or
    description == "" then
    luatexbase_error(
      "Unable to register callback.\n\n"
        .. "Correct usage:\n"
        .. "add_to_callback(<callback>, <function>, <description>)"
    )
  end
  local l = callbacklist[name]
  if l == nil then
    l = { }
    callbacklist[name] = l
    if user_callbacks_defaults[name] == nil then
      callback_register(name, handlers[callbacktypes[name]](name))
    end
  end
  local f = {
    func        = func,
    description = description,
  }
  local priority = #l + 1
  if callbacktypes[name] == exclusive then
    if #l == 1 then
      luatexbase_error(
        "Cannot add second callback to exclusive function\n`" ..
        name .. "'")
    end
  end
  table.insert(l, priority, f)
  luatexbase_log(
    "Inserting `" .. description .. "' at position "
      .. priority .. " in `" .. name .. "'."
  )
end
luatexbase.add_to_callback = add_to_callback
local function remove_from_callback(name, description)
  if not name or name == "" then
    luatexbase_error("Unable to remove function from callback:\n" ..
                     "valid callback name required")
  end
  if not callbacktypes[name] or
    not description or
    description == "" then
    luatexbase_error(
      "Unable to remove function from callback.\n\n"
        .. "Correct usage:\n"
        .. "remove_from_callback(<callback>, <description>)"
    )
  end
  local l = callbacklist[name]
  if not l then
    luatexbase_error(
      "No callback list for `" .. name .. "'\n")
  end
  local index = false
  for i,j in ipairs(l) do
    if j.description == description then
      index = i
      break
    end
  end
  if not index then
    luatexbase_error(
      "No callback `" .. description .. "' registered for `" ..
      name .. "'\n")
  end
  local cb = l[index]
  table.remove(l, index)
  luatexbase_log(
    "Removing  `" .. description .. "' from `" .. name .. "'."
  )
  if #l == 0 then
    callbacklist[name] = nil
    if user_callbacks_defaults[name] == nil then
      callback_register(name, nil)
    end
  end
  return cb.func,cb.description
end
luatexbase.remove_from_callback = remove_from_callback
local function in_callback(name, description)
  if not name
    or name == ""
    or not callbacklist[name]
    or not callbacktypes[name]
    or not description then
      return false
  end
  for _, i in pairs(callbacklist[name]) do
    if i.description == description then
      return true
    end
  end
  return false
end
luatexbase.in_callback = in_callback
local function disable_callback(name)
  if(callbacklist[name] == nil) then
    callback_register(name, false)
  else
    luatexbase_error("Callback list for " .. name .. " not empty")
  end
end
luatexbase.disable_callback = disable_callback
local function callback_descriptions (name)
  local d = {}
  if not name
    or name == ""
    or not callbacklist[name]
    or not callbacktypes[name]
    then
    return d
  else
  for k, i in pairs(callbacklist[name]) do
    d[k]= i.description
    end
  end
  return d
end
luatexbase.callback_descriptions =callback_descriptions
local function uninstall()
  module_info(
    "luatexbase",
    "Uninstalling kernel luatexbase code"
  )
  callback.register = callback_register
  luatexbase = nil
end
luatexbase.uninstall = uninstall
callback_register("mlist_to_hlist", function(head, display_type, need_penalties)
  local current = call_callback("pre_mlist_to_hlist_filter", head, display_type, need_penalties)
  if current == false then
    flush_list(head)
    return nil
  elseif current == true then
    current = head
  end
  current = call_callback("mlist_to_hlist", current, display_type, need_penalties)
  local post = call_callback("post_mlist_to_hlist_filter", current, display_type, need_penalties)
  if post == true then
    return current
  elseif post == false then
    flush_list(current)
    return nil
  end
  return post
end)

${this.title}

Code Editor : ltluatex.lua