cluttex (9oct18)

git-svn-id: svn://tug.org/texlive/trunk@48871 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 2595 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/cluttex/cluttex.lua b/Master/texmf-dist/scripts/cluttex/cluttex.lua
new file mode 100755
index 00000000000..5506364e92e
--- /dev/null
+++ b/Master/texmf-dist/scripts/cluttex/cluttex.lua
@@ -0,0 +1,2595 @@
+#!/usr/bin/env texlua
+local io, os, string, table, package, require, assert, error, ipairs, type, select, arg = io, os, string, table, package, require, assert, error, ipairs, type, select, arg
+local CLUTTEX_VERBOSITY, CLUTTEX_VERSION
+os.type = os.type or "unix"
+if lfs and not package.loaded['lfs'] then package.loaded['lfs'] = lfs end
+if os.type == "windows" then
+package.preload["texrunner.pathutil"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+-- pathutil module
+
+local assert = assert
+local select = select
+local string = string
+local string_find = string.find
+local string_sub = string.sub
+local string_match = string.match
+local string_gsub = string.gsub
+local filesys = require "lfs"
+
+local function basename(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "[\\/]", i + 1)
+    if j == nil then
+      return string_sub(path, i + 1)
+    elseif j == #path then
+      return string_sub(path, i + 1, -2)
+    end
+    i = j
+  end
+end
+
+
+local function dirname(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "[\\/]", i + 1)
+    if j == nil then
+      if i == 0 then
+        -- No directory portion
+        return "."
+      elseif i == 1 then
+        -- Root
+        return string_sub(path, 1, 1)
+      else
+        -- Directory portion without trailing slash
+        return string_sub(path, 1, i - 1)
+      end
+    end
+    i = j
+  end
+end
+
+
+local function parentdir(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "[\\/]", i + 1)
+    if j == nil then
+      if i == 0 then
+        -- No directory portion
+        return "."
+      elseif i == 1 then
+        -- Root
+        return string_sub(path, 1, 1)
+      else
+        -- Directory portion without trailing slash
+        return string_sub(path, 1, i - 1)
+      end
+    elseif j == #path then
+      -- Directory portion without trailing slash
+      return string_sub(path, 1, i - 1)
+    end
+    i = j
+  end
+end
+
+
+local function trimext(path)
+  return (string_gsub(path, "%.[^\\/%.]*$", ""))
+end
+
+
+local function ext(path)
+  return string_match(path, "%.([^\\/%.]*)$") or ""
+end
+
+
+local function replaceext(path, newext)
+  local newpath, n = string_gsub(path, "%.([^\\/%.]*)$", function() return "." .. newext end)
+  if n == 0 then
+    return newpath .. "." .. newext
+  else
+    return newpath
+  end
+end
+
+
+local function joinpath2(x, y)
+  local xd = x
+  local last = string_sub(x, -1)
+  if last ~= "/" and last ~= "\\" then
+    xd = x .. "\\"
+  end
+  if y == "." then
+    return xd
+  elseif y == ".." then
+    return dirname(x)
+  else
+    if string_match(y, "^%.[\\/]") then
+      return xd .. string_sub(y, 3)
+    else
+      return xd .. y
+    end
+  end
+end
+
+local function joinpath(...)
+  local n = select("#", ...)
+  if n == 2 then
+    return joinpath2(...)
+  elseif n == 0 then
+    return "."
+  elseif n == 1 then
+    return ...
+  else
+    return joinpath(joinpath2(...), select(3, ...))
+  end
+end
+
+
+-- https://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx
+local function isabspath(path)
+  local init = string_sub(path, 1, 1)
+  return init == "\\" or init == "/" or string_match(path, "^%a:[/\\]")
+end
+
+local function abspath(path, cwd)
+  if isabspath(path) then
+    -- absolute path
+    return path
+  else
+    -- TODO: relative path with a drive letter is not supported
+    cwd = cwd or filesys.currentdir()
+    return joinpath2(cwd, path)
+  end
+end
+
+return {
+  basename = basename,
+  dirname = dirname,
+  parentdir = parentdir,
+  trimext = trimext,
+  ext = ext,
+  replaceext = replaceext,
+  join = joinpath,
+  abspath = abspath,
+}
+end
+else
+package.preload["texrunner.pathutil"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+-- pathutil module for *nix
+
+local assert = assert
+local select = select
+local string = string
+local string_find = string.find
+local string_sub = string.sub
+local string_match = string.match
+local string_gsub = string.gsub
+local filesys = require "lfs"
+
+local function basename(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "/", i + 1, true)
+    if j == nil then
+      return string_sub(path, i + 1)
+    elseif j == #path then
+      return string_sub(path, i + 1, -2)
+    end
+    i = j
+  end
+end
+
+
+local function dirname(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "/", i + 1, true)
+    if j == nil then
+      if i == 0 then
+        -- No directory portion
+        return "."
+      elseif i == 1 then
+        -- Root
+        return "/"
+      else
+        -- Directory portion without trailing slash
+        return string_sub(path, 1, i - 1)
+      end
+    end
+    i = j
+  end
+end
+
+
+local function parentdir(path)
+  local i = 0
+  while true do
+    local j = string_find(path, "/", i + 1, true)
+    if j == nil then
+      if i == 0 then
+        -- No directory portion
+        return "."
+      elseif i == 1 then
+        -- Root
+        return "/"
+      else
+        -- Directory portion without trailing slash
+        return string_sub(path, 1, i - 1)
+      end
+    elseif j == #path then
+      -- Directory portion without trailing slash
+      return string_sub(path, 1, i - 1)
+    end
+    i = j
+  end
+end
+
+
+local function trimext(path)
+  return (string_gsub(path, "%.[^/%.]*$", ""))
+end
+
+
+local function ext(path)
+  return string_match(path, "%.([^/%.]*)$") or ""
+end
+
+
+local function replaceext(path, newext)
+  local newpath, n = string_gsub(path, "%.([^/%.]*)$", function() return "." .. newext end)
+  if n == 0 then
+    return newpath .. "." .. newext
+  else
+    return newpath
+  end
+end
+
+
+local function joinpath2(x, y)
+  local xd = x
+  if string_sub(x, -1) ~= "/" then
+    xd = x .. "/"
+  end
+  if y == "." then
+    return xd
+  elseif y == ".." then
+    return dirname(x)
+  else
+    if string_sub(y, 1, 2) == "./" then
+      return xd .. string_sub(y, 3)
+    else
+      return xd .. y
+    end
+  end
+end
+
+local function joinpath(...)
+  local n = select("#", ...)
+  if n == 2 then
+    return joinpath2(...)
+  elseif n == 0 then
+    return "."
+  elseif n == 1 then
+    return ...
+  else
+    return joinpath(joinpath2(...), select(3, ...))
+  end
+end
+
+
+local function abspath(path, cwd)
+  if string_sub(path, 1, 1) == "/" then
+    -- absolute path
+    return path
+  else
+    cwd = cwd or filesys.currentdir()
+    return joinpath2(cwd, path)
+  end
+end
+
+
+return {
+  basename = basename,
+  dirname = dirname,
+  parentdir = parentdir,
+  trimext = trimext,
+  ext = ext,
+  replaceext = replaceext,
+  join = joinpath,
+  abspath = abspath,
+}
+end
+end
+if os.type == "windows" then
+package.preload["texrunner.shellutil"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local string_gsub = string.gsub
+
+-- s: string
+local function escape(s)
+  return '"' .. string_gsub(string_gsub(s, '(\\*)"', '%1%1\\"'), '(\\+)$', '%1%1') .. '"'
+end
+
+
+return {
+  escape = escape,
+}
+end
+else
+package.preload["texrunner.shellutil"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local assert = assert
+local string_match = string.match
+local table = table
+local table_insert = table.insert
+local table_concat = table.concat
+
+-- s: string
+local function escape(s)
+  local len = #s
+  local result = {}
+  local t,i = string_match(s, "^([^']*)()")
+  assert(t)
+  if t ~= "" then
+    table_insert(result, "'")
+    table_insert(result, t)
+    table_insert(result, "'")
+  end
+  while i < len do
+    t,i = string_match(s, "^('+)()", i)
+    assert(t)
+    table_insert(result, '"')
+    table_insert(result, t)
+    table_insert(result, '"')
+    t,i = string_match(s, "^([^']*)()", i)
+    assert(t)
+    if t ~= "" then
+      table_insert(result, "'")
+      table_insert(result, t)
+      table_insert(result, "'")
+    end
+  end
+  return table_concat(result, "")
+end
+
+
+return {
+  escape = escape,
+}
+end
+end
+package.preload["texrunner.fsutil"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local assert = assert
+local os = os
+local os_execute = os.execute
+local os_remove = os.remove
+local filesys = require "lfs"
+local pathutil = require "texrunner.pathutil"
+local shellutil = require "texrunner.shellutil"
+local escape = shellutil.escape
+
+local copy_command
+if os.type == "windows" then
+  function copy_command(from, to)
+    -- TODO: What if `from` begins with a slash?
+    return "copy " .. escape(from) .. " " .. escape(to) .. " > NUL"
+  end
+else
+  function copy_command(from, to)
+    -- TODO: What if `from` begins with a hypen?
+    return "cp " .. escape(from) .. " " .. escape(to)
+  end
+end
+
+local isfile = filesys.isfile or function(path)
+  return filesys.attributes(path, "mode") == "file"
+end
+
+local isdir = filesys.isdir or function(path)
+  return filesys.attributes(path, "mode") == "directory"
+end
+
+local function mkdir_rec(path)
+  local succ, err = filesys.mkdir(path)
+  if not succ then
+    succ, err = mkdir_rec(pathutil.parentdir(path))
+    if succ then
+      return filesys.mkdir(path)
+    end
+  end
+  return succ, err
+end
+
+local function remove_rec(path)
+  if isdir(path) then
+    for file in filesys.dir(path) do
+      if file ~= "." and file ~= ".." then
+        local succ, err = remove_rec(pathutil.join(path, file))
+        if not succ then
+          return succ, err
+        end
+      end
+    end
+    return filesys.rmdir(path)
+  else
+    return os_remove(path)
+  end
+end
+
+return {
+  copy_command = copy_command,
+  isfile = isfile,
+  isdir = isdir,
+  mkdir_rec = mkdir_rec,
+  remove_rec = remove_rec,
+}
+end
+package.preload["texrunner.option"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+-- options_and_params, i = parseoption(arg, options)
+-- options[i] = {short = "o", long = "option" [, param = true] [, boolean = true] [, allow_single_hyphen = false]}
+-- arg[i], arg[i + 1], ..., arg[#arg] are non-options
+local function parseoption(arg, options)
+  local i = 1
+  local option_and_params = {}
+  while i <= #arg do
+    if arg[i] == "--" then
+      -- Stop handling options
+      i = i + 1
+      break
+    elseif arg[i]:sub(1,2) == "--" then
+      -- Long option
+      local name,param = arg[i]:match("^([^=]+)=(.*)$", 3)
+      name = name or arg[i]:sub(3)
+      local opt = nil
+      for _,o in ipairs(options) do
+        if o.long then
+          if o.long == name then
+            if o.param then
+              if param then
+                -- --option=param
+              else
+                if o.default ~= nil then
+                  param = o.default
+                else
+                  -- --option param
+                  assert(i + 1 <= #arg, "argument missing after " .. arg[i] .. " option")
+                  param = arg[i + 1]
+                  i = i + 1
+                end
+              end
+            else
+              -- --option
+              param = true
+            end
+            opt = o
+            break
+          elseif o.boolean and name == "no-" .. o.long then
+            -- --no-option
+            opt = o
+            break
+          end
+        end
+      end
+      if opt then
+        table.insert(option_and_params, {opt.long, param})
+      else
+        -- Unknown long option
+        error("unknown long option: " .. arg[i])
+      end
+    elseif arg[i]:sub(1,1) == "-" then
+      local name,param = arg[i]:match("^([^=]+)=(.*)$", 2)
+      name = name or arg[i]:sub(2)
+      local opt = nil
+      for _,o in ipairs(options) do
+        if o.long and o.allow_single_hyphen then
+          if o.long == name then
+            if o.param then
+              if param then
+                -- -option=param
+              else
+                if o.default ~= nil then
+                  param = o.default
+                else
+                  -- -option param
+                  assert(i + 1 <= #arg, "argument missing after " .. arg[i] .. " option")
+                  param = arg[i + 1]
+                  i = i + 1
+                end
+              end
+            else
+              -- -option
+              param = true
+            end
+            opt = o
+            break
+          elseif o.boolean and name == "no-" .. o.long then
+            -- -no-option
+            opt = o
+            break
+          end
+        elseif o.long and #name >= 2 and (o.long == name or (o.boolean and name == "no-" .. o.long)) then
+          error("You must supply two hyphens (i.e. --" .. name .. ") for long option")
+        end
+      end
+      if opt == nil then
+        -- Short option
+        name = arg[i]:sub(2,2)
+        for _,o in ipairs(options) do
+          if o.short then
+            if o.short == name then
+              if o.param then
+                if #arg[i] > 2 then
+                  -- -oparam
+                  param = arg[i]:sub(3)
+                else
+                  -- -o param
+                  assert(i + 1 <= #arg, "argument missing after " .. arg[i] .. " option")
+                  param = arg[i + 1]
+                  i = i + 1
+                end
+              else
+                -- -o
+                assert(#arg[i] == 2, "combining multiple short options like -abc is not supported")
+                param = true
+              end
+              opt = o
+              break
+            end
+          end
+        end
+      end
+      if opt then
+        table.insert(option_and_params, {opt.long or opt.short, param})
+      else
+        error("unknown short option: " .. arg[i])
+      end
+    else
+      -- arg[i] is not an option
+      break
+    end
+    i = i + 1
+  end
+  return option_and_params, i
+end
+
+return {
+  parseoption = parseoption;
+}
+end
+package.preload["texrunner.tex_engine"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local table = table
+local setmetatable = setmetatable
+local ipairs = ipairs
+
+local shellutil = require "texrunner.shellutil"
+
+--[[
+engine.name: string
+engine.type = "onePass" or "twoPass"
+engine:build_command(inputfile, options)
+  options:
+    halt_on_error: boolean
+    interaction: string
+    file_line_error: boolean
+    synctex: string
+    shell_escape: boolean
+    shell_restricted: boolean
+    jobname: string
+    output_directory: string
+    extraoptions: a list of strings
+    output_format: "pdf" or "dvi"
+    draftmode: boolean (pdfTeX / XeTeX / LuaTeX)
+    fmt: string
+    tex_injection: string
+    lua_initialization_script: string (LuaTeX only)
+engine.executable: string
+engine.supports_pdf_generation: boolean
+engine.dvi_extension: string
+engine.supports_draftmode: boolean
+engine.is_luatex: true or nil
+]]
+
+local engine_meta = {}
+engine_meta.__index = engine_meta
+engine_meta.dvi_extension = "dvi"
+function engine_meta:build_command(inputfile, options)
+  local command = {self.executable, "-recorder"}
+  if options.fmt then
+    table.insert(command, "-fmt=" .. options.fmt)
+  end
+  if options.halt_on_error then
+    table.insert(command, "-halt-on-error")
+  end
+  if options.interaction then
+    table.insert(command, "-interaction=" .. options.interaction)
+  end
+  if options.file_line_error then
+    table.insert(command, "-file-line-error")
+  end
+  if options.synctex then
+    table.insert(command, "-synctex=" .. shellutil.escape(options.synctex))
+  end
+  if options.shell_escape == false then
+    table.insert(command, "-no-shell-escape")
+  elseif options.shell_restricted == true then
+    table.insert(command, "-shell-restricted")
+  elseif options.shell_escape == true then
+    table.insert(command, "-shell-escape")
+  end
+  if options.jobname then
+    table.insert(command, "-jobname=" .. shellutil.escape(options.jobname))
+  end
+  if options.output_directory then
+    table.insert(command, "-output-directory=" .. shellutil.escape(options.output_directory))
+  end
+  if self.handle_additional_options then
+    self:handle_additional_options(command, options)
+  end
+  if options.extraoptions then
+    for _,v in ipairs(options.extraoptions) do
+      table.insert(command, v)
+    end
+  end
+  if type(options.tex_injection) == "string" then
+    table.insert(command, shellutil.escape(options.tex_injection .. "\\input " .. inputfile)) -- TODO: what if filename contains spaces?
+  else
+    table.insert(command, shellutil.escape(inputfile))
+  end
+  return table.concat(command, " ")
+end
+
+local function engine(name, supports_pdf_generation, handle_additional_options)
+  return setmetatable({
+    name = name,
+    executable = name,
+    supports_pdf_generation = supports_pdf_generation,
+    handle_additional_options = handle_additional_options,
+    supports_draftmode = supports_pdf_generation,
+  }, engine_meta)
+end
+
+local function handle_pdftex_options(self, args, options)
+  if options.draftmode then
+    table.insert(args, "-draftmode")
+  elseif options.output_format == "dvi" then
+    table.insert(args, "-output-format=dvi")
+  end
+end
+
+local function handle_xetex_options(self, args, options)
+  if options.output_format == "dvi" or options.draftmode then
+    table.insert(args, "-no-pdf")
+  end
+end
+
+local function handle_luatex_options(self, args, options)
+  if options.lua_initialization_script then
+    table.insert(args, "--lua="..shellutil.escape(options.lua_initialization_script))
+  end
+  handle_pdftex_options(self, args, options)
+end
+
+local function is_luatex(e)
+  e.is_luatex = true
+  return e
+end
+
+local KnownEngines = {
+  ["pdftex"]   = engine("pdftex", true, handle_pdftex_options),
+  ["pdflatex"] = engine("pdflatex", true, handle_pdftex_options),
+  ["luatex"]   = is_luatex(engine("luatex", true, handle_luatex_options)),
+  ["lualatex"] = is_luatex(engine("lualatex", true, handle_luatex_options)),
+  ["luajittex"] = is_luatex(engine("luajittex", true, handle_luatex_options)),
+  ["xetex"]    = engine("xetex", true, handle_xetex_options),
+  ["xelatex"]  = engine("xelatex", true, handle_xetex_options),
+  ["tex"]      = engine("tex", false),
+  ["etex"]     = engine("etex", false),
+  ["latex"]    = engine("latex", false),
+  ["ptex"]     = engine("ptex", false),
+  ["eptex"]    = engine("eptex", false),
+  ["platex"]   = engine("platex", false),
+  ["uptex"]    = engine("uptex", false),
+  ["euptex"]   = engine("euptex", false),
+  ["uplatex"]  = engine("uplatex", false),
+}
+
+KnownEngines["xetex"].dvi_extension = "xdv"
+KnownEngines["xelatex"].dvi_extension = "xdv"
+
+return KnownEngines
+end
+package.preload["texrunner.reruncheck"] = function(...)
+--[[
+  Copyright 2016,2018 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local io = io
+local assert = assert
+local filesys = require "lfs"
+local md5 = require "md5"
+local fsutil = require "texrunner.fsutil"
+local pathutil = require "texrunner.pathutil"
+local message = require "texrunner.message"
+
+local function md5sum_file(path)
+  local f = assert(io.open(path, "rb"))
+  local contents = f:read("*a")
+  f:close()
+  return md5.sum(contents)
+end
+
+-- filelist, filemap = parse_recorder_file("jobname.fls", options [, filelist, filemap])
+-- filelist[i] = {path = "...", abspath = "...", kind = "input" or "output" or "auxiliary"}
+local function parse_recorder_file(file, options, filelist, filemap)
+  filelist = filelist or {}
+  filemap = filemap or {}
+  for l in io.lines(file) do
+    local t,path = l:match("^(%w+) (.*)$")
+    if t == "PWD" then
+      -- Ignore
+
+    elseif t == "INPUT" then
+      local abspath = pathutil.abspath(path)
+      local fileinfo = filemap[abspath]
+      if not fileinfo then
+        if fsutil.isfile(path) then
+          local kind = "input"
+          local ext = pathutil.ext(path)
+          if ext == "bbl" then
+            kind = "auxiliary"
+          end
+          fileinfo = {path = path, abspath = abspath, kind = kind}
+          table.insert(filelist, fileinfo)
+          filemap[abspath] = fileinfo
+        else
+          -- Maybe a command execution
+        end
+      else
+        if #path < #fileinfo.path then
+          fileinfo.path = path
+        end
+        if fileinfo.kind == "output" then
+          -- The files listed in both INPUT and OUTPUT are considered to be auxiliary files.
+          fileinfo.kind = "auxiliary"
+        end
+      end
+
+    elseif t == "OUTPUT" then
+      local abspath = pathutil.abspath(path)
+      local fileinfo = filemap[abspath]
+      if not fileinfo then
+        local kind = "output"
+        local ext = pathutil.ext(path)
+        if ext == "out" then
+          -- hyperref bookmarks file
+          kind = "auxiliary"
+        elseif options.makeindex and ext == "idx" then
+          -- Treat .idx files (to be processed by MakeIndex) as auxiliary
+          kind = "auxiliary"
+          -- ...and .ind files
+        elseif ext == "bcf" then -- biber
+          kind = "auxiliary"
+        elseif ext == "glo" then -- makeglossaries
+          kind = "auxiliary"
+        end
+        fileinfo = {path = path, abspath = abspath, kind = kind}
+        table.insert(filelist, fileinfo)
+        filemap[abspath] = fileinfo
+      else
+        if #path < #fileinfo.path then
+          fileinfo.path = path
+        end
+        if fileinfo.kind == "input" then
+          -- The files listed in both INPUT and OUTPUT are considered to be auxiliary files.
+          fileinfo.kind = "auxiliary"
+        end
+      end
+
+    else
+      message.warning("Unrecognized line in recorder file '", file, "': ", l)
+    end
+  end
+  return filelist, filemap
+end
+
+-- auxstatus = collectfileinfo(filelist [, auxstatus])
+local function collectfileinfo(filelist, auxstatus)
+  auxstatus = auxstatus or {}
+  for i,fileinfo in ipairs(filelist) do
+    local path = fileinfo.abspath
+    if fsutil.isfile(path) then
+      local status = auxstatus[path] or {}
+      auxstatus[path] = status
+      if fileinfo.kind == "input" then
+        status.mtime = status.mtime or filesys.attributes(path, "modification")
+      elseif fileinfo.kind == "auxiliary" then
+        status.mtime = status.mtime or filesys.attributes(path, "modification")
+        status.size = status.size or filesys.attributes(path, "size")
+        status.md5sum = status.md5sum or md5sum_file(path)
+      end
+    end
+  end
+  return auxstatus
+end
+
+local function binarytohex(s)
+  return (s:gsub(".", function(c) return string.format("%02x", string.byte(c)) end))
+end
+
+-- should_rerun, newauxstatus = comparefileinfo(auxfiles, auxstatus)
+local function comparefileinfo(filelist, auxstatus)
+  local should_rerun = false
+  local newauxstatus = {}
+  for i,fileinfo in ipairs(filelist) do
+    local path = fileinfo.abspath
+    if fsutil.isfile(path) then
+      if fileinfo.kind == "input" then
+        -- Input file: User might have modified while running TeX.
+        local mtime = filesys.attributes(path, "modification")
+        if auxstatus[path] and auxstatus[path].mtime then
+          if auxstatus[path].mtime < mtime then
+            -- Input file was updated during execution
+            message.info("Input file '", fileinfo.path, "' was modified (by user, or some external commands).")
+            newauxstatus[path] = {mtime = mtime}
+            return true, newauxstatus
+          end
+        else
+          -- New input file
+        end
+
+      elseif fileinfo.kind == "auxiliary" then
+        -- Auxiliary file: Compare file contents.
+        if auxstatus[path] then
+          -- File was touched during execution
+          local really_modified = false
+          local modified_because = nil
+          local size = filesys.attributes(path, "size")
+          if auxstatus[path].size ~= size then
+            really_modified = true
+            if auxstatus[path].size then
+              modified_because = string.format("size: %d -> %d", auxstatus[path].size, size)
+            else
+              modified_because = string.format("size: (N/A) -> %d", size)
+            end
+            newauxstatus[path] = {size = size}
+          else
+            local md5sum = md5sum_file(path)
+            if auxstatus[path].md5sum ~= md5sum then
+              really_modified = true
+              if auxstatus[path].md5sum then
+                modified_because = string.format("md5: %s -> %s", binarytohex(auxstatus[path].md5sum), binarytohex(md5sum))
+              else
+                modified_because = string.format("md5: (N/A) -> %s", binarytohex(md5sum))
+              end
+            end
+            newauxstatus[path] = {size = size, md5sum = md5sum}
+          end
+          if really_modified then
+            message.info("File '", fileinfo.path, "' was modified (", modified_because, ").")
+            should_rerun = true
+          else
+            if CLUTTEX_VERBOSITY >= 1 then
+              message.info("File '", fileinfo.path, "' unmodified (size and md5sum).")
+            end
+          end
+        else
+          -- New file
+          if path:sub(-4) == ".aux" then
+            local size = filesys.attributes(path, "size")
+            if size == 8 then
+              local auxfile = io.open(path, "rb")
+              local contents = auxfile:read("*a")
+              auxfile:close()
+              if contents == "\\relax \n" then
+                -- The .aux file is new, but it is almost empty
+              else
+                should_rerun = true
+              end
+              newauxstatus[path] = {size = size, md5sum = md5.sum(contents)}
+            else
+              should_rerun = true
+              newauxstatus[path] = {size = size}
+            end
+          else
+            should_rerun = true
+          end
+          if should_rerun then
+            message.info("New auxiliary file '", fileinfo.path, "'.")
+          else
+            if CLUTTEX_VERBOSITY >= 1 then
+              message.info("Ignoring almost-empty auxiliary file '", fileinfo.path, "'.")
+            end
+          end
+        end
+        if should_rerun then
+          break
+        end
+      end
+    else
+      -- Auxiliary file is not really a file???
+    end
+  end
+  return should_rerun, newauxstatus
+end
+
+-- true if src is newer than dst
+local function comparefiletime(srcpath, dstpath, auxstatus)
+  if not filesys.isfile(dstpath) then
+    return true
+  end
+  local src_info = auxstatus[srcpath]
+  if src_info then
+    local src_mtime = src_info.mtime
+    if src_mtime then
+      local dst_mtime = filesys.attributes(dstpath, "modification")
+      return src_mtime > dst_mtime
+    end
+  end
+  return false
+end
+
+return {
+  parse_recorder_file = parse_recorder_file;
+  collectfileinfo = collectfileinfo;
+  comparefileinfo = comparefileinfo;
+  comparefiletime = comparefiletime;
+}
+end
+package.preload["texrunner.auxfile"] = function(...)
+--[[
+  Copyright 2016 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local string_match = string.match
+local pathutil = require "texrunner.pathutil"
+local filesys = require "lfs"
+local fsutil = require "texrunner.fsutil"
+local message = require "texrunner.message"
+
+-- for LaTeX
+local function parse_aux_file(auxfile, outdir, report, seen)
+  report = report or {}
+  seen = seen or {}
+  seen[auxfile] = true
+  for l in io.lines(auxfile) do
+    local subauxfile = string_match(l, "\\@input{(.+)}")
+    if subauxfile then
+      if fsutil.isfile(subauxfile) then
+        parse_aux_file(pathutil.join(outdir, subauxfile), outdir, report, seen)
+      else
+        local dir = pathutil.join(outdir, pathutil.dirname(subauxfile))
+        if not fsutil.isdir(dir) then
+          assert(fsutil.mkdir_rec(dir))
+          report.made_new_directory = true
+        end
+      end
+    end
+  end
+  return report
+end
+
+-- \citation, \bibdata, \bibstyle and \@input
+local function extract_bibtex_from_aux_file(auxfile, outdir, biblines)
+  biblines = biblines or {}
+  for l in io.lines(auxfile) do
+    local name = string_match(l, "\\([%a@]+)")
+    if name == "citation" or name == "bibdata" or name == "bibstyle" then
+      table.insert(biblines, l)
+      if CLUTTEX_VERBOSITY >= 2 then
+        message.info("BibTeX line: ", l)
+      end
+    elseif name == "@input" then
+      local subauxfile = string_match(l, "\\@input{(.+)}")
+      if subauxfile and fsutil.isfile(subauxfile) then
+        extract_bibtex_from_aux_file(pathutil.join(outdir, subauxfile), outdir, biblines)
+      end
+    end
+  end
+  return biblines
+end
+
+return {
+  parse_aux_file = parse_aux_file,
+  extract_bibtex_from_aux_file = extract_bibtex_from_aux_file,
+}
+end
+package.preload["texrunner.luatexinit"] = function(...)
+local function create_initialization_script(filename, options)
+  local initscript = assert(io.open(filename,"w"))
+  if type(options.file_line_error) == "boolean" then
+    initscript:write(string.format("texconfig.file_line_error = %s\n", options.file_line_error))
+  end
+  if type(options.halt_on_error) == "boolean" then
+    initscript:write(string.format("texconfig.halt_on_error = %s\n", options.halt_on_error))
+  end
+  initscript:write([==[
+local print = print
+local io_open = io.open
+local io_write = io.write
+local os_execute = os.execute
+local texio_write = texio.write
+local texio_write_nl = texio.write_nl
+]==])
+
+  -- Packages coded in Lua doesn't follow -output-directory option and doesn't write command to the log file
+  initscript:write(string.format("local output_directory = %q\n", options.output_directory))
+  initscript:write([==[
+local luawritelog
+local function openluawritelog()
+  if not luawritelog then
+    luawritelog = assert(io_open(output_directory .. "/" .. tex.jobname .. ".cluttex-fls", "w"))
+  end
+  return luawritelog
+end
+io.open = function(fname, mode)
+  -- luatexja-ruby
+  if mode == "w" and fname == tex.jobname .. ".ltjruby" then
+    fname = output_directory .. "/" .. fname
+  end
+  if type(mode) == "string" and string.find(mode, "w") ~= nil then
+    -- write mode
+    openluawritelog():write("OUTPUT " .. fname .. "\n")
+  end
+  return io_open(fname, mode)
+end
+os.execute = function(...)
+  texio_write_nl("log", string.format("CLUTTEX_EXEC %s", ...), "")
+  return os_execute(...)
+end
+]==])
+
+  -- Silence some of the TeX output to the terminal.
+  initscript:write([==[
+local function start_file_cb(category, filename)
+  if category == 1 then -- a normal data file, like a TeX source
+    texio_write_nl("log", "("..filename)
+  elseif category == 2 then -- a font map coupling font names to resources
+    texio_write("log", "{"..filename)
+  elseif category == 3 then -- an image file (png, pdf, etc)
+    texio_write("<"..filename)
+  elseif category == 4 then -- an embedded font subset
+    texio_write("<"..filename)
+  elseif category == 5 then -- a fully embedded font
+    texio_write("<<"..filename)
+  else
+    print("start_file: unknown category", category, filename)
+  end
+end
+callback.register("start_file", start_file_cb)
+local function stop_file_cb(category)
+  if category == 1 then
+    texio_write("log", ")")
+  elseif category == 2 then
+    texio_write("log", "}")
+  elseif category == 3 then
+    texio_write(">")
+  elseif category == 4 then
+    texio_write(">")
+  elseif category == 5 then
+    texio_write(">>")
+  else
+    print("stop_file: unknown category", category)
+  end
+end
+callback.register("stop_file", stop_file_cb)
+texio.write = function(...)
+  if select("#",...) == 1 then
+    -- Suppress luaotfload's message (See src/fontloader/runtime/fontload-reference.lua)
+    local s = ...
+    if string.match(s, "^%(using cache: ")
+       or string.match(s, "^%(using write cache: ")
+       or string.match(s, "^%(using read cache: ")
+       or string.match(s, "^%(load luc: ")
+       or string.match(s, "^%(load cache: ") then
+      return texio_write("log", ...)
+    end
+  end
+  return texio_write(...)
+end
+]==])
+  initscript:close()
+end
+
+return {
+  create_initialization_script = create_initialization_script
+}
+end
+package.preload["texrunner.recovery"] = function(...)
+--[[
+  Copyright 2018 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local io = io
+local string = string
+local parse_aux_file = require "texrunner.auxfile".parse_aux_file
+local pathutil       = require "texrunner.pathutil"
+local fsutil         = require "texrunner.fsutil"
+local shellutil      = require "texrunner.shellutil"
+local message        = require "texrunner.message"
+
+local function create_missing_directories(args)
+  if string.find(args.execlog, "I can't write on file", 1, true) then
+    -- There is a possibility that there are some subfiles under subdirectories.
+    -- Directories for sub-auxfiles are not created automatically, so we need to provide them.
+    local report = parse_aux_file(args.auxfile, args.options.output_directory)
+    if report.made_new_directory then
+      if CLUTTEX_VERBOSITY >= 1 then
+        message.info("Created missing directories.")
+      end
+      return true
+    end
+  end
+  return false
+end
+
+local function run_epstopdf(args)
+  local run = false
+  if args.options.shell_escape ~= false then -- (possibly restricted) \write18 enabled
+    for outfile, infile in string.gmatch(args.execlog, "%(epstopdf%)%s*Command: <r?epstopdf %-%-outfile=([%w%-/]+%.pdf) ([%w%-/]+%.eps)>") do
+      local infile_abs = pathutil.abspath(infile, args.original_wd)
+      if fsutil.isfile(infile_abs) then -- input file exists
+        local outfile_abs = pathutil.abspath(outfile, args.options.output_directory)
+        if CLUTTEX_VERBOSITY >= 1 then
+          message.info("Running epstopdf on ", infile, ".")
+        end
+        local outdir = pathutil.dirname(outfile_abs)
+        if not fsutil.isdir(outdir) then
+          assert(fsutil.mkdir_rec(outdir))
+        end
+        local command = string.format("epstopdf --outfile=%s %s", shellutil.escape(outfile_abs), shellutil.escape(infile_abs))
+        message.exec(command)
+        local success = os.execute(command)
+        if type(success) == "number" then -- Lua 5.1 or LuaTeX
+          success = success == 0
+        end
+        run = run or success
+      end
+    end
+  end
+  return run
+end
+
+local function check_minted(args)
+  return string.find(args.execlog, "Package minted Error: Missing Pygments output; \\inputminted was") ~= nil
+end
+
+local function try_recovery(args)
+  local recovered = false
+  recovered = create_missing_directories(args)
+  recovered = run_epstopdf(args) or recovered
+  recovered = check_minted(args) or recovered
+  return recovered
+end
+
+return {
+  create_missing_directories = create_missing_directories,
+  run_epstopdf = run_epstopdf,
+  try_recovery = try_recovery,
+}
+end
+package.preload["texrunner.handleoption"] = function(...)
+local COPYRIGHT_NOTICE = [[
+Copyright (C) 2016,2018  ARATA Mizuki
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local pathutil     = require "texrunner.pathutil"
+local shellutil    = require "texrunner.shellutil"
+local parseoption  = require "texrunner.option".parseoption
+local KnownEngines = require "texrunner.tex_engine"
+local message      = require "texrunner.message"
+
+local function usage(arg)
+  io.write(string.format([[
+ClutTeX: Process TeX files without cluttering your working directory
+
+Usage:
+  %s [options] [--] FILE.tex
+
+Options:
+  -e, --engine=ENGINE          Specify which TeX engine to use.
+                                 ENGINE is one of the following:
+                                     pdflatex, pdftex,
+                                     lualatex, luatex, luajittex,
+                                     xelatex, xetex, latex, etex, tex,
+                                     platex, eptex, ptex,
+                                     uplatex, euptex, uptex,
+  -o, --output=FILE            The name of output file.
+                                 [default: JOBNAME.pdf or JOBNAME.dvi]
+      --fresh                  Clean intermediate files before running TeX.
+                                 Cannot be used with --output-directory.
+      --max-iterations=N       Maximum number of running TeX to resolve
+                                 cross-references.  [default: 3]
+      --start-with-draft       Start with draft mode.
+      --[no-]change-directory  Change directory before running TeX.
+      --watch                  Watch input files for change.  Requires fswatch
+                                 program to be installed.
+      --tex-option=OPTION      Pass OPTION to TeX as a single option.
+      --tex-options=OPTIONs    Pass OPTIONs to TeX as multiple options.
+      --dvipdfmx-option[s]=OPTION[s]  Same for dvipdfmx.
+      --makeindex=COMMAND+OPTIONs  Command to generate index, such as
+                                     `makeindex' or `mendex'.
+      --bibtex=COMMAND+OPTIONs  Command for BibTeX, such as
+                                     `bibtex' or `pbibtex'.
+      --biber[=COMMAND+OPTIONs]  Command for Biber.
+      --makeglossaries[=COMMAND+OPTIONs]  Command for makeglossaries.
+  -h, --help                   Print this message and exit.
+  -v, --version                Print version information and exit.
+  -V, --verbose                Be more verbose.
+      --color=WHEN             Make ClutTeX's message colorful. WHEN is one of
+                                 `always', `auto', or `never'.  [default: auto]
+      --includeonly=NAMEs      Insert '\includeonly{NAMEs}'.
+
+      --[no-]shell-escape
+      --shell-restricted
+      --synctex=NUMBER
+      --fmt=FMTNAME
+      --[no-]file-line-error   [default: yes]
+      --[no-]halt-on-error     [default: yes]
+      --interaction=STRING     [default: nonstopmode]
+      --jobname=STRING
+      --output-directory=DIR   [default: somewhere in the temporary directory]
+      --output-format=FORMAT   FORMAT is `pdf' or `dvi'.  [default: pdf]
+
+%s
+]], arg[0] or 'texlua cluttex.lua', COPYRIGHT_NOTICE))
+end
+
+local option_spec = {
+  -- Options for ClutTeX
+  {
+    short = "e",
+    long = "engine",
+    param = true,
+  },
+  {
+    short = "o",
+    long = "output",
+    param = true,
+  },
+  {
+    long = "fresh",
+  },
+  {
+    long = "max-iterations",
+    param = true,
+  },
+  {
+    long = "start-with-draft",
+  },
+  {
+    long = "change-directory",
+    boolean = true,
+  },
+  {
+    long = "watch",
+  },
+  {
+    short = "h",
+    long = "help",
+    allow_single_hyphen = true,
+  },
+  {
+    short = "v",
+    long = "version",
+  },
+  {
+    short = "V",
+    long = "verbose",
+  },
+  {
+    long = "color",
+    param = true,
+    default = "always",
+  },
+  {
+    long = "includeonly",
+    param = true,
+  },
+  -- Options for TeX
+  {
+    long = "synctex",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "file-line-error",
+    boolean = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "interaction",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "halt-on-error",
+    boolean = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "shell-escape",
+    boolean = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "shell-restricted",
+    allow_single_hyphen = true,
+  },
+  {
+    long = "jobname",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "fmt",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "output-directory",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "output-format",
+    param = true,
+    allow_single_hyphen = true,
+  },
+  {
+    long = "tex-option",
+    param = true,
+  },
+  {
+    long = "tex-options",
+    param = true,
+  },
+  {
+    long = "dvipdfmx-option",
+    param = true,
+  },
+  {
+    long = "dvipdfmx-options",
+    param = true,
+  },
+  {
+    long = "makeindex",
+    param = true,
+  },
+  {
+    long = "bibtex",
+    param = true,
+  },
+  {
+    long = "biber",
+    param = true,
+    default = "biber",
+  },
+  {
+    long = "makeglossaries",
+    param = true,
+    default = "makeglossaries",
+  },
+}
+
+-- Default values for options
+local function set_default_values(options)
+  if options.max_iterations == nil then
+    options.max_iterations = 3
+  end
+
+  if options.interaction == nil then
+    options.interaction = "nonstopmode"
+  end
+
+  if options.file_line_error == nil then
+    options.file_line_error = true
+  end
+
+  if options.halt_on_error == nil then
+    options.halt_on_error = true
+  end
+end
+
+-- inputfile, engine, options = handle_cluttex_options(arg)
+local function handle_cluttex_options(arg)
+  -- Parse options
+  local option_and_params, non_option_index = parseoption(arg, option_spec)
+
+  -- Handle options
+  local options = {
+    tex_extraoptions = {},
+    dvipdfmx_extraoptions = {},
+  }
+  CLUTTEX_VERBOSITY = 0
+  for _,option in ipairs(option_and_params) do
+    local name = option[1]
+    local param = option[2]
+
+    if name == "engine" then
+      assert(options.engine == nil, "multiple --engine options")
+      options.engine = param
+
+    elseif name == "output" then
+      assert(options.output == nil, "multiple --output options")
+      options.output = param
+
+    elseif name == "fresh" then
+      assert(options.fresh == nil, "multiple --fresh options")
+      options.fresh = true
+
+    elseif name == "max-iterations" then
+      assert(options.max_iterations == nil, "multiple --max-iterations options")
+      options.max_iterations = assert(tonumber(param), "invalid value for --max-iterations option")
+      assert(options.max_iterations >= 1, "invalid value for --max-iterations option")
+
+    elseif name == "start-with-draft" then
+      assert(options.start_with_draft == nil, "multiple --start-with-draft options")
+      options.start_with_draft = true
+
+    elseif name == "watch" then
+      assert(options.watch == nil, "multiple --watch options")
+      options.watch = true
+
+    elseif name == "help" then
+      usage(arg)
+      os.exit(0)
+
+    elseif name == "version" then
+      io.stderr:write("cluttex ",CLUTTEX_VERSION,"\n")
+      os.exit(0)
+
+    elseif name == "verbose" then
+      CLUTTEX_VERBOSITY = CLUTTEX_VERBOSITY + 1
+
+    elseif name == "color" then
+      assert(options.color == nil, "multiple --collor options")
+      options.color = param
+      message.set_colors(options.color)
+
+    elseif name == "change-directory" then
+      assert(options.change_directory == nil, "multiple --change-directory options")
+      options.change_directory = param
+
+    elseif name == "includeonly" then
+      assert(options.includeonly == nil, "multiple --includeonly options")
+      options.includeonly = param
+
+      -- Options for TeX
+    elseif name == "synctex" then
+      assert(options.synctex == nil, "multiple --synctex options")
+      options.synctex = param
+
+    elseif name == "file-line-error" then
+      options.file_line_error = param
+
+    elseif name == "interaction" then
+      assert(options.interaction == nil, "multiple --interaction options")
+      assert(param == "batchmode" or param == "nonstopmode" or param == "scrollmode" or param == "errorstopmode", "invalid argument for --interaction")
+      options.interaction = param
+
+    elseif name == "halt-on-error" then
+      options.halt_on_error = param
+
+    elseif name == "shell-escape" then
+      assert(options.shell_escape == nil and options.shell_restricted == nil, "multiple --(no-)shell-escape or --shell-restricted options")
+      options.shell_escape = param
+
+    elseif name == "shell-restricted" then
+      assert(options.shell_escape == nil and options.shell_restricted == nil, "multiple --(no-)shell-escape or --shell-restricted options")
+      options.shell_restricted = true
+
+    elseif name == "jobname" then
+      assert(options.jobname == nil, "multiple --jobname options")
+      options.jobname = param
+
+    elseif name == "fmt" then
+      assert(options.fmt == nil, "multiple --fmt options")
+      options.fmt = param
+
+    elseif name == "output-directory" then
+      assert(options.output_directory == nil, "multiple --output-directory options")
+      options.output_directory = param
+
+    elseif name == "output-format" then
+      assert(options.output_format == nil, "multiple --output-format options")
+      assert(param == "pdf" or param == "dvi", "invalid argument for --output-format")
+      options.output_format = param
+
+    elseif name == "tex-option" then
+      table.insert(options.tex_extraoptions, shellutil.escape(param))
+
+    elseif name == "tex-options" then
+      table.insert(options.tex_extraoptions, param)
+
+    elseif name == "dvipdfmx-option" then
+      table.insert(options.dvipdfmx_extraoptions, shellutil.escape(param))
+
+    elseif name == "dvipdfmx-options" then
+      table.insert(options.dvipdfmx_extraoptions, param)
+
+    elseif name == "makeindex" then
+      assert(options.makeindex == nil, "multiple --makeindex options")
+      options.makeindex = param
+
+    elseif name == "bibtex" then
+      assert(options.bibtex == nil, "multiple --bibtex options")
+      assert(options.biber == nil, "multiple --bibtex/--biber options")
+      options.bibtex = param
+
+    elseif name == "biber" then
+      assert(options.biber == nil, "multiple --biber options")
+      assert(options.bibtex == nil, "multiple --bibtex/--biber options")
+      options.biber = param
+
+    elseif name == "makeglossaries" then
+      assert(options.makeglossaries == nil, "multiple --makeglossaries options")
+      options.makeglossaries = param
+
+    end
+  end
+
+  if options.color == nil then
+    message.set_colors("auto")
+  end
+
+  -- Handle non-options (i.e. input file)
+  if non_option_index > #arg then
+    -- No input file given
+    usage(arg)
+    os.exit(1)
+  elseif non_option_index < #arg then
+    message.error("Multiple input files are not supported.")
+    os.exit(1)
+  end
+  local inputfile = arg[non_option_index]
+
+  -- If run as 'cllualatex', then the default engine is lualatex
+  if options.engine == nil and type(arg[0]) == "string" then
+    local basename = pathutil.trimext(pathutil.basename(arg[0]))
+    local engine_part = string.match(basename, "^cl(%w+)$")
+    if engine_part and KnownEngines[engine_part] then
+      options.engine = engine_part
+    end
+  end
+
+  if options.engine == nil then
+    message.error("Engine not specified.")
+    os.exit(1)
+  end
+  local engine = KnownEngines[options.engine]
+  if not engine then
+    message.error("Unknown engine name '", options.engine, "'.")
+    os.exit(1)
+  end
+
+  set_default_values(options)
+
+  return inputfile, engine, options
+end
+
+return {
+  usage = usage,
+  handle_cluttex_options = handle_cluttex_options,
+}
+end
+package.preload["texrunner.isatty"] = function(...)
+--[[
+  Copyright 2018 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+if os.type == "unix" then
+  -- Try luaposix
+  local succ, M = pcall(function()
+      local isatty = require "posix.unistd".isatty
+      local fileno = require "posix.stdio".fileno
+      return {
+        isatty = function(file)
+          return isatty(fileno(file)) == 1
+        end,
+      }
+  end)
+  if succ then
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: isatty found via luaposix\n")
+    end
+    return M
+  else
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: luaposix not found: ", M, "\n")
+    end
+  end
+
+  -- Try LuaJIT-like FFI
+  local succ, M = pcall(function()
+      local ffi = require "ffi"
+      ffi.cdef[[
+int isatty(int fd);
+int fileno(void *stream);
+]]
+      local isatty = assert(ffi.C.isatty, "isatty not found")
+      local fileno = assert(ffi.C.fileno, "fileno not found")
+      return {
+        isatty = function(file)
+          -- LuaJIT converts Lua's file handles into FILE* (void*)
+          return isatty(fileno(file)) ~= 0
+        end
+      }
+  end)
+  if succ then
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: isatty found via FFI (Unix)\n")
+    end
+    return M
+  else
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: FFI (Unix) not found: ", M, "\n")
+    end
+  end
+
+else
+  -- Try LuaJIT
+  -- TODO: Try to detect MinTTY using GetFileInformationByHandleEx
+  local succ, M = pcall(function()
+      local ffi = require "ffi"
+      local bitlib = assert(bit32 or bit, "Neither bit32 (Lua 5.2) nor bit (LuaJIT) found") -- Lua 5.2 or LuaJIT
+      ffi.cdef[[
+int _isatty(int fd);
+int _fileno(void *stream);
+void *_get_osfhandle(int fd); // should return intptr_t
+typedef int BOOL;
+typedef uint32_t DWORD;
+typedef int FILE_INFO_BY_HANDLE_CLASS; // ???
+typedef struct _FILE_NAME_INFO {
+DWORD FileNameLength;
+uint16_t FileName[?];
+} FILE_NAME_INFO;
+DWORD GetFileType(void *hFile);
+BOOL GetFileInformationByHandleEx(void *hFile, FILE_INFO_BY_HANDLE_CLASS fic, void *fileinfo, DWORD dwBufferSize);
+BOOL GetConsoleMode(void *hConsoleHandle, DWORD* lpMode);
+BOOL SetConsoleMode(void *hConsoleHandle, DWORD dwMode);
+]]
+      local isatty = assert(ffi.C._isatty, "_isatty not found")
+      local fileno = assert(ffi.C._fileno, "_fileno not found")
+      local get_osfhandle = assert(ffi.C._get_osfhandle, "_get_osfhandle not found")
+      local GetFileType = assert(ffi.C.GetFileType, "GetFileType not found")
+      local GetFileInformationByHandleEx = assert(ffi.C.GetFileInformationByHandleEx, "GetFileInformationByHandleEx not found")
+      local GetConsoleMode = assert(ffi.C.GetConsoleMode, "GetConsoleMode not found")
+      local SetConsoleMode = assert(ffi.C.SetConsoleMode, "SetConsoleMode not found")
+      local function wide_to_narrow(array, length)
+        local t = {}
+        for i = 0, length - 1 do
+          table.insert(t, string.char(math.min(array[i], 0xff)))
+        end
+        return table.concat(t, "")
+      end
+      local function is_mintty(fd)
+        local handle = get_osfhandle(fd)
+        local filetype = GetFileType(handle)
+        if filetype ~= 0x0003 then -- not FILE_TYPE_PIPE (0x0003)
+          -- mintty must be a pipe
+          if CLUTTEX_VERBOSITY >= 4 then
+            io.stderr:write("ClutTeX: not a pipe\n")
+          end
+          return false
+        end
+        local nameinfo = ffi.new("FILE_NAME_INFO", 32768)
+        local FileNameInfo = 2 -- : FILE_INFO_BY_HANDLE_CLASS
+        if GetFileInformationByHandleEx(handle, FileNameInfo, nameinfo, ffi.sizeof("FILE_NAME_INFO", 32768)) ~= 0 then
+          local filename = wide_to_narrow(nameinfo.FileName, math.floor(nameinfo.FileNameLength / 2))
+          -- \(cygwin|msys)-<hex digits>-pty<N>-(from|to)-master
+          if CLUTTEX_VERBOSITY >= 4 then
+            io.stderr:write("ClutTeX: GetFileInformationByHandleEx returned ", filename, "\n")
+          end
+          local a, b = string.match(filename, "^\\(%w+)%-%x+%-pty%d+%-(%w+)%-master$")
+          if (a == "cygwin" or a == "msys") and (b == "from" or b == "to") then
+            return true
+          end
+        else
+          if CLUTTEX_VERBOSITY >= 4 then
+            io.stderr:write("ClutTeX: GetFileInformationByHandleEx failed\n")
+          end
+        end
+        return false
+      end
+      return {
+        isatty = function(file)
+          -- LuaJIT converts Lua's file handles into FILE* (void*)
+          local fd = fileno(file)
+          return isatty(fd) ~= 0 or is_mintty(fd)
+        end,
+        enable_console_colors = function(file)
+          local fd = fileno(file)
+          if isatty(fd) ~= 0 then
+            local handle = get_osfhandle(fd)
+            local modePtr = ffi.new("DWORD[1]")
+            local result = GetConsoleMode(handle, modePtr)
+            if result ~= 0 then
+              local ENABLE_VIRTUAL_TERMINAL_PROCESSING = 0x0004
+              result = SetConsoleMode(handle, bitlib.bor(modePtr[0], ENABLE_VIRTUAL_TERMINAL_PROCESSING))
+              if result == 0 then
+                if CLUTTEX_VERBOSITY >= 3 then
+                  io.stderr:write("ClutTeX: SetConsoleMode failed\n")
+                end
+              end
+            else
+              if CLUTTEX_VERBOSITY >= 3 then
+                io.stderr:write("ClutTeX: GetConsoleMode failed\n")
+              end
+            end
+          end
+        end,
+      }
+  end)
+  if succ then
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: isatty found via FFI (Windows)\n")
+    end
+    return M
+  else
+    if CLUTTEX_VERBOSITY >= 3 then
+      io.stderr:write("ClutTeX: FFI (Windows) not found: ", M, "\n")
+    end
+  end
+end
+
+return {
+  isatty = function(file)
+    return false
+  end,
+}
+end
+package.preload["texrunner.message"] = function(...)
+--[[
+  Copyright 2018 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+local use_colors = false
+
+local function set_colors(mode)
+  local M
+  if mode == "always" then
+    use_colors = true
+    M = require "texrunner.isatty"
+    if M.enable_console_colors then
+      M.enable_console_colors(io.stderr)
+    end
+  elseif mode == "never" then
+    use_colors = false
+  elseif mode == "auto" then
+    M = require "texrunner.isatty"
+    use_colors = M.isatty(io.stderr)
+  else
+    error "The value of --color option must be one of 'auto', 'always', or 'never'."
+  end
+  if use_colors and M.enable_console_colors then
+    M.enable_console_colors(io.stderr)
+  end
+end
+
+-- ESCAPE: hex 1B = dec 27 = oct 33
+
+local CMD = {
+  reset      = "\027[0m",
+  underline  = "\027[4m",
+  fg_black   = "\027[30m",
+  fg_red     = "\027[31m",
+  fg_green   = "\027[32m",
+  fg_yellow  = "\027[33m",
+  fg_blue    = "\027[34m",
+  fg_magenta = "\027[35m",
+  fg_cyan    = "\027[36m",
+  fg_white   = "\027[37m",
+  fg_reset   = "\027[39m",
+  bg_black   = "\027[40m",
+  bg_red     = "\027[41m",
+  bg_green   = "\027[42m",
+  bg_yellow  = "\027[43m",
+  bg_blue    = "\027[44m",
+  bg_magenta = "\027[45m",
+  bg_cyan    = "\027[46m",
+  bg_white   = "\027[47m",
+  bg_reset   = "\027[49m",
+  fg_x_black   = "\027[90m",
+  fg_x_red     = "\027[91m",
+  fg_x_green   = "\027[92m",
+  fg_x_yellow  = "\027[93m",
+  fg_x_blue    = "\027[94m",
+  fg_x_magenta = "\027[95m",
+  fg_x_cyan    = "\027[96m",
+  fg_x_white   = "\027[97m",
+  bg_x_black   = "\027[100m",
+  bg_x_red     = "\027[101m",
+  bg_x_green   = "\027[102m",
+  bg_x_yellow  = "\027[103m",
+  bg_x_blue    = "\027[104m",
+  bg_x_magenta = "\027[105m",
+  bg_x_cyan    = "\027[106m",
+  bg_x_white   = "\027[107m",
+}
+
+local function exec_msg(commandline)
+  if use_colors then
+    io.stderr:write(CMD.fg_x_white, CMD.bg_red, "[EXEC]", CMD.reset, " ", CMD.fg_red, commandline, CMD.reset, "\n")
+  else
+    io.stderr:write("[EXEC] ", commandline, "\n")
+  end
+end
+
+local function error_msg(...)
+  local message = table.concat({...}, "")
+  if use_colors then
+    io.stderr:write(CMD.fg_x_white, CMD.bg_red, "[ERROR]", CMD.reset, " ", CMD.fg_red, message, CMD.reset, "\n")
+  else
+    io.stderr:write("[ERROR] ", message, "\n")
+  end
+end
+
+local function warn_msg(...)
+  local message = table.concat({...}, "")
+  if use_colors then
+    io.stderr:write(CMD.fg_x_white, CMD.bg_red, "[WARN]", CMD.reset, " ", CMD.fg_blue, message, CMD.reset, "\n")
+  else
+    io.stderr:write("[WARN] ", message, "\n")
+  end
+end
+
+local function diag_msg(...)
+  local message = table.concat({...}, "")
+  if use_colors then
+    io.stderr:write(CMD.fg_x_white, CMD.bg_red, "[DIAG]", CMD.reset, " ", CMD.fg_blue, message, CMD.reset, "\n")
+  else
+    io.stderr:write("[DIAG] ", message, "\n")
+  end
+end
+
+local function info_msg(...)
+  local message = table.concat({...}, "")
+  if use_colors then
+    io.stderr:write(CMD.fg_x_white, CMD.bg_red, "[INFO]", CMD.reset, " ", CMD.fg_magenta, message, CMD.reset, "\n")
+  else
+    io.stderr:write("[INFO] ", message, "\n")
+  end
+end
+
+return {
+  set_colors = set_colors,
+  exec  = exec_msg,
+  error = error_msg,
+  warn  = warn_msg,
+  diag  = diag_msg,
+  info  = info_msg,
+}
+end
+--[[
+  Copyright 2016,2018 ARATA Mizuki
+
+  This file is part of ClutTeX.
+
+  ClutTeX is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  ClutTeX is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with ClutTeX.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+CLUTTEX_VERSION = "v0.1"
+
+-- Standard libraries
+local coroutine = coroutine
+local tostring = tostring
+
+-- External libraries (included in texlua)
+local filesys = require "lfs"
+local md5     = require "md5"
+-- local kpse = require "kpse"
+
+-- My own modules
+local pathutil    = require "texrunner.pathutil"
+local fsutil      = require "texrunner.fsutil"
+local shellutil   = require "texrunner.shellutil"
+local reruncheck  = require "texrunner.reruncheck"
+local luatexinit  = require "texrunner.luatexinit"
+local recoverylib = require "texrunner.recovery"
+local message     = require "texrunner.message"
+local extract_bibtex_from_aux_file = require "texrunner.auxfile".extract_bibtex_from_aux_file
+local handle_cluttex_options = require "texrunner.handleoption".handle_cluttex_options
+
+-- arguments: input file name, jobname, etc...
+local function genOutputDirectory(...)
+  -- The name of the temporary directory is based on the path of input file.
+  local message = table.concat({...}, "\0")
+  local hash = md5.sumhexa(message)
+  local tmpdir = os.getenv("TMPDIR") or os.getenv("TMP") or os.getenv("TEMP")
+  if tmpdir == nil then
+    local home = os.getenv("HOME") or os.getenv("USERPROFILE") or error("environment variable 'TMPDIR' not set!")
+    tmpdir = pathutil.join(home, ".latex-build-temp")
+  end
+  return pathutil.join(tmpdir, 'latex-build-' .. hash)
+end
+
+local inputfile, engine, options = handle_cluttex_options(arg)
+
+local jobname = options.jobname or pathutil.basename(pathutil.trimext(inputfile))
+assert(jobname ~= "", "jobname cannot be empty")
+
+if options.output_format == nil then
+  options.output_format = "pdf"
+end
+local output_extension
+if options.output_format == "dvi" then
+  output_extension = engine.dvi_extension or "dvi"
+else
+  output_extension = "pdf"
+end
+
+if options.output == nil then
+  options.output = jobname .. "." .. output_extension
+end
+
+-- Prepare output directory
+if options.output_directory == nil then
+  local inputfile_abs = pathutil.abspath(inputfile)
+  options.output_directory = genOutputDirectory(inputfile_abs, jobname, options.engine)
+
+  if not fsutil.isdir(options.output_directory) then
+    assert(fsutil.mkdir_rec(options.output_directory))
+
+  elseif options.fresh then
+    -- The output directory exists and --fresh is given:
+    -- Remove all files in the output directory
+    if CLUTTEX_VERBOSITY >= 1 then
+      message.info("Cleaning '", options.output_directory, "'...")
+    end
+    assert(fsutil.remove_rec(options.output_directory))
+    assert(filesys.mkdir(options.output_directory))
+  end
+
+elseif options.fresh then
+  message.error("--fresh and --output-directory cannot be used together.")
+  os.exit(1)
+end
+
+local pathsep = ":"
+if os.type == "windows" then
+  pathsep = ";"
+end
+
+local original_wd = filesys.currentdir()
+if options.change_directory then
+  local TEXINPUTS = os.getenv("TEXINPUTS") or ""
+  filesys.chdir(options.output_directory)
+  options.output = pathutil.abspath(options.output, original_wd)
+  os.setenv("TEXINPUTS", original_wd .. pathsep .. TEXINPUTS)
+end
+if options.bibtex or options.biber then
+  local BIBINPUTS = os.getenv("BIBINPUTS") or ""
+  options.output = pathutil.abspath(options.output, original_wd)
+  os.setenv("BIBINPUTS", original_wd .. pathsep .. BIBINPUTS)
+end
+
+-- Set `max_print_line' environment variable if not already set.
+if os.getenv("max_print_line") == nil then
+  os.setenv("max_print_line", "65536")
+end
+-- TODO: error_line, half_error_line
+--[[
+  According to texmf.cnf:
+    45 < error_line < 255,
+    30 < half_error_line < error_line - 15,
+    60 <= max_print_line.
+]]
+
+local function path_in_output_directory(ext)
+  return pathutil.join(options.output_directory, jobname .. "." .. ext)
+end
+
+local recorderfile = path_in_output_directory("fls")
+local recorderfile2 = path_in_output_directory("cluttex-fls")
+
+local tex_options = {
+  interaction = options.interaction,
+  file_line_error = options.file_line_error,
+  halt_on_error = options.halt_on_error,
+  synctex = options.synctex,
+  output_directory = options.output_directory,
+  shell_escape = options.shell_escape,
+  shell_restricted = options.shell_restricted,
+  jobname = options.jobname,
+  fmt = options.fmt,
+  extraoptions = options.tex_extraoptions,
+}
+if options.output_format ~= "pdf" and engine.supports_pdf_generation then
+  tex_options.output_format = options.output_format
+end
+
+-- Setup LuaTeX initialization script
+if engine.is_luatex then
+  local initscriptfile = path_in_output_directory("cluttexinit.lua")
+  luatexinit.create_initialization_script(initscriptfile, tex_options)
+  tex_options.lua_initialization_script = initscriptfile
+end
+
+-- Run TeX command (*tex, *latex)
+-- should_rerun, newauxstatus = single_run([auxstatus])
+-- This function should be run in a coroutine.
+local function single_run(auxstatus, iteration)
+  local minted = false
+  local bibtex_aux_hash = nil
+  local mainauxfile = path_in_output_directory("aux")
+  if fsutil.isfile(recorderfile) then
+    -- Recorder file already exists
+    local filelist, filemap = reruncheck.parse_recorder_file(recorderfile, options)
+    if engine.is_luatex and fsutil.isfile(recorderfile2) then
+      filelist, filemap = reruncheck.parse_recorder_file(recorderfile2, options, filelist, filemap)
+    end
+    auxstatus = reruncheck.collectfileinfo(filelist, auxstatus)
+    for _,fileinfo in ipairs(filelist) do
+      if string.match(fileinfo.path, "minted/minted%.sty$") then
+        minted = true
+        break
+      end
+    end
+    if options.bibtex then
+      local biblines = extract_bibtex_from_aux_file(mainauxfile, options.output_directory)
+      if #biblines > 0 then
+        bibtex_aux_hash = md5.sum(table.concat(biblines, "\n"))
+      end
+    end
+  else
+    -- This is the first execution
+    if auxstatus ~= nil then
+      message.error("Recorder file was not generated during the execution!")
+      os.exit(1)
+    end
+    auxstatus = {}
+  end
+  --local timestamp = os.time()
+
+  if options.includeonly then
+    tex_options.tex_injection = string.format("%s\\includeonly{%s}", tex_options.tex_injection or "", options.includeonly)
+  end
+
+  if minted and not (tex_options.tex_injection and string.find(tex_options.tex_injection,"minted") == nil) then
+    tex_options.tex_injection = string.format("%s\\PassOptionsToPackage{outputdir=%s}{minted}", tex_options.tex_injection or "", options.output_directory)
+  end
+
+  local current_tex_options, lightweight_mode = tex_options, false
+  if iteration == 1 and options.start_with_draft then
+    current_tex_options = {}
+    for k,v in pairs(tex_options) do
+      current_tex_options[k] = v
+    end
+    if engine.supports_draftmode then
+      current_tex_options.draftmode = true
+      options.start_with_draft = false
+    end
+    current_tex_options.interaction = "batchmode"
+    lightweight_mode = true
+  else
+    current_tex_options.draftmode = false
+  end
+
+  local command = engine:build_command(inputfile, current_tex_options)
+
+  local execlog -- the contents of .log file
+
+  local recovered = false
+  local function recover()
+    -- Check log file
+    if not execlog then
+      local logfile = assert(io.open(path_in_output_directory("log")))
+      execlog = logfile:read("*a")
+      logfile:close()
+    end
+    recovered = recoverylib.try_recovery{
+      execlog = execlog,
+      auxfile = path_in_output_directory("aux"),
+      options = options,
+      original_wd = original_wd,
+    }
+    return recovered
+  end
+  coroutine.yield(command, recover) -- Execute the command
+  if recovered then
+    return true, {}
+  end
+
+  local filelist, filemap = reruncheck.parse_recorder_file(recorderfile, options)
+  if engine.is_luatex and fsutil.isfile(recorderfile2) then
+    filelist, filemap = reruncheck.parse_recorder_file(recorderfile2, options, filelist, filemap)
+  end
+
+  if not execlog then
+    local logfile = assert(io.open(path_in_output_directory("log")))
+    execlog = logfile:read("*a")
+    logfile:close()
+  end
+
+  if options.makeindex then
+    -- Look for .idx files and run MakeIndex
+    for _,file in ipairs(filelist) do
+      if pathutil.ext(file.path) == "idx" then
+        -- Run makeindex if the .idx file is new or updated
+        local idxfileinfo = {path = file.path, abspath = file.abspath, kind = "auxiliary"}
+        local output_ind = pathutil.replaceext(file.abspath, "ind")
+        if reruncheck.comparefileinfo({idxfileinfo}, auxstatus) or reruncheck.comparefiletime(file.abspath, output_ind, auxstatus) then
+          local idx_dir = pathutil.dirname(file.abspath)
+          local makeindex_command = {
+            "cd", shellutil.escape(idx_dir), "&&",
+            options.makeindex, -- Do not escape options.makeindex to allow additional options
+            "-o", pathutil.basename(output_ind),
+            pathutil.basename(file.abspath)
+          }
+          coroutine.yield(table.concat(makeindex_command, " "))
+          table.insert(filelist, {path = output_ind, abspath = output_ind, kind = "auxiliary"})
+        else
+          local succ, err = filesys.touch(output_ind)
+          if not succ then
+            message.warn("Failed to touch " .. output_ind .. " (" .. err .. ")")
+          end
+        end
+      end
+    end
+  else
+    -- Check log file
+    if string.find(execlog, "No file [^\n]+%.ind%.") then
+      message.diag("You may want to use --makeindex option.")
+    end
+  end
+
+  if options.makeglossaries then
+    -- Look for .glo files and run makeglossaries
+    for _,file in ipairs(filelist) do
+      if pathutil.ext(file.path) == "glo" then
+        -- Run makeglossaries if the .glo file is new or updated
+        local glofileinfo = {path = file.path, abspath = file.abspath, kind = "auxiliary"}
+        local output_gls = pathutil.replaceext(file.abspath, "gls")
+        if reruncheck.comparefileinfo({glofileinfo}, auxstatus) or reruncheck.comparefiletime(file.abspath, output_gls, auxstatus) then
+          local makeglossaries_command = {
+            options.makeglossaries,
+            "-d", shellutil.escape(options.output_directory),
+            pathutil.trimext(pathutil.basename(file.path))
+          }
+          coroutine.yield(table.concat(makeglossaries_command, " "))
+          table.insert(filelist, {path = output_gls, abspath = output_gls, kind = "auxiliary"})
+        else
+          local succ, err = filesys.touch(output_gls)
+          if not succ then
+            message.warn("Failed to touch " .. output_ind .. " (" .. err .. ")")
+          end
+        end
+      end
+    end
+  else
+    -- Check log file
+    if string.find(execlog, "No file [^\n]+%.gls%.") then
+      message.diag("You may want to use --makeglossaries option.")
+    end
+  end
+
+  if options.bibtex then
+    local biblines2 = extract_bibtex_from_aux_file(mainauxfile, options.output_directory)
+    local bibtex_aux_hash2
+    if #biblines2 > 0 then
+      bibtex_aux_hash2 = md5.sum(table.concat(biblines2, "\n"))
+    end
+    local output_bbl = path_in_output_directory("bbl")
+    if bibtex_aux_hash ~= bibtex_aux_hash2 or reruncheck.comparefiletime(mainauxfile, output_bbl, auxstatus) then
+      -- The input for BibTeX command has changed...
+      local bibtex_command = {
+        "cd", shellutil.escape(options.output_directory), "&&",
+        options.bibtex,
+        pathutil.basename(mainauxfile)
+      }
+      coroutine.yield(table.concat(bibtex_command, " "))
+    else
+      if CLUTTEX_VERBOSITY >= 1 then
+        message.info("No need to run BibTeX.")
+      end
+      local succ, err = filesys.touch(output_bbl)
+      if not succ then
+        message.warn("Failed to touch " .. output_bbl .. " (" .. err .. ")")
+      end
+    end
+  elseif options.biber then
+    for _,file in ipairs(filelist) do
+      if pathutil.ext(file.path) == "bcf" then
+        -- Run biber if the .bcf file is new or updated
+        local bcffileinfo = {path = file.path, abspath = file.abspath, kind = "auxiliary"}
+        local output_bbl = pathutil.replaceext(file.abspath, "bbl")
+        if reruncheck.comparefileinfo({bcffileinfo}, auxstatus) or reruncheck.comparefiletime(file.abspath, output_bbl, auxstatus) then
+          local bbl_dir = pathutil.dirname(file.abspath)
+          local biber_command = {
+            options.biber, -- Do not escape options.biber to allow additional options
+            "--output-directory", shellutil.escape(options.output_directory),
+            pathutil.basename(file.abspath)
+          }
+          coroutine.yield(table.concat(biber_command, " "))
+          table.insert(filelist, {path = output_bbl, abspath = output_bbl, kind = "auxiliary"})
+        else
+          local succ, err = filesys.touch(output_bbl)
+          if not succ then
+            message.warn("Failed to touch " .. output_bbl .. " (" .. err .. ")")
+          end
+        end
+      end
+    end
+  else
+    -- Check log file
+    if string.find(execlog, "No file [^\n]+%.bbl%.") then
+      message.diag("You may want to use --bibtex or --biber option.")
+    end
+  end
+
+  if string.find(execlog, "No pages of output.") then
+    return "No pages of output."
+  end
+
+  local should_rerun, auxstatus = reruncheck.comparefileinfo(filelist, auxstatus)
+  return should_rerun or lightweight_mode, auxstatus
+end
+
+-- Run (La)TeX (possibly multiple times) and produce a PDF file.
+-- This function should be run in a coroutine.
+local function do_typeset_c()
+  local iteration = 0
+  local should_rerun, auxstatus
+  repeat
+    iteration = iteration + 1
+    should_rerun, auxstatus = single_run(auxstatus, iteration)
+    if should_rerun == "No pages of output." then
+      message.warn("No pages of output.")
+      return
+    end
+  until not should_rerun or iteration >= options.max_iterations
+
+  if should_rerun then
+    message.warn("LaTeX should be run once more.")
+  end
+
+  -- Successful
+  if options.output_format == "dvi" or engine.supports_pdf_generation then
+    -- Output file (DVI/PDF) is generated in the output directory
+    local outfile = path_in_output_directory(output_extension)
+    local oncopyerror
+    if os.type == "windows" then
+      oncopyerror = function()
+        message.error("Failed to copy file.  Some applications may be locking the ", string.upper(options.output_format), " file.")
+        return false
+      end
+    end
+    coroutine.yield(fsutil.copy_command(outfile, options.output), oncopyerror)
+    if #options.dvipdfmx_extraoptions > 0 then
+      message.warn("--dvipdfmx-option[s] are ignored.")
+    end
+
+  else
+    -- DVI file is generated, but PDF file is wanted
+    local dvifile = path_in_output_directory("dvi")
+    local dvipdfmx_command = {"dvipdfmx", "-o", shellutil.escape(options.output)}
+    for _,v in ipairs(options.dvipdfmx_extraoptions) do
+      table.insert(dvipdfmx_command, v)
+    end
+    table.insert(dvipdfmx_command, shellutil.escape(dvifile))
+    coroutine.yield(table.concat(dvipdfmx_command, " "))
+  end
+
+  -- Copy SyncTeX file if necessary
+  if options.output_format == "pdf" then
+    local synctex = tonumber(options.synctex or "0")
+    local synctex_ext = nil
+    if synctex > 0 then
+      -- Compressed SyncTeX file (.synctex.gz)
+      synctex_ext = "synctex.gz"
+    elseif synctex < 0 then
+      -- Uncompressed SyncTeX file (.synctex)
+      synctex_ext = "synctex"
+    end
+    if synctex_ext then
+      coroutine.yield(fsutil.copy_command(path_in_output_directory(synctex_ext), pathutil.replaceext(options.output, synctex_ext)))
+    end
+  end
+end
+
+local function do_typeset()
+  -- Execute the command string yielded by do_typeset_c
+  for command, recover in coroutine.wrap(do_typeset_c) do
+    message.exec(command)
+    local success, termination, status_or_signal = os.execute(command)
+    if type(success) == "number" then -- Lua 5.1 or LuaTeX
+      local code = success
+      success = code == 0
+      termination = nil
+      status_or_signal = code
+    end
+    if not success and not (recover and recover()) then
+      if termination == "exit" then
+        message.error("Command exited abnormally: exit status ", tostring(status_or_signal))
+      elseif termination == "signal" then
+        message.error("Command exited abnormally: signal ", tostring(status_or_signal))
+      else
+        message.error("Command exited abnormally: ", tostring(status_or_signal))
+      end
+      return false, termination, status_or_signal
+    end
+  end
+  -- Successful
+  if CLUTTEX_VERBOSITY >= 1 then
+    message.info("Command exited successfully")
+  end
+  return true
+end
+
+if options.watch then
+  -- Watch mode
+  local success, status = do_typeset()
+  local filelist, filemap = reruncheck.parse_recorder_file(recorderfile, options)
+  if engine.is_luatex and fsutil.isfile(recorderfile2) then
+    filelist, filemap = reruncheck.parse_recorder_file(recorderfile2, options, filelist, filemap)
+  end
+  local input_files_to_watch = {}
+  for _,fileinfo in ipairs(filelist) do
+    if fileinfo.kind == "input" then
+      table.insert(input_files_to_watch, fileinfo.abspath)
+    end
+  end
+  local fswatch_command = {"fswatch", "--event=Updated", "--"}
+  for _,path in ipairs(input_files_to_watch) do
+    table.insert(fswatch_command, shellutil.escape(path))
+  end
+  if CLUTTEX_VERBOSITY >= 1 then
+    message.exec(table.concat(fswatch_command, " "))
+  end
+  local fswatch = assert(io.popen(table.concat(fswatch_command, " "), "r"))
+  for l in fswatch:lines() do
+    local found = false
+    for _,path in ipairs(input_files_to_watch) do
+      if l == path then
+        found = true
+        break
+      end
+    end
+    if found then
+      local success, status = do_typeset()
+      if not success then
+        -- Not successful
+      end
+    end
+  end
+
+else
+  -- Not in watch mode
+  local success, status = do_typeset()
+  if not success then
+    os.exit(1)
+  end
+end