remove bat files for cluttex

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

3 files changed, 0 insertions, 7794 deletions

diff --git a/Master/bin/win32/cllualatex.bat b/Master/bin/win32/cllualatex.bat
deleted file mode 100755
index 6b938411f9d..00000000000
--- a/Master/bin/win32/cllualatex.bat
+++ /dev/null
@@ -1,2598 +0,0 @@
-::dummy:: --[[

-@texlua "%~f0" %*

-@goto :eof

-]]

-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 "windows"

-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

diff --git a/Master/bin/win32/cluttex.bat b/Master/bin/win32/cluttex.bat
deleted file mode 100755
index 6b938411f9d..00000000000
--- a/Master/bin/win32/cluttex.bat
+++ /dev/null
@@ -1,2598 +0,0 @@
-::dummy:: --[[

-@texlua "%~f0" %*

-@goto :eof

-]]

-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 "windows"

-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

diff --git a/Master/bin/win32/clxelatex.bat b/Master/bin/win32/clxelatex.bat
deleted file mode 100755
index 6b938411f9d..00000000000
--- a/Master/bin/win32/clxelatex.bat
+++ /dev/null
@@ -1,2598 +0,0 @@
-::dummy:: --[[

-@texlua "%~f0" %*

-@goto :eof

-]]

-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 "windows"

-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