texlive[74655] trunk: cluttex (16mar25)
commits+karl at tug.org
commits+karl at tug.org
Sun Mar 16 21:03:47 CET 2025
Revision: 74655
https://tug.org/svn/texlive?view=revision&revision=74655
Author: karl
Date: 2025-03-16 21:03:47 +0100 (Sun, 16 Mar 2025)
Log Message:
-----------
cluttex (16mar25)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/cluttex/cluttex.lua
trunk/Master/bin/windows/cluttex.exe
trunk/Master/texmf-dist/doc/man/man1/cllualatex.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/cluttex.1
trunk/Master/texmf-dist/doc/man/man1/cluttex.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/clxelatex.man1.pdf
trunk/Master/texmf-dist/doc/support/cluttex/CHANGELOG.md
trunk/Master/texmf-dist/doc/support/cluttex/Makefile
trunk/Master/texmf-dist/doc/support/cluttex/README.md
trunk/Master/texmf-dist/doc/support/cluttex/build.lua
trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.pdf
trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.tex
trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.pdf
trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.tex
trunk/Master/texmf-dist/scripts/cluttex/cluttex.lua
Added Paths:
-----------
trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_7_0
trunk/Master/texmf-dist/doc/support/cluttex/src/ansi-color.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/app-options.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/auxfile.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/check-driver.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.mlb
trunk/Master/texmf-dist/doc/support/cluttex/src/config-file.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/fs-util.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/handle-options.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/luatexinit.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/main.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/map.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/md5.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/message.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/os-util.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/path-util.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/recovery.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/reruncheck.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/safe-name.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/shell-util.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/tex-engine.sml
trunk/Master/texmf-dist/doc/support/cluttex/src/types.sml
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_6
trunk/Master/texmf-dist/doc/support/cluttex/bin/
trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/auxfile.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/checkdriver.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/handleoption.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/message.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/option.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/recovery.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/reruncheck.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/safename.lua
trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/tex_engine.lua
Modified: trunk/Build/source/texk/texlive/linked_scripts/cluttex/cluttex.lua
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/cluttex/cluttex.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Build/source/texk/texlive/linked_scripts/cluttex/cluttex.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,6 +1,5 @@
#!/usr/bin/env texlua
local io, os, string, table, package, require, assert, error, ipairs, type, select, arg = io, os, string, table, package, require, assert, error, ipairs, type, select, arg
-local CLUTTEX_VERBOSITY, CLUTTEX_VERSION
os.type = os.type or "unix"
if lfs and not package.loaded['lfs'] then package.loaded['lfs'] = lfs end
if os.type == "windows" then
@@ -536,646 +535,6 @@
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]}
--- options_and_params[j] = {"option", "value"}
--- 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
- param = false
- 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
- param = false
- 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,2019 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(inputline, 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
- 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(inputline, options)
- local executable = options.engine_executable or self.executable
- local command = {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
- table.insert(command, shellutil.escape(inputline))
- 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
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- parse_aux_file(subauxfile_abs, 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 then
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- extract_bibtex_from_aux_file(subauxfile_abs, outdir, biblines)
- end
- 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"))
@@ -1294,608 +653,6 @@
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-2023 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,
- --engine-executable=COMMAND+OPTIONs
- The actual TeX command to use.
- [default: ENGINE]
- -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[=ENGINE] Watch input files for change. Requires fswatch
- or inotifywait to be installed. ENGINE is one of
- `fswatch', `inotifywait' or `auto' [default: `auto']
- --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' if --color is omitted,
- `always' if WHEN is omitted]
- --includeonly=NAMEs Insert '\includeonly{NAMEs}'.
- --make-depends=FILE Write dependencies as a Makefile rule.
- --print-output-directory Print the output directory and exit.
- --package-support=PKG1[,PKG2,...]
- Enable special support for some shell-escaping
- packages.
- Currently supported: minted, epstopdf
- --check-driver=DRIVER Check that the correct driver file is loaded.
- DRIVER is one of `dvipdfmx', `dvips', `dvisvgm'.
-
- --[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,
- },
- {
- long = "engine-executable",
- 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",
- param = true,
- default = "auto",
- },
- {
- 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,
- },
- {
- long = "make-depends",
- param = true
- },
- {
- long = "print-output-directory",
- },
- {
- long = "package-support",
- param = true
- },
- {
- long = "check-driver",
- 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
-
- if options.output_format == nil then
- options.output_format = "pdf"
- 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 = {},
- package_support = {},
- }
- 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 == "engine-executable" then
- assert(options.engine_executable == nil, "multiple --engine-executable options")
- options.engine_executable = 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 = param
-
- 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
-
- elseif name == "make-depends" then
- assert(options.make_depends == nil, "multiple --make-depends options")
- options.make_depends = param
-
- elseif name == "print-output-directory" then
- assert(options.print_output_directory == nil, "multiple --print-output-directory options")
- options.print_output_directory = true
-
- elseif name == "package-support" then
- local known_packages = {["minted"] = true, ["epstopdf"] = true}
- for pkg in string.gmatch(param, "[^,%s]+") do
- options.package_support[pkg] = true
- if not known_packages[pkg] and CLUTTEX_VERBOSITY >= 1 then
- message.warn("ClutTeX provides no special support for '"..pkg.."'.")
- end
- end
-
- elseif name == "check-driver" then
- assert(options.check_driver == nil, "multiple --check-driver options")
- assert(param == "dvipdfmx" or param == "dvips" or param == "dvisvgm", "wrong value for --check-driver option")
- options.check_driver = 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)
-
- -- parameter validy check TODO should this be organized as function like
- -- set_default_values and with a key in the option spec (list or function)?
- if options.watch then
- if options.watch ~= "fswatch" and options.watch ~= "inotifywait" then
- message.error("Unknown wait engine '", options.watch, "'.")
- os.exit(1)
- end
- end
-
- if options.output_format == "pdf" then
- if options.check_driver ~= nil then
- error("--check-driver can only be used when the output format is DVI.")
- end
- if engine.supports_pdf_generation then
- if engine.is_luatex then
- options.check_driver = "luatex"
- elseif engine.name == "xetex" or engine.name == "xelatex" then
- options.check_driver = "xetex"
- elseif engine.name == "pdftex" or engine.name == "pdflatex" then
- options.check_driver = "pdftex"
- else
- message.warning("Unknown engine: "..engine.name)
- message.warning("Driver check will not work.")
- end
- else
- -- ClutTeX uses dvipdfmx to generate PDF from DVI output.
- options.check_driver = "dvipdfmx"
- end
- end
-
- return inputfile, engine, options
-end
-
-return {
- usage = usage,
- handle_cluttex_options = handle_cluttex_options,
-}
-end
package.preload["texrunner.isatty"] = function(...)
--[[
Copyright 2018 ARATA Mizuki
@@ -2122,149 +879,6 @@
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
- M = require "texrunner.isatty"
- use_colors = true
- if use_colors and M.enable_virtual_terminal then
- local succ = M.enable_virtual_terminal(io.stderr)
- if not succ and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "auto" then
- M = require "texrunner.isatty"
- use_colors = M.isatty(io.stderr)
- if use_colors and M.enable_virtual_terminal then
- use_colors = M.enable_virtual_terminal(io.stderr)
- if not use_colors and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "never" then
- use_colors = false
- else
- error "The value of --color option must be one of 'auto', 'always', or 'never'."
- 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_cyan, 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
package.preload["texrunner.fswatcher_windows"] = function(...)
--[[
Copyright 2019 ARATA Mizuki
@@ -2682,971 +1296,21082 @@
new = new_watcher,
}
end
-package.preload["texrunner.safename"] = function(...)
---[[
- Copyright 2019 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 = string
-local table = table
-
-local function dounsafechar(c)
- if c == " " then
- return "_"
+local getmetatable = getmetatable
+local pcall = pcall
+local setmetatable = setmetatable
+local math = math
+local math_type = math.type
+local math_maxinteger = math.maxinteger
+local math_mininteger = math.mininteger
+local math_ult = math.ult
+local string_char = string.char
+local string_format = string.format
+local table_concat = table.concat
+local function _id(x)
+ return x
+end
+local _exn_meta = {}
+function _exn_meta:__tostring()
+ local traceback = self.traceback
+ if traceback then
+ traceback = "\n" .. traceback
else
- return string.format("_%02x", c:byte(1))
+ traceback = ""
end
+ return string_format("%s: %s%s", self.location or "<no location info>", self.tag[1], traceback)
end
-
-local function escapejobname(name)
- return (string.gsub(name, "[%s\"$%%&'();<>\\^`|]", dounsafechar))
+local _Match_tag = { "Match" }
+local _Match = setmetatable({ tag = _Match_tag }, _exn_meta)
+local _Bind_tag = { "Bind" }
+local _Bind = setmetatable({ tag = _Bind_tag }, _exn_meta)
+local _Overflow_tag = { "Overflow" }
+local _Overflow = setmetatable({ tag = _Overflow_tag }, _exn_meta)
+local _Div_tag = { "Div" }
+local _Div = setmetatable({ tag = _Div_tag }, _exn_meta)
+local _Size_tag = { "Size" }
+local _Size = setmetatable({ tag = _Size_tag }, _exn_meta)
+local _Subscript_tag = { "Subscript" }
+local _Subscript = setmetatable({ tag = _Subscript_tag }, _exn_meta)
+local _Fail_tag = { "Fail" }
+local function _Fail(message)
+ return setmetatable({ tag = _Fail_tag, payload = message }, _exn_meta)
end
-
-local function handlespecialchar(s)
- return (string.gsub(s, "[%\\%%^%{%}%~%#]", "~\\%1"))
+local _Error_tag = { "Error" }
+local function _Error(x)
+ return setmetatable({ tag = _Error_tag, payload = x }, _exn_meta)
end
-
-local function handlespaces(s)
- return (string.gsub(s, " +", function(s) return string.rep(" ", #s, "~") end))
+local function _handle(f)
+ local success, result = pcall(f)
+ if not success and getmetatable(result) ~= _exn_meta then
+ result = _Error(result)
+ end
+ return success, result
end
-
-local function handlenonascii(s)
- return (string.gsub(s, "[\x80-\xFF]+", "\\detokenize{%1}"))
+local function __exn_instanceof(e, tag)
+ return e.tag == tag
end
-
-local function safeinput(name, engine)
- local escaped = handlespaces(handlespecialchar(name))
- if engine.name == "pdftex" or engine.name == "pdflatex" then
- escaped = handlenonascii(escaped)
+local function _raise(x, location)
+ local e
+ if x.tag == _Error_tag then
+ e = x.payload
+ elseif location ~= nil then
+ local traceback = debug.traceback(nil, 2)
+ e = setmetatable({ tag = x.tag, payload = x.payload, location = location, traceback = traceback }, _exn_meta)
+ else
+ e = x
end
- if name == escaped then
- return string.format("\\input\"%s\"", name)
+ error(e, 1)
+end
+local function _Int_add(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x + y
+ if y > 0 and z < x then
+ _raise(_Overflow, "Int.+")
+ elseif y < 0 and z > x then
+ _raise(_Overflow, "Int.+")
else
- return string.format("\\begingroup\\escapechar-1\\let~\\string\\edef\\x{\"%s\" }\\expandafter\\endgroup\\expandafter\\input\\x", escaped)
+ return z
end
end
-
-return {
- escapejobname = escapejobname,
- safeinput = safeinput,
-}
+local function _Int_sub(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x - y
+ if y < 0 and z < x then
+ _raise(_Overflow, "Int.-")
+ elseif y > 0 and x < z then
+ _raise(_Overflow, "Int.-")
+ else
+ return z
+ end
end
-package.preload["texrunner.checkdriver"] = function(...)
---[[
- Copyright 2020 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 ipairs = ipairs
-local error = error
-local string = string
-local pathutil = require "texrunner.pathutil"
-local message = require "texrunner.message"
-
-local right_values = {
- dvips = {
- graphics = "dvips",
- expl3 = {
- old = "dvips",
- new = "dvips",
- },
- hyperref = "dvips",
- xypic = "dvips",
- },
- dvipdfmx = {
- graphics = "dvipdfmx",
- expl3 = {
- old = "dvipdfmx",
- new = "dvipdfmx",
- },
- hyperref = "dvipdfmx",
- xypic = "pdf",
- },
- dvisvgm = {
- graphics = "dvisvgm",
- expl3 = {
- old = "dvisvgm",
- new = "dvisvgm",
- },
- },
- xetex = {
- graphics = "xetex",
- expl3 = {
- old = "xdvipdfmx",
- new = "xetex",
- },
- hyperref = "xetex",
- xypic = "pdf",
- },
- pdftex = {
- graphics = "pdftex",
- expl3 = {
- old = "pdfmode",
- new = "pdftex",
- },
- hyperref = "pdftex",
- xypic = "pdf",
- },
- luatex = {
- graphics = "luatex",
- expl3 = {
- old = "pdfmode",
- new = "luatex",
- },
- hyperref = "luatex",
- xypic = "pdf",
- },
-}
-
--- expected_driver: one of "dvips", "dvipdfmx", "dvisvgm", "pdftex", "xetex", "luatex"
-local function checkdriver(expected_driver, filelist)
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: expects ", expected_driver)
+local function _Int_mul(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x * y
+ if (x ~= 0 and z // x ~= y) or (y ~= 0 and z // y ~= x) then
+ _raise(_Overflow, "Int.*")
+ else
+ return z
end
-
- local loaded = {}
- for i,t in ipairs(filelist) do
- if t.kind == "input" then
- local basename = pathutil.basename(t.path)
- loaded[basename] = true
+end
+local function _Int_div(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Int.div")
+ elseif x == math_mininteger and y == -1 then
+ _raise(_Overflow, "Int.div")
+ end
+ return x // y
+end
+local function _Int_mod(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Int.mod")
+ end
+ return x % y
+end
+local function _Int_negate(x)
+ -- assert(math_type(x) == "integer")
+ if x == math_mininteger then
+ _raise(_Overflow, "Int.~")
+ end
+ return - x
+end
+local function _Word_div(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Word.div")
+ elseif y > 0 then
+ if x >= 0 then
+ return x // y
+ else -- x < 0
+ -- Algorithm from Programming in Lua, 4th ed.
+ local q = ((x >> 1) // y) << 1
+ local r = x - q * y
+ if math_ult(r, y) then
+ return q
+ else
+ return q + 1
+ end
end
+ else -- y < 0
+ if math_ult(x, y) then
+ return 0
+ else
+ return 1
+ end
end
-
- local graphics_driver = nil -- "dvipdfmx" | "dvips" | "dvisvgm" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["graphics.sty"] or loaded["color.sty"] then
- if loaded["dvipdfmx.def"] then
- graphics_driver = "dvipdfmx"
- elseif loaded["dvips.def"] then
- graphics_driver = "dvips"
- elseif loaded["dvisvgm.def"] then
- graphics_driver = "dvisvgm"
- elseif loaded["pdftex.def"] then
- graphics_driver = "pdftex"
- elseif loaded["luatex.def"] then
- graphics_driver = "luatex"
- elseif loaded["xetex.def"] then
- graphics_driver = "xetex"
+end
+local function _Word_mod(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Word.mod")
+ elseif y > 0 then
+ if x >= 0 then
+ return x % y
+ else -- x < 0
+ local q = ((x >> 1) // y) << 1
+ local r = x - q * y
+ if math_ult(r, y) then
+ return r
+ else
+ return r - y
+ end
+ end
+ else -- y < 0
+ if math_ult(x, y) then
+ return x
else
- -- Not supported: dvipdf, dvipsone, emtex, textures, pctexps, pctexwin, pctexhp, pctex32, truetex, tcidvi, vtex
- graphics_driver = "unknown"
+ return x - y
end
end
- local expl3_driver = nil -- "pdfmode" | "dvisvgm" | "xdvipdfmx" | "dvipdfmx" | "dvips" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["expl3-code.tex"] or loaded["expl3.sty"] or loaded["l3backend-dvips.def"] or loaded["l3backend-dvipdfmx.def"] or loaded["l3backend-xdvipdfmx.def"] or loaded["l3backend-pdfmode.def"] or loaded["l3backend-pdftex.def"] or loaded["l3backend-luatex.def"] or loaded["l3backend-xetex.def"] then
- if loaded["l3backend-pdfmode.def"] then
- expl3_driver = "pdfmode" -- pdftex, luatex in older l3backend
- elseif loaded["l3backend-dvisvgm.def"] then
- expl3_driver = "dvisvgm"
- elseif loaded["l3backend-xdvipdfmx.def"] then
- expl3_driver = "xdvipdfmx" -- xetex in older l3backend
- elseif loaded["l3backend-dvipdfmx.def"] then
- expl3_driver = "dvipdfmx"
- elseif loaded["l3backend-dvips.def"] then
- expl3_driver = "dvips"
- elseif loaded["l3backend-pdftex.def"] then
- expl3_driver = "pdftex"
- elseif loaded["l3backend-luatex.def"] then
- expl3_driver = "luatex"
- elseif loaded["l3backend-xetex.def"] then
- expl3_driver = "xetex"
+end
+local function _list(t)
+ local xs = nil
+ for i = t.n, 1, -1 do
+ xs = { t[i], xs }
+ end
+ return xs
+end
+local function _Array_array(n, init)
+ if n < 0 then -- or maxLen < n
+ _raise(_Size, "Array.array")
+ end
+ local t = { n = n }
+ for i = 1, n do
+ t[i] = init
+ end
+ return t
+end
+local function _VectorOrArray_fromList(xs)
+ local t = {}
+ local n = 0
+ while xs ~= nil do
+ n = n + 1
+ t[n] = xs[1]
+ xs = xs[2]
+ end
+ t.n = n
+ return t
+end
+local function _VectorOrArray_tabulate(t)
+ local n, f = t[1], t[2]
+ if n < 0 then -- or maxLen < n
+ _raise(_Size, "(Vector|Array).tabulate")
+ end
+ local t = { n = n }
+ for i = 1, n do
+ t[i] = f(i - 1)
+ end
+ return t
+end
+local ref, _COLON_COLON, Chr, Domain, LESS, EQUAL, GREATER, _EXCLAM, _COLON_EQ, NONE, Option, getOpt, app, mapPartial, tmp, revAppend, app1, map, mapPartial1, find, foldl, exists, all, tabulate, sub, update, foldr, length, array, size, str, eq, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7, tmp8, tmp9, tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16, tmp17, tmp18, tmp19, tmp20, tmp21, tmp22, tmp23, TypeError_tag, DEC, quot, rem, compare, tmp24, tmp25, fromManExp, sub1, substring, extract, concat, implode, implodeRev, fields, isPrefix, isSuffix, isAscii, isDigit, isAlphaNum, isHexDigit, isPrint, isSpace, toUpper, toString, scanString
+do
+ ref = function(x)
+ return {x}
+ end
+ _COLON_COLON = function(a)
+ local x = a[1]
+ return {x, a[2]}
+ end
+ Chr = {tag = {"Chr"}}
+ Domain = {tag = {"Domain"}}
+ LESS = "LESS"
+ EQUAL = "EQUAL"
+ GREATER = "GREATER"
+ _EXCLAM = function(a)
+ return a[1]
+ end
+ _COLON_EQ = function(a)
+ local x = a[1]
+ x[1] = a[2]
+ return nil
+ end
+ NONE = {tag = "NONE"}
+ Option = {tag = {"Option"}}
+ getOpt = function(tmp26, default)
+ if tmp26.tag == "NONE" then
+ return default
+ elseif tmp26.tag == "SOME" then
+ return tmp26.payload
else
- -- TODO: driver=latex2e?
- expl3_driver = "unknown"
+ _raise(_Match, "option.sml:19:5")
end
end
- local hyperref_driver = nil -- "luatex" | "pdftex" | "xetex" | "dvipdfmx" | "dvips" | "unknown"
- if loaded["hyperref.sty"] then
- if loaded["hluatex.def"] then
- hyperref_driver = "luatex"
- elseif loaded["hpdftex.def"] then
- hyperref_driver = "pdftex"
- elseif loaded["hxetex.def"] then
- hyperref_driver = "xetex"
- elseif loaded["hdvipdfm.def"] then
- hyperref_driver = "dvipdfmx"
- elseif loaded["hdvips.def"] then
- hyperref_driver = "dvips"
+ app = function(a)
+ return function(a1)
+ if a1.tag == "SOME" then
+ elseif a1.tag == "NONE" then
+ return nil
+ else
+ _raise(_Match, "option.sml:31:5")
+ end
+ do
+ return a(a1.payload)
+ end
+ end
+ end
+ mapPartial = function(a)
+ return function(a1)
+ if a1.tag == "SOME" then
+ elseif a1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "option.sml:35:5")
+ end
+ do
+ return a(a1.payload)
+ end
+ end
+ end
+ tmp = function(eq1)
+ return function(p)
+ if p[1].tag == "NONE" and p[2].tag == "NONE" then
+ return true
+ else
+ if p[1].tag == "SOME" and p[2].tag == "SOME" then
+ else
+ return false
+ end
+ do
+ return eq1({p[1].payload, p[2].payload})
+ end
+ end
+ end
+ end
+ revAppend = function(tmp26, ys)
+ local tmp27, tmp28 = tmp26, ys
+ ::cont::
+ do
+ local tmp29, ys1 = tmp27, tmp28
+ if tmp29 == nil then
+ return ys1
+ elseif tmp29 ~= nil then
+ local tmp30 = tmp29[1]
+ local tmp31 = tmp29[2]
+ tmp27 = tmp31
+ tmp28 = {tmp30, ys1}
+ goto cont
+ else
+ _raise(_Match, "list.sml:60:5")
+ end
+ end
+ end
+ app1 = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:64:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ a(tmp26)
+ local tmp28 = app1(a)
+ return tmp28(tmp27)
+ end
+ end
+ end
+ map = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:66:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ local tmp29 = map(a)
+ local tmp30 = tmp29(tmp27)
+ return {tmp28, tmp30}
+ end
+ end
+ end
+ mapPartial1 = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:68:5")
+ end
+ do
+ local tmp26, exp
+ do
+ local tmp27 = a1[1]
+ tmp26 = a1[2]
+ exp = a(tmp27)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local tmp28 = mapPartial1(a)
+ return tmp28(tmp26)
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "list.sml:69:30")
+ end
+ do
+ local y = exp.payload
+ local tmp27 = mapPartial1(a)
+ local tmp28 = tmp27(tmp26)
+ return {y, tmp28}
+ end
+ end
+ end
+ end
+ find = function(a)
+ return function(a1)
+ if a1 == nil then
+ return NONE
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:72:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ return {tag = "SOME", payload = tmp26}
+ end
+ local tmp29 = find(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ foldl = function(a)
+ return function(a1)
+ return function(a2)
+ if a2 == nil then
+ return a1
+ end
+ if a2 ~= nil then
+ else
+ _raise(_Match, "list.sml:91:5")
+ end
+ do
+ local tmp26 = a2[1]
+ local tmp27 = a2[2]
+ local tmp28 = foldl(a)
+ local tmp29 = a({tmp26, a1})
+ local tmp30 = tmp28(tmp29)
+ return tmp30(tmp27)
+ end
+ end
+ end
+ end
+ exists = function(a)
+ return function(a1)
+ if a1 == nil then
+ return false
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:96:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ return true
+ end
+ local tmp29 = exists(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ all = function(a)
+ return function(a1)
+ if a1 == nil then
+ return true
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:98:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ else
+ return false
+ end
+ do
+ local tmp29 = all(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ end
+ tabulate = function(n, f)
+ if n < 0 then
+ _raise(_Size, "list.sml:101:27")
+ end
+ if n < 10 then
else
- -- Not supported: dvipson, dviwind, tex4ht, texture, vtex, vtexhtm, xtexmrk, hypertex
- hyperref_driver = "unknown"
+ goto else1
end
- -- TODO: dvisvgm?
+ do
+ local function go(a)
+ if a >= n then
+ return nil
+ end
+ local tmp26 = f(a)
+ local tmp27 = go(_Int_add(a, 1))
+ return {tmp26, tmp27}
+ end
+ return go(0)
+ end
+ ::else1::
+ local tmp26, tmp27 = 0, nil
+ ::cont::
+ do
+ local i, acc = tmp26, tmp27
+ if i >= n then
+ else
+ goto else2
+ end
+ do
+ return revAppend(acc, nil)
+ end
+ ::else2::
+ local tmp28 = _Int_add(i, 1)
+ local tmp29 = f(i)
+ tmp26 = tmp28
+ tmp27 = {tmp29, acc}
+ goto cont
+ end
end
- local xypic_driver = nil -- "pdf" | "dvips" | "unknown"
- if loaded["xy.tex"] then
- if loaded["xypdf.tex"] then
- xypic_driver = "pdf" -- pdftex, luatex, xetex, dvipdfmx
- elseif loaded["xydvips.tex"] then
- xypic_driver = "dvips"
+ sub = function(a)
+ local arr = a[1]
+ return arr[a[2] + 1]
+ end
+ update = function(a)
+ local arr = a[1]
+ local i = a[2]
+ arr[i + 1] = a[3]
+ return nil
+ end
+ foldr = function(a, a1)
+ return function(a2)
+ local tmp26, tmp27, tmp28, tmp29 = a, a1, a2, _Int_sub(a2.n, 1)
+ ::cont::
+ do
+ local f, acc, vec, i = tmp26, tmp27, tmp28, tmp29
+ if i < 0 then
+ return acc
+ end
+ local tmp30 = f({vec[i + 1], acc})
+ tmp26 = f
+ tmp27 = tmp30
+ tmp28 = vec
+ tmp29 = _Int_sub(i, 1)
+ goto cont
+ end
+ end
+ end
+ length = function(a)
+ return a.n
+ end
+ array = function(a)
+ local n = a[1]
+ return _Array_array(n, a[2])
+ end
+ size = function(a)
+ return #a
+ end
+ str = function(a)
+ return string_char(a)
+ end
+ eq = function(a)
+ local x = a[1]
+ return x == a[2]
+ end
+ local tmp26 = _ENV.io
+ tmp1 = _ENV.os
+ tmp2 = _ENV.package
+ tmp3 = _ENV.require
+ tmp4 = _ENV.tonumber
+ tmp5 = _ENV.tostring
+ tmp6 = _ENV.type
+ tmp7 = tmp26.open
+ tmp8 = tmp26.popen
+ tmp9 = tmp26.stderr
+ tmp10 = tmp26.stdout
+ tmp11 = math.huge
+ tmp12 = math.modf
+ tmp13 = tmp1.difftime
+ tmp14 = tmp1.execute
+ tmp15 = tmp1.exit
+ tmp16 = tmp1.getenv
+ tmp17 = tmp1.setlocale
+ tmp18 = tmp1.time
+ tmp19 = string.byte
+ tmp20 = string.find
+ tmp21 = string.gsub
+ tmp22 = string.match
+ local tmp27 = string.sub
+ do
+ local tmp28, tmp29 = pcall(tmp3, "lfs")
+ if tmp28 then
+ tmp23 = {tag = "SOME", payload = tmp29}
else
- -- Not supported: dvidrv, dvitops, oztex, 17oztex, textures, 16textures, xdvi
- xypic_driver = "unknown"
+ tmp23 = NONE
end
- -- TODO: dvisvgm?
end
-
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: graphics=", tostring(graphics_driver))
- message.info("checkdriver: expl3=", tostring(expl3_driver))
- message.info("checkdriver: hyperref=", tostring(hyperref_driver))
- message.info("checkdriver: xypic=", tostring(xypic_driver))
+ TypeError_tag = {"TypeError"}
+ DEC = "DEC"
+ quot = function(x, y)
+ do
+ local tmp28 = x >= 0 and y >= 0
+ local tmp29
+ tmp29 = tmp28 or x <= 0 and y <= 0
+ if tmp29 then
+ return _Int_div(x, y)
+ end
+ if x == math_mininteger then
+ else
+ goto else1
+ end
+ do
+ if y == 1 then
+ return x
+ end
+ local tmp30 = _Int_negate(y)
+ return _Int_negate(_Int_div(x, tmp30))
+ end
+ end
+ ::else1::
+ local tmp28 = _Int_negate(x)
+ return _Int_negate(_Int_div(tmp28, y))
end
-
- local expected = assert(right_values[expected_driver], "invalid value for expected_driver")
- if graphics_driver ~= nil and expected.graphics ~= nil and graphics_driver ~= expected.graphics then
- message.diag("The driver option for graphics(x)/color is missing or wrong.")
- message.diag("Consider setting '", expected.graphics, "' option.")
+ rem = function(x, y)
+ if y == -1 then
+ return 0
+ end
+ local tmp28 = quot(x, y)
+ return _Int_sub(x, _Int_mul(tmp28, y))
end
- if expl3_driver ~= nil and expected.expl3 ~= nil and expl3_driver ~= expected.expl3.old and expl3_driver ~= expected.expl3.new then
- message.diag("The driver option for expl3 is missing or wrong.")
- message.diag("Consider setting 'driver=", expected.expl3.new, "' option when loading expl3.")
- if expected.expl3.old ~= expected.expl3.new then
- message.diag("You might need to instead set 'driver=", expected.expl3.old, "' if you are using an older version of expl3.")
+ compare = function(a)
+ local x = a[1]
+ local y = a[2]
+ if x == y then
+ return EQUAL
+ elseif x < y then
+ return LESS
+ else
+ return GREATER
end
end
- if hyperref_driver ~= nil and expected.hyperref ~= nil and hyperref_driver ~= expected.hyperref then
- message.diag("The driver option for hyperref is missing or wrong.")
- message.diag("Consider setting '", expected.hyperref, "' option.")
+ do
+ local tmp28, tmp29 = math_maxinteger, 1
+ ::cont5::
+ do
+ local x, n = tmp28, tmp29
+ if x == 0 then
+ tmp24 = n
+ else
+ local tmp30 = x >> 1
+ tmp28 = tmp30
+ tmp29 = _Int_add(n, 1)
+ goto cont5
+ end
+ end
end
- if xypic_driver ~= nil and expected.xypic ~= nil and xypic_driver ~= expected.xypic then
- message.diag("The driver option for Xy-pic is missing or wrong.")
- if expected_driver == "dvipdfmx" then
- message.diag("Consider setting 'dvipdfmx' option or running \\xyoption{pdf}.")
- elseif expected_driver == "pdftex" then
- message.diag("Consider setting 'pdftex' option or running \\xyoption{pdf}.")
- elseif expected.xypic == "pdf" then
- message.diag("Consider setting 'pdf' package option or running \\xyoption{pdf}.")
- elseif expected.xypic == "dvips" then
- message.diag("Consider setting 'dvips' option.")
+ tmp25 = - tmp11
+ fromManExp = function(exp, man)
+ local tmp28, tmp29 = exp, man
+ ::cont::
+ do
+ local exp1, man1 = tmp28, tmp29
+ if -1022 <= exp1 then
+ if exp1 < 1024 then
+ return man1 * 2.0 ^ exp1
+ end
+ local exp_PRIME
+ if exp1 > 2098 then
+ exp_PRIME = 2098
+ else
+ exp_PRIME = exp1
+ end
+ local tmp30 = man1 * 0x1p1023
+ tmp28 = _Int_sub(exp_PRIME, 1023)
+ tmp29 = tmp30
+ goto cont
+ end
+ local exp_PRIME
+ if exp1 < -2099 then
+ exp_PRIME = -2099
+ else
+ exp_PRIME = exp1
+ end
+ local tmp30 = exp_PRIME % -1022
+ if tmp30 ~= 0 then
+ local tmp31 = man1 * 2.0 ^ tmp30
+ tmp28 = _Int_sub(exp_PRIME, tmp30)
+ tmp29 = tmp31
+ goto cont
+ else
+ local tmp31 = man1 * 0x1p-1022
+ tmp28 = _Int_add(exp_PRIME, 1022)
+ tmp29 = tmp31
+ goto cont
+ end
end
end
+ sub1 = function(a)
+ local s = a[1]
+ local i = a[2]
+ if i < 0 or #s <= i then
+ _raise(_Subscript, "string-1.sml:33:44")
+ else
+ return tmp19(s, _Int_add(i, 1))
+ end
+ end
+ substring = function(s, i, j)
+ local tmp28
+ if i < 0 then
+ tmp28 = true
+ elseif j < 0 then
+ tmp28 = true
+ else
+ local tmp29 = #s
+ tmp28 = tmp29 < _Int_add(i, j)
+ end
+ if tmp28 then
+ _raise(_Subscript, "string-1.sml:40:59")
+ else
+ local tmp29 = _Int_add(i, 1)
+ return tmp27(s, tmp29, _Int_add(i, j))
+ end
+ end
+ extract = function(s, i, tmp28)
+ if tmp28.tag == "NONE" then
+ if i < 0 or #s < i then
+ _raise(_Subscript, "string-1.sml:46:69")
+ else
+ return tmp27(s, _Int_add(i, 1))
+ end
+ else
+ if tmp28.tag == "SOME" then
+ else
+ _raise(_Match, "string-1.sml:45:5")
+ end
+ do
+ return substring(s, i, tmp28.payload)
+ end
+ end
+ end
+ concat = function(a)
+ return table_concat(_VectorOrArray_fromList(a))
+ end
+ implode = function(a)
+ local v = _VectorOrArray_fromList(a)
+ local tmp28
+ do
+ local tmp29 = v.n
+ tmp28 = _VectorOrArray_tabulate({tmp29, function(i)
+ return string_char(v[i + 1])
+ end})
+ end
+ return table_concat(tmp28)
+ end
+ implodeRev = function(a)
+ local tmp28 = revAppend(a, nil)
+ local v = _VectorOrArray_fromList(tmp28)
+ local tmp29
+ do
+ local tmp30 = v.n
+ tmp29 = _VectorOrArray_tabulate({tmp30, function(i)
+ return string_char(v[i + 1])
+ end})
+ end
+ return table_concat(tmp29)
+ end
+ fields = function(a)
+ return function(a1)
+ local tmp28, tmp29, tmp30
+ do
+ local tmp31
+ do
+ local tmp32 = foldr(_COLON_COLON, nil)
+ local tmp33 = _VectorOrArray_tabulate({#a1, function(i)
+ return sub1({a1, i})
+ end})
+ tmp31 = tmp32(tmp33)
+ end
+ tmp30, tmp29, tmp28 = nil, nil, tmp31
+ end
+ ::cont::
+ do
+ local revFields, acc, tmp31 = tmp30, tmp29, tmp28
+ if tmp31 == nil then
+ else
+ goto else1
+ end
+ do
+ local tmp32 = implodeRev(acc)
+ return revAppend({tmp32, revFields}, nil)
+ end
+ ::else1::
+ if tmp31 ~= nil then
+ else
+ _raise(_Match, "string-1.sml:80:26")
+ end
+ do
+ local tmp32 = tmp31[1]
+ local tmp33 = tmp31[2]
+ local tmp34 = a(tmp32)
+ if tmp34 then
+ else
+ tmp30 = revFields
+ tmp29 = {tmp32, acc}
+ tmp28 = tmp33
+ goto cont
+ end
+ do
+ local tmp35 = implodeRev(acc)
+ tmp30 = {tmp35, revFields}
+ tmp29 = nil
+ tmp28 = tmp33
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ isPrefix = function(a)
+ return function(a1)
+ local tmp28 = #a
+ if tmp28 > #a1 then
+ return false
+ end
+ local tmp29 = substring(a1, 0, tmp28)
+ return tmp29 == a
+ end
+ end
+ isSuffix = function(a)
+ return function(a1)
+ local tmp28 = #a
+ local tmp29 = #a1
+ if tmp28 > tmp29 then
+ return false
+ end
+ local tmp30 = substring(a1, _Int_sub(tmp29, tmp28), tmp28)
+ return tmp30 == a
+ end
+ end
+ isAscii = function(a)
+ return a <= 127
+ end
+ isDigit = function(a)
+ return 48 <= a and a <= 57
+ end
+ isAlphaNum = function(a)
+ local tmp28
+ if 65 <= a and a <= 90 then
+ return true
+ else
+ tmp28 = 97 <= a and a <= 122
+ end
+ return tmp28 or 48 <= a and a <= 57
+ end
+ isHexDigit = function(a)
+ return 48 <= a and a <= 57 or (97 <= a and a <= 102 or 65 <= a and a <= 70)
+ end
+ isPrint = function(a)
+ return 33 <= a and a <= 126 or a == 32
+ end
+ isSpace = function(a)
+ return 9 <= a and a <= 13 or a == 32
+ end
+ toUpper = function(a)
+ if 97 <= a and a <= 122 then
+ local tmp28 = _Int_sub(a, 32)
+ if tmp28 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp28 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return tmp28
+ end
+ else
+ return a
+ end
+ end
+ toString = function(a)
+ if a == 92 then
+ return "\\\\"
+ end
+ if a == 34 then
+ return "\\\""
+ end
+ local tmp28 = isPrint(a)
+ if tmp28 then
+ return string_char(a)
+ end
+ if a == 7 then
+ return "\\a"
+ end
+ if a == 8 then
+ return "\\b"
+ end
+ if a == 9 then
+ return "\\t"
+ end
+ if a == 10 then
+ return "\\n"
+ end
+ if a == 11 then
+ return "\\v"
+ end
+ if a == 12 then
+ return "\\f"
+ end
+ if a == 13 then
+ return "\\r"
+ end
+ local tmp29 = a
+ if tmp29 < 32 then
+ local tmp30 = _Int_add(tmp29, 64)
+ if tmp30 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp30 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return "\\^" .. string_char(tmp30)
+ end
+ elseif tmp29 < 100 then
+ return "\\0" .. tmp21(tmp5(tmp29), "-", "~")
+ else
+ return "\\" .. tmp21(tmp5(tmp29), "-", "~")
+ end
+ end
+ scanString = function(a)
+ return function(a1)
+ local tmp28 = a(function(a2)
+ local s = a2[1]
+ local i = a2[2]
+ if i < #s then
+ else
+ return NONE
+ end
+ do
+ local tmp29 = sub1({s, i})
+ return {tag = "SOME", payload = {tmp29, {s, _Int_add(i, 1)}}}
+ end
+ end)
+ local exp = tmp28({a1, 0})
+ if exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload[1]}
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "string-cvt-1.sml:33:25")
+ end
+ end
+ end
+ do
+ if tmp24 ~= 64 then
+ else
+ goto cont
+ end
+ do
+ local tmp28 = _Fail("Word64 is not available")
+ _raise(tmp28, "word.sml:333:18")
+ end
+ end
end
-
---[[
-filelist[i] = {path = ""}
-]]
-
-return {
- checkdriver = checkdriver,
-}
+::cont::
+local MonoSequence, CharArray, extract1, full, string1, isEmpty, getc, concat1, splitl, splitr, tokens, tmp26, tmp27, tmp28, tmp29, tmp30, tmp31, tmp32, tmp33, tmp34, tmp35, tmp36, tmp37, tmp38, tmp39, tmp40, tmp41, tmp42
+do
+ MonoSequence = function(fromList, length1, maxLen, tmp43, create, tmp44, tmp45, tmp46, tmp47, fromList1, length2, maxLen1, tmp48, vector, tmp49, tmp50, tmp51)
+ local tabulate1, sub2, update1, appi, app2, mapi, map1, foldli, foldri, foldl1, foldr1, findi, find1, exists1, all1, collate, toList, append, prepend, array1, tabulate2, sub3, update2, copy, copyVec, appi1, app3, modifyi, modify, foldli1, foldri1, foldl2, foldr2, findi1, find2, exists2, all2, collate1, toList1, vector1, fromVector, length3, sub4, update3, full1, slice, subslice, base, copy1, copyVec1, isEmpty1, getItem, appi2, app4, modifyi1, modify1, foldli2, foldri2, foldl3, foldr3, findi2, find3, exists3, all3, collate2, vector2, UnsafeMonoVector, UnsafeMonoArray, MonoVectorSlice
+ do
+ tabulate1 = function(a)
+ local n = a[1]
+ local tmp52 = tabulate(n, a[2])
+ return tmp49({n, tmp52})
+ end
+ sub2 = function(a)
+ local v = a[1]
+ local i = a[2]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length2(v)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:221:22")
+ end
+ do
+ return tmp51({v, i})
+ end
+ end
+ update1 = function(a)
+ local v = a[1]
+ local i = a[2]
+ local x = a[3]
+ local tmp52 = tmp48({base = v, length = i, start = 0})
+ local tmp53 = fromList1({x, nil})
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = length2(v)
+ local tmp56 = tmp48({base = v, length = _Int_sub(_Int_sub(tmp55, i), 1), start = tmp54})
+ return tmp47({tmp52, {tmp53, {tmp56, nil}}})
+ end
+ appi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp51({a1, a2})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app2 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp51({a1, a2})
+ a(tmp53)
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ mapi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = tabulate(n, function(i)
+ local tmp53 = tmp51({a1, i})
+ return a({i, tmp53})
+ end)
+ return tmp49({n, tmp52})
+ end
+ end
+ map1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = tabulate(n, function(i)
+ local tmp53 = tmp51({a1, i})
+ return a(tmp53)
+ end)
+ return tmp49({n, tmp52})
+ end
+ end
+ foldli = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length2(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length2(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl1 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length2(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldr1 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length2(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp51({a1, a2})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp51({a1, a2})
+ local tmp53 = a(x)
+ if tmp53 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return false
+ end
+ local tmp53 = tmp51({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ return true
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return true
+ end
+ local tmp53 = tmp51({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate = function(a)
+ return function(a1)
+ local xs = a1[1]
+ local ys = a1[2]
+ local xl = length2(xs)
+ local yl = length2(ys)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ local tmp53 = xl <= a2
+ local tmp54 = yl <= a2
+ local tmp55
+ tmp55 = tmp53 and tmp54
+ if tmp55 then
+ return EQUAL
+ end
+ local tmp56
+ tmp56 = tmp53 and not tmp54
+ if tmp56 then
+ return LESS
+ end
+ if not tmp53 and tmp54 then
+ return GREATER
+ end
+ if not tmp53 and not tmp54 then
+ else
+ _raise(_Match, "mono-sequence.sml:310:49")
+ end
+ do
+ local tmp57 = tmp51({xs, a2})
+ local tmp58 = tmp51({ys, a2})
+ local exp = a({tmp57, tmp58})
+ if exp == "EQUAL" then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ toList = function(a)
+ local tmp52 = foldr1(_COLON_COLON)
+ local tmp53 = tmp52(nil)
+ return tmp53(a)
+ end
+ append = function(a)
+ local v = a[1]
+ local tmp52 = fromList1({a[2], nil})
+ return tmp47({v, {tmp52, nil}})
+ end
+ prepend = function(a)
+ local x = a[1]
+ local v = a[2]
+ local tmp52 = fromList1({x, nil})
+ return tmp47({tmp52, {v, nil}})
+ end
+ local length4 = function(tmp52)
+ return tmp52.length
+ end
+ local sub5 = function(a)
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:331:44")
+ end
+ do
+ return tmp51({base1, _Int_add(start, i)})
+ end
+ end
+ local full2 = function(a)
+ local tmp52 = length2(a)
+ return {base = a, length = tmp52, start = 0}
+ end
+ local slice1 = function(a)
+ if a[3].tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = length2(v)
+ if 0 <= i and i <= n then
+ return {base = v, length = _Int_sub(n, i), start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:337:33")
+ end
+ end
+ ::else1::
+ if a[3].tag == "SOME" then
+ else
+ _raise(_Match, "mono-sequence.sml:333:5")
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = a[3].payload
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ if 0 <= n then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(i, n)
+ local tmp54 = length2(v)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ end
+ ::cont::
+ if tmp52 then
+ return {base = v, length = n, start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:342:32")
+ end
+ end
+ end
+ local subslice1 = function(a)
+ if a[3].tag == "NONE" then
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i <= length5 then
+ local tmp52 = _Int_add(start, i)
+ return {base = base1, length = _Int_sub(length5, i), start = tmp52}
+ else
+ _raise(_Subscript, "mono-sequence.sml:346:55")
+ end
+ end
+ if a[3].tag == "SOME" then
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local n = a[3].payload
+ if 0 <= i and (0 <= n and _Int_add(i, n) <= length5) then
+ return {base = base1, length = n, start = _Int_add(start, i)}
+ else
+ _raise(_Subscript, "mono-sequence.sml:350:57")
+ end
+ else
+ _raise(_Match, "mono-sequence.sml:343:5")
+ end
+ end
+ local base1 = function(a)
+ local b = a.base
+ local start = a.start
+ return {b, start, a.length}
+ end
+ local concat2 = function(a)
+ local tmp52 = map(tmp48)
+ local tmp53 = tmp52(a)
+ return tmp47(tmp53)
+ end
+ local isEmpty2 = function(a)
+ return a.length == 0
+ end
+ local getItem1 = function(a)
+ local base2 = a.base
+ local start = a.start
+ local length5 = a.length
+ if length5 > 0 then
+ else
+ return NONE
+ end
+ do
+ local tmp52 = tmp51({base2, start})
+ local tmp53 = _Int_add(start, 1)
+ return {tag = "SOME", payload = {tmp52, {base = base2, length = _Int_sub(length5, 1), start = tmp53}}}
+ end
+ end
+ local appi3 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = tmp51({base2, _Int_add(start, a2)})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ local app5 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local tmp54 = tmp51({base2, a2})
+ a(tmp54)
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ local mapi1 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52, tmp53 = 0, nil
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ else
+ goto else1
+ end
+ do
+ return tmp50({length5, acc})
+ end
+ ::else1::
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55})
+ tmp52 = tmp54
+ tmp53 = {tmp56, acc}
+ goto cont
+ end
+ end
+ end
+ local map2 = function(a)
+ return function(a1)
+ local base2, length5, tmp52, tmp53, tmp54
+ do
+ base2 = a1.base
+ local start = a1.start
+ length5 = a1.length
+ tmp52 = _Int_add(start, length5)
+ tmp54, tmp53 = start, nil
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ else
+ goto else1
+ end
+ do
+ return tmp50({length5, acc})
+ end
+ ::else1::
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp51({base2, i})
+ local tmp57 = a(tmp56)
+ tmp54 = tmp55
+ tmp53 = {tmp57, acc}
+ goto cont
+ end
+ end
+ end
+ local foldli3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local length5 = a2.length
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local foldri3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(a2.length, 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local foldl4 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2, tmp52, tmp53, tmp54
+ do
+ base2 = a2.base
+ local start = a2.start
+ tmp52 = _Int_add(start, a2.length)
+ tmp54, tmp53 = start, a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ return acc
+ end
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp51({base2, i})
+ local tmp57 = a({tmp56, acc})
+ tmp54 = tmp55
+ tmp53 = tmp57
+ goto cont
+ end
+ end
+ end
+ end
+ local foldr4 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(_Int_add(start, a2.length), 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < start then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({base2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local findi3 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return NONE
+ end
+ local x = tmp51({base2, _Int_add(start, a2)})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local find4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return NONE
+ end
+ local x = tmp51({base2, a2})
+ local tmp54 = a(x)
+ if tmp54 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local exists4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return false
+ end
+ local tmp54 = tmp51({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ return true
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local all4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return true
+ end
+ local tmp54 = tmp51({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ local collate3 = function(a)
+ return function(a1)
+ local base2, base_PRIME, tmp52, tmp53, tmp54, tmp55
+ do
+ base2 = a1[1].base
+ local start = a1[1].start
+ local length5 = a1[1].length
+ base_PRIME = a1[2].base
+ local start_PRIME = a1[2].start
+ local length_PRIME = a1[2].length
+ tmp52 = _Int_add(start, length5)
+ tmp53 = _Int_add(start_PRIME, length_PRIME)
+ tmp55, tmp54 = start, start_PRIME
+ end
+ ::cont::
+ do
+ local i, j = tmp55, tmp54
+ local tmp56 = tmp52 <= i
+ local tmp57 = tmp53 <= j
+ local tmp58
+ tmp58 = tmp56 and tmp57
+ if tmp58 then
+ return EQUAL
+ end
+ local tmp59
+ tmp59 = tmp56 and not tmp57
+ if tmp59 then
+ return LESS
+ end
+ if not tmp56 and tmp57 then
+ return GREATER
+ end
+ if not tmp56 and not tmp57 then
+ else
+ _raise(_Match, "mono-sequence.sml:454:29")
+ end
+ do
+ local tmp60 = tmp51({base2, i})
+ local tmp61 = tmp51({base_PRIME, j})
+ local exp = a({tmp60, tmp61})
+ if exp == "EQUAL" then
+ tmp55 = _Int_add(i, 1)
+ tmp54 = _Int_add(j, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ array1 = function(a)
+ local n = a[1]
+ local init = a[2]
+ if n < 0 or maxLen < n then
+ _raise(_Size, "mono-sequence.sml:470:27")
+ else
+ return tmp43({n, init})
+ end
+ end
+ tabulate2 = function(a)
+ local n = a[1]
+ local f = a[2]
+ if maxLen < n then
+ _raise(_Size, "mono-sequence.sml:475:27")
+ end
+ local tmp52 = tabulate(n, f)
+ return tmp44({n, tmp52})
+ end
+ sub3 = function(a)
+ local a1 = a[1]
+ local i = a[2]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length1(a1)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:482:22")
+ end
+ do
+ return tmp45({a1, i})
+ end
+ end
+ update2 = function(a)
+ local a1 = a[1]
+ local i = a[2]
+ local x = a[3]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length1(a1)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:486:28")
+ end
+ do
+ return tmp46({a1, i, x})
+ end
+ end
+ copy = function(a)
+ local src = a.src
+ local dst = a.dst
+ local di = a.di
+ local srcLen = length1(src)
+ local tmp52
+ do
+ if 0 <= di then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(di, srcLen)
+ local tmp54 = length1(dst)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:499:36")
+ end
+ do
+ local tmp53 = 0
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 >= srcLen then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({src, a1})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont1
+ end
+ end
+ end
+ copyVec = function(a)
+ local src = a.src
+ local dst = a.dst
+ local di = a.di
+ local srcLen = length2(src)
+ local tmp52
+ do
+ if 0 <= di then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(di, srcLen)
+ local tmp54 = length1(dst)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:513:39")
+ end
+ do
+ local tmp53 = 0
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 >= srcLen then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp51({src, a1})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont1
+ end
+ end
+ end
+ appi1 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp45({a1, a2})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app3 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp45({a1, a2})
+ a(tmp53)
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modifyi = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local x = tmp45({a1, a2})
+ local y = a({a2, x})
+ tmp46({a1, a2, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modify = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local x = tmp45({a1, a2})
+ local y = a(x)
+ tmp46({a1, a2, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ foldli1 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length1(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri1 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length1(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl2 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length1(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldr2 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length1(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi1 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp45({a1, a2})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp45({a1, a2})
+ local tmp53 = a(x)
+ if tmp53 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return false
+ end
+ local tmp53 = tmp45({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ return true
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return true
+ end
+ local tmp53 = tmp45({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate1 = function(a)
+ return function(a1)
+ local xs = a1[1]
+ local ys = a1[2]
+ local xl = length1(xs)
+ local yl = length1(ys)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ local tmp53 = xl <= a2
+ local tmp54 = yl <= a2
+ local tmp55
+ tmp55 = tmp53 and tmp54
+ if tmp55 then
+ return EQUAL
+ end
+ local tmp56
+ tmp56 = tmp53 and not tmp54
+ if tmp56 then
+ return LESS
+ end
+ if not tmp53 and tmp54 then
+ return GREATER
+ end
+ if not tmp53 and not tmp54 then
+ else
+ _raise(_Match, "mono-sequence.sml:621:49")
+ end
+ do
+ local tmp57 = tmp45({xs, a2})
+ local tmp58 = tmp45({ys, a2})
+ local exp = a({tmp57, tmp58})
+ if exp == "EQUAL" then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ toList1 = function(a)
+ local tmp52 = foldr2(_COLON_COLON)
+ local tmp53 = tmp52(nil)
+ return tmp53(a)
+ end
+ vector1 = function(a)
+ local tmp52 = length1(a)
+ local tmp53
+ do
+ local tmp54 = foldr2(_COLON_COLON)
+ local tmp55 = tmp54(nil)
+ tmp53 = tmp55(a)
+ end
+ return tmp49({tmp52, tmp53})
+ end
+ fromVector = function(a)
+ local tmp52 = length2(a)
+ local tmp53
+ do
+ local tmp54 = foldr1(_COLON_COLON)
+ local tmp55 = tmp54(nil)
+ tmp53 = tmp55(a)
+ end
+ return tmp44({tmp52, tmp53})
+ end
+ length3 = function(tmp52)
+ return tmp52.length
+ end
+ sub4 = function(a)
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:645:44")
+ end
+ do
+ return tmp45({base2, _Int_add(start, i)})
+ end
+ end
+ update3 = function(a)
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local x = a[3]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:649:50")
+ end
+ do
+ return tmp46({base2, _Int_add(start, i), x})
+ end
+ end
+ full1 = function(a)
+ local tmp52 = length1(a)
+ return {base = a, length = tmp52, start = 0}
+ end
+ slice = function(a)
+ if a[3].tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = length1(v)
+ if 0 <= i and i <= n then
+ return {base = v, length = _Int_sub(n, i), start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:655:33")
+ end
+ end
+ ::else1::
+ if a[3].tag == "SOME" then
+ else
+ _raise(_Match, "mono-sequence.sml:651:5")
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = a[3].payload
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ if 0 <= n then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(i, n)
+ local tmp54 = length1(v)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ end
+ ::cont::
+ if tmp52 then
+ return {base = v, length = n, start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:660:32")
+ end
+ end
+ end
+ subslice = function(a)
+ if a[3].tag == "NONE" then
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i <= length5 then
+ local tmp52 = _Int_add(start, i)
+ return {base = base2, length = _Int_sub(length5, i), start = tmp52}
+ else
+ _raise(_Subscript, "mono-sequence.sml:664:55")
+ end
+ end
+ if a[3].tag == "SOME" then
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local n = a[3].payload
+ if 0 <= i and (0 <= n and _Int_add(i, n) <= length5) then
+ return {base = base2, length = n, start = _Int_add(start, i)}
+ else
+ _raise(_Subscript, "mono-sequence.sml:668:57")
+ end
+ else
+ _raise(_Match, "mono-sequence.sml:661:5")
+ end
+ end
+ base = function(a)
+ local b = a.base
+ local start = a.start
+ return {b, start, a.length}
+ end
+ copy1 = function(a)
+ local base2 = a.src.base
+ local start = a.src.start
+ local length5 = a.src.length
+ local dst = a.dst
+ local di = a.di
+ local tmp52
+ do
+ if di < 0 then
+ tmp52 = true
+ goto cont
+ end
+ local tmp53 = length1(dst)
+ tmp52 = tmp53 < _Int_add(di, length5)
+ end
+ ::cont::
+ if tmp52 then
+ _raise(_Subscript, "mono-sequence.sml:684:14")
+ end
+ if start >= di then
+ else
+ goto else1
+ end
+ do
+ local tmp53 = 0
+ ::cont2::
+ do
+ local a1 = tmp53
+ if a1 >= length5 then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont2
+ end
+ end
+ ::else1::
+ local tmp53 = _Int_sub(length5, 1)
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 < 0 then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_sub(a1, 1)
+ goto cont1
+ end
+ end
+ copyVec1 = function(a)
+ local base2, start, length5, dst, di, tmp52
+ do
+ base2 = a.src.base
+ start = a.src.start
+ length5 = a.src.length
+ dst = a.dst
+ di = a.di
+ if di < 0 then
+ _raise(_Subscript, "mono-sequence.sml:699:14")
+ end
+ local tmp53 = length1(dst)
+ if tmp53 < _Int_add(di, length5) then
+ _raise(_Subscript, "mono-sequence.sml:699:14")
+ end
+ tmp52 = 0
+ end
+ ::cont::
+ do
+ local a1 = tmp52
+ if a1 >= length5 then
+ return nil
+ end
+ local tmp53 = _Int_add(di, a1)
+ local tmp54 = tmp51({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp53, tmp54})
+ tmp52 = _Int_add(a1, 1)
+ goto cont
+ end
+ end
+ isEmpty1 = function(a)
+ return a.length == 0
+ end
+ getItem = function(a)
+ local base2 = a.base
+ local start = a.start
+ local length5 = a.length
+ if length5 > 0 then
+ else
+ return NONE
+ end
+ do
+ local tmp52 = tmp45({base2, start})
+ local tmp53 = _Int_add(start, 1)
+ return {tag = "SOME", payload = {tmp52, {base = base2, length = _Int_sub(length5, 1), start = tmp53}}}
+ end
+ end
+ appi2 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = tmp45({base2, _Int_add(start, a2)})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local tmp54 = tmp45({base2, a2})
+ a(tmp54)
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modifyi1 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = _Int_add(start, a2)
+ local x = tmp45({base2, tmp53})
+ local y = a({a2, x})
+ tmp46({base2, tmp53, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modify1 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local x = tmp45({base2, a2})
+ local y = a(x)
+ tmp46({base2, a2, y})
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ foldli2 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local length5 = a2.length
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri2 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(a2.length, 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2, tmp52, tmp53, tmp54
+ do
+ base2 = a2.base
+ local start = a2.start
+ tmp52 = _Int_add(start, a2.length)
+ tmp54, tmp53 = start, a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ return acc
+ end
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp45({base2, i})
+ local tmp57 = a({tmp56, acc})
+ tmp54 = tmp55
+ tmp53 = tmp57
+ goto cont
+ end
+ end
+ end
+ end
+ foldr3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(_Int_add(start, a2.length), 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < start then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({base2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi2 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return NONE
+ end
+ local x = tmp45({base2, _Int_add(start, a2)})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return NONE
+ end
+ local x = tmp45({base2, a2})
+ local tmp54 = a(x)
+ if tmp54 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return false
+ end
+ local tmp54 = tmp45({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ return true
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return true
+ end
+ local tmp54 = tmp45({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate2 = function(a)
+ return function(a1)
+ local base2, base_PRIME, tmp52, tmp53, tmp54, tmp55
+ do
+ base2 = a1[1].base
+ local start = a1[1].start
+ local length5 = a1[1].length
+ base_PRIME = a1[2].base
+ local start_PRIME = a1[2].start
+ local length_PRIME = a1[2].length
+ tmp52 = _Int_add(start, length5)
+ tmp53 = _Int_add(start_PRIME, length_PRIME)
+ tmp55, tmp54 = start, start_PRIME
+ end
+ ::cont::
+ do
+ local i, j = tmp55, tmp54
+ local tmp56 = tmp52 <= i
+ local tmp57 = tmp53 <= j
+ local tmp58
+ tmp58 = tmp56 and tmp57
+ if tmp58 then
+ return EQUAL
+ end
+ local tmp59
+ tmp59 = tmp56 and not tmp57
+ if tmp59 then
+ return LESS
+ end
+ if not tmp56 and tmp57 then
+ return GREATER
+ end
+ if not tmp56 and not tmp57 then
+ else
+ _raise(_Match, "mono-sequence.sml:812:29")
+ end
+ do
+ local tmp60 = tmp45({base2, i})
+ local tmp61 = tmp45({base_PRIME, j})
+ local exp = a({tmp60, tmp61})
+ if exp == "EQUAL" then
+ tmp55 = _Int_add(i, 1)
+ tmp54 = _Int_add(j, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ vector2 = function(a)
+ local tmp52 = a.length
+ local tmp53 = foldr3(_COLON_COLON)
+ local tmp54 = tmp53(nil)
+ local tmp55 = tmp54(a)
+ return tmp49({tmp52, tmp55})
+ end
+ UnsafeMonoVector = {sub = tmp51}
+ UnsafeMonoArray = {create = create, sub = tmp45, update = tmp46}
+ MonoVectorSlice = {all = all4, app = app5, appi = appi3, base = base1, collate = collate3, concat = concat2, exists = exists4, find = find4, findi = findi3, foldl = foldl4, foldli = foldli3, foldr = foldr4, foldri = foldri3, full = full2, getItem = getItem1, isEmpty = isEmpty2, length = length4, map = map2, mapi = mapi1, slice = slice1, sub = sub5, subslice = subslice1, vector = vector}
+ end
+ local MonoVector = {all = all1, app = app2, append = append, appi = appi, collate = collate, concat = tmp47, exists = exists1, find = find1, findi = findi, foldl = foldl1, foldli = foldli, foldr = foldr1, foldri = foldri, fromList = fromList1, length = length2, map = map1, mapi = mapi, maxLen = maxLen1, prepend = prepend, sub = sub2, tabulate = tabulate1, toList = toList, update = update1}
+ local MonoArraySlice = {all = all3, app = app4, appi = appi2, base = base, collate = collate2, copy = copy1, copyVec = copyVec1, exists = exists3, find = find3, findi = findi2, foldl = foldl3, foldli = foldli2, foldr = foldr3, foldri = foldri2, full = full1, getItem = getItem, isEmpty = isEmpty1, length = length3, modify = modify1, modifyi = modifyi1, slice = slice, sub = sub4, subslice = subslice, update = update3, vector = vector2}
+ return {_MonoArray = {all = all2, app = app3, appi = appi1, array = array1, collate = collate1, copy = copy, copyVec = copyVec, exists = exists2, find = find2, findi = findi1, foldl = foldl2, foldli = foldli1, foldr = foldr2, foldri = foldri1, fromList = fromList, fromVector = fromVector, length = length1, maxLen = maxLen, modify = modify, modifyi = modifyi, sub = sub3, tabulate = tabulate2, toList = toList1, toVector = vector1, update = update2, vector = vector1}, _MonoArraySlice = MonoArraySlice, _MonoVector = MonoVector, _MonoVectorSlice = MonoVectorSlice, _UnsafeMonoArray = UnsafeMonoArray, _UnsafeMonoVector = UnsafeMonoVector}
+ end
+ local unsafeFromListN = function(a)
+ return implode(a[2])
+ end
+ local unsafeFromListRevN = function(a)
+ return implodeRev(a[2])
+ end
+ local sliceToVector = function(a)
+ local base = a.base
+ local start = a.start
+ return substring(base, start, a.length)
+ end
+ local unsafeCreateWithZero = function(a)
+ return _Array_array(a, 0)
+ end
+ local Base = MonoSequence(_VectorOrArray_fromList, length, math_maxinteger, array, unsafeCreateWithZero, function(a)
+ return _VectorOrArray_fromList(a[2])
+ end, sub, update, concat, implode, size, math_maxinteger, sliceToVector, sliceToVector, unsafeFromListN, unsafeFromListRevN, sub1)
+ local CharVector = Base._MonoVector
+ local CharVectorSlice = Base._MonoVectorSlice
+ CharArray = Base._MonoArray
+ local CharArraySlice = Base._MonoArraySlice
+ local UnsafeCharVector = Base._UnsafeMonoVector
+ local sub2 = CharVectorSlice.sub
+ extract1 = CharVectorSlice.slice
+ full = CharVectorSlice.full
+ string1 = CharVectorSlice.vector
+ isEmpty = CharVectorSlice.isEmpty
+ getc = CharVectorSlice.getItem
+ concat1 = CharVectorSlice.concat
+ splitl = function(a)
+ return function(a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = 0
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 >= length1 then
+ return {a1, {base = base, length = 0, start = _Int_add(start, a2)}}
+ end
+ local tmp44 = sub2({a1, a2})
+ local tmp45 = a(tmp44)
+ if tmp45 then
+ tmp43 = _Int_add(a2, 1)
+ goto cont
+ else
+ local tmp46 = {base = base, length = a2, start = start}
+ return {tmp46, {base = base, length = _Int_sub(length1, a2), start = _Int_add(start, a2)}}
+ end
+ end
+ end
+ end
+ splitr = function(a, a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = _Int_sub(length1, 1)
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 < 0 then
+ return {{base = base, length = 0, start = start}, a1}
+ end
+ local tmp44 = sub2({a1, a2})
+ local tmp45 = a(tmp44)
+ if tmp45 then
+ tmp43 = _Int_sub(a2, 1)
+ goto cont
+ else
+ local tmp46 = _Int_add(a2, 1)
+ local tmp47 = {base = base, length = tmp46, start = start}
+ local tmp48 = _Int_add(start, tmp46)
+ return {tmp47, {base = base, length = _Int_sub(length1, tmp46), start = tmp48}}
+ end
+ end
+ end
+ tokens = function(a)
+ return function(a1)
+ local base, tmp43, tmp44, tmp45, tmp46
+ do
+ base = a1.base
+ local start = a1.start
+ tmp43 = _Int_add(start, a1.length)
+ tmp46, tmp45, tmp44 = nil, start, start
+ end
+ ::cont::
+ do
+ local revTokens, s, i = tmp46, tmp45, tmp44
+ if i >= tmp43 then
+ else
+ goto else1
+ end
+ do
+ if s == i then
+ else
+ return revAppend({{base = base, length = _Int_sub(i, s), start = s}, revTokens}, nil)
+ end
+ do
+ return revAppend(revTokens, nil)
+ end
+ end
+ ::else1::
+ local tmp47 = sub1({base, i})
+ local tmp48 = a(tmp47)
+ if tmp48 then
+ local tmp49 = _Int_add(i, 1)
+ if s == i then
+ tmp46 = revTokens
+ tmp45 = tmp49
+ tmp44 = tmp49
+ goto cont
+ else
+ tmp46 = {{base = base, length = _Int_sub(i, s), start = s}, revTokens}
+ tmp45 = tmp49
+ tmp44 = tmp49
+ goto cont
+ end
+ else
+ tmp46 = revTokens
+ tmp45 = s
+ tmp44 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ tmp26 = UnsafeCharVector.sub
+ tmp27 = CharVectorSlice.concat
+ tmp28 = CharVectorSlice.full
+ tmp29 = CharVectorSlice.length
+ tmp30 = CharVectorSlice.slice
+ tmp31 = CharVectorSlice.vector
+ tmp32 = CharVector.all
+ tmp33 = CharVector.appi
+ tmp34 = CharVector.exists
+ tmp35 = CharVector.fromList
+ tmp36 = CharVector.length
+ tmp37 = CharArraySlice.base
+ tmp38 = CharArraySlice.copyVec
+ tmp39 = CharArraySlice.full
+ tmp40 = CharArraySlice.length
+ tmp41 = CharArraySlice.slice
+ tmp42 = CharArraySlice.vector
end
---[[
- Copyright 2016-2023 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.6"
-
--- 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 safename = require "texrunner.safename"
-local extract_bibtex_from_aux_file = require "texrunner.auxfile".extract_bibtex_from_aux_file
-local handle_cluttex_options = require "texrunner.handleoption".handle_cluttex_options
-local checkdriver = require "texrunner.checkdriver".checkdriver
-
-os.setlocale("", "ctype") -- Workaround for recent Universal CRT
-
--- 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")
+local _L = {}
+do
+ _L[1] = CharArray.array
+ _L[2] = CharArray.copyVec
+ _L[3] = function(getc1, strm)
+ local tmp43, tmp44 = getc1, strm
+ ::cont::
+ do
+ local getc2, strm1 = tmp43, tmp44
+ local exp = getc2(strm1)
+ if exp.tag == "NONE" then
+ return strm1
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "scan-num-utils.sml:2:42")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp45 = isSpace(c)
+ if tmp45 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ goto cont
+ else
+ return strm1
+ end
+ end
+ end
end
- return pathutil.join(tmpdir, 'latex-build-' .. hash)
+ _L[4] = function(a)
+ return a == 48 or a == 49
+ end
+ _L[5] = function(a)
+ return 48 <= a and a <= 55
+ end
+ _L[6] = function(a)
+ if 48 <= a and a <= 57 then
+ return _Int_sub(a, 48)
+ elseif 97 <= a and a <= 102 then
+ return _Int_add(_Int_sub(a, 97), 10)
+ else
+ return _Int_add(_Int_sub(a, 65), 10)
+ end
+ end
+ _L[7] = function(getc1, strm)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" and exp.payload[1] == 43 then
+ return {false, exp.payload[2]}
+ elseif exp.tag == "SOME" and exp.payload[1] == 126 then
+ return {true, exp.payload[2]}
+ elseif exp.tag == "SOME" and exp.payload[1] == 45 then
+ return {true, exp.payload[2]}
+ else
+ return {false, strm}
+ end
+ end
+ local scanSubstring = function(getc1, strm, s)
+ local tmp43, tmp44, tmp45 = getc1, strm, s
+ ::cont::
+ do
+ local getc2, strm1, s1 = tmp43, tmp44, tmp45
+ local exp = getc(s1)
+ if exp.tag == "NONE" then
+ return {tag = "SOME", payload = strm1}
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "scan-num.sml:341:37")
+ end
+ do
+ local c = exp.payload[1]
+ local s_PRIME = exp.payload[2]
+ local exp1 = getc2(strm1)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:343:57")
+ end
+ do
+ local strm_PRIME, tmp46
+ do
+ local c_PRIME = exp1.payload[1]
+ strm_PRIME = exp1.payload[2]
+ do
+ if c == c_PRIME then
+ tmp46 = true
+ goto cont1
+ end
+ local tmp47
+ tmp47 = 65 <= c and c <= 90 or 97 <= c and c <= 122
+ if tmp47 then
+ else
+ tmp46 = false
+ goto cont1
+ end
+ do
+ local tmp48
+ tmp48 = 65 <= c_PRIME and c_PRIME <= 90 or 97 <= c_PRIME and c_PRIME <= 122
+ if tmp48 then
+ else
+ tmp46 = false
+ goto cont1
+ end
+ do
+ local tmp49 = toUpper(c)
+ local tmp50 = toUpper(c_PRIME)
+ tmp46 = tmp49 == tmp50
+ end
+ end
+ end
+ end
+ ::cont1::
+ if tmp46 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ tmp45 = s_PRIME
+ goto cont
+ else
+ return NONE
+ end
+ end
+ end
+ end
+ end
+ local scanZeroOrMoreDigits = function(getc1, strm, revAcc)
+ local tmp43, tmp44, tmp45 = getc1, strm, revAcc
+ ::cont::
+ do
+ local getc2, strm1, revAcc1 = tmp43, tmp44, tmp45
+ local exp = getc2(strm1)
+ if exp.tag == "SOME" then
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ tmp45 = {c, revAcc1}
+ goto cont
+ else
+ return {revAcc1, strm1}
+ end
+ elseif exp.tag == "NONE" then
+ return {revAcc1, strm1}
+ else
+ _raise(_Match, "scan-num.sml:349:49")
+ end
+ end
+ end
+ local scanOneOrMoreDigits = function(getc1, strm, revAcc)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:355:48")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local tmp43 = scanZeroOrMoreDigits(getc1, strm_PRIME, {c, revAcc})
+ return {tag = "SOME", payload = tmp43}
+ end
+ end
+ end
+ local scanOptExpPart = function(getc1, strm, revAcc)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return {revAcc, strm}
+ else
+ _raise(_Match, "scan-num.sml:367:43")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 101 or c == 69 then
+ else
+ return {revAcc, strm}
+ end
+ do
+ local exp1 = _L[7](getc1, strm_PRIME)
+ local isNegative = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ local tmp43
+ if isNegative then
+ tmp43 = {45, {101, revAcc}}
+ else
+ tmp43 = {101, revAcc}
+ end
+ local exp2 = scanOneOrMoreDigits(getc1, strm_PRIME_PRIME, tmp43)
+ if exp2.tag == "SOME" then
+ local revAcc1 = exp2.payload[1]
+ return {revAcc1, exp2.payload[2]}
+ elseif exp2.tag == "NONE" then
+ return {revAcc, strm}
+ else
+ _raise(_Match, "scan-num.sml:370:73")
+ end
+ end
+ end
+ end
+ _L[8] = function(a)
+ return function(a1)
+ local isNegative, signPart, exp
+ do
+ local strm = _L[3](a, a1)
+ local exp1 = _L[7](a, strm)
+ isNegative = exp1[1]
+ local strm1 = exp1[2]
+ if isNegative then
+ signPart = {45, nil}
+ else
+ signPart = nil
+ end
+ exp = a(strm1)
+ if exp.tag == "SOME" and exp.payload[1] == 46 then
+ else
+ goto else1
+ end
+ do
+ local exp2 = scanOneOrMoreDigits(a, exp.payload[2], {46, {48, signPart}})
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:385:52")
+ end
+ do
+ local exp3 = scanOptExpPart(a, exp2.payload[2], exp2.payload[1])
+ local revAcc = exp3[1]
+ local strm_PRIME_PRIME_PRIME = exp3[2]
+ local tmp43 = implodeRev(revAcc)
+ return {tag = "SOME", payload = {tmp4(tmp43) * 1.0, strm_PRIME_PRIME_PRIME}}
+ end
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:384:25")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 105 or c == 73 then
+ else
+ goto else2
+ end
+ do
+ local tmp43 = full("nf")
+ local exp1 = scanSubstring(a, strm_PRIME, tmp43)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:393:52")
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload
+ local inf
+ if isNegative then
+ inf = tmp25
+ else
+ inf = tmp11
+ end
+ local tmp44 = full("inity")
+ local exp2 = scanSubstring(a, strm_PRIME_PRIME, tmp44)
+ if exp2.tag == "SOME" then
+ return {tag = "SOME", payload = {inf, exp2.payload}}
+ elseif exp2.tag == "NONE" then
+ return {tag = "SOME", payload = {inf, strm_PRIME_PRIME}}
+ else
+ _raise(_Match, "scan-num.sml:395:74")
+ end
+ end
+ end
+ ::else2::
+ if c == 110 or c == 78 then
+ else
+ goto else3
+ end
+ do
+ local tmp43 = full("an")
+ local exp1 = scanSubstring(a, strm_PRIME, tmp43)
+ if exp1.tag == "SOME" then
+ local strm_PRIME_PRIME = exp1.payload
+ return {tag = "SOME", payload = {0.0 / 0.0, strm_PRIME_PRIME}}
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:402:52")
+ end
+ end
+ ::else3::
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local strm_PRIME_PRIME_PRIME, revAcc
+ do
+ local exp1 = scanZeroOrMoreDigits(a, strm_PRIME, {c, signPart})
+ local revAcc1 = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ do
+ local exp2 = a(strm_PRIME_PRIME)
+ if exp2.tag == "SOME" and exp2.payload[1] == 46 then
+ else
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME
+ revAcc = revAcc1
+ goto cont
+ end
+ do
+ local exp3 = scanOneOrMoreDigits(a, exp2.payload[2], {46, revAcc1})
+ if exp3.tag == "SOME" then
+ strm_PRIME_PRIME_PRIME = exp3.payload[2]
+ revAcc = exp3.payload[1]
+ elseif exp3.tag == "NONE" then
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME
+ revAcc = revAcc1
+ else
+ _raise(_Match, "scan-num.sml:362:71")
+ end
+ end
+ end
+ end
+ ::cont::
+ local exp1 = scanOptExpPart(a, strm_PRIME_PRIME_PRIME, revAcc)
+ local revAcc1 = exp1[1]
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1[2]
+ local tmp43 = implodeRev(revAcc1)
+ return {tag = "SOME", payload = {tmp4(tmp43) * 1.0, strm_PRIME_PRIME_PRIME_PRIME}}
+ end
+ end
+ end
+ end
+ _L[9] = {"Io"}
+ _L[10] = {tag = {"BlockingNotSupported"}}
+ _L[11] = {tag = {"NonblockingNotSupported"}}
+ _L[12] = {tag = {"RandomAccessNotSupported"}}
+ _L[13] = {tag = {"ClosedStream"}}
+ _L[14] = "NO_BUF"
+ _L[15] = "LINE_BUF"
+ _L[16] = "BLOCK_BUF"
+ _L[17] = function(tmp43, tmp44)
+ return tmp43 == "NO_BUF" and tmp44 == "NO_BUF" or (tmp43 == "LINE_BUF" and tmp44 == "LINE_BUF" or tmp43 == "BLOCK_BUF" and tmp44 == "BLOCK_BUF")
+ end
+ _L[18] = function(base, length1, start, i)
+ if 0 <= i and i < length1 then
+ return base[_Int_add(start, i) + 1]
+ else
+ _raise(_Subscript, "vector-slice.sml:39:44")
+ end
+ end
+ _L[19] = function(a, i, tmp43)
+ if tmp43.tag == "NONE" then
+ if 0 <= i and i <= a.n then
+ return {base = a, length = _Int_sub(a.n, i), start = i}
+ else
+ _raise(_Subscript, "vector-slice.sml:44:30")
+ end
+ end
+ if tmp43.tag == "SOME" then
+ local n = tmp43.payload
+ local tmp44
+ if 0 <= i then
+ if 0 <= n then
+ local tmp45 = _Int_add(i, n)
+ tmp44 = tmp45 <= a.n
+ else
+ tmp44 = false
+ end
+ else
+ tmp44 = false
+ end
+ if tmp44 then
+ return {base = a, length = n, start = i}
+ else
+ _raise(_Subscript, "vector-slice.sml:48:32")
+ end
+ else
+ _raise(_Match, "vector-slice.sml:41:5")
+ end
+ end
+ _L[20] = function(a)
+ return function(a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = 0
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 >= length1 then
+ return false
+ end
+ local tmp44 = a(base[_Int_add(start, a2) + 1])
+ if tmp44 then
+ return true
+ else
+ tmp43 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ _L[21] = {tag = "ZERO"}
+ local tmp43 = 0x1 << tmp24 // 2
+ local tmp44
+ if tmp43 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp44 = tmp43
+ end
+ _L[22] = function(a)
+ if a == 0 then
+ return _L[21]
+ end
+ if a > 0 then
+ else
+ goto else1
+ end
+ do
+ local function go(a1)
+ if a1 == 0 then
+ return nil
+ end
+ local tmp45 = _Int_div(a1, tmp44)
+ local tmp46 = _Int_mod(a1, tmp44)
+ local tmp47 = _Int_div(tmp45, tmp44)
+ local tmp48 = tmp46 + _Int_mod(tmp45, tmp44) * tmp43
+ local tmp49 = go(tmp47)
+ return {tmp48, tmp49}
+ end
+ local tmp45 = go(a)
+ return {tag = "POSITIVE", payload = _VectorOrArray_fromList(tmp45)}
+ end
+ ::else1::
+ local function go(a1)
+ if a1 == 0 then
+ return nil
+ end
+ local q1 = quot(a1, tmp44)
+ local r1 = rem(a1, tmp44)
+ local q2 = quot(q1, tmp44)
+ local r2 = rem(q1, tmp44)
+ local tmp45 = _Int_negate(r1)
+ local tmp46 = _Int_negate(r2)
+ local tmp47 = tmp45 + tmp46 * tmp43
+ local tmp48 = go(q2)
+ return {tmp47, tmp48}
+ end
+ local tmp45 = go(a)
+ return {tag = "NEGATIVE", payload = _VectorOrArray_fromList(tmp45)}
+ end
+ local add2 = function(x, y)
+ local tmp45 = x + y
+ if math_ult(tmp45, x) then
+ return {hi = 0x1, lo = tmp45}
+ else
+ return {hi = 0x0, lo = tmp45}
+ end
+ end
+ local add3 = function(x, y, z)
+ local exp = add2(x, y)
+ local lo1 = exp.lo
+ local hi1 = exp.hi
+ local exp1 = add2(lo1, z)
+ local lo2 = exp1.lo
+ return {hi = hi1 + exp1.hi, lo = lo2}
+ end
+ local tmp45 = tmp24 >> 1
+ local tmp46 = (0x1 << tmp45) - 0x1
+ _L[23] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local exp = compare({tmp47, words_PRIME.n})
+ if exp == "EQUAL" then
+ local tmp48 = _Int_sub(tmp47, 1)
+ ::cont::
+ do
+ local a = tmp48
+ if a < 0 then
+ return EQUAL
+ end
+ local tmp49 = words[a + 1]
+ local tmp50 = words_PRIME[a + 1]
+ local exp1
+ if tmp49 == tmp50 then
+ exp1 = EQUAL
+ elseif math_ult(tmp49, tmp50) then
+ exp1 = LESS
+ else
+ exp1 = GREATER
+ end
+ if exp1 == "EQUAL" then
+ tmp48 = _Int_sub(a, 1)
+ goto cont
+ else
+ return exp1
+ end
+ end
+ else
+ return exp
+ end
+ end
+ _L[24] = function(a)
+ local length1
+ do
+ local tmp47 = a.n
+ ::cont::
+ do
+ local a1 = tmp47
+ local tmp48 = _Int_sub(a1, 1)
+ if tmp48 < 0 then
+ length1 = a1
+ elseif a[tmp48 + 1] ~= 0x0 then
+ length1 = a1
+ else
+ tmp47 = tmp48
+ goto cont
+ end
+ end
+ end
+ if 0 <= length1 and length1 <= a.n then
+ else
+ _raise(_Subscript, "array-slice.sml:52:32")
+ end
+ do
+ return _VectorOrArray_tabulate({length1, function(i)
+ return a[i + 1]
+ end})
+ end
+ end
+ _L[25] = function(words, words_PRIME)
+ local tmp47, tmp48, tmp49, tmp50, tmp51, tmp52
+ do
+ tmp47 = words.n
+ tmp48 = words_PRIME.n
+ local tmp53
+ if tmp47 < tmp48 then
+ tmp53 = tmp48
+ else
+ tmp53 = tmp47
+ end
+ tmp49 = _Int_add(tmp53, 1)
+ tmp50 = _Array_array(tmp49, 0x0)
+ tmp52, tmp51 = 0x0, 0
+ end
+ ::cont::
+ do
+ local carry, i = tmp52, tmp51
+ if i == tmp49 then
+ else
+ goto else1
+ end
+ do
+ return _L[24](tmp50)
+ end
+ ::else1::
+ local w
+ if i < tmp47 then
+ w = words[i + 1]
+ else
+ w = 0x0
+ end
+ local w_PRIME
+ if i < tmp48 then
+ w_PRIME = words_PRIME[i + 1]
+ else
+ w_PRIME = 0x0
+ end
+ local exp = add3(w, w_PRIME, carry)
+ local x = exp.lo
+ local carry1 = exp.hi
+ tmp50[i + 1] = x
+ tmp52 = carry1
+ tmp51 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ _L[26] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local tmp48 = words_PRIME.n
+ local tmp49 = _Array_array(tmp47, 0x0)
+ local tmp50, tmp51 = 0x0, 0
+ ::cont::
+ do
+ local carry, i = tmp50, tmp51
+ if i == tmp47 then
+ else
+ goto else1
+ end
+ do
+ if carry == 0x0 then
+ else
+ goto else2
+ end
+ do
+ return _L[24](tmp49)
+ end
+ ::else2::
+ local tmp52 = _Fail("subAbs: carry not zero")
+ _raise(tmp52, "int-inf.sml:276:77")
+ end
+ ::else1::
+ local tmp52 = words[i + 1]
+ local w_PRIME
+ if i < tmp48 then
+ w_PRIME = words_PRIME[i + 1]
+ else
+ w_PRIME = 0x0
+ end
+ local carry1, lo
+ if math_ult(tmp52, w_PRIME) then
+ lo = tmp52 - w_PRIME - carry
+ carry1 = 0x1
+ elseif math_ult(w_PRIME, tmp52) then
+ lo = tmp52 - w_PRIME - carry
+ carry1 = 0x0
+ elseif carry == 0x0 then
+ lo = 0x0
+ carry1 = 0x0
+ else
+ lo = - carry
+ carry1 = 0x1
+ end
+ tmp49[i + 1] = lo
+ tmp50 = carry1
+ tmp51 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ _L[27] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local tmp48 = words_PRIME.n
+ local tmp49 = _Array_array(_Int_add(tmp47, tmp48), 0x0)
+ local tmp50 = 0
+ ::cont::
+ do
+ local a = tmp50
+ if a >= tmp48 then
+ else
+ goto else1
+ end
+ do
+ return _L[24](tmp49)
+ end
+ ::else1::
+ local tmp51 = words_PRIME[a + 1]
+ local tmp52, tmp53 = 0, 0x0
+ ::cont1::
+ do
+ local k, i, lo, hi
+ do
+ i, k = tmp52, tmp53
+ if i >= tmp47 then
+ tmp49[_Int_add(i, a) + 1] = k
+ tmp50 = _Int_add(a, 1)
+ goto cont
+ end
+ local tmp54 = words[i + 1]
+ do
+ if tmp54 == 0x0 then
+ lo = 0x0
+ hi = 0x0
+ goto cont2
+ end
+ if tmp51 == 0x0 then
+ lo = 0x0
+ hi = 0x0
+ goto cont2
+ end
+ local tmp55 = tmp54 >> tmp45
+ local tmp56 = tmp54 & tmp46
+ local tmp57 = tmp51 >> tmp45
+ local tmp58 = tmp51 & tmp46
+ local tmp59 = tmp56 * tmp58
+ local tmp60 = tmp55 * tmp58
+ local tmp61 = tmp60 << tmp45
+ local tmp62 = tmp60 >> tmp45
+ local tmp63 = tmp56 * tmp57
+ local tmp64 = tmp63 << tmp45
+ local tmp65 = tmp63 >> tmp45
+ local tmp66 = tmp55 * tmp57
+ local exp = add3(tmp59, tmp61, tmp64)
+ local lo1 = exp.lo
+ local hi4 = exp.hi
+ lo = lo1
+ hi = tmp62 + tmp65 + tmp66 + hi4
+ end
+ end
+ ::cont2::
+ local exp = add3(lo, tmp49[_Int_add(i, a) + 1], k)
+ local lo1 = exp.lo
+ local hi_PRIME = exp.hi
+ tmp49[_Int_add(i, a) + 1] = lo1
+ local tmp54 = _Int_add(i, 1)
+ tmp52 = tmp54
+ tmp53 = hi + hi_PRIME
+ goto cont1
+ end
+ end
+ end
end
-
-local inputfile, engine, options = handle_cluttex_options(arg)
-
-local jobname_for_output
-if options.jobname == nil then
- local basename = pathutil.basename(pathutil.trimext(inputfile))
- options.jobname = safename.escapejobname(basename)
- jobname_for_output = basename
-else
- jobname_for_output = options.jobname
+local add, mul, log2Word, LShiftAbs, scan, tmp43
+do
+ add = function(tmp44, y)
+ if tmp44.tag == "ZERO" then
+ return y
+ end
+ if y.tag == "ZERO" then
+ return tmp44
+ end
+ if tmp44.tag == "POSITIVE" and y.tag == "POSITIVE" then
+ else
+ goto else1
+ end
+ do
+ local words = tmp44.payload
+ local tmp45 = _L[25](words, y.payload)
+ return {tag = "POSITIVE", payload = tmp45}
+ end
+ ::else1::
+ if tmp44.tag == "POSITIVE" and y.tag == "NEGATIVE" then
+ else
+ goto else2
+ end
+ do
+ local words = tmp44.payload
+ local words_PRIME = y.payload
+ local exp = _L[23](words, words_PRIME)
+ if exp == "LESS" then
+ else
+ goto else4
+ end
+ do
+ local tmp45 = _L[26](words_PRIME, words)
+ return {tag = "NEGATIVE", payload = tmp45}
+ end
+ ::else4::
+ if exp == "GREATER" then
+ elseif exp == "EQUAL" then
+ return _L[21]
+ else
+ _raise(_Match, "int-inf.sml:347:46")
+ end
+ do
+ local tmp45 = _L[26](words, words_PRIME)
+ return {tag = "POSITIVE", payload = tmp45}
+ end
+ end
+ ::else2::
+ if tmp44.tag == "NEGATIVE" and y.tag == "POSITIVE" then
+ else
+ goto else3
+ end
+ do
+ local words = tmp44.payload
+ local words_PRIME = y.payload
+ local exp = _L[23](words, words_PRIME)
+ if exp == "LESS" then
+ else
+ goto else4
+ end
+ do
+ local tmp45 = _L[26](words_PRIME, words)
+ return {tag = "POSITIVE", payload = tmp45}
+ end
+ ::else4::
+ if exp == "GREATER" then
+ elseif exp == "EQUAL" then
+ return _L[21]
+ else
+ _raise(_Match, "int-inf.sml:352:46")
+ end
+ do
+ local tmp45 = _L[26](words, words_PRIME)
+ return {tag = "NEGATIVE", payload = tmp45}
+ end
+ end
+ ::else3::
+ if tmp44.tag == "NEGATIVE" and y.tag == "NEGATIVE" then
+ else
+ _raise(_Match, "int-inf.sml:344:5")
+ end
+ do
+ local words = tmp44.payload
+ local tmp45 = _L[25](words, y.payload)
+ return {tag = "NEGATIVE", payload = tmp45}
+ end
+ end
+ mul = function(tmp44, tmp45)
+ if tmp44.tag == "ZERO" then
+ return tmp44
+ end
+ if tmp45.tag == "ZERO" then
+ return tmp45
+ end
+ if tmp44.tag == "POSITIVE" and tmp45.tag == "POSITIVE" then
+ else
+ goto else1
+ end
+ do
+ local words = tmp44.payload
+ local tmp46 = _L[27](words, tmp45.payload)
+ return {tag = "POSITIVE", payload = tmp46}
+ end
+ ::else1::
+ if tmp44.tag == "POSITIVE" and tmp45.tag == "NEGATIVE" then
+ else
+ goto else2
+ end
+ do
+ local words = tmp44.payload
+ local tmp46 = _L[27](words, tmp45.payload)
+ return {tag = "NEGATIVE", payload = tmp46}
+ end
+ ::else2::
+ if tmp44.tag == "NEGATIVE" and tmp45.tag == "POSITIVE" then
+ else
+ goto else3
+ end
+ do
+ local words = tmp44.payload
+ local tmp46 = _L[27](words, tmp45.payload)
+ return {tag = "NEGATIVE", payload = tmp46}
+ end
+ ::else3::
+ if tmp44.tag == "NEGATIVE" and tmp45.tag == "NEGATIVE" then
+ else
+ _raise(_Match, "int-inf.sml:375:5")
+ end
+ do
+ local words = tmp44.payload
+ local tmp46 = _L[27](words, tmp45.payload)
+ return {tag = "POSITIVE", payload = tmp46}
+ end
+ end
+ log2Word = function(a)
+ if a == 0x0 then
+ _raise(Domain, "int-inf.sml:422:20")
+ end
+ if a == 0x1 then
+ return 0
+ end
+ local tmp44 = log2Word(a >> 1)
+ return _Int_add(1, tmp44)
+ end
+ LShiftAbs = function(words, amount)
+ local tmp44, tmp45, tmp46, tmp47
+ do
+ tmp44 = _Word_div(amount, tmp24)
+ tmp45 = _Word_mod(amount, tmp24)
+ tmp46 = words.n
+ local tmp48
+ if tmp44 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp48 = tmp44
+ end
+ tmp47 = _Int_add(tmp46, tmp48)
+ if tmp45 == 0x0 then
+ else
+ goto else1
+ end
+ do
+ return _VectorOrArray_tabulate({tmp47, function(i)
+ local tmp49
+ if tmp44 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp49 = tmp44
+ end
+ if i < tmp49 then
+ return 0x0
+ elseif tmp44 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ return words[_Int_sub(i, tmp44) + 1]
+ end
+ end})
+ end
+ end
+ ::else1::
+ local tmp48 = _Array_array(_Int_add(tmp47, 1), 0x0)
+ local tmp49, tmp50 = 0x0, 0
+ ::cont::
+ do
+ local lo, i = tmp49, tmp50
+ if i == _Int_add(tmp46, 1) then
+ else
+ goto else2
+ end
+ do
+ if lo == 0x0 then
+ else
+ goto else3
+ end
+ do
+ return _L[24](tmp48)
+ end
+ ::else3::
+ local tmp51 = _Fail("LShiftAbs: carry not zero")
+ _raise(tmp51, "int-inf.sml:567:84")
+ end
+ ::else2::
+ local w
+ if i < tmp46 then
+ w = words[i + 1]
+ else
+ w = 0x0
+ end
+ local tmp51 = w << tmp45 | lo
+ local tmp52 = w >> tmp24 - tmp45
+ if tmp44 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp48[_Int_add(i, tmp44) + 1] = tmp51
+ tmp49 = tmp52
+ tmp50 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ end
+ local scanDigits = function(radix, isDigit1, getc1)
+ return function(strm)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "int-inf.sml:949:25")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp44 = isDigit1(c)
+ if tmp44 then
+ else
+ return NONE
+ end
+ do
+ local tmp45, tmp46
+ do
+ local tmp47 = _L[6](c)
+ local tmp48 = _L[22](tmp47)
+ tmp46, tmp45 = tmp48, strm_PRIME
+ end
+ ::cont::
+ do
+ local x, strm1 = tmp46, tmp45
+ local exp1 = getc1(strm1)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return {tag = "SOME", payload = {x, strm1}}
+ else
+ _raise(_Match, "int-inf.sml:943:35")
+ end
+ do
+ local c1 = exp1.payload[1]
+ local strm_PRIME1 = exp1.payload[2]
+ local tmp47 = isDigit1(c1)
+ if tmp47 then
+ else
+ return {tag = "SOME", payload = {x, strm1}}
+ end
+ do
+ local tmp48 = mul(radix, x)
+ local tmp49 = _L[6](c1)
+ local tmp50 = _L[22](tmp49)
+ local tmp51 = add(tmp48, tmp50)
+ tmp46 = tmp51
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ local scanNegativeDigits = function(radix, isDigit1, getc1)
+ return function(strm)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "int-inf.sml:963:25")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp44 = isDigit1(c)
+ if tmp44 then
+ else
+ return NONE
+ end
+ do
+ local tmp45, tmp46
+ do
+ local tmp47 = _L[6](c)
+ local tmp48 = _Int_negate(tmp47)
+ local tmp49 = _L[22](tmp48)
+ tmp46, tmp45 = tmp49, strm_PRIME
+ end
+ ::cont::
+ do
+ local x, strm1 = tmp46, tmp45
+ local exp1 = getc1(strm1)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return {tag = "SOME", payload = {x, strm1}}
+ else
+ _raise(_Match, "int-inf.sml:957:35")
+ end
+ do
+ local c1 = exp1.payload[1]
+ local strm_PRIME1 = exp1.payload[2]
+ local tmp47 = isDigit1(c1)
+ if tmp47 then
+ else
+ return {tag = "SOME", payload = {x, strm1}}
+ end
+ do
+ local tmp48, tmp49
+ do
+ tmp48 = mul(radix, x)
+ local tmp50 = _L[6](c1)
+ tmp49 = _L[22](tmp50)
+ if tmp49.tag == "ZERO" then
+ tmp46 = tmp48
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ if tmp48.tag == "ZERO" and tmp49.tag == "POSITIVE" then
+ tmp46 = {tag = "NEGATIVE", payload = tmp49.payload}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ if tmp48.tag == "ZERO" and tmp49.tag == "NEGATIVE" then
+ tmp46 = {tag = "POSITIVE", payload = tmp49.payload}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ if tmp48.tag == "POSITIVE" and tmp49.tag == "POSITIVE" then
+ else
+ goto else1
+ end
+ do
+ local words = tmp48.payload
+ local words_PRIME = tmp49.payload
+ local exp2 = _L[23](words, words_PRIME)
+ if exp2 == "LESS" then
+ else
+ goto else4
+ end
+ do
+ local tmp51 = _L[26](words_PRIME, words)
+ tmp46 = {tag = "NEGATIVE", payload = tmp51}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ ::else4::
+ if exp2 == "GREATER" then
+ elseif exp2 == "EQUAL" then
+ tmp46 = _L[21]
+ tmp45 = strm_PRIME1
+ goto cont
+ else
+ _raise(_Match, "int-inf.sml:362:46")
+ end
+ do
+ local tmp51 = _L[26](words, words_PRIME)
+ tmp46 = {tag = "POSITIVE", payload = tmp51}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ end
+ end
+ ::else1::
+ if tmp48.tag == "POSITIVE" and tmp49.tag == "NEGATIVE" then
+ else
+ goto else2
+ end
+ do
+ local tmp50 = _L[25](tmp48.payload, tmp49.payload)
+ tmp46 = {tag = "POSITIVE", payload = tmp50}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ ::else2::
+ if tmp48.tag == "NEGATIVE" and tmp49.tag == "POSITIVE" then
+ else
+ goto else3
+ end
+ do
+ local tmp50 = _L[25](tmp48.payload, tmp49.payload)
+ tmp46 = {tag = "NEGATIVE", payload = tmp50}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ ::else3::
+ if tmp48.tag == "NEGATIVE" and tmp49.tag == "NEGATIVE" then
+ else
+ _raise(_Match, "int-inf.sml:359:5")
+ end
+ do
+ local words = tmp48.payload
+ local words_PRIME = tmp49.payload
+ local exp2 = _L[23](words, words_PRIME)
+ if exp2 == "LESS" then
+ else
+ goto else4
+ end
+ do
+ local tmp50 = _L[26](words_PRIME, words)
+ tmp46 = {tag = "POSITIVE", payload = tmp50}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ ::else4::
+ if exp2 == "GREATER" then
+ elseif exp2 == "EQUAL" then
+ tmp46 = _L[21]
+ tmp45 = strm_PRIME1
+ goto cont
+ else
+ _raise(_Match, "int-inf.sml:369:46")
+ end
+ do
+ local tmp50 = _L[26](words, words_PRIME)
+ tmp46 = {tag = "NEGATIVE", payload = tmp50}
+ tmp45 = strm_PRIME1
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ scan = function(a, a1)
+ return function(a2)
+ if a == "BIN" then
+ else
+ goto else1
+ end
+ do
+ local strm
+ do
+ local strm1 = _L[3](a1, a2)
+ local exp = _L[7](a1, strm1)
+ local isNegative = exp[1]
+ strm = exp[2]
+ if isNegative then
+ else
+ goto else4
+ end
+ do
+ local tmp44 = _L[22](2)
+ local tmp45 = scanNegativeDigits(tmp44, _L[4], a1)
+ return tmp45(strm)
+ end
+ end
+ ::else4::
+ local tmp44 = _L[22](2)
+ local tmp45 = scanDigits(tmp44, _L[4], a1)
+ return tmp45(strm)
+ end
+ ::else1::
+ if a == "OCT" then
+ else
+ goto else2
+ end
+ do
+ local strm
+ do
+ local strm1 = _L[3](a1, a2)
+ local exp = _L[7](a1, strm1)
+ local isNegative = exp[1]
+ strm = exp[2]
+ if isNegative then
+ else
+ goto else4
+ end
+ do
+ local tmp44 = _L[22](8)
+ local tmp45 = scanNegativeDigits(tmp44, _L[5], a1)
+ return tmp45(strm)
+ end
+ end
+ ::else4::
+ local tmp44 = _L[22](8)
+ local tmp45 = scanDigits(tmp44, _L[5], a1)
+ return tmp45(strm)
+ end
+ ::else2::
+ if a == "DEC" then
+ else
+ goto else3
+ end
+ do
+ local strm
+ do
+ local strm1 = _L[3](a1, a2)
+ local exp = _L[7](a1, strm1)
+ local isNegative = exp[1]
+ strm = exp[2]
+ if isNegative then
+ else
+ goto else4
+ end
+ do
+ local tmp44 = _L[22](10)
+ local tmp45 = scanNegativeDigits(tmp44, isDigit, a1)
+ return tmp45(strm)
+ end
+ end
+ ::else4::
+ local tmp44 = _L[22](10)
+ local tmp45 = scanDigits(tmp44, isDigit, a1)
+ return tmp45(strm)
+ end
+ ::else3::
+ if a == "HEX" then
+ else
+ _raise(_Match, "int-inf.sml:971:5")
+ end
+ do
+ local isNegative, strm
+ do
+ local strm1 = _L[3](a1, a2)
+ local exp = _L[7](a1, strm1)
+ isNegative = exp[1]
+ local strm2 = exp[2]
+ local exp1 = a1(strm2)
+ local tmp44 = exp1.tag == "SOME" and exp1.payload[1] == 48
+ do
+ if tmp44 then
+ else
+ strm = strm2
+ goto cont
+ end
+ do
+ local exp2 = a1(exp1.payload[2])
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ strm = strm2
+ goto cont
+ else
+ _raise(_Match, "int-inf.sml:996:56")
+ end
+ do
+ local c = exp2.payload[1]
+ local strm_PRIME_PRIME = exp2.payload[2]
+ if c == 120 or c == 88 then
+ else
+ strm = strm2
+ goto cont
+ end
+ do
+ local exp3 = a1(strm_PRIME_PRIME)
+ if exp3.tag == "SOME" then
+ elseif exp3.tag == "NONE" then
+ strm = strm2
+ goto cont
+ else
+ _raise(_Match, "int-inf.sml:999:64")
+ end
+ do
+ local tmp45 = isHexDigit(exp3.payload[1])
+ if tmp45 then
+ strm = strm_PRIME_PRIME
+ else
+ strm = strm2
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ ::cont::
+ if isNegative then
+ else
+ goto else4
+ end
+ do
+ local tmp44 = _L[22](16)
+ local tmp45 = scanNegativeDigits(tmp44, isHexDigit, a1)
+ return tmp45(strm)
+ end
+ ::else4::
+ local tmp44 = _L[22](16)
+ local tmp45 = scanDigits(tmp44, isHexDigit, a1)
+ return tmp45(strm)
+ end
+ end
+ end
+ do
+ local tmp44, tmp45, tmp46
+ do
+ local tmp47 = 2.0
+ tmp46, tmp45, tmp44 = tmp47, tmp24, 1.0
+ end
+ ::cont5::
+ do
+ local _L1 = {}
+ local a, tmp47, acc = tmp46, tmp45, tmp44
+ if tmp47 == 0 then
+ tmp43 = acc
+ goto cont1
+ end
+ if tmp47 == 1 then
+ tmp43 = acc * a
+ goto cont1
+ end
+ local tmp48 = tmp47 // 2
+ if tmp47 % 2 == 0 then
+ tmp46 = a * a
+ tmp45 = tmp48
+ tmp44 = acc
+ goto cont5
+ else
+ local tmp49 = a * a
+ tmp46 = tmp49
+ tmp45 = tmp48
+ tmp44 = acc * a
+ goto cont5
+ end
+ end
+ end
end
-local jobname = options.jobname
-assert(jobname ~= "", "jobname cannot be empty")
-
-local output_extension
-if options.output_format == "dvi" then
- output_extension = engine.dvi_extension or "dvi"
-else
- output_extension = "pdf"
+::cont1::
+local toRealAbs, Word8Vector, Word8Array, Word8ArraySlice, UnsafeWord8Array, tmp44, tmp45, tmp46, tmp47, tmp48
+do
+ local function wordToReal(a)
+ if a == 0x0 then
+ return 0.0
+ end
+ local tmp49 = wordToReal(a >> 0x1F)
+ local tmp50 = tmp49 * 0x1p31
+ local tmp51 = a & 0x7FFFFFFF
+ if tmp51 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ return tmp50 + tmp51 * 1.0
+ end
+ end
+ local simpleNatToReal = function(a)
+ local tmp49 = function(a1)
+ local w = a1[1]
+ local tmp50 = a1[2] * tmp43
+ local tmp51 = wordToReal(w)
+ return tmp50 + tmp51
+ end
+ local tmp50 = foldr(tmp49, 0.0)
+ return tmp50(a)
+ end
+ toRealAbs = function(a)
+ local k
+ do
+ local tmp49 = _Int_sub(a.n, 1)
+ local tmp50 = _Int_mul(tmp24, tmp49)
+ local tmp51 = log2Word(a[tmp49 + 1])
+ k = _Int_add(tmp50, tmp51)
+ end
+ if k < 53 then
+ else
+ goto else1
+ end
+ do
+ return simpleNatToReal(a)
+ end
+ ::else1::
+ if k >= 1024 then
+ return tmp11
+ end
+ local tmp49 = _Int_add(_Int_sub(k, 53), 1)
+ local q
+ do
+ local tmp50, tmp51, tmp52
+ do
+ tmp50 = _Word_div(tmp49, tmp24)
+ tmp51 = _Word_mod(tmp49, tmp24)
+ local tmp53 = a.n
+ local tmp54
+ if tmp50 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp54 = tmp50
+ end
+ tmp52 = _Int_sub(tmp53, tmp54)
+ if tmp52 <= 0 then
+ q = {n = 0}
+ goto cont
+ end
+ if tmp51 == 0x0 then
+ else
+ goto else4
+ end
+ do
+ local tmp55 = _VectorOrArray_tabulate({tmp52, function(i)
+ if tmp50 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ return a[_Int_add(i, tmp50) + 1]
+ end
+ end})
+ local tmp56 = _L[20](function(x)
+ return x ~= 0x0
+ end)
+ if tmp50 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ end
+ local tmp57 = _L[19](a, 0, {tag = "SOME", payload = tmp50})
+ tmp56(tmp57)
+ q = tmp55
+ goto cont
+ end
+ end
+ ::else4::
+ local tmp53 = _Array_array(tmp52, 0x0)
+ local hasRemainder
+ do
+ local tmp54, tmp55 = 0x0, _Int_sub(tmp52, 1)
+ ::cont2::
+ do
+ local hi, i = tmp54, tmp55
+ if i < 0 then
+ hasRemainder = hi ~= 0x0
+ goto cont1
+ end
+ local tmp56
+ if tmp50 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp56 = tmp50
+ end
+ local tmp57 = a[_Int_add(i, tmp56) + 1]
+ local tmp58 = tmp57 >> tmp51 | hi
+ local tmp59 = tmp57 << tmp24 - tmp51
+ tmp53[i + 1] = tmp58
+ tmp54 = tmp59
+ tmp55 = _Int_sub(i, 1)
+ goto cont2
+ end
+ end
+ ::cont1::
+ do
+ if hasRemainder then
+ else
+ goto else5
+ end
+ q = _L[24](tmp53)
+ goto cont
+ ::else5::
+ local tmp54 = _L[20](function(x)
+ return x ~= 0x0
+ end)
+ if tmp50 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ end
+ local tmp55 = _L[19](a, 0, {tag = "SOME", payload = tmp50})
+ tmp54(tmp55)
+ end
+ q = _L[24](tmp53)
+ end
+ ::cont::
+ local exp
+ do
+ local tmp50 = LShiftAbs({n = 1, 0x1}, tmp49)
+ local tmp51 = _L[26](tmp50, {n = 1, 0x1})
+ local r
+ do
+ local l, tmp52, tmp53
+ do
+ local tmp54 = a.n
+ local tmp55 = tmp51.n
+ if tmp54 < tmp55 then
+ l = tmp54
+ else
+ l = tmp55
+ end
+ tmp52 = _Array_array(l, 0x0)
+ tmp53 = 0
+ end
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 == l then
+ else
+ local tmp54 = a[a1 + 1]
+ tmp52[a1 + 1] = tmp54 & tmp51[a1 + 1]
+ tmp53 = _Int_add(a1, 1)
+ goto cont1
+ end
+ r = _L[24](tmp52)
+ end
+ end
+ local tmp52 = {n = 1, 0x1}
+ local tmp53 = LShiftAbs(tmp52, _Int_sub(tmp49, 1))
+ exp = _L[23](r, tmp53)
+ if exp == "LESS" then
+ else
+ goto else2
+ end
+ do
+ local tmp54 = simpleNatToReal(q)
+ return fromManExp(tmp49, tmp54)
+ end
+ end
+ ::else2::
+ if exp == "EQUAL" then
+ else
+ goto else3
+ end
+ do
+ if q[0 + 1] & 0x1 == 0x0 then
+ else
+ goto else4
+ end
+ do
+ local tmp50 = simpleNatToReal(q)
+ return fromManExp(tmp49, tmp50)
+ end
+ ::else4::
+ local tmp50 = _L[25](q, {n = 1, 0x1})
+ local tmp51 = simpleNatToReal(tmp50)
+ return fromManExp(tmp49, tmp51)
+ end
+ ::else3::
+ if exp == "GREATER" then
+ else
+ _raise(_Match, "int-inf.sml:1073:33")
+ end
+ do
+ local tmp50 = _L[25](q, {n = 1, 0x1})
+ local tmp51 = simpleNatToReal(tmp50)
+ return fromManExp(tmp49, tmp51)
+ end
+ end
+ local unsafeSub = function(a)
+ local v = a[1]
+ local tmp49 = sub1({v, a[2]})
+ return tmp49 & 0xFF
+ end
+ local fromList = function(a)
+ local tmp49 = map(function(a1)
+ if a1 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ elseif a1 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif a1 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return a1
+ end
+ end)
+ local tmp50 = tmp49(a)
+ return implode(tmp50)
+ end
+ local unsafeFromListN = function(a)
+ return fromList(a[2])
+ end
+ _L[28] = function(a)
+ local xs = a[2]
+ local tmp49 = map(function(a1)
+ if a1 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ elseif a1 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif a1 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return a1
+ end
+ end)
+ local tmp50 = tmp49(xs)
+ return implodeRev(tmp50)
+ end
+ _L[29] = function(a)
+ local base = a.base
+ local start = a.start
+ return substring(base, start, a.length)
+ end
+ _L[30] = function(a)
+ return _Array_array(a, 0x0)
+ end
+ _L[31] = MonoSequence(_VectorOrArray_fromList, length, math_maxinteger, array, _L[30], function(a)
+ return _VectorOrArray_fromList(a[2])
+ end, sub, update, concat, fromList, size, math_maxinteger, _L[29], _L[29], unsafeFromListN, _L[28], unsafeSub)
+ Word8Vector = _L[31]._MonoVector
+ _L[32] = _L[31]._MonoVectorSlice
+ Word8Array = _L[31]._MonoArray
+ Word8ArraySlice = _L[31]._MonoArraySlice
+ UnsafeWord8Array = _L[31]._UnsafeMonoArray
+ tmp44 = _L[32].concat
+ tmp45 = _L[32].full
+ tmp46 = _L[32].length
+ tmp47 = _L[32].slice
+ tmp48 = _L[32].vector
end
-
-if options.output == nil then
- options.output = jobname_for_output .. "." .. output_extension
+local tmp49 = Word8Vector.concat
+local tmp50 = Word8Vector.fromList
+local tmp51 = Word8Vector.length
+local tmp52 = Word8Vector.sub
+local tmp53 = Word8Vector.tabulate
+_L[33] = Word8ArraySlice.base
+_L[34] = Word8ArraySlice.copyVec
+_L[35] = Word8ArraySlice.full
+_L[36] = Word8ArraySlice.length
+_L[37] = Word8ArraySlice.slice
+_L[38] = Word8ArraySlice.vector
+_L[39] = Word8Array.array
+_L[40] = Word8Array.copyVec
+_L[41] = Word8Array.length
+_L[42] = Word8Array.maxLen
+_L[43] = Word8Array.sub
+_L[44] = Word8Array.tabulate
+_L[45] = Word8Array.update
+_L[46] = UnsafeWord8Array.sub
+_L[47] = UnsafeWord8Array.update
+_L[48] = function(a, i, bytesPerElem)
+ if i < 0 then
+ _raise(_Subscript, "pack-word.sml:29:48")
+ end
+ local tmp54 = _Int_mul(bytesPerElem, i)
+ local tmp55 = _L[41](a)
+ if tmp55 < _Int_add(tmp54, bytesPerElem) then
+ _raise(_Subscript, "pack-word.sml:33:55")
+ else
+ return tmp54
+ end
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_executable or 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, "'...")
+_L[49] = function(a)
+ return function(a1)
+ local tmp54 = #a
+ local tmp55 = _Int_sub(#a1, tmp54)
+ local tmp56 = 0
+ ::cont::
+ do
+ local a2 = tmp56
+ if a2 > tmp55 then
+ return false
+ end
+ local tmp57
+ do
+ local tmp58 = 0
+ ::cont2::
+ do
+ local a3 = tmp58
+ if a3 >= tmp54 then
+ tmp57 = true
+ goto cont1
+ end
+ local tmp59 = tmp26({a, a3})
+ local tmp60 = tmp26({a1, _Int_add(a2, a3)})
+ if tmp59 == tmp60 then
+ tmp58 = _Int_add(a3, 1)
+ goto cont2
+ else
+ tmp57 = false
+ end
+ end
+ end
+ ::cont1::
+ if tmp57 then
+ return true
+ else
+ tmp56 = _Int_add(a2, 1)
+ goto cont
+ end
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
-
--- --print-output-directory
-if options.print_output_directory then
- io.write(options.output_directory, "\n")
- os.exit(0)
+_L[50] = {}
+_L[50].year = 2001
+_L[50].month = 1
+_L[50].day = 1
+_L[50].hour = 0
+_L[51] = tmp18(_L[50])
+_L[52] = {tag = {"Time"}}
+_L[53] = function(a)
+ local tmp54 = tmp13(a, _L[51])
+ local status, exn = _handle(function()
+ local tmp55 = tmp54 * 1e6
+ local tmp56 = tmp12(tmp55)
+ if math_type(tmp56) == "integer" then
+ return tmp56
+ elseif tmp55 ~= tmp55 then
+ _raise(Domain, "real-1.sml:301:26")
+ else
+ _raise(_Overflow, "real-1.sml:303:26")
+ end
+ end)
+ if not status then
+ _raise(_L[52], "time.sml:79:82")
+ else
+ return exn
+ end
end
-
-local pathsep = ":"
-if os.type == "windows" then
- pathsep = ";"
+_L[54] = {}
+_L[55] = {}
+_L[55].__mode = "k"
+setmetatable(_L[54], _L[55])
+_L[56] = {}
+_L[57] = {}
+_L[57].__mode = "v"
+setmetatable(_L[56], _L[57])
+_L[58] = {{0, nil}}
+_L[59] = function(a)
+ local tmp54 = _L[54][a]
+ if tmp54 == nil then
+ local d
+ do
+ local x = _L[58][1]
+ if x[2] == nil then
+ local n = x[1]
+ _L[58][1] = {_Int_add(n, 1), nil}
+ d = n
+ elseif x[2] ~= nil then
+ local n = x[1]
+ local tmp55 = x[2][1]
+ _L[58][1] = {n, x[2][2]}
+ d = tmp55
+ else
+ _raise(_Match, "iodesc.sml:29:24")
+ end
+ end
+ _L[54][a] = d
+ _L[56][d] = a
+ return d
+ else
+ return tmp54
+ end
end
-
-local original_wd = filesys.currentdir()
-if options.change_directory then
- local TEXINPUTS = os.getenv("TEXINPUTS") or ""
- local LUAINPUTS = os.getenv("LUAINPUTS") or ""
- assert(filesys.chdir(options.output_directory))
- options.output = pathutil.abspath(options.output, original_wd)
- os.setenv("TEXINPUTS", original_wd .. pathsep .. TEXINPUTS)
- os.setenv("LUAINPUTS", original_wd .. pathsep .. LUAINPUTS)
- -- after changing the pwd, '.' is always the output_directory (needed for some path generation)
- options.output_directory = "."
+_L[60] = function(a)
+ local tmp54 = _L[56][a]
+ if tmp54 ~= nil then
+ local x = _L[58][1]
+ local n = x[1]
+ _L[58][1] = {n, {a, x[2]}}
+ _L[56][a] = nil
+ _L[54][tmp54] = nil
+ return nil
+ else
+ return nil
+ end
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)
+_L[61] = {"SysErr"}
+_L[62] = function(field, f)
+ if tmp23.tag == "SOME" then
+ elseif tmp23.tag == "NONE" then
+ return function(a)
+ _raise({tag = _L[61], payload = {"LuaFileSystem not available", NONE}}, "os.sml:56:70")
+ end
+ else
+ _raise(_Match, "os.sml:54:50")
+ end
+ do
+ return f(tmp23.payload[field])
+ end
end
-
--- Set `max_print_line' environment variable if not already set.
-if os.getenv("max_print_line") == nil then
- os.setenv("max_print_line", "16384")
+_L[63] = _L[62]("chdir", function(lfs_chdir)
+ return function(path)
+ local tmp54, tmp55 = lfs_chdir(path)
+ if not tmp54 then
+ local tmp56 = tmp6(tmp55)
+ if tmp56 == "string" then
+ _raise({tag = _L[61], payload = {tmp55, {tag = "SOME", payload = tmp55}}}, "os.sml:61:98")
+ else
+ _raise({tag = TypeError_tag, payload = "expected a string, but got " .. tmp56}, "lua.sml:467:37")
+ end
+ else
+ return nil
+ end
+ end
+end)
+_L[64] = _L[62]("currentdir", function(lfs_currentdir)
+ return function(a)
+ local tmp54, tmp55 = lfs_currentdir()
+ if tmp6(tmp54) == "string" then
+ return tmp54
+ end
+ local tmp56 = tmp6(tmp55)
+ if tmp56 == "string" then
+ _raise({tag = _L[61], payload = {tmp55, {tag = "SOME", payload = tmp55}}}, "os.sml:73:102")
+ else
+ _raise({tag = TypeError_tag, payload = "expected a string, but got " .. tmp56}, "lua.sml:467:37")
+ end
+ end
+end)
+_L[65] = _L[62]("mkdir", function(lfs_mkdir)
+ return function(path)
+ local tmp54, tmp55 = lfs_mkdir(path)
+ if not tmp54 then
+ local tmp56 = tmp6(tmp55)
+ if tmp56 == "string" then
+ _raise({tag = _L[61], payload = {tmp55, {tag = "SOME", payload = tmp55}}}, "os.sml:81:98")
+ else
+ _raise({tag = TypeError_tag, payload = "expected a string, but got " .. tmp56}, "lua.sml:467:37")
+ end
+ else
+ return nil
+ end
+ end
+end)
+_L[66] = _L[62]("attributes", function(lfs_attributes)
+ return function(path)
+ local tmp54, tmp55 = lfs_attributes(path, "modification")
+ if not tmp54 then
+ local tmp56 = tmp6(tmp55)
+ if tmp56 == "string" then
+ _raise({tag = _L[61], payload = {tmp55, {tag = "SOME", payload = tmp55}}}, "os.sml:132:103")
+ else
+ _raise({tag = TypeError_tag, payload = "expected a string, but got " .. tmp56}, "lua.sml:467:37")
+ end
+ else
+ return _L[53](tmp54)
+ end
+ end
+end)
+_L[67] = _L[62]("attributes", function(lfs_attributes)
+ return function(path)
+ local tmp54, tmp55 = lfs_attributes(path, "size")
+ if not tmp54 then
+ local tmp56 = tmp6(tmp55)
+ if tmp56 == "string" then
+ _raise({tag = _L[61], payload = {tmp55, {tag = "SOME", payload = tmp55}}}, "os.sml:142:114")
+ else
+ _raise({tag = TypeError_tag, payload = "expected a string, but got " .. tmp56}, "lua.sml:467:37")
+ end
+ else
+ return tmp54
+ end
+ end
+end)
+_L[68] = {tag = {"Path"}}
+_L[69] = {tag = {"InvalidArc"}}
+_L[70] = function(a)
+ local tmp54 = tmp32(function(c)
+ return c ~= 47
+ end)
+ return tmp54(a)
end
---[[
- According to texmf.cnf:
- 45 < error_line < 255,
- 30 < half_error_line < error_line - 15,
- 60 <= max_print_line.
-
- On TeX Live 2023, (u)(p)bibtex fails if max_print_line >= 20000.
-]]
-
-local function path_in_output_directory(ext)
- return pathutil.join(options.output_directory, jobname .. "." .. ext)
+_L[71] = function(a)
+ local dir = a.dir
+ local file = a.file
+ local arcs, isAbs, vol
+ do
+ local tmp54 = fields(function(c)
+ return c == 47
+ end)
+ local exp = tmp54(dir)
+ if exp ~= nil and (exp[1] == "" and exp[2] == nil) then
+ vol = ""
+ isAbs = false
+ arcs = nil
+ elseif exp ~= nil and exp[1] == "" then
+ vol = ""
+ isAbs = true
+ arcs = exp[2]
+ else
+ vol = ""
+ isAbs = false
+ arcs = exp
+ end
+ end
+ local tmp54 = {file, nil}
+ local tmp55
+ do
+ local tmp56 = revAppend(arcs, nil)
+ tmp55 = revAppend(tmp56, tmp54)
+ end
+ if vol ~= "" then
+ _raise(_L[68], "os-path-unix.sml:24:41")
+ end
+ if not isAbs and (tmp55 ~= nil and tmp55[1] == "") then
+ _raise(_L[68], "os-path-unix.sml:27:65")
+ end
+ local tmp56 = all(_L[70])
+ local tmp57 = tmp56(tmp55)
+ if tmp57 then
+ if isAbs then
+ return "/" .. table_concat(_VectorOrArray_fromList(tmp55), "/")
+ else
+ return table_concat(_VectorOrArray_fromList(tmp55), "/")
+ end
+ else
+ _raise(_L[69], "os-path-unix.sml:34:54")
+ end
end
-
-local recorderfile = path_in_output_directory("fls")
-local recorderfile2 = path_in_output_directory("cluttex-fls")
-
-local tex_options = {
- engine_executable = options.engine_executable,
- 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
+_L[72] = function(a)
+ local tmp54
+ do
+ if #a >= 5 then
+ else
+ tmp54 = false
+ goto cont
+ end
+ do
+ local tmp55 = sub1({a, 0})
+ if tmp55 == 47 or tmp55 == 92 then
+ else
+ tmp54 = false
+ goto cont
+ end
+ do
+ local tmp56 = sub1({a, 1})
+ if tmp56 == 47 or tmp56 == 92 then
+ else
+ tmp54 = false
+ goto cont
+ end
+ do
+ local tmp57 = sub1({a, 2})
+ tmp54 = tmp57 ~= 47 and tmp57 ~= 92
+ end
+ end
+ end
+ end
+ ::cont::
+ if tmp54 then
+ else
+ return NONE
+ end
+ do
+ local tmp55 = 3
+ ::cont1::
+ do
+ local a1 = tmp55
+ if #a <= a1 then
+ return NONE
+ end
+ local tmp56 = sub1({a, a1})
+ if tmp56 == 47 or tmp56 == 92 then
+ else
+ tmp55 = _Int_add(a1, 1)
+ goto cont1
+ end
+ do
+ local tmp57 = _Int_add(a1, 1)
+ local tmp58
+ do
+ if #a > tmp57 then
+ else
+ tmp58 = false
+ goto cont2
+ end
+ do
+ local tmp59 = sub1({a, tmp57})
+ tmp58 = tmp59 ~= 47 and tmp59 ~= 92
+ end
+ end
+ ::cont2::
+ if tmp58 then
+ else
+ return NONE
+ end
+ do
+ local tmp59 = _Int_add(tmp57, 1)
+ ::cont3::
+ do
+ local a2 = tmp59
+ if #a <= a2 then
+ return {tag = "SOME", payload = a2}
+ end
+ local tmp60 = sub1({a, a2})
+ if tmp60 == 47 or tmp60 == 92 then
+ return {tag = "SOME", payload = a2}
+ else
+ tmp59 = _Int_add(a2, 1)
+ goto cont3
+ end
+ end
+ end
+ end
+ end
+ end
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
+_L[73] = {tag = "DOS_VOLUME"}
+_L[74] = {tag = "NO_VOLUME"}
+_L[75] = function(a)
+ local tmp54 = tmp32(function(c)
+ return c ~= 47 and c ~= 92
+ end)
+ return tmp54(a)
end
-
--- handle change_directory properly (needs to be after initscript gen)
-if options.change_directory then
- tex_options.output_directory = nil
+_L[76] = function(a)
+ local vol, isAbs, tmp54, tmp55
+ do
+ local dir = a.dir
+ local file = a.file
+ local arcs
+ do
+ local exp
+ do
+ local tmp56
+ do
+ if #dir >= 2 then
+ else
+ tmp56 = false
+ goto cont3
+ end
+ do
+ local tmp57 = sub1({dir, 1})
+ if tmp57 == 58 then
+ else
+ tmp56 = false
+ goto cont3
+ end
+ do
+ local tmp58 = sub1({dir, 0})
+ tmp56 = 65 <= tmp58 and tmp58 <= 90 or 97 <= tmp58 and tmp58 <= 122
+ end
+ end
+ end
+ ::cont3::
+ if tmp56 then
+ exp = _L[73]
+ goto cont1
+ end
+ local exp1 = _L[72](dir)
+ if exp1.tag == "SOME" then
+ exp = {tag = "UNC_PATH", payload = exp1.payload}
+ elseif exp1.tag == "NONE" then
+ exp = _L[74]
+ else
+ _raise(_Match, "os-path-windows.sml:44:27")
+ end
+ end
+ ::cont1::
+ local isUNC, vol1, rest
+ do
+ if exp.tag == "DOS_VOLUME" then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = substring(dir, 0, 2)
+ local tmp57 = extract(dir, 2, NONE)
+ rest = tmp57
+ vol1 = tmp56
+ isUNC = false
+ goto cont2
+ end
+ ::else1::
+ if exp.tag == "UNC_PATH" then
+ elseif exp.tag == "NO_VOLUME" then
+ rest = dir
+ vol1 = ""
+ isUNC = false
+ goto cont2
+ else
+ _raise(_Match, "os-path-windows.sml:75:52")
+ end
+ do
+ local i = exp.payload
+ local tmp56 = substring(dir, 0, i)
+ local tmp57 = extract(dir, i, NONE)
+ rest = tmp57
+ vol1 = tmp56
+ isUNC = true
+ end
+ end
+ ::cont2::
+ local tmp56 = fields(function(c)
+ return c == 47 or c == 92
+ end)
+ local exp1 = tmp56(rest)
+ if exp1 ~= nil and (exp1[1] == "" and exp1[2] == nil) then
+ vol = vol1
+ isAbs = isUNC
+ arcs = nil
+ elseif exp1 ~= nil and exp1[1] == "" then
+ vol = vol1
+ isAbs = true
+ arcs = exp1[2]
+ else
+ vol = vol1
+ isAbs = isUNC
+ arcs = exp1
+ end
+ end
+ local tmp56 = {file, nil}
+ do
+ local tmp57 = revAppend(arcs, nil)
+ tmp54 = revAppend(tmp57, tmp56)
+ end
+ do
+ if not isAbs and vol == "" then
+ tmp55 = true
+ goto cont
+ end
+ local tmp57
+ do
+ if #vol == 2 then
+ else
+ tmp57 = false
+ goto cont1
+ end
+ do
+ local tmp58 = sub1({vol, 0})
+ local tmp59
+ tmp59 = 65 <= tmp58 and tmp58 <= 90 or 97 <= tmp58 and tmp58 <= 122
+ if tmp59 then
+ else
+ tmp57 = false
+ goto cont1
+ end
+ do
+ local tmp60 = sub1({vol, 1})
+ tmp57 = tmp60 == 58
+ end
+ end
+ end
+ ::cont1::
+ if tmp57 then
+ tmp55 = true
+ goto cont
+ end
+ if isAbs then
+ else
+ tmp55 = false
+ goto cont
+ end
+ do
+ local exp = _L[72](vol)
+ if exp.tag == "SOME" then
+ local i = exp.payload
+ tmp55 = i == #vol
+ elseif exp.tag == "NONE" then
+ tmp55 = false
+ else
+ _raise(_Match, "os-path-windows.sml:73:56")
+ end
+ end
+ end
+ end
+ ::cont::
+ if not tmp55 then
+ _raise(_L[68], "os-path-windows.sml:87:41")
+ end
+ if not isAbs and #vol >= 3 then
+ _raise(_L[68], "os-path-windows.sml:89:41")
+ end
+ if not isAbs and (tmp54 ~= nil and tmp54[1] == "") then
+ _raise(_L[68], "os-path-windows.sml:92:65")
+ end
+ local tmp56 = all(_L[75])
+ local tmp57 = tmp56(tmp54)
+ if tmp57 then
+ if isAbs then
+ local tmp58 = vol .. "\\"
+ return tmp58 .. table_concat(_VectorOrArray_fromList(tmp54), "\\")
+ else
+ return vol .. table_concat(_VectorOrArray_fromList(tmp54), "\\")
+ end
+ else
+ _raise(_L[69], "os-path-windows.sml:99:54")
+ end
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, epstopdf = false, 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)
+do
+ _L[78] = sub1({tmp2.config, 0})
+ if _L[78] == 92 then
+ _L[77] = _L[76]
+ else
+ _L[77] = _L[71]
+ end
+end
+_L[79] = function(tmp54, tmp55, tmp56, tmp57, tmp58, tmp59, tmp60, tmp61, tmp62, tmp63, tmp64, tmp65, tmp66, tmp67, compare1, tmp68)
+ local RD = function(payload)
+ return payload
+ end
+ local WR = function(payload)
+ return payload
+ end
+ local openVector = function(a)
+ local tmp69 = {0}
+ local tmp70 = {false}
+ local readVec = function(a1)
+ if a1 < 0 then
+ _raise(_Size, "prim-io.sml:112:31")
+ end
+ local x = tmp69[1]
+ local total = tmp63(a)
+ local tmp71 = _Int_add(x, a1)
+ local newPos
+ if tmp71 < total then
+ newPos = tmp71
+ else
+ newPos = total
+ end
+ tmp69[1] = newPos
+ local tmp72 = tmp66({a, x, {tag = "SOME", payload = _Int_sub(newPos, x)}})
+ return tmp67(tmp72)
end
- auxstatus = reruncheck.collectfileinfo(filelist, auxstatus)
- for _,fileinfo in ipairs(filelist) do
- if string.match(fileinfo.path, "minted/minted%.sty$") then
- minted = true
+ local readArr = function(a1)
+ local x = tmp69[1]
+ local total = tmp63(a)
+ local tmp71 = tmp59(a1)
+ local tmp72 = _Int_add(x, tmp71)
+ local newPos
+ if tmp72 < total then
+ newPos = tmp72
+ else
+ newPos = total
end
- if string.match(fileinfo.path, "epstopdf%.sty$") then
- epstopdf = true
+ local exp = tmp56(a1)
+ local baseArr = exp[1]
+ local start = exp[2]
+ local tmp73 = _Int_sub(newPos, x)
+ tmp69[1] = newPos
+ local tmp74 = tmp66({a, x, {tag = "SOME", payload = tmp73}})
+ tmp57({di = start, dst = baseArr, src = tmp74})
+ return tmp73
+ end
+ local tmp71 = tmp63(a)
+ local tmp72 = {tag = "SOME", payload = function(n)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readVec", name = "<openVector>"}}, "prim-io.sml:108:36")
+ else
+ return readVec(n)
end
+ end}
+ local tmp73 = {tag = "SOME", payload = function(slice)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readArr", name = "<openVector>"}}, "prim-io.sml:108:36")
+ else
+ return readArr(slice)
+ end
+ end}
+ local tmp74 = {tag = "SOME", payload = function(n)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readVecNB", name = "<openVector>"}}, "prim-io.sml:108:36")
+ end
+ local tmp75 = readVec(n)
+ return {tag = "SOME", payload = tmp75}
+ end}
+ local tmp75 = {tag = "SOME", payload = function(slice)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readArrNB", name = "<openVector>"}}, "prim-io.sml:108:36")
+ end
+ local tmp76 = readArr(slice)
+ return {tag = "SOME", payload = tmp76}
+ end}
+ local tmp76 = {tag = "SOME", payload = function(a1)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "block", name = "<openVector>"}}, "prim-io.sml:108:36")
+ else
+ return nil
+ end
+ end}
+ local tmp77 = {tag = "SOME", payload = function(a1)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "canInput", name = "<openVector>"}}, "prim-io.sml:108:36")
+ else
+ return true
+ end
+ end}
+ local tmp78 = function(a1)
+ if tmp70[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "avail", name = "<openVector>"}}, "prim-io.sml:108:36")
+ end
+ local tmp79 = tmp63(a)
+ return {tag = "SOME", payload = _Int_sub(tmp79, tmp69[1])}
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"))
+ return {avail = tmp78, block = tmp76, canInput = tmp77, chunkSize = tmp71, close = function(a1)
+ tmp70[1] = true
+ return nil
+ end, endPos = NONE, getPos = NONE, ioDesc = NONE, name = "<openVector>", readArr = tmp73, readArrNB = tmp75, readVec = tmp72, readVecNB = tmp74, setPos = NONE, verifyPos = NONE}
+ end
+ local nullRd = function(a)
+ local tmp69 = {false}
+ local empty = tmp62(nil)
+ local tmp70 = {tag = "SOME", payload = function(n)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readVec", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ elseif n < 0 then
+ _raise(_Size, "prim-io.sml:155:81")
+ else
+ return empty
end
+ end}
+ local tmp71 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readArr", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ else
+ return 0
+ end
+ end}
+ local tmp72 = {tag = "SOME", payload = function(n)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readVecNB", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ else
+ return {tag = "SOME", payload = empty}
+ end
+ end}
+ local tmp73 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "readArrNB", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ else
+ return {tag = "SOME", payload = 0}
+ end
+ end}
+ local tmp74 = {tag = "SOME", payload = function(a1)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "block", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ else
+ return nil
+ end
+ end}
+ local tmp75 = {tag = "SOME", payload = function(a1)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "canInput", name = "<nullRd>"}}, "prim-io.sml:149:46")
+ else
+ return true
+ end
+ end}
+ local tmp76 = function(a1)
+ return {tag = "SOME", payload = 0}
end
- else
- -- This is the first execution
- if auxstatus ~= nil then
- message.error("Recorder file was not generated during the execution!")
- os.exit(1)
+ return {avail = tmp76, block = tmp74, canInput = tmp75, chunkSize = 1, close = function(a1)
+ tmp69[1] = true
+ return nil
+ end, endPos = NONE, getPos = NONE, ioDesc = NONE, name = "<nullRd>", readArr = tmp71, readArrNB = tmp73, readVec = tmp70, readVecNB = tmp72, setPos = NONE, verifyPos = NONE}
+ end
+ local nullWr = function(a)
+ local tmp69 = {false}
+ local tmp70 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "writeVec", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ else
+ return tmp65(slice)
+ end
+ end}
+ local tmp71 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "writeArr", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ else
+ return tmp59(slice)
+ end
+ end}
+ local tmp72 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "writeVecNB", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ end
+ local tmp73 = tmp65(slice)
+ return {tag = "SOME", payload = tmp73}
+ end}
+ local tmp73 = {tag = "SOME", payload = function(slice)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "writeArrNB", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ end
+ local tmp74 = tmp59(slice)
+ return {tag = "SOME", payload = tmp74}
+ end}
+ local tmp74 = {tag = "SOME", payload = function(a1)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "block", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ else
+ return nil
+ end
+ end}
+ local tmp75 = {tag = "SOME", payload = function(a1)
+ if tmp69[1] then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "canOutput", name = "<nullWr>"}}, "prim-io.sml:173:46")
+ else
+ return true
+ end
+ end}
+ return {block = tmp74, canOutput = tmp75, chunkSize = 1, close = function(a1)
+ tmp69[1] = true
+ return nil
+ end, endPos = NONE, getPos = NONE, ioDesc = NONE, name = "<nullWr>", setPos = NONE, verifyPos = NONE, writeArr = tmp71, writeArrNB = tmp73, writeVec = tmp70, writeVecNB = tmp72}
+ end
+ local augmentReader = function(a)
+ local name, chunkSize, readVec, readArr, readVecNB, readArrNB, block, canInput, avail, getPos, setPos, endPos, verifyPos, close, ioDesc, readVec_PRIME
+ do
+ name = a.name
+ chunkSize = a.chunkSize
+ readVec = a.readVec
+ readArr = a.readArr
+ readVecNB = a.readVecNB
+ readArrNB = a.readArrNB
+ block = a.block
+ canInput = a.canInput
+ avail = a.avail
+ getPos = a.getPos
+ setPos = a.setPos
+ endPos = a.endPos
+ verifyPos = a.verifyPos
+ close = a.close
+ ioDesc = a.ioDesc
+ local empty = tmp62(nil)
+ if readVec.tag == "SOME" then
+ readVec_PRIME = readVec
+ goto cont
+ end
+ if readVec.tag == "NONE" then
+ if readArr.tag == "SOME" then
+ local ra = readArr.payload
+ readVec_PRIME = {tag = "SOME", payload = function(n)
+ local arr = tmp54({n, tmp68})
+ local tmp69 = tmp58(arr)
+ local actual = ra(tmp69)
+ local tmp70 = tmp60({arr, 0, {tag = "SOME", payload = actual}})
+ return tmp61(tmp70)
+ end}
+ goto cont
+ end
+ if readArr.tag == "NONE" then
+ if block.tag == "SOME" and readVecNB.tag == "SOME" then
+ local block_PRIME = block.payload
+ local rvNB = readVecNB.payload
+ readVec_PRIME = {tag = "SOME", payload = function(n)
+ if n < 0 then
+ _raise(_Size, "prim-io.sml:205:72")
+ end
+ local exp = rvNB(n)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:207:72")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = rvNB(n)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return empty
+ else
+ _raise(_Match, "prim-io.sml:210:86")
+ end
+ end
+ end}
+ elseif block.tag == "SOME" and (readVecNB.tag == "NONE" and readArrNB.tag == "SOME") then
+ local block_PRIME = block.payload
+ local raNB = readArrNB.payload
+ readVec_PRIME = {tag = "SOME", payload = function(n)
+ if n < 0 then
+ _raise(_Size, "prim-io.sml:217:72")
+ end
+ local arr = tmp54({n, tmp68})
+ local aslice = tmp58(arr)
+ local exp = raNB(aslice)
+ if exp.tag == "SOME" then
+ else
+ goto else1
+ end
+ do
+ local tmp69 = tmp60({arr, 0, {tag = "SOME", payload = exp.payload}})
+ return tmp61(tmp69)
+ end
+ ::else1::
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:221:75")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = raNB(aslice)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return empty
+ else
+ _raise(_Match, "prim-io.sml:224:89")
+ end
+ do
+ local tmp69 = tmp60({arr, 0, {tag = "SOME", payload = exp1.payload}})
+ return tmp61(tmp69)
+ end
+ end
+ end}
+ else
+ readVec_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:196:38")
+ end
+ else
+ _raise(_Match, "prim-io.sml:194:26")
+ end
end
- auxstatus = {}
+ ::cont::
+ local readArr_PRIME
+ if readArr.tag == "SOME" then
+ readArr_PRIME = readArr
+ goto cont1
+ end
+ if readArr.tag == "NONE" then
+ if readVec.tag == "SOME" then
+ local rv = readVec.payload
+ readArr_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp59(slice)
+ local v = rv(tmp69)
+ local exp = tmp56(slice)
+ tmp55({di = exp[2], dst = exp[1], src = v})
+ return tmp63(v)
+ end}
+ goto cont1
+ end
+ if readVec.tag == "NONE" then
+ if block.tag == "SOME" and readArrNB.tag == "SOME" then
+ local block_PRIME = block.payload
+ local raNB = readArrNB.payload
+ readArr_PRIME = {tag = "SOME", payload = function(slice)
+ local exp = raNB(slice)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:242:72")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = raNB(slice)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:245:86")
+ end
+ end
+ end}
+ elseif block.tag == "SOME" and (readVecNB.tag == "SOME" and readArrNB.tag == "NONE") then
+ local block_PRIME = block.payload
+ local rvNB = readVecNB.payload
+ readArr_PRIME = {tag = "SOME", payload = function(slice)
+ local n, base, start, exp
+ do
+ n = tmp59(slice)
+ local exp1 = tmp56(slice)
+ base = exp1[1]
+ start = exp1[2]
+ exp = rvNB(n)
+ if exp.tag == "SOME" then
+ else
+ goto else1
+ end
+ do
+ local v = exp.payload
+ tmp55({di = start, dst = base, src = v})
+ return tmp63(v)
+ end
+ end
+ ::else1::
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:253:75")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = rvNB(n)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:258:89")
+ end
+ do
+ local v = exp1.payload
+ tmp55({di = start, dst = base, src = v})
+ return tmp63(v)
+ end
+ end
+ end}
+ else
+ readArr_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:233:38")
+ end
+ else
+ _raise(_Match, "prim-io.sml:231:26")
+ end
+ ::cont1::
+ local readVecNB_PRIME
+ if readVecNB.tag == "SOME" then
+ readVecNB_PRIME = readVecNB
+ goto cont2
+ end
+ if readVecNB.tag == "NONE" then
+ if readArrNB.tag == "SOME" then
+ local raNB = readArrNB.payload
+ readVecNB_PRIME = {tag = "SOME", payload = function(n)
+ if n < 0 then
+ _raise(_Size, "prim-io.sml:271:75")
+ end
+ local arr = tmp54({n, tmp68})
+ local tmp69 = tmp58(arr)
+ local exp = raNB(tmp69)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "prim-io.sml:274:78")
+ end
+ do
+ local tmp70 = tmp60({arr, 0, {tag = "SOME", payload = exp.payload}})
+ local tmp71 = tmp61(tmp70)
+ return {tag = "SOME", payload = tmp71}
+ end
+ end}
+ goto cont2
+ end
+ if readArrNB.tag == "NONE" then
+ if canInput.tag == "SOME" and readVec.tag == "SOME" then
+ local canInput_PRIME = canInput.payload
+ local rv = readVec.payload
+ readVecNB_PRIME = {tag = "SOME", payload = function(n)
+ local tmp69 = canInput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = rv(n)
+ return {tag = "SOME", payload = tmp70}
+ end
+ end}
+ elseif canInput.tag == "SOME" and (readVec.tag == "NONE" and readArr.tag == "SOME") then
+ local canInput_PRIME = canInput.payload
+ local ra = readArr.payload
+ readVecNB_PRIME = {tag = "SOME", payload = function(n)
+ local tmp69 = canInput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ if n < 0 then
+ _raise(_Size, "prim-io.sml:289:78")
+ end
+ local arr = tmp54({n, tmp68})
+ local tmp70 = tmp58(arr)
+ local actual = ra(tmp70)
+ local tmp71 = tmp60({arr, 0, {tag = "SOME", payload = actual}})
+ local tmp72 = tmp61(tmp71)
+ return {tag = "SOME", payload = tmp72}
+ end
+ end}
+ else
+ readVecNB_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:269:40")
+ end
+ else
+ _raise(_Match, "prim-io.sml:267:28")
+ end
+ ::cont2::
+ local readArrNB_PRIME
+ if readArrNB.tag == "SOME" then
+ readArrNB_PRIME = readArrNB
+ goto cont3
+ end
+ if readArrNB.tag == "NONE" then
+ if readVecNB.tag == "SOME" then
+ local rvNB = readVecNB.payload
+ readArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp59(slice)
+ local exp = rvNB(tmp69)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "prim-io.sml:303:62")
+ end
+ do
+ local v = exp.payload
+ local exp1 = tmp56(slice)
+ tmp55({di = exp1[2], dst = exp1[1], src = v})
+ local tmp70 = tmp63(v)
+ return {tag = "SOME", payload = tmp70}
+ end
+ end}
+ goto cont3
+ end
+ if readVecNB.tag == "NONE" then
+ if canInput.tag == "SOME" and readArr.tag == "SOME" then
+ local canInput_PRIME = canInput.payload
+ local ra = readArr.payload
+ readArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canInput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = ra(slice)
+ return {tag = "SOME", payload = tmp70}
+ end
+ end}
+ elseif canInput.tag == "SOME" and (readVec.tag == "SOME" and readArr.tag == "NONE") then
+ local canInput_PRIME = canInput.payload
+ local rv = readVec.payload
+ readArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canInput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = tmp59(slice)
+ local v = rv(tmp70)
+ local exp = tmp56(slice)
+ tmp55({di = exp[2], dst = exp[1], src = v})
+ local tmp71 = tmp63(v)
+ return {tag = "SOME", payload = tmp71}
+ end
+ end}
+ else
+ readArrNB_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:301:40")
+ end
+ else
+ _raise(_Match, "prim-io.sml:299:28")
+ end
+ ::cont3::
+ return {avail = avail, block = block, canInput = canInput, chunkSize = chunkSize, close = close, endPos = endPos, getPos = getPos, ioDesc = ioDesc, name = name, readArr = readArr_PRIME, readArrNB = readArrNB_PRIME, readVec = readVec_PRIME, readVecNB = readVecNB_PRIME, setPos = setPos, verifyPos = verifyPos}
end
- --local timestamp = os.time()
-
- local tex_injection = ""
-
- if options.includeonly then
- tex_injection = string.format("%s\\includeonly{%s}", tex_options.tex_injection or "", options.includeonly)
+ return {RD = RD, WR = WR, augmentReader = augmentReader, augmentWriter = function(a)
+ local name = a.name
+ local chunkSize = a.chunkSize
+ local writeVec = a.writeVec
+ local writeArr = a.writeArr
+ local writeVecNB = a.writeVecNB
+ local writeArrNB = a.writeArrNB
+ local block = a.block
+ local canOutput = a.canOutput
+ local getPos = a.getPos
+ local setPos = a.setPos
+ local endPos = a.endPos
+ local verifyPos = a.verifyPos
+ local close = a.close
+ local ioDesc = a.ioDesc
+ local writeVec_PRIME
+ if writeVec.tag == "SOME" then
+ writeVec_PRIME = writeVec
+ goto cont
+ end
+ if writeVec.tag == "NONE" then
+ if writeArr.tag == "SOME" then
+ local wa = writeArr.payload
+ writeVec_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp65(slice)
+ local arr = tmp54({tmp69, tmp68})
+ tmp57({di = 0, dst = arr, src = slice})
+ local tmp70 = tmp58(arr)
+ return wa(tmp70)
+ end}
+ goto cont
+ end
+ if writeArr.tag == "NONE" then
+ if block.tag == "SOME" and writeVecNB.tag == "SOME" then
+ local block_PRIME = block.payload
+ local wvNB = writeVecNB.payload
+ writeVec_PRIME = {tag = "SOME", payload = function(slice)
+ local exp = wvNB(slice)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:359:64")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = wvNB(slice)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:362:78")
+ end
+ end
+ end}
+ elseif block.tag == "SOME" and (writeVecNB.tag == "NONE" and writeArrNB.tag == "SOME") then
+ local block_PRIME = block.payload
+ local waNB = writeArrNB.payload
+ writeVec_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp65(slice)
+ local arr = tmp54({tmp69, tmp68})
+ local aslice = tmp58(arr)
+ tmp57({di = 0, dst = arr, src = slice})
+ local exp = waNB(aslice)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:372:67")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = waNB(aslice)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:375:81")
+ end
+ end
+ end}
+ else
+ writeVec_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:348:39")
+ end
+ else
+ _raise(_Match, "prim-io.sml:346:27")
+ end
+ ::cont::
+ local writeArr_PRIME
+ if writeArr.tag == "SOME" then
+ writeArr_PRIME = writeArr
+ goto cont1
+ end
+ if writeArr.tag == "NONE" then
+ if writeVec.tag == "SOME" then
+ local wv = writeVec.payload
+ writeArr_PRIME = {tag = "SOME", payload = function(slice)
+ local v = tmp61(slice)
+ local tmp69 = tmp64(v)
+ return wv(tmp69)
+ end}
+ goto cont1
+ end
+ if writeVec.tag == "NONE" then
+ if block.tag == "SOME" and writeArrNB.tag == "SOME" then
+ local block_PRIME = block.payload
+ local waNB = writeArrNB.payload
+ writeArr_PRIME = {tag = "SOME", payload = function(slice)
+ local exp = waNB(slice)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:393:64")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = waNB(slice)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:396:78")
+ end
+ end
+ end}
+ elseif block.tag == "SOME" and (writeVecNB.tag == "SOME" and writeArrNB.tag == "NONE") then
+ local block_PRIME = block.payload
+ local wvNB = writeVecNB.payload
+ writeArr_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp61(slice)
+ local vslice = tmp64(tmp69)
+ local exp = wvNB(vslice)
+ if exp.tag == "SOME" then
+ return exp.payload
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "prim-io.sml:404:67")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = wvNB(vslice)
+ if exp1.tag == "SOME" then
+ return exp1.payload
+ elseif exp1.tag == "NONE" then
+ return 0
+ else
+ _raise(_Match, "prim-io.sml:407:81")
+ end
+ end
+ end}
+ else
+ writeArr_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:384:39")
+ end
+ else
+ _raise(_Match, "prim-io.sml:382:27")
+ end
+ ::cont1::
+ local writeVecNB_PRIME
+ if writeVecNB.tag == "SOME" then
+ writeVecNB_PRIME = writeVecNB
+ goto cont2
+ end
+ if writeVecNB.tag == "NONE" then
+ if writeArrNB.tag == "SOME" then
+ local waNB = writeArrNB.payload
+ writeVecNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp65(slice)
+ local arr = tmp54({tmp69, tmp68})
+ tmp57({di = 0, dst = arr, src = slice})
+ local tmp70 = tmp58(arr)
+ return waNB(tmp70)
+ end}
+ goto cont2
+ end
+ if writeArrNB.tag == "NONE" then
+ if canOutput.tag == "SOME" and writeVec.tag == "SOME" then
+ local canOutput_PRIME = canOutput.payload
+ local wv = writeVec.payload
+ writeVecNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canOutput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = wv(slice)
+ return {tag = "SOME", payload = tmp70}
+ end
+ end}
+ elseif canOutput.tag == "SOME" and (writeVec.tag == "NONE" and writeArr.tag == "SOME") then
+ local canOutput_PRIME = canOutput.payload
+ local wa = writeArr.payload
+ writeVecNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canOutput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = tmp65(slice)
+ local arr = tmp54({tmp70, tmp68})
+ tmp57({di = 0, dst = arr, src = slice})
+ local tmp71 = tmp58(arr)
+ local tmp72 = wa(tmp71)
+ return {tag = "SOME", payload = tmp72}
+ end
+ end}
+ else
+ writeVecNB_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:416:41")
+ end
+ else
+ _raise(_Match, "prim-io.sml:414:29")
+ end
+ ::cont2::
+ local writeArrNB_PRIME
+ if writeArrNB.tag == "SOME" then
+ writeArrNB_PRIME = writeArrNB
+ goto cont3
+ end
+ if writeArrNB.tag == "NONE" then
+ if writeVecNB.tag == "SOME" then
+ local wvNB = writeVecNB.payload
+ writeArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = tmp61(slice)
+ local vslice = tmp64(tmp69)
+ return wvNB(vslice)
+ end}
+ goto cont3
+ end
+ if writeVecNB.tag == "NONE" then
+ if canOutput.tag == "SOME" and writeArr.tag == "SOME" then
+ local canOutput_PRIME = canOutput.payload
+ local wa = writeArr.payload
+ writeArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canOutput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = wa(slice)
+ return {tag = "SOME", payload = tmp70}
+ end
+ end}
+ elseif canOutput.tag == "SOME" and (writeVec.tag == "SOME" and writeArr.tag == "NONE") then
+ local canOutput_PRIME = canOutput.payload
+ local wv = writeVec.payload
+ writeArrNB_PRIME = {tag = "SOME", payload = function(slice)
+ local tmp69 = canOutput_PRIME(nil)
+ if tmp69 then
+ else
+ return NONE
+ end
+ do
+ local tmp70 = tmp61(slice)
+ local vslice = tmp64(tmp70)
+ local tmp71 = wv(vslice)
+ return {tag = "SOME", payload = tmp71}
+ end
+ end}
+ else
+ writeArrNB_PRIME = NONE
+ end
+ else
+ _raise(_Match, "prim-io.sml:445:41")
+ end
+ else
+ _raise(_Match, "prim-io.sml:443:29")
+ end
+ ::cont3::
+ return {block = block, canOutput = canOutput, chunkSize = chunkSize, close = close, endPos = endPos, getPos = getPos, ioDesc = ioDesc, name = name, setPos = setPos, verifyPos = verifyPos, writeArr = writeArr_PRIME, writeArrNB = writeArrNB_PRIME, writeVec = writeVec_PRIME, writeVecNB = writeVecNB_PRIME}
+ end, compare = compare1, nullRd = nullRd, nullWr = nullWr, openVector = openVector}
+end
+_L[80] = _L[79](_L[39], _L[40], _L[33], _L[34], _L[35], _L[36], _L[37], _L[38], tmp50, tmp51, tmp45, tmp46, tmp47, tmp48, compare, 0x0)
+_L[81] = _L[80].RD
+_L[82] = _L[80].WR
+_L[83] = _L[79](_L[1], _L[2], tmp37, tmp38, tmp39, tmp40, tmp41, tmp42, tmp35, tmp36, tmp28, tmp29, tmp30, tmp31, compare, 0)
+_L[84] = _L[83].RD
+_L[85] = _L[83].WR
+_L[86] = function(tmp54, tmp55, tmp56, tmp57, tmp58, tmp59, tmp60, tmp61, tmp62, tmp63, tmp64, tmp65, tmp66, tmp67, tmp68, tmp69, tmp70, tmp71, tmp72, tmp73, tmp74)
+ local input = function(a)
+ local exp = tmp65(a[1])
+ local chunk = exp[1]
+ a[1] = exp[2]
+ return chunk
end
-
- if minted or options.package_support["minted"] then
- local outdir = options.output_directory
- if os.type == "windows" then
- outdir = string.gsub(outdir, "\\", "/") -- Use forward slashes
+ local input1 = function(a)
+ local exp = tmp66(a[1])
+ if exp.tag == "NONE" then
+ return NONE
+ elseif exp.tag == "SOME" then
+ local e = exp.payload[1]
+ a[1] = exp.payload[2]
+ return {tag = "SOME", payload = e}
+ else
+ _raise(_Match, "imperative-io.sml:51:21")
end
- tex_injection = string.format("%s\\PassOptionsToPackage{outputdir=%s}{minted}", tex_injection or "", outdir)
- if not options.package_support["minted"] then
- message.diag("You may want to use --package-support=minted option.")
+ end
+ local inputN = function(a)
+ local stream = a[1]
+ local n = a[2]
+ local exp = tmp68({stream[1], n})
+ local chunk = exp[1]
+ stream[1] = exp[2]
+ return chunk
+ end
+ local inputAll = function(a)
+ local exp = tmp67(a[1])
+ local chunk = exp[1]
+ a[1] = exp[2]
+ return chunk
+ end
+ local canInput = function(a)
+ local stream = a[1]
+ local n = a[2]
+ return tmp54({stream[1], n})
+ end
+ local lookahead = function(a)
+ local exp = tmp66(a[1])
+ if exp.tag == "NONE" then
+ return NONE
+ elseif exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload[1]}
+ else
+ _raise(_Match, "imperative-io.sml:65:24")
end
end
- if epstopdf or options.package_support["epstopdf"] then
- local outdir = options.output_directory
- if os.type == "windows" then
- outdir = string.gsub(outdir, "\\", "/") -- Use forward slashes
+ local closeIn = function(a)
+ return tmp55(a[1])
+ end
+ local endOfStream = function(a)
+ return tmp57(a[1])
+ end
+ local output = function(a)
+ local stream = a[1]
+ local chunk = a[2]
+ return tmp71({stream[1], chunk})
+ end
+ local output1 = function(a)
+ local stream = a[1]
+ local elem = a[2]
+ return tmp72({stream[1], elem})
+ end
+ local flushOut = function(a)
+ return tmp60(a[1])
+ end
+ local closeOut = function(a)
+ return tmp56(a[1])
+ end
+ local mkInstream = function(a)
+ return {a}
+ end
+ local getInstream = function(a)
+ return a[1]
+ end
+ local setInstream = function(a)
+ local stream = a[1]
+ stream[1] = a[2]
+ return nil
+ end
+ local getPosOut = function(a)
+ return tmp62(a[1])
+ end
+ local setPosOut = function(a)
+ local stream = a[1]
+ local tmp75 = tmp74(a[2])
+ stream[1] = tmp75
+ return nil
+ end
+ return {_StreamIO = {canInput = tmp54, closeIn = tmp55, closeOut = tmp56, endOfStream = tmp57, filePosIn = tmp58, filePosOut = tmp59, flushOut = tmp60, getBufferMode = tmp61, getPosOut = tmp62, getReader = tmp63, getWriter = tmp64, input = tmp65, input1 = tmp66, inputAll = tmp67, inputN = tmp68, mkInstream = tmp69, mkOutstream = tmp70, output = tmp71, output1 = tmp72, setBufferMode = tmp73, setPosOut = tmp74}, canInput = canInput, closeIn = closeIn, closeOut = closeOut, endOfStream = endOfStream, flushOut = flushOut, getInstream = getInstream, getOutstream = _EXCLAM, getPosOut = getPosOut, input = input, input1 = input1, inputAll = inputAll, inputN = inputN, lookahead = lookahead, mkInstream = mkInstream, mkOutstream = ref, output = output, output1 = output1, setInstream = setInstream, setOutstream = _COLON_EQ, setPosOut = setPosOut}
+end
+_L[87] = function(a)
+ local rd = a[1]
+ local content = a[2]
+ local tip
+ if rd.ioDesc.tag == "SOME" then
+ local name = rd.name
+ tip = {{tag = "READABLE", payload = {name = name, readable = _L[56][rd.ioDesc.payload]}}}
+ else
+ tip = {{tag = "PRIM_READER", payload = rd}}
+ end
+ local tmp54 = tmp36(content)
+ if tmp54 > 0 then
+ return {{tag = "BUFFERED", payload = {buffer = content, initialPosition = NONE, next = tip, position = 0}}}
+ else
+ return tip
+ end
+end
+_L[88] = function(a)
+ local tmp54, tmp55 = a, nil
+ ::cont::
+ do
+ local ins, acc = tmp54, tmp55
+ local x = ins[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
end
- if string.sub(outdir, -1, -1) ~= "/" then
- outdir = outdir.."/" -- Must end with a directory separator
+ do
+ local readable = x.payload.readable
+ local name = x.payload.name
+ ins[1] = {tag = "CLOSED", payload = name}
+ local tmp56
+ do
+ local ioDesc = _L[59](readable)
+ local tmp57 = {tag = "SOME", payload = function(a1)
+ local exp
+ do
+ local tmp58 = readable:read(a1)
+ if not tmp58 then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp58}
+ end
+ end
+ if exp.tag == "NONE" then
+ return ""
+ elseif exp.tag == "SOME" then
+ return exp.payload
+ else
+ _raise(_Match, "text-io.sml:35:28")
+ end
+ end}
+ local tmp58 = function(a1)
+ return NONE
+ end
+ local tmp59 = function(a1)
+ _L[60](ioDesc)
+ readable:close()
+ return nil
+ end
+ tmp56 = _L[84]({avail = tmp58, block = NONE, canInput = NONE, chunkSize = 1024, close = tmp59, endPos = NONE, getPos = NONE, ioDesc = {tag = "SOME", payload = ioDesc}, name = name, readArr = NONE, readArrNB = NONE, readVec = tmp57, readVecNB = NONE, setPos = NONE, verifyPos = NONE})
+ end
+ local tmp57 = revAppend(acc, nil)
+ local tmp58 = tmp27(tmp57)
+ return {tmp56, tmp58}
end
- tex_injection = string.format("%s\\PassOptionsToPackage{outdir=%s}{epstopdf}", tex_injection or "", outdir)
- if not options.package_support["epstopdf"] then
- message.diag("You may want to use --package-support=epstopdf option.")
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
end
+ do
+ local rd = x.payload
+ ins[1] = {tag = "CLOSED", payload = x.payload.name}
+ local tmp56 = revAppend(acc, nil)
+ local tmp57 = tmp27(tmp56)
+ return {rd, tmp57}
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "getReader", name = x.payload}}, "text-io.sml:113:57")
+ else
+ _raise(_Match, "text-io.sml:109:38")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local tmp56 = tmp30({buffer, position, NONE})
+ tmp54 = next
+ tmp55 = {tmp56, acc}
+ goto cont
+ end
end
-
- local inputline = tex_injection .. safename.safeinput(inputfile, engine)
-
- 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
+_L[89] = function(a)
+ local x = a[1]
+ if x.tag == "READABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = x.payload.name}}, "text-io.sml:118:55")
+ end
+ if x.tag == "PRIM_READER" and x.payload.getPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = x.payload.name}}, "text-io.sml:119:89")
+ end
+ if x.tag == "PRIM_READER" and x.payload.getPos.tag == "SOME" then
+ else
+ goto else1
+ end
+ do
+ return x.payload.getPos.payload(nil)
+ end
+ ::else1::
+ if x.tag == "BUFFERED" and x.payload.initialPosition.tag == "NONE" then
+ local tmp54
+ do
+ local tmp55 = x.payload.next
+ ::cont::
+ do
+ local a1 = tmp55
+ local x1 = a1[1]
+ if x1.tag == "READABLE" then
+ tmp54 = x1.payload.name
+ elseif x1.tag == "PRIM_READER" then
+ tmp54 = x1.payload.name
+ elseif x1.tag == "BUFFERED" then
+ tmp55 = x1.payload.next
+ goto cont
+ elseif x1.tag == "CLOSED" then
+ tmp54 = x1.payload
+ else
+ _raise(_Match, "text-io.sml:93:23")
+ end
+ end
end
- if engine.supports_draftmode then
- current_tex_options.draftmode = true
- options.start_with_draft = false
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = tmp54}}, "text-io.sml:121:92")
+ end
+ if x.tag == "BUFFERED" and x.payload.initialPosition.tag == "SOME" then
+ elseif x.tag == "CLOSED" then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "filePosIn", name = x.payload}}, "text-io.sml:135:44")
+ else
+ _raise(_Match, "text-io.sml:117:25")
+ end
+ do
+ local position, initialPosition, tmp54
+ do
+ position = x.payload.position
+ local next = x.payload.next
+ initialPosition = x.payload.initialPosition.payload
+ tmp54 = next[1]
end
- current_tex_options.interaction = "batchmode"
- lightweight_mode = true
+ ::cont::
+ do
+ local a1 = tmp54
+ if a1.tag == "PRIM_READER" and (a1.payload.getPos.tag == "SOME" and (a1.payload.setPos.tag == "SOME" and a1.payload.readVec.tag == "SOME")) then
+ elseif a1.tag == "BUFFERED" then
+ tmp54 = a1.payload.next[1]
+ goto cont
+ elseif a1.tag == "CLOSED" then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "filePosIn", name = a1.payload}}, "text-io.sml:130:56")
+ elseif a1.tag == "PRIM_READER" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = a1.payload.name}}, "text-io.sml:131:86")
+ elseif a1.tag == "READABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = a1.payload.name}}, "text-io.sml:132:67")
+ else
+ _raise(_Match, "text-io.sml:123:37")
+ end
+ do
+ local getPos = a1.payload.getPos.payload
+ local setPos = a1.payload.setPos.payload
+ local readVec = a1.payload.readVec.payload
+ local savedPosition = getPos(nil)
+ setPos(initialPosition)
+ readVec(position)
+ local tmp55 = getPos(nil)
+ setPos(savedPosition)
+ return tmp55
+ end
+ end
+ end
+end
+_L[90] = function(stream, f, n)
+ local exp
+ do
+ local tmp54 = stream.readable:read(n)
+ if not tmp54 then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp54}
+ end
+ end
+ if exp.tag == "SOME" then
+ local chunk = exp.payload
+ f[1] = {tag = "BUFFERED", payload = {buffer = chunk, initialPosition = NONE, next = {{tag = "READABLE", payload = stream}}, position = 0}}
+ return true
+ elseif exp.tag == "NONE" then
+ return false
else
- current_tex_options.draftmode = false
+ _raise(_Match, "text-io.sml:137:11")
end
-
- local command = engine:build_command(inputline, 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
+_L[91] = function(rd, f, n)
+ local name = rd.name
+ local readVec = rd.readVec
+ local readArr = rd.readArr
+ local readVecNB = rd.readVecNB
+ local readArrNB = rd.readArrNB
+ local block = rd.block
+ local initialPosition
+ do
+ if rd.getPos.tag == "SOME" then
+ else
+ initialPosition = NONE
+ goto cont
end
- recovered = recoverylib.try_recovery{
- execlog = execlog,
- auxfile = path_in_output_directory("aux"),
- options = options,
- original_wd = original_wd,
- }
- return recovered
+ do
+ local tmp54 = rd.getPos.payload(nil)
+ initialPosition = {tag = "SOME", payload = tmp54}
+ end
end
- coroutine.yield(command, recover) -- Execute the command
- if recovered then
- return true, {}
+ ::cont::
+ local chunk
+ do
+ if readVec.tag == "SOME" then
+ else
+ goto else1
+ end
+ chunk = readVec.payload(n)
+ goto cont1
+ ::else1::
+ if readVec.tag == "NONE" then
+ else
+ _raise(_Match, "text-io.sml:152:27")
+ end
+ do
+ if readArr.tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ local ra = readArr.payload
+ local arr = _L[1]({n, 0})
+ local tmp54 = tmp39(arr)
+ local actual = ra(tmp54)
+ local tmp55 = tmp41({arr, 0, {tag = "SOME", payload = actual}})
+ chunk = tmp42(tmp55)
+ goto cont1
+ end
+ ::else2::
+ if readArr.tag == "NONE" then
+ else
+ _raise(_Match, "text-io.sml:154:39")
+ end
+ do
+ if block.tag == "SOME" and readVecNB.tag == "SOME" then
+ else
+ goto else3
+ end
+ do
+ local block_PRIME = block.payload
+ local rvNB = readVecNB.payload
+ local exp = rvNB(n)
+ if exp.tag == "SOME" then
+ chunk = exp.payload
+ goto cont1
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "text-io.sml:161:56")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = rvNB(n)
+ if exp1.tag == "SOME" then
+ chunk = exp1.payload
+ goto cont1
+ elseif exp1.tag == "NONE" then
+ chunk = ""
+ goto cont1
+ else
+ _raise(_Match, "text-io.sml:164:70")
+ end
+ end
+ end
+ ::else3::
+ if block.tag == "SOME" and (readVecNB.tag == "NONE" and readArrNB.tag == "SOME") then
+ else
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "<unknown>", name = name}}, "text-io.sml:180:60")
+ end
+ do
+ local block_PRIME = block.payload
+ local raNB = readArrNB.payload
+ local arr = _L[1]({n, 0})
+ local aslice = tmp39(arr)
+ local exp = raNB(aslice)
+ if exp.tag == "SOME" then
+ else
+ goto else4
+ end
+ do
+ local tmp54 = tmp41({arr, 0, {tag = "SOME", payload = exp.payload}})
+ chunk = tmp42(tmp54)
+ goto cont1
+ end
+ ::else4::
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "text-io.sml:172:58")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = raNB(aslice)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ chunk = ""
+ goto cont1
+ else
+ _raise(_Match, "text-io.sml:175:72")
+ end
+ do
+ local tmp54 = tmp41({arr, 0, {tag = "SOME", payload = exp1.payload}})
+ chunk = tmp42(tmp54)
+ end
+ end
+ end
+ end
+ end
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)
+ ::cont1::
+ f[1] = {tag = "BUFFERED", payload = {buffer = chunk, initialPosition = initialPosition, next = {{tag = "PRIM_READER", payload = rd}}, position = 0}}
+ return nil
+end
+_L[92] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local tmp55 = _L[90](x.payload, a1, 1)
+ if tmp55 then
+ tmp54 = a1
+ goto cont
+ else
+ return {"", a1}
+ end
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ do
+ local rd = x.payload
+ _L[91](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return {"", a1}
+ else
+ _raise(_Match, "text-io.sml:183:32")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local tmp55 = extract(buffer, position, NONE)
+ return {tmp55, next}
+ end
end
-
- if not execlog then
- local logfile = assert(io.open(path_in_output_directory("log")))
- execlog = logfile:read("*a")
- logfile:close()
+end
+_L[93] = function(buffer, position, next, initialPosition)
+ if position >= #buffer then
+ return next
+ else
+ return {{tag = "BUFFERED", payload = {buffer = buffer, initialPosition = initialPosition, next = next, position = position}}}
end
-
- if options.check_driver ~= nil then
- checkdriver(options.check_driver, filelist)
+end
+_L[94] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local tmp55 = _L[90](x.payload, a1, 1)
+ if tmp55 then
+ tmp54 = a1
+ goto cont
+ else
+ return NONE
+ end
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ do
+ local rd = x.payload
+ _L[91](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return NONE
+ else
+ _raise(_Match, "text-io.sml:196:33")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local initialPosition = x.payload.initialPosition
+ local tmp55 = sub1({buffer, position})
+ local tmp56 = _L[93](buffer, _Int_add(position, 1), next, initialPosition)
+ return {tag = "SOME", payload = {tmp55, tmp56}}
+ end
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"})
+end
+_L[95] = function(a)
+ local tmp54, tmp55
+ do
+ local f = a[1]
+ tmp54 = f
+ tmp55 = a[2]
+ end
+ ::cont::
+ do
+ local f, n = tmp54, tmp55
+ local x = f[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = _L[90](x.payload, f, n)
+ if tmp56 then
+ tmp54 = f
+ tmp55 = n
+ goto cont
+ else
+ return {"", f}
+ end
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ _L[91](x.payload, f, n)
+ tmp54 = f
+ tmp55 = n
+ goto cont
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return {"", f}
+ else
+ _raise(_Match, "text-io.sml:204:36")
+ end
+ do
+ local buffer, position, next
+ do
+ buffer = x.payload.buffer
+ position = x.payload.position
+ next = x.payload.next
+ local initialPosition = x.payload.initialPosition
+ local tmp56 = _Int_add(position, n)
+ if tmp56 <= #buffer then
else
- local succ, err = filesys.touch(output_ind)
- if not succ then
- message.warn("Failed to touch " .. output_ind .. " (" .. err .. ")")
+ goto else3
+ end
+ do
+ local tmp57 = substring(buffer, position, n)
+ local tmp58 = _L[93](buffer, tmp56, next, initialPosition)
+ return {tmp57, tmp58}
+ end
+ end
+ ::else3::
+ local buffer0 = extract(buffer, position, NONE)
+ local exp = _L[95]({next, _Int_sub(n, #buffer0)})
+ local buffer1 = exp[1]
+ local next1 = exp[2]
+ return {buffer0 .. buffer1, next1}
+ end
+ end
+end
+_L[96] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local x
+ do
+ local a1 = tmp54
+ x = a1[1]
+ if x.tag == "READABLE" then
+ local s = x.payload
+ local exp
+ do
+ local tmp55 = s.readable:read("L")
+ if not tmp55 then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp55}
end
end
+ if exp.tag == "SOME" then
+ local chunk = exp.payload
+ a1[1] = {tag = "BUFFERED", payload = {buffer = chunk, initialPosition = NONE, next = {{tag = "READABLE", payload = s}}, position = 0}}
+ tmp54 = a1
+ goto cont
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "text-io.sml:141:11")
+ end
end
+ if x.tag == "PRIM_READER" then
+ else
+ goto else1
+ end
+ do
+ local rd = x.payload
+ _L[91](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
end
+ ::else1::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return NONE
+ else
+ _raise(_Match, "text-io.sml:221:36")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local initialPosition = x.payload.initialPosition
+ local tmp55 = position
+ ::cont1::
+ do
+ local a1 = tmp55
+ if a1 >= #buffer then
+ else
+ goto else2
+ end
+ do
+ local exp = _L[96](next)
+ if exp.tag == "NONE" then
+ else
+ goto else3
+ end
+ do
+ local tmp56 = extract(buffer, position, NONE)
+ return {tag = "SOME", payload = {tmp56 .. "\n", next}}
+ end
+ ::else3::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "text-io.sml:229:68")
+ end
+ do
+ local line = exp.payload[1]
+ local next1 = exp.payload[2]
+ local tmp56 = extract(buffer, position, NONE)
+ return {tag = "SOME", payload = {tmp56 .. line, next1}}
+ end
+ end
+ ::else2::
+ local tmp56 = sub1({buffer, a1})
+ if tmp56 == 10 then
+ else
+ tmp55 = _Int_add(a1, 1)
+ goto cont1
+ end
+ do
+ local tmp57 = _Int_add(a1, 1)
+ local tmp58 = substring(buffer, position, _Int_sub(tmp57, position))
+ local tmp59 = _L[93](buffer, tmp57, next, initialPosition)
+ return {tag = "SOME", payload = {tmp58, tmp59}}
+ end
+ end
+ end
+ end
+end
+_L[97] = function(a)
+ local tmp54, tmp55
+ do
+ local x = a[1]
+ if x.tag == "READABLE" then
+ local s = x.payload
+ local tmp56 = s.readable:read("a")
+ local tmp57 = {{tag = "READABLE", payload = s}}
+ a[1] = {tag = "BUFFERED", payload = {buffer = tmp56, initialPosition = NONE, next = tmp57, position = 0}}
+ return {tmp56, tmp57}
+ end
+ tmp55, tmp54 = nil, a
+ end
+ ::cont::
+ do
+ local contentsRev, f = tmp55, tmp54
+ local exp = _L[92](f)
+ if exp[1] == "" then
+ else
+ local content = exp[1]
+ local f1 = exp[2]
+ tmp55 = {content, contentsRev}
+ tmp54 = f1
+ goto cont
+ end
+ do
+ local f1 = exp[2]
+ local tmp56 = revAppend(contentsRev, nil)
+ return {table_concat(_VectorOrArray_fromList(tmp56)), f1}
+ end
+ end
+end
+_L[98] = function(a)
+ local n, x
+ do
+ local f = a[1]
+ n = a[2]
+ if n < 0 then
+ _raise(_Size, "text-io.sml:251:42")
+ end
+ x = f[1]
+ if x.tag == "READABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[11], ["function"] = "canInput", name = x.payload.name}}, "text-io.sml:254:77")
+ end
+ if x.tag == "PRIM_READER" and x.payload.canInput.tag == "SOME" then
+ else
+ goto else1
+ end
+ do
+ local tmp54 = x.payload.canInput.payload(nil)
+ if tmp54 then
+ return {tag = "SOME", payload = 1}
+ else
+ return NONE
+ end
+ end
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" and x.payload.canInput.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[11], ["function"] = "canInput", name = x.payload.name}}, "text-io.sml:259:108")
+ end
+ if x.tag == "BUFFERED" then
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local tmp54 = _Int_sub(#buffer, position)
+ if n < tmp54 then
+ return {tag = "SOME", payload = n}
+ else
+ return {tag = "SOME", payload = tmp54}
+ end
+ elseif x.tag == "CLOSED" then
+ return {tag = "SOME", payload = 0}
else
- -- Check log file
- if string.find(execlog, "No file [^\n]+%.ind%.") then
- message.diag("You may want to use --makeindex option.")
+ _raise(_Match, "text-io.sml:253:42")
+ end
+end
+_L[99] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ local readable = x.payload.readable
+ local name = x.payload.name
+ readable:close()
+ a1[1] = {tag = "CLOSED", payload = name}
+ return nil
end
+ if x.tag == "PRIM_READER" then
+ elseif x.tag == "BUFFERED" then
+ tmp54 = x.payload.next
+ goto cont
+ elseif x.tag == "CLOSED" then
+ return nil
+ else
+ _raise(_Match, "text-io.sml:262:34")
+ end
+ do
+ local name = x.payload.name
+ x.payload.close(nil)
+ a1[1] = {tag = "CLOSED", payload = name}
+ return nil
+ 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"})
+end
+_L[100] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ return not x.payload.readable:read(0)
+ end
+ if x.tag == "PRIM_READER" then
+ elseif x.tag == "BUFFERED" then
+ return false
+ elseif x.tag == "CLOSED" then
+ return true
+ else
+ _raise(_Match, "text-io.sml:269:38")
+ end
+ do
+ local rd = x.payload
+ _L[91](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ end
+end
+_L[101] = function(stream, name, s)
+ local tmp54, tmp55 = stream:write(s)
+ if not tmp54 then
+ else
+ return nil
+ end
+ do
+ local tmp56 = _Fail(tmp55)
+ _raise({tag = _L[9], payload = {cause = tmp56, ["function"] = "output", name = name}}, "text-io.sml:290:43")
+ end
+end
+_L[102] = function(a)
+ if a[1].tag == "LUA_WRITABLE" then
+ else
+ goto else1
+ end
+ do
+ local writable = a[1].payload.writable
+ local name = a[1].payload.name
+ return _L[101](writable, name, a[2])
+ end
+ ::else1::
+ if a[1].tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:361:9")
+ end
+ do
+ local name, chunkSize, writeVec, buffer, content, x
+ do
+ name = a[1].payload.writer.name
+ chunkSize = a[1].payload.writer.chunkSize
+ writeVec = a[1].payload.writer.writeVec
+ local buffer_mode = a[1].payload.buffer_mode
+ buffer = a[1].payload.buffer
+ content = a[2]
+ x = buffer_mode[1]
+ if x == "NO_BUF" then
+ else
+ goto else2
+ end
+ do
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = name}}, "text-io.sml:367:41")
else
- local succ, err = filesys.touch(output_gls)
- if not succ then
- message.warn("Failed to touch " .. output_ind .. " (" .. err .. ")")
+ _raise(_Match, "text-io.sml:365:29")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp54 = tmp28(content)
+ writeVec1(tmp54)
+ return nil
+ end
+ end
+ end
+ ::else2::
+ if x == "LINE_BUF" then
+ else
+ goto else3
+ end
+ do
+ local tmp54 = tmp34(function(c)
+ return c == 10
+ end)
+ local tmp55 = tmp54(content)
+ if tmp55 then
+ else
+ buffer[1] = {content, buffer[1]}
+ return nil
+ end
+ do
+ local tmp56 = revAppend({content, buffer[1]}, nil)
+ local tmp57 = table_concat(_VectorOrArray_fromList(tmp56))
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = name}}, "text-io.sml:373:49")
+ else
+ _raise(_Match, "text-io.sml:371:37")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp58 = tmp28(tmp57)
+ writeVec1(tmp58)
+ buffer[1] = nil
+ return nil
+ end
+ end
+ end
+ ::else3::
+ if x == "BLOCK_BUF" then
+ else
+ _raise(_Match, "text-io.sml:364:11")
+ end
+ do
+ local x1 = buffer[1]
+ local tmp54 = foldl(function(a1)
+ local z = a1[1]
+ return _Int_add(a1[2], #z)
+ end)
+ local tmp55 = tmp54(#content)
+ local bufSize = tmp55(x1)
+ if bufSize >= chunkSize then
+ else
+ buffer[1] = {content, buffer[1]}
+ return nil
+ end
+ do
+ local tmp56 = revAppend({content, buffer[1]}, nil)
+ local tmp57 = table_concat(_VectorOrArray_fromList(tmp56))
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = name}}, "text-io.sml:384:53")
+ else
+ _raise(_Match, "text-io.sml:382:41")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp58 = tmp28(tmp57)
+ writeVec1(tmp58)
+ buffer[1] = nil
+ return nil
+ end
+ end
+ end
+ end
+end
+_L[103] = function(a)
+ local stream = a[1]
+ return _L[102]({stream, string_char(a[2])})
+end
+_L[104] = function(name, writeVec, buffer)
+ local tmp54 = revAppend(buffer[1], nil)
+ local tmp55 = table_concat(_VectorOrArray_fromList(tmp54))
+ buffer[1] = nil
+ if tmp55 ~= "" then
+ else
+ return nil
+ end
+ do
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "flushOut", name = name}}, "text-io.sml:406:30")
+ else
+ _raise(_Match, "text-io.sml:404:18")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp56 = tmp28(tmp55)
+ writeVec1(tmp56)
+ return nil
+ end
+ end
+end
+_L[105] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ a.payload.writable:flush()
+ return nil
+ else
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:410:9")
+ end
+ do
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ return _L[104](name, writeVec, a.payload.buffer)
+ end
+ end
+end
+_L[106] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ a.payload.writable:close()
+ return nil
+ end
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:413:9")
+ end
+ do
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local close = a.payload.writer.close
+ _L[104](name, writeVec, a.payload.buffer)
+ return close(nil)
+ end
+end
+_L[107] = function(a)
+ if a[1].tag == "LUA_WRITABLE" then
+ local writable = a[1].payload.writable
+ local buffer_mode = a[1].payload.buffer_mode
+ local mode = a[2]
+ local modeString
+ if mode == "NO_BUF" then
+ modeString = "no"
+ elseif mode == "BLOCK_BUF" then
+ modeString = "full"
+ elseif mode == "LINE_BUF" then
+ modeString = "line"
+ else
+ _raise(_Match, "text-io.sml:295:61")
+ end
+ writable:setvbuf(modeString)
+ buffer_mode[1] = mode
+ return nil
+ end
+ if a[1].tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:418:9")
+ end
+ do
+ local name = a[1].payload.writer.name
+ local writeVec = a[1].payload.writer.writeVec
+ local buffer_mode = a[1].payload.buffer_mode
+ local buffer = a[1].payload.buffer
+ local mode = a[2]
+ local tmp54 = _L[17](mode, _L[14])
+ if tmp54 then
+ else
+ buffer_mode[1] = mode
+ return nil
+ end
+ do
+ _L[104](name, writeVec, buffer)
+ buffer_mode[1] = mode
+ return nil
+ end
+ end
+end
+_L[108] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ return a.payload.buffer_mode[1]
+ elseif a.tag == "PRIM_WRITER" then
+ return a.payload.buffer_mode[1]
+ else
+ _raise(_Match, "text-io.sml:429:9")
+ end
+end
+_L[109] = function(a)
+ if a[1].ioDesc.tag == "SOME" then
+ local name = a[1].name
+ local ioDesc = a[1].ioDesc.payload
+ local mode = a[2]
+ local tmp54 = _L[56][ioDesc]
+ return {tag = "LUA_WRITABLE", payload = {buffer_mode = {mode}, name = name, writable = tmp54}}
+ else
+ local w = a[1]
+ local tmp54 = {a[2]}
+ return {tag = "PRIM_WRITER", payload = {buffer = {nil}, buffer_mode = tmp54, writer = w}}
+ end
+end
+_L[110] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ else
+ goto else1
+ end
+ do
+ local writable = a.payload.writable
+ local buffer_mode = a.payload.buffer_mode
+ local name = a.payload.name
+ writable:flush()
+ local tmp54
+ do
+ local ioDesc = _L[59](writable)
+ local tmp55 = {tag = "SOME", payload = function(slice)
+ local tmp56 = tmp31(slice)
+ _L[101](writable, name, tmp56)
+ writable:flush()
+ return tmp29(slice)
+ end}
+ local tmp56 = function(a1)
+ _L[60](ioDesc)
+ writable:close()
+ return nil
+ end
+ tmp54 = _L[85]({block = NONE, canOutput = NONE, chunkSize = 1024, close = tmp56, endPos = NONE, getPos = NONE, ioDesc = {tag = "SOME", payload = ioDesc}, name = name, setPos = NONE, verifyPos = NONE, writeArr = NONE, writeArrNB = NONE, writeVec = tmp55, writeVecNB = NONE})
+ end
+ return {tmp54, buffer_mode[1]}
+ end
+ ::else1::
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:436:9")
+ end
+ do
+ local writer = a.payload.writer
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local buffer_mode = a.payload.buffer_mode
+ _L[104](name, writeVec, a.payload.buffer)
+ return {writer, buffer_mode[1]}
+ end
+end
+_L[111] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "getPosOut", name = a.payload.name}}, "text-io.sml:443:50")
+ end
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:443:9")
+ end
+ do
+ local writer = a.payload.writer
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local getPos = a.payload.writer.getPos
+ local buffer_mode = a.payload.buffer_mode
+ local buffer = a.payload.buffer
+ if getPos.tag == "SOME" then
+ elseif getPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "getPosOut", name = name}}, "text-io.sml:449:23")
+ else
+ _raise(_Match, "text-io.sml:445:11")
+ end
+ do
+ local getPos1 = getPos.payload
+ _L[104](name, writeVec, buffer)
+ local tmp54 = getPos1(nil)
+ return {buffer = buffer, buffer_mode = buffer_mode, pos = tmp54, writer = writer}
+ end
+ end
+end
+_L[112] = function(a)
+ local writer = a.writer
+ local name = a.writer.name
+ local setPos = a.writer.setPos
+ local buffer_mode = a.buffer_mode
+ local buffer = a.buffer
+ local pos = a.pos
+ if setPos.tag == "SOME" then
+ elseif setPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "setPosOut", name = name}}, "text-io.sml:455:23")
+ else
+ _raise(_Match, "text-io.sml:451:11")
+ end
+ do
+ setPos.payload(pos)
+ return {tag = "PRIM_WRITER", payload = {buffer = buffer, buffer_mode = buffer_mode, writer = writer}}
+ end
+end
+_L[113] = _L[86](_L[98], _L[99], _L[106], _L[100], _L[89], function(a)
+ return a.pos
+end, _L[105], _L[108], _L[111], _L[88], _L[110], _L[92], _L[94], _L[97], _L[95], _L[87], _L[109], _L[102], _L[103], _L[107], _L[112])
+_L[114] = function(a)
+ local tmp54 = _L[113].getInstream(a)
+ local exp = _L[96](tmp54)
+ if exp.tag == "NONE" then
+ return NONE
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "text-io.sml:472:24")
+ end
+ do
+ local line = exp.payload[1]
+ local stream_PRIME = exp.payload[2]
+ local tmp55 = _L[113].setInstream
+ tmp55({a, stream_PRIME})
+ return {tag = "SOME", payload = line}
+ end
+end
+_L[115] = function(a)
+ local tmp54, tmp55 = tmp7(a, "r")
+ if tmp54 == nil then
+ else
+ local tmp56 = _L[113].mkInstream
+ return tmp56({{tag = "READABLE", payload = {name = a, readable = tmp54}}})
+ end
+ do
+ local tmp56 = _Fail(tmp55)
+ _raise({tag = _L[9], payload = {cause = tmp56, ["function"] = "TextIO.openIn", name = a}}, "text-io.sml:479:26")
+ end
+end
+do
+ _L[117] = _L[113].mkOutstream
+ _L[116] = _L[117]({tag = "LUA_WRITABLE", payload = {buffer_mode = {_L[15]}, name = "<stdout>", writable = tmp10}})
+end
+do
+ _L[119] = _L[113].mkOutstream
+ _L[118] = _L[119]({tag = "LUA_WRITABLE", payload = {buffer_mode = {_L[14]}, name = "<stderr>", writable = tmp9}})
+end
+_L[120] = _L[113].closeIn
+_L[121] = _L[113].closeOut
+_L[122] = _L[113].getInstream
+_L[123] = _L[113].inputAll
+_L[124] = _L[113].output
+_L[125] = function(a)
+ local rd = a[1]
+ local content = a[2]
+ local tip
+ if rd.ioDesc.tag == "SOME" then
+ local name = rd.name
+ tip = {{tag = "READABLE", payload = {name = name, readable = _L[56][rd.ioDesc.payload]}}}
+ else
+ tip = {{tag = "PRIM_READER", payload = rd}}
+ end
+ local tmp54 = tmp51(content)
+ if tmp54 > 0 then
+ return {{tag = "BUFFERED", payload = {buffer = content, initialPosition = NONE, next = tip, position = 0}}}
+ else
+ return tip
+ end
+end
+_L[126] = function(a)
+ local tmp54, tmp55 = a, nil
+ ::cont::
+ do
+ local ins, acc = tmp54, tmp55
+ local x = ins[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local readable = x.payload.readable
+ local name = x.payload.name
+ ins[1] = {tag = "CLOSED", payload = name}
+ local tmp56
+ do
+ local ioDesc = _L[59](readable)
+ local tmp57 = {tag = "SOME", payload = function(a1)
+ local exp
+ do
+ local tmp58 = readable:read(a1)
+ if not tmp58 then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp58}
+ end
end
+ if exp.tag == "NONE" then
+ elseif exp.tag == "SOME" then
+ return exp.payload
+ else
+ _raise(_Match, "bin-io.sml:28:28")
+ end
+ do
+ return tmp50(nil)
+ end
+ end}
+ local tmp58 = function(a1)
+ return NONE
end
+ local tmp59 = function(a1)
+ _L[60](ioDesc)
+ readable:close()
+ return nil
+ end
+ tmp56 = _L[81]({avail = tmp58, block = NONE, canInput = NONE, chunkSize = 1024, close = tmp59, endPos = NONE, getPos = NONE, ioDesc = {tag = "SOME", payload = ioDesc}, name = name, readArr = NONE, readArrNB = NONE, readVec = tmp57, readVecNB = NONE, setPos = NONE, verifyPos = NONE})
end
+ local tmp57 = revAppend(acc, nil)
+ local tmp58 = tmp44(tmp57)
+ return {tmp56, tmp58}
end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ do
+ local rd = x.payload
+ ins[1] = {tag = "CLOSED", payload = x.payload.name}
+ local tmp56 = revAppend(acc, nil)
+ local tmp57 = tmp44(tmp56)
+ return {rd, tmp57}
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "getReader", name = x.payload}}, "bin-io.sml:103:57")
+ else
+ _raise(_Match, "bin-io.sml:99:38")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local tmp56 = tmp47({buffer, position, NONE})
+ tmp54 = next
+ tmp55 = {tmp56, acc}
+ goto cont
+ end
+ end
+end
+_L[127] = function(a)
+ local x = a[1]
+ if x.tag == "READABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = x.payload.name}}, "bin-io.sml:108:55")
+ end
+ if x.tag == "PRIM_READER" and x.payload.getPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = x.payload.name}}, "bin-io.sml:109:88")
+ end
+ if x.tag == "PRIM_READER" and x.payload.getPos.tag == "SOME" then
else
- -- Check log file
- if string.find(execlog, "No file [^\n]+%.gls%.") then
- message.diag("You may want to use --makeglossaries option.")
+ goto else1
+ end
+ do
+ return x.payload.getPos.payload(nil)
+ end
+ ::else1::
+ if x.tag == "BUFFERED" and x.payload.initialPosition.tag == "NONE" then
+ local tmp54
+ do
+ local tmp55 = x.payload.next
+ ::cont::
+ do
+ local a1 = tmp55
+ local x1 = a1[1]
+ if x1.tag == "READABLE" then
+ tmp54 = x1.payload.name
+ elseif x1.tag == "PRIM_READER" then
+ tmp54 = x1.payload.name
+ elseif x1.tag == "BUFFERED" then
+ tmp55 = x1.payload.next
+ goto cont
+ elseif x1.tag == "CLOSED" then
+ tmp54 = x1.payload
+ else
+ _raise(_Match, "bin-io.sml:84:23")
+ end
+ end
end
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "filePosIn", name = tmp54}}, "bin-io.sml:111:92")
+ elseif x.tag == "BUFFERED" and x.payload.initialPosition.tag == "SOME" then
+ local position = x.payload.position
+ return _Int_add(x.payload.initialPosition.payload, position)
+ elseif x.tag == "CLOSED" then
+ _raise({tag = _L[9], payload = {cause = _L[13], ["function"] = "filePosIn", name = x.payload}}, "bin-io.sml:113:44")
+ else
+ _raise(_Match, "bin-io.sml:107:25")
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
+_L[128] = function(stream, f, n)
+ local exp
+ do
+ local tmp54 = stream.readable:read(n)
+ if not tmp54 then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp54}
end
- local output_bbl = path_in_output_directory("bbl")
- if bibtex_aux_hash ~= bibtex_aux_hash2 or reruncheck.comparefiletime(pathutil.abspath(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, " "))
+ end
+ if exp.tag == "SOME" then
+ local chunk = exp.payload
+ f[1] = {tag = "BUFFERED", payload = {buffer = chunk, initialPosition = NONE, next = {{tag = "READABLE", payload = stream}}, position = 0}}
+ return true
+ elseif exp.tag == "NONE" then
+ return false
+ else
+ _raise(_Match, "bin-io.sml:115:11")
+ end
+end
+_L[129] = function(rd, f, n)
+ local name = rd.name
+ local readVec = rd.readVec
+ local readArr = rd.readArr
+ local readVecNB = rd.readVecNB
+ local readArrNB = rd.readArrNB
+ local block = rd.block
+ local initialPosition
+ do
+ if rd.getPos.tag == "SOME" then
else
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("No need to run BibTeX.")
+ initialPosition = NONE
+ goto cont
+ end
+ do
+ local tmp54 = rd.getPos.payload(nil)
+ initialPosition = {tag = "SOME", payload = tmp54}
+ end
+ end
+ ::cont::
+ local chunk
+ do
+ if readVec.tag == "SOME" then
+ else
+ goto else1
+ end
+ chunk = readVec.payload(n)
+ goto cont1
+ ::else1::
+ if readVec.tag == "NONE" then
+ else
+ _raise(_Match, "bin-io.sml:126:27")
+ end
+ do
+ if readArr.tag == "SOME" then
+ else
+ goto else2
end
- local succ, err = filesys.touch(output_bbl)
- if not succ then
- message.warn("Failed to touch " .. output_bbl .. " (" .. err .. ")")
+ do
+ local ra = readArr.payload
+ local arr = _L[39]({n, 0x0})
+ local tmp54 = _L[35](arr)
+ local actual = ra(tmp54)
+ local tmp55 = _L[37]({arr, 0, {tag = "SOME", payload = actual}})
+ chunk = _L[38](tmp55)
+ goto cont1
end
- end
- elseif options.biber then
- for _,file in ipairs(filelist) do
- -- usual compilation with biber
- -- tex -> pdflatex tex -> aux,bcf,pdf,run.xml
- -- bcf -> biber bcf -> bbl
- -- tex,bbl -> pdflatex tex -> aux,bcf,pdf,run.xml
- 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")
- local updated_dot_bib = false
- -- get the .bib files, the bcf uses as input
- for l in io.lines(file.abspath) do
- local bib = l:match("<bcf:datasource .*>(.*)</bcf:datasource>") -- might be unstable if biblatex adds e.g. a linebreak
- if bib then
- local bibfile = pathutil.join(original_wd, bib)
- local succ, err = io.open(bibfile, "r") -- check if file is present, don't use touch to avoid triggering a rerun
- if succ then
- succ:close()
- local updated_dot_bib_tmp = not reruncheck.comparefiletime(pathutil.abspath(mainauxfile), bibfile, auxstatus)
- if updated_dot_bib_tmp then
- message.info(bibfile.." is newer than aux")
- end
- updated_dot_bib = updated_dot_bib_tmp or updated_dot_bib
+ ::else2::
+ if readArr.tag == "NONE" then
+ else
+ _raise(_Match, "bin-io.sml:128:39")
+ end
+ do
+ if block.tag == "SOME" and readVecNB.tag == "SOME" then
+ else
+ goto else3
+ end
+ do
+ local block_PRIME = block.payload
+ local rvNB = readVecNB.payload
+ local exp = rvNB(n)
+ if exp.tag == "SOME" then
+ chunk = exp.payload
+ goto cont1
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "bin-io.sml:135:56")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = rvNB(n)
+ if exp1.tag == "SOME" then
+ chunk = exp1.payload
+ goto cont1
+ else
+ if exp1.tag == "NONE" then
else
- message.warn(bibfile .. " is not accessible (" .. err .. ")")
+ _raise(_Match, "bin-io.sml:138:70")
end
+ chunk = tmp50(nil)
+ goto cont1
end
+ end
end
- if updated_dot_bib or reruncheck.comparefileinfo({bcffileinfo}, auxstatus) or reruncheck.comparefiletime(file.abspath, output_bbl, auxstatus) then
- 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, " "))
- -- watch for changes in the bbl
- table.insert(filelist, {path = output_bbl, abspath = output_bbl, kind = "auxiliary"})
+ ::else3::
+ if block.tag == "SOME" and (readVecNB.tag == "NONE" and readArrNB.tag == "SOME") then
else
- local succ, err = filesys.touch(output_bbl)
- if not succ then
- message.warn("Failed to touch " .. output_bbl .. " (" .. err .. ")")
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "<unknown>", name = name}}, "bin-io.sml:154:60")
+ end
+ do
+ local block_PRIME = block.payload
+ local raNB = readArrNB.payload
+ local arr = _L[39]({n, 0x0})
+ local aslice = _L[35](arr)
+ local exp = raNB(aslice)
+ if exp.tag == "SOME" then
+ else
+ goto else4
end
+ do
+ local tmp54 = _L[37]({arr, 0, {tag = "SOME", payload = exp.payload}})
+ chunk = _L[38](tmp54)
+ goto cont1
+ end
+ ::else4::
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "bin-io.sml:146:58")
+ end
+ do
+ block_PRIME(nil)
+ local exp1 = raNB(aslice)
+ if exp1.tag == "SOME" then
+ else
+ if exp1.tag == "NONE" then
+ else
+ _raise(_Match, "bin-io.sml:149:72")
+ end
+ chunk = tmp50(nil)
+ goto cont1
+ end
+ do
+ local tmp54 = _L[37]({arr, 0, {tag = "SOME", payload = exp1.payload}})
+ chunk = _L[38](tmp54)
+ end
+ end
end
end
end
+ end
+ ::cont1::
+ f[1] = {tag = "BUFFERED", payload = {buffer = chunk, initialPosition = initialPosition, next = {{tag = "PRIM_READER", payload = rd}}, position = 0}}
+ return nil
+end
+_L[130] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local tmp55 = _L[128](x.payload, a1, 1)
+ if tmp55 then
+ tmp54 = a1
+ goto cont
+ end
+ local tmp56 = tmp50(nil)
+ return {tmp56, a1}
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ do
+ local rd = x.payload
+ _L[129](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ else
+ goto else3
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local tmp55 = tmp47({buffer, position, NONE})
+ local tmp56 = tmp48(tmp55)
+ return {tmp56, next}
+ end
+ ::else3::
+ if x.tag == "CLOSED" then
+ else
+ _raise(_Match, "bin-io.sml:157:32")
+ end
+ do
+ local tmp55 = tmp50(nil)
+ return {tmp55, a1}
+ end
+ end
+end
+_L[131] = function(buffer, position, next, initialPosition)
+ local tmp54 = tmp51(buffer)
+ if position >= tmp54 then
+ return next
else
- -- Check log file
- if string.find(execlog, "No file [^\n]+%.bbl%.") then
- message.diag("You may want to use --bibtex or --biber option.")
+ return {{tag = "BUFFERED", payload = {buffer = buffer, initialPosition = initialPosition, next = next, position = position}}}
+ end
+end
+_L[132] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
end
+ do
+ local tmp55 = _L[128](x.payload, a1, 1)
+ if tmp55 then
+ tmp54 = a1
+ goto cont
+ else
+ return NONE
+ end
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ do
+ local rd = x.payload
+ _L[129](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ ::else2::
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return NONE
+ else
+ _raise(_Match, "bin-io.sml:170:33")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local next = x.payload.next
+ local initialPosition = x.payload.initialPosition
+ local tmp55 = tmp52({buffer, position})
+ local tmp56 = _L[131](buffer, _Int_add(position, 1), next, initialPosition)
+ return {tag = "SOME", payload = {tmp55, tmp56}}
+ end
end
-
- if string.find(execlog, "No pages of output.") then
- return "No pages of output."
+end
+_L[133] = function(a)
+ local tmp54, tmp55
+ do
+ local f = a[1]
+ tmp54 = f
+ tmp55 = a[2]
end
-
- local should_rerun, auxstatus = reruncheck.comparefileinfo(filelist, auxstatus)
- return should_rerun or lightweight_mode, auxstatus
+ ::cont::
+ do
+ local f, n = tmp54, tmp55
+ local x = f[1]
+ if x.tag == "READABLE" then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = _L[128](x.payload, f, n)
+ if tmp56 then
+ tmp54 = f
+ tmp55 = n
+ goto cont
+ end
+ local tmp57 = tmp50(nil)
+ return {tmp57, f}
+ end
+ ::else1::
+ if x.tag == "PRIM_READER" then
+ else
+ goto else2
+ end
+ _L[129](x.payload, f, n)
+ tmp54 = f
+ tmp55 = n
+ goto cont
+ ::else2::
+ if x.tag == "BUFFERED" then
+ else
+ goto else3
+ end
+ do
+ local buffer, position, next
+ do
+ buffer = x.payload.buffer
+ position = x.payload.position
+ next = x.payload.next
+ local initialPosition = x.payload.initialPosition
+ local tmp56 = _Int_add(position, n)
+ local tmp57 = tmp51(buffer)
+ if tmp56 <= tmp57 then
+ else
+ goto else4
+ end
+ do
+ local tmp58 = tmp47({buffer, position, {tag = "SOME", payload = n}})
+ local tmp59 = tmp48(tmp58)
+ local tmp60 = _L[131](buffer, tmp56, next, initialPosition)
+ return {tmp59, tmp60}
+ end
+ end
+ ::else4::
+ local buffer0 = tmp47({buffer, position, NONE})
+ local tmp56 = tmp46(buffer0)
+ local exp = _L[133]({next, _Int_sub(n, tmp56)})
+ local buffer1 = exp[1]
+ local next1 = exp[2]
+ local tmp57 = tmp45(buffer1)
+ local tmp58 = tmp44({buffer0, {tmp57, nil}})
+ return {tmp58, next1}
+ end
+ ::else3::
+ if x.tag == "CLOSED" then
+ else
+ _raise(_Match, "bin-io.sml:178:36")
+ end
+ do
+ local tmp56 = tmp50(nil)
+ return {tmp56, f}
+ end
+ end
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
+_L[134] = function(a)
+ local tmp54, tmp55
+ do
+ local x = a[1]
+ if x.tag == "READABLE" then
+ local s = x.payload
+ local tmp56 = s.readable:read("a")
+ local tmp57 = {{tag = "READABLE", payload = s}}
+ a[1] = {tag = "BUFFERED", payload = {buffer = tmp56, initialPosition = NONE, next = tmp57, position = 0}}
+ return {tmp56, tmp57}
end
- until not should_rerun or iteration >= options.max_iterations
-
- if should_rerun then
- message.warn("LaTeX should be run once more.")
+ tmp55, tmp54 = nil, a
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
+ ::cont::
+ do
+ local contentsRev, f = tmp55, tmp54
+ local exp = _L[130](f)
+ local content = exp[1]
+ local f1 = exp[2]
+ local tmp56 = tmp51(content)
+ if tmp56 == 0 then
+ else
+ tmp55 = {content, contentsRev}
+ tmp54 = f1
+ goto cont
+ end
+ do
+ local tmp57 = revAppend(contentsRev, nil)
+ local tmp58 = tmp49(tmp57)
+ return {tmp58, f1}
+ end
+ end
+end
+_L[135] = function(a)
+ local n, x
+ do
+ local f = a[1]
+ n = a[2]
+ if n < 0 then
+ _raise(_Size, "bin-io.sml:208:42")
+ end
+ x = f[1]
+ if x.tag == "READABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[11], ["function"] = "canInput", name = x.payload.name}}, "bin-io.sml:211:77")
+ end
+ if x.tag == "PRIM_READER" and x.payload.canInput.tag == "SOME" then
+ else
+ goto else1
+ end
+ do
+ local tmp54 = x.payload.canInput.payload(nil)
+ if tmp54 then
+ return {tag = "SOME", payload = 1}
+ else
+ return NONE
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
+ ::else1::
+ if x.tag == "PRIM_READER" and x.payload.canInput.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[11], ["function"] = "canInput", name = x.payload.name}}, "bin-io.sml:216:107")
+ end
+ if x.tag == "BUFFERED" then
+ elseif x.tag == "CLOSED" then
+ return {tag = "SOME", payload = 0}
+ else
+ _raise(_Match, "bin-io.sml:210:42")
+ end
+ do
+ local buffer = x.payload.buffer
+ local position = x.payload.position
+ local tmp54 = tmp51(buffer)
+ local tmp55 = _Int_sub(tmp54, position)
+ if n < tmp55 then
+ return {tag = "SOME", payload = n}
+ else
+ return {tag = "SOME", payload = tmp55}
end
-
+ end
+end
+_L[136] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ local readable = x.payload.readable
+ local name = x.payload.name
+ readable:close()
+ a1[1] = {tag = "CLOSED", payload = name}
+ return nil
+ end
+ if x.tag == "PRIM_READER" then
+ elseif x.tag == "BUFFERED" then
+ tmp54 = x.payload.next
+ goto cont
+ elseif x.tag == "CLOSED" then
+ return nil
+ else
+ _raise(_Match, "bin-io.sml:219:34")
+ end
+ do
+ local name = x.payload.name
+ x.payload.close(nil)
+ a1[1] = {tag = "CLOSED", payload = name}
+ return nil
+ end
+ end
+end
+_L[137] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ local x = a1[1]
+ if x.tag == "READABLE" then
+ return not x.payload.readable:read(0)
+ end
+ if x.tag == "PRIM_READER" then
+ elseif x.tag == "BUFFERED" then
+ return false
+ elseif x.tag == "CLOSED" then
+ return true
+ else
+ _raise(_Match, "bin-io.sml:226:38")
+ end
+ do
+ local rd = x.payload
+ _L[129](rd, a1, x.payload.chunkSize)
+ tmp54 = a1
+ goto cont
+ end
+ end
+end
+_L[138] = function(stream, name, s)
+ local tmp54, tmp55 = stream:write(s)
+ if not tmp54 then
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)
+ return nil
+ end
+ do
+ local tmp56 = _Fail(tmp55)
+ _raise({tag = _L[9], payload = {cause = tmp56, ["function"] = "output", name = name}}, "bin-io.sml:248:18")
+ end
+end
+_L[139] = function(a)
+ if a[1].tag == "LUA_WRITABLE" then
+ else
+ goto else1
+ end
+ do
+ local writable = a[1].payload.writable
+ local name = a[1].payload.name
+ return _L[138](writable, name, a[2])
+ end
+ ::else1::
+ if a[1].tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:317:9")
+ end
+ do
+ local name, chunkSize, writeVec, buffer, content
+ do
+ name = a[1].payload.writer.name
+ chunkSize = a[1].payload.writer.chunkSize
+ writeVec = a[1].payload.writer.writeVec
+ local buffer_mode = a[1].payload.buffer_mode
+ buffer = a[1].payload.buffer
+ content = a[2]
+ if buffer_mode[1] == "NO_BUF" then
+ else
+ goto else2
+ end
+ do
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = name}}, "bin-io.sml:323:41")
+ else
+ _raise(_Match, "bin-io.sml:321:29")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp54 = tmp45(content)
+ writeVec1(tmp54)
+ return nil
+ end
+ end
end
- table.insert(dvipdfmx_command, shellutil.escape(dvifile))
- coroutine.yield(table.concat(dvipdfmx_command, " "))
+ ::else2::
+ local x = buffer[1]
+ local tmp54 = foldl(function(a1)
+ local z = a1[1]
+ local acc = a1[2]
+ local tmp55 = tmp51(z)
+ return _Int_add(acc, tmp55)
+ end)
+ local tmp55 = tmp51(content)
+ local tmp56 = tmp54(tmp55)
+ local bufSize = tmp56(x)
+ if bufSize >= chunkSize then
+ else
+ buffer[1] = {content, buffer[1]}
+ return nil
+ end
+ do
+ local tmp57 = revAppend({content, buffer[1]}, nil)
+ local content_PRIME = tmp49(tmp57)
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = name}}, "bin-io.sml:332:37")
+ else
+ _raise(_Match, "bin-io.sml:330:25")
+ end
+ do
+ local writeVec1 = writeVec.payload
+ local tmp58 = tmp45(content_PRIME)
+ writeVec1(tmp58)
+ buffer[1] = nil
+ return nil
+ end
+ end
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
+_L[140] = function(a)
+ local stream = a[1]
+ local tmp54 = tmp50({a[2], nil})
+ return _L[139]({stream, tmp54})
+end
+_L[141] = function(name, writeVec, buffer)
+ local tmp54 = revAppend(buffer[1], nil)
+ local content = tmp49(tmp54)
+ buffer[1] = nil
+ local tmp55 = tmp51(content)
+ if tmp55 > 0 then
+ else
+ return nil
+ end
+ do
+ if writeVec.tag == "SOME" then
+ elseif writeVec.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "flushOut", name = name}}, "bin-io.sml:353:30")
+ else
+ _raise(_Match, "bin-io.sml:351:18")
end
- if synctex_ext then
- coroutine.yield(fsutil.copy_command(path_in_output_directory(synctex_ext), pathutil.replaceext(options.output, synctex_ext)))
+ do
+ local writeVec1 = writeVec.payload
+ local tmp56 = tmp45(content)
+ writeVec1(tmp56)
+ return nil
end
end
-
- -- Write dependencies file
- if options.make_depends then
- 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
+_L[142] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ a.payload.writable:flush()
+ return nil
+ else
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:357:9")
end
- local f = assert(io.open(options.make_depends, "w"))
- f:write(options.output, ":")
- for _,fileinfo in ipairs(filelist) do
- if fileinfo.kind == "input" then
- f:write(" ", fileinfo.path)
+ do
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ return _L[141](name, writeVec, a.payload.buffer)
+ end
+ end
+end
+_L[143] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ a.payload.writable:close()
+ return nil
+ end
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:360:9")
+ end
+ do
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local close = a.payload.writer.close
+ _L[141](name, writeVec, a.payload.buffer)
+ return close(nil)
+ end
+end
+_L[144] = function(a)
+ if a[1].tag == "LUA_WRITABLE" then
+ local writable = a[1].payload.writable
+ local buffer_mode = a[1].payload.buffer_mode
+ local mode = a[2]
+ local modeString
+ if mode == "NO_BUF" then
+ modeString = "no"
+ else
+ modeString = "full"
+ end
+ writable:setvbuf(modeString)
+ buffer_mode[1] = mode
+ return nil
+ end
+ if a[1].tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:365:9")
+ end
+ do
+ local name = a[1].payload.writer.name
+ local writeVec = a[1].payload.writer.writeVec
+ local buffer_mode = a[1].payload.buffer_mode
+ local buffer = a[1].payload.buffer
+ local mode = a[2]
+ local tmp54 = _L[17](mode, _L[14])
+ if tmp54 then
+ else
+ buffer_mode[1] = mode
+ return nil
+ end
+ do
+ _L[141](name, writeVec, buffer)
+ buffer_mode[1] = mode
+ return nil
+ end
+ end
+end
+_L[145] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ return a.payload.buffer_mode[1]
+ elseif a.tag == "PRIM_WRITER" then
+ return a.payload.buffer_mode[1]
+ else
+ _raise(_Match, "bin-io.sml:376:9")
+ end
+end
+_L[146] = function(a)
+ if a[1].ioDesc.tag == "SOME" then
+ local name = a[1].name
+ local ioDesc = a[1].ioDesc.payload
+ local mode = a[2]
+ local tmp54 = _L[56][ioDesc]
+ return {tag = "LUA_WRITABLE", payload = {buffer_mode = {mode}, name = name, writable = tmp54}}
+ else
+ local w = a[1]
+ local tmp54 = {a[2]}
+ return {tag = "PRIM_WRITER", payload = {buffer = {nil}, buffer_mode = tmp54, writer = w}}
+ end
+end
+_L[147] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ else
+ goto else1
+ end
+ do
+ local writable = a.payload.writable
+ local buffer_mode = a.payload.buffer_mode
+ local name = a.payload.name
+ writable:flush()
+ local tmp54
+ do
+ local ioDesc = _L[59](writable)
+ local tmp55 = {tag = "SOME", payload = function(slice)
+ local tmp56 = tmp48(slice)
+ _L[138](writable, name, tmp56)
+ writable:flush()
+ return tmp46(slice)
+ end}
+ local tmp56 = function(a1)
+ _L[60](ioDesc)
+ writable:close()
+ return nil
end
+ tmp54 = _L[82]({block = NONE, canOutput = NONE, chunkSize = 1024, close = tmp56, endPos = NONE, getPos = NONE, ioDesc = {tag = "SOME", payload = ioDesc}, name = name, setPos = NONE, verifyPos = NONE, writeArr = NONE, writeArrNB = NONE, writeVec = tmp55, writeVecNB = NONE})
end
- f:write("\n")
- f:close()
+ return {tmp54, buffer_mode[1]}
end
+ ::else1::
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:383:9")
+ end
+ do
+ local writer = a.payload.writer
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local buffer_mode = a.payload.buffer_mode
+ _L[141](name, writeVec, a.payload.buffer)
+ return {writer, buffer_mode[1]}
+ 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
+_L[148] = function(a)
+ if a.tag == "LUA_WRITABLE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "getPosOut", name = a.payload.name}}, "bin-io.sml:390:50")
+ end
+ if a.tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "bin-io.sml:390:9")
+ end
+ do
+ local writer = a.payload.writer
+ local name = a.payload.writer.name
+ local writeVec = a.payload.writer.writeVec
+ local getPos = a.payload.writer.getPos
+ local buffer_mode = a.payload.buffer_mode
+ local buffer = a.payload.buffer
+ if getPos.tag == "SOME" then
+ elseif getPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "getPosOut", name = name}}, "bin-io.sml:396:23")
+ else
+ _raise(_Match, "bin-io.sml:392:11")
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))
+ do
+ local getPos1 = getPos.payload
+ _L[141](name, writeVec, buffer)
+ local tmp54 = getPos1(nil)
+ return {buffer = buffer, buffer_mode = buffer_mode, pos = tmp54, writer = writer}
+ end
+ end
+end
+_L[149] = function(a)
+ local writer = a.writer
+ local name = a.writer.name
+ local setPos = a.writer.setPos
+ local buffer_mode = a.buffer_mode
+ local buffer = a.buffer
+ local pos = a.pos
+ if setPos.tag == "SOME" then
+ elseif setPos.tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[12], ["function"] = "setPosOut", name = name}}, "bin-io.sml:402:23")
+ else
+ _raise(_Match, "bin-io.sml:398:11")
+ end
+ do
+ setPos.payload(pos)
+ return {tag = "PRIM_WRITER", payload = {buffer = buffer, buffer_mode = buffer_mode, writer = writer}}
+ end
+end
+_L[150] = _L[86](_L[135], _L[136], _L[143], _L[137], _L[127], function(a)
+ return a.pos
+end, _L[142], _L[145], _L[148], _L[126], _L[147], _L[130], _L[132], _L[134], _L[133], _L[125], _L[146], _L[139], _L[140], _L[144], _L[149])
+_L[151] = function(a)
+ local tmp54, tmp55 = tmp7(a, "rb")
+ if tmp54 == nil then
+ else
+ local tmp56 = _L[150].mkInstream
+ return tmp56({{tag = "READABLE", payload = {name = a, readable = tmp54}}})
+ end
+ do
+ local tmp56 = _Fail(tmp55)
+ _raise({tag = _L[9], payload = {cause = tmp56, ["function"] = "BinIO.openIn", name = a}}, "bin-io.sml:421:26")
+ end
+end
+_L[152] = _L[150].closeIn
+_L[153] = _L[150].inputAll
+_L[154] = _ENV.arg
+_Array_array(64, nil)
+_L[155] = function(a)
+ local status, exn = _handle(function()
+ local tmp54 = _Int_add(a, a)
+ if tmp54 < math_maxinteger then
+ else
+ return a
+ end
+ do
+ return _L[155](tmp54)
+ end
+ end)
+ if not status then
+ if __exn_instanceof(exn, _Overflow_tag) then
+ return a
+ else
+ _raise(exn, nil)
+ end
+ else
+ return exn
+ end
+end
+_L[155](65536)
+_L[156] = _L[39]({256, 0xFF})
+_L[45]({_L[156], 9, 0x41})
+_L[45]({_L[156], 10, 0x41})
+_L[45]({_L[156], 13, 0x41})
+_L[45]({_L[156], 32, 0x41})
+_L[157] = tmp33(function(a)
+ local i = a[1]
+ local c = a[2]
+ return _L[45]({_L[156], c, i & 0xFF})
+end)
+_L[157]("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
+tmp53({256, function(i)
+ return _L[43]({_L[156], i})
+end})
+_L[158] = _L[39]({256, 0xFF})
+_L[159] = tmp33(function(a)
+ local i = a[1]
+ local c = a[2]
+ return _L[45]({_L[158], c, i & 0xFF})
+end)
+_L[159]("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
+tmp53({256, function(i)
+ return _L[43]({_L[158], i})
+end})
+tmp50(_list({n = 9, 0x0, 0x1, 0x3, 0x7, 0xF, 0x1F, 0x3F, 0x7F, 0xFF}))
+tmp50(_list({n = 9, 0xFF, 0xFE, 0xFC, 0xF8, 0xF0, 0xE0, 0xC0, 0x80, 0x0}))
+do
+ _L[160], _L[161] = _handle(function()
+ _Int_mul(8, _L[42])
+ return nil
+ end)
+ if not _L[160] then
+ if __exn_instanceof(_L[161], _Overflow_tag) then
+ else
+ _raise(_L[161], nil)
+ end
+ end
+end
+do
+ _L[162] = _L[22](2147483646)
+ if _L[162].tag == "ZERO" then
+ elseif _L[162].tag == "POSITIVE" then
+ elseif _L[162].tag == "NEGATIVE" then
+ else
+ _raise(_Match, "int-inf.sml:130:5")
+ end
+end
+_L[163] = _L[22](2147483647)
+do
+ if _L[163].tag == "ZERO" then
+ goto cont2
+ end
+ if _L[163].tag == "POSITIVE" then
+ else
+ goto else1
+ end
+ toRealAbs(_L[163].payload)
+ goto cont2
+ ::else1::
+ if _L[163].tag == "NEGATIVE" then
+ else
+ _raise(_Match, "int-inf.sml:1082:5")
+ end
+ do
+ _L[164] = toRealAbs(_L[163].payload)
+ end
+end
+::cont2::
+_id(32768 * 1.0)
+_id(32768 * 1.0)
+_Int_add(3, 48)
+do
+ _L[165] = 123 & 0x7FFFFFFF
+ if not math_ult(0x1, tmp24) then
+ _L[166] = 0x0
+ else
+ _L[166] = _L[165] << 0x1
+ end
+ _L[167], _L[168], _L[169], _L[170] = 48, nil, _L[166] + 0x1, 73256
+ ::cont5::
+ do
+ local _L1 = {}
+ _L1[1], _L1[2], _L1[3], _L1[4] = _L[167], _L[168], _L[169], _L[170]
+ if _L1[1] == 0 then
+ goto cont3
+ end
+ _L1[5], _L1[6], _L1[7], _L1[8] = 31, 0x0, _L1[3], _L1[4]
+ ::cont6::
+ do
+ local _L2 = {}
+ _L2[1], _L2[2], _L2[3], _L2[4] = _L1[5], _L1[6], _L1[7], _L1[8]
+ if _L2[1] == 0 then
+ _L2[5] = _Int_sub(_L1[1], 1)
+ _L[167] = _L2[5]
+ _L[168] = {_L2[2], _L1[2]}
+ _L[169] = _L2[3]
+ _L[170] = _L2[4]
+ goto cont5
+ end
+ _L2[6] = _Int_sub(_L2[1], 1)
+ do
+ _L2[8] = 0xBC8F * _Word_mod(_L2[3], 0xADC8)
+ _L2[9] = 0xD47 * ((_L2[3] >> 3) // 5561)
+ if math_ult(_L2[9], _L2[8]) then
+ _L2[7] = _L2[8] - _L2[9]
+ else
+ _L2[7] = 0x7FFFFFFF - _L2[9] + _L2[8]
+ end
+ end
+ if not math_ult(0x12, tmp24) then
+ _L2[10] = 0x0
else
- message.error("Command exited abnormally: ", tostring(status_or_signal))
+ _L2[10] = _L2[4] << 0x12
end
- return false, termination, status_or_signal
+ _L2[11] = _L2[4] ~ _L2[10]
+ if not math_ult(0xD, tmp24) then
+ _L2[12] = 0x0
+ else
+ _L2[12] = _L2[11] >> 0xD
+ end
+ _L2[13] = _L2[11] ~ _L2[12]
+ if not math_ult(0x1, tmp24) then
+ _L2[14] = 0x0
+ else
+ _L2[14] = _L2[2] >> 0x1
+ end
+ _L2[15] = 0x3FFFFFFF & _L2[14]
+ _L1[5] = _L2[6]
+ _L1[6] = _L2[15] | 0x40000000 & (_L2[7] ~ _L2[13])
+ _L1[7] = _L2[7]
+ _L1[8] = _L2[13]
+ goto cont6
end
end
- -- Successful
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("Command exited successfully")
+end
+::cont3::
+_L[171] = {"InvalidUtf8"}
+_L[172] = {tag = _L[171]}
+_L[173] = "START"
+_L[174] = "MID_1_OF_3_E0"
+_L[175] = "MID_1_OF_3_ED"
+_L[176] = "MID_1_OF_4_F0"
+_L[177] = "MID_1_OF_4_F4"
+_L[178] = "TAIL_1"
+_L[179] = "TAIL_2"
+_L[180] = "TAIL_3"
+_L[181] = {tag = "PREFIX_ZERO"}
+_L[182] = {tag = "INVALID_UNICODE_SCALAR"}
+_L[183] = {tag = "INVALID_DATE"}
+_L[184] = {tag = "INVALID_TIME"}
+_L[185] = function(a)
+ if a == "" then
+ return "\"\""
end
- return true
+ local tmp54 = tmp32(function(c)
+ local tmp55
+ do
+ local tmp56
+ if 65 <= c and c <= 90 then
+ tmp55 = true
+ goto cont
+ else
+ tmp56 = 97 <= c and c <= 122
+ end
+ tmp55 = tmp56 or 48 <= c and c <= 57
+ end
+ ::cont::
+ return tmp55 or (c == 45 or c == 95)
+ end)
+ local tmp55 = tmp54(a)
+ if tmp55 then
+ return a
+ else
+ return "\"" .. a .. "\""
+ end
end
-
-if options.watch then
- -- Watch mode
-
- local fswatcherlib
- if os.type == "windows" then
- -- Windows: Try built-in filesystem watcher
- local succ, result = pcall(require, "texrunner.fswatcher_windows")
- if not succ and CLUTTEX_VERBOSITY >= 1 then
- message.warn("Failed to load texrunner.fswatcher_windows: " .. result)
+_L[186] = {"ParseError"}
+_L[187] = function(i, accum)
+ if math_ult(i, 0x80) then
+ if i < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ elseif i < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif i > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return {i, accum}
end
- fswatcherlib = result
end
-
- local do_watch
- if fswatcherlib then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using built-in filesystem watcher for Windows")
+ if math_ult(i, 0x800) then
+ local tmp54
+ if not math_ult(0x6, tmp24) then
+ tmp54 = 0x0
+ else
+ tmp54 = i >> 0x6
end
- do_watch = function(files)
- local watcher = assert(fswatcherlib.new())
- for _,path in ipairs(files) do
- assert(watcher:add_file(path))
+ local tmp55 = 0xC0 | tmp54
+ local tmp56 = 0x80 | i & 0x3F
+ local tmp57
+ if tmp56 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp57 = tmp56
+ end
+ local tmp58
+ if tmp57 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp57 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp58 = tmp57
+ end
+ if tmp55 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ elseif tmp55 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp55 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return {tmp58, {tmp55, accum}}
+ end
+ end
+ if math_ult(i, 0x10000) then
+ if not math_ult(i, 0xD800) and math_ult(i, 0xE000) then
+ _raise({tag = _L[186], payload = _L[182]}, "parse_toml_util.sml:33:9")
+ end
+ local tmp54
+ if not math_ult(0xC, tmp24) then
+ tmp54 = 0x0
+ else
+ tmp54 = i >> 0xC
+ end
+ local tmp55 = 0xE0 | tmp54
+ local tmp56
+ if not math_ult(0x6, tmp24) then
+ tmp56 = 0x0
+ else
+ tmp56 = i >> 0x6
+ end
+ local tmp57 = 0x80 | tmp56 & 0x3F
+ local tmp58 = 0x80 | i & 0x3F
+ local tmp59
+ if tmp58 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp59 = tmp58
+ end
+ local tmp60
+ if tmp59 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp59 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp60 = tmp59
+ end
+ local tmp61
+ if tmp57 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp61 = tmp57
+ end
+ local tmp62
+ if tmp61 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp61 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp62 = tmp61
+ end
+ local tmp63
+ if tmp55 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp63 = tmp55
+ end
+ if tmp63 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp63 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return {tmp60, {tmp62, {tmp63, accum}}}
+ end
+ end
+ if math_ult(i, 0x110000) then
+ local tmp54, tmp55, tmp56, tmp57
+ do
+ local tmp58
+ if not math_ult(0x12, tmp24) then
+ tmp58 = 0x0
+ else
+ tmp58 = i >> 0x12
end
- local result = assert(watcher:next())
- if CLUTTEX_VERBOSITY >= 2 then
- message.info(string.format("%s %s", result.action, result.path))
+ local tmp59 = 0xF0 | tmp58
+ local tmp60
+ if not math_ult(0xC, tmp24) then
+ tmp60 = 0x0
+ else
+ tmp60 = i >> 0xC
end
- watcher:close()
- return true
+ local tmp61 = 0x80 | tmp60 & 0x3F
+ local tmp62
+ if not math_ult(0x6, tmp24) then
+ tmp62 = 0x0
+ else
+ tmp62 = i >> 0x6
+ end
+ local tmp63 = 0x80 | tmp62 & 0x3F
+ local tmp64 = 0x80 | i & 0x3F
+ local tmp65
+ if tmp64 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp65 = tmp64
+ end
+ if tmp65 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp65 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp54 = tmp65
+ end
+ local tmp66
+ if tmp63 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp66 = tmp63
+ end
+ if tmp66 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp66 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp55 = tmp66
+ end
+ local tmp67
+ if tmp61 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp67 = tmp61
+ end
+ if tmp67 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp67 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ tmp56 = tmp67
+ end
+ if tmp59 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp57 = tmp59
+ end
end
- elseif shellutil.has_command("fswatch") and (options.watch == "auto" or options.watch == "fswatch") then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using `fswatch' command")
+ if tmp57 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp57 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return {tmp54, {tmp55, {tmp56, {tmp57, accum}}}}
end
- do_watch = function(files)
- local fswatch_command = {"fswatch", "--one-event", "--event=Updated", "--"}
- for _,path in ipairs(files) do
- table.insert(fswatch_command, shellutil.escape(path))
+ else
+ _raise({tag = _L[186], payload = _L[182]}, "parse_toml_util.sml:54:7")
+ end
+end
+_L[188] = function(a)
+ local tmp54
+ do
+ local tmp55 = scanString(_L[8])
+ tmp54 = tmp55(a)
+ end
+ if tmp54.tag == "SOME" then
+ return {tag = "FLOAT", payload = tmp54.payload}
+ elseif tmp54.tag == "NONE" then
+ _raise(Option, "option.sml:24:18")
+ else
+ _raise(_Match, "option.sml:23:5")
+ end
+end
+_L[189] = function(x, y)
+ local tmp54
+ if not math_ult(y, tmp24) then
+ tmp54 = 0x0
+ else
+ tmp54 = x << y & 0xFFFFFFFF
+ end
+ local tmp55 = 0x20 - y
+ if not math_ult(tmp55, tmp24) then
+ return tmp54
+ else
+ return tmp54 | x >> tmp55
+ end
+end
+_L[190] = function(a)
+ local tmp54
+ if not math_ult(0x4, tmp24) then
+ tmp54 = 0x0
+ else
+ tmp54 = a >> 0x4
+ end
+ local tmp55
+ if tmp54 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp55 = sub1({"0123456789abcdef", tmp54})
+ end
+ local tmp56 = a & 0xF
+ local tmp57
+ if tmp56 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp57 = sub1({"0123456789abcdef", tmp56})
+ end
+ return implode({tmp55, {tmp57, nil}})
+end
+_L[191] = function(a)
+ local content8
+ do
+ local origLen = tmp51(a)
+ local tmp54 = tmp51(a)
+ local tmp55 = tmp54 % 64
+ local tmp56 = tmp50({0x80, nil})
+ local tmp57
+ if tmp55 < 56 then
+ tmp57 = _Int_sub(63, tmp55)
+ else
+ tmp57 = _Int_sub(127, tmp55)
+ end
+ local tmp58 = tmp53({tmp57, function(a1)
+ return 0x0
+ end})
+ local padded = tmp49({a, {tmp56, {tmp58, nil}}})
+ local paddedLen = tmp51(padded)
+ content8 = _L[44]({paddedLen, function(i)
+ return tmp52({padded, i})
+ end})
+ local tmp59 = _Int_sub(paddedLen // 8, 1)
+ local tmp60 = _Int_mul(8, origLen)
+ do
+ local ii
+ do
+ ii = _L[48](content8, tmp59, 8)
+ _L[47]({content8, ii, tmp60 & 0xFF})
+ local tmp61 = _Int_add(ii, 1)
+ local tmp62
+ if not math_ult(0x8, tmp24) then
+ tmp62 = 0x0
+ else
+ tmp62 = tmp60 >> 0x8
+ end
+ _L[47]({content8, tmp61, tmp62 & 0xFF})
+ local tmp63 = _Int_add(ii, 2)
+ local tmp64
+ if not math_ult(0x10, tmp24) then
+ tmp64 = 0x0
+ else
+ tmp64 = tmp60 >> 0x10
+ end
+ _L[47]({content8, tmp63, tmp64 & 0xFF})
+ local tmp65 = _Int_add(ii, 3)
+ local tmp66
+ if not math_ult(0x18, tmp24) then
+ tmp66 = 0x0
+ else
+ tmp66 = tmp60 >> 0x18
+ end
+ _L[47]({content8, tmp65, tmp66 & 0xFF})
+ local tmp67 = _Int_add(ii, 4)
+ local tmp68
+ if not math_ult(0x20, tmp24) then
+ tmp68 = 0x0
+ else
+ tmp68 = tmp60 >> 0x20
+ end
+ _L[47]({content8, tmp67, tmp68 & 0xFF})
+ local tmp69 = _Int_add(ii, 5)
+ local tmp70
+ if not math_ult(0x28, tmp24) then
+ tmp70 = 0x0
+ else
+ tmp70 = tmp60 >> 0x28
+ end
+ _L[47]({content8, tmp69, tmp70 & 0xFF})
end
- local fswatch_command_str = table.concat(fswatch_command, " ")
- if CLUTTEX_VERBOSITY >= 1 then
- message.exec(fswatch_command_str)
+ local tmp61 = _Int_add(ii, 6)
+ local tmp62
+ if not math_ult(0x30, tmp24) then
+ tmp62 = 0x0
+ else
+ tmp62 = tmp60 >> 0x30
end
- local fswatch = assert(io.popen(fswatch_command_str, "r"))
- for l in fswatch:lines() do
- for _,path in ipairs(files) do
- if l == path then
- fswatch:close()
- return true
+ _L[47]({content8, tmp61, tmp62 & 0xFF})
+ local tmp63 = _Int_add(ii, 7)
+ local tmp64
+ if not math_ult(0x38, tmp24) then
+ tmp64 = 0x0
+ else
+ tmp64 = tmp60 >> 0x38
+ end
+ _L[47]({content8, tmp63, tmp64 & 0xFF})
+ end
+ end
+ local content32, tmp54, tmp55, tmp56, tmp57, tmp58, tmp59
+ do
+ local tmp60 = _L[41](content8)
+ local tmp61 = tmp60 // 4
+ content32 = _VectorOrArray_tabulate({tmp61, function(i)
+ local ii = _L[48](content8, i, 4)
+ local x0 = _L[46]({content8, ii})
+ local x1 = _L[46]({content8, _Int_add(ii, 1)})
+ local x2 = _L[46]({content8, _Int_add(ii, 2)})
+ local x3 = _L[46]({content8, _Int_add(ii, 3)})
+ local tmp62
+ if not math_ult(0x18, tmp24) then
+ tmp62 = 0x0
+ else
+ tmp62 = x3 << 0x18
+ end
+ local tmp63
+ if not math_ult(0x10, tmp24) then
+ tmp63 = 0x0
+ else
+ tmp63 = x2 << 0x10
+ end
+ local tmp64 = tmp62 | tmp63
+ local tmp65
+ if not math_ult(0x8, tmp24) then
+ tmp65 = 0x0
+ else
+ tmp65 = x1 << 0x8
+ end
+ return (tmp64 | tmp65 | x0) & 0xFFFFFFFF
+ end})
+ tmp54 = content32.n // 16
+ tmp59, tmp58, tmp57, tmp56, tmp55 = 0, 0x67452301, 0xEFCDAB89, 0x98BADCFE, 0x10325476
+ end
+ ::cont::
+ do
+ local d, c, b, b_PRIME, c_PRIME, d_PRIME, tmp60, tmp61
+ do
+ local i, a1
+ i, a1, b, c, d = tmp59, tmp58, tmp57, tmp56, tmp55
+ if i >= tmp54 then
+ return {a1, b, c, d}
+ end
+ local tmp62 = _Int_mul(i, 16)
+ local X = _L[19](content32, tmp62, {tag = "SOME", payload = 16})
+ local tmp63 = {a1, b, c, d}
+ local tmp64
+ do
+ local ABCD, DABC, CDAB, BCDA, tmp65
+ do
+ ABCD = function(k, t)
+ return function(a2)
+ local a3 = a2[1]
+ local b1 = a2[2]
+ local c1 = a2[3]
+ local d1 = a2[4]
+ local tmp66 = a3 + (b1 & c1 | ~ b1 & 0xFFFFFFFF & d1) & 0xFFFFFFFF
+ local tmp67
+ do
+ local base = X.base
+ tmp67 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp68 = _L[189]((tmp66 + tmp67 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x7)
+ return {b1 + tmp68 & 0xFFFFFFFF, b1, c1, d1}
+ end
end
+ DABC = function(k, t)
+ return function(a2)
+ local b1 = a2[1]
+ local c1 = a2[2]
+ local d1 = a2[3]
+ local a3 = a2[4]
+ local tmp66 = a3 + (b1 & c1 | ~ b1 & 0xFFFFFFFF & d1) & 0xFFFFFFFF
+ local tmp67
+ do
+ local base = X.base
+ tmp67 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp68 = _L[189]((tmp66 + tmp67 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0xC)
+ return {b1, c1, d1, b1 + tmp68 & 0xFFFFFFFF}
+ end
+ end
+ CDAB = function(k, t)
+ return function(a2)
+ local c1 = a2[1]
+ local d1 = a2[2]
+ local a3 = a2[3]
+ local b1 = a2[4]
+ local tmp66 = a3 + (b1 & c1 | ~ b1 & 0xFFFFFFFF & d1) & 0xFFFFFFFF
+ local tmp67
+ do
+ local base = X.base
+ tmp67 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp68 = _L[189]((tmp66 + tmp67 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x11)
+ return {c1, d1, b1 + tmp68 & 0xFFFFFFFF, b1}
+ end
+ end
+ BCDA = function(k, t)
+ return function(a2)
+ local d1 = a2[1]
+ local a3 = a2[2]
+ local b1 = a2[3]
+ local c1 = a2[4]
+ local tmp66 = a3 + (b1 & c1 | ~ b1 & 0xFFFFFFFF & d1) & 0xFFFFFFFF
+ local tmp67
+ do
+ local base = X.base
+ tmp67 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp68 = _L[189]((tmp66 + tmp67 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x16)
+ return {d1, b1 + tmp68 & 0xFFFFFFFF, b1, c1}
+ end
+ end
+ local tmp66 = ABCD(0, 0xD76AA478)
+ local tmp67 = tmp66(tmp63)
+ local tmp68 = DABC(1, 0xE8C7B756)
+ local tmp69 = tmp68(tmp67)
+ local tmp70 = CDAB(2, 0x242070DB)
+ local tmp71 = tmp70(tmp69)
+ local tmp72 = BCDA(3, 0xC1BDCEEE)
+ local tmp73 = tmp72(tmp71)
+ local tmp74 = ABCD(4, 0xF57C0FAF)
+ local tmp75 = tmp74(tmp73)
+ local tmp76 = DABC(5, 0x4787C62A)
+ tmp65 = tmp76(tmp75)
end
+ local tmp66
+ do
+ local tmp67 = CDAB(6, 0xA8304613)
+ local tmp68 = tmp67(tmp65)
+ local tmp69 = BCDA(7, 0xFD469501)
+ local tmp70 = tmp69(tmp68)
+ local tmp71 = ABCD(8, 0x698098D8)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = DABC(9, 0x8B44F7AF)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = CDAB(10, 0xFFFF5BB1)
+ local tmp76 = tmp75(tmp74)
+ local tmp77 = BCDA(11, 0x895CD7BE)
+ tmp66 = tmp77(tmp76)
+ end
+ local tmp67 = ABCD(12, 0x6B901122)
+ local tmp68 = tmp67(tmp66)
+ local tmp69 = DABC(13, 0xFD987193)
+ local tmp70 = tmp69(tmp68)
+ local tmp71 = CDAB(14, 0xA679438E)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = BCDA(15, 0x49B40821)
+ tmp64 = tmp73(tmp72)
end
- return false
+ local tmp65
+ do
+ local ABCD, DABC, CDAB, BCDA, tmp66
+ do
+ ABCD = function(k, t)
+ return function(a2)
+ local a3 = a2[1]
+ local b1 = a2[2]
+ local c1 = a2[3]
+ local d1 = a2[4]
+ local tmp67 = a3 + (b1 & d1 | c1 & (~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp68
+ do
+ local base = X.base
+ tmp68 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp69 = _L[189]((tmp67 + tmp68 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x5)
+ return {b1 + tmp69 & 0xFFFFFFFF, b1, c1, d1}
+ end
+ end
+ DABC = function(k, t)
+ return function(a2)
+ local b1 = a2[1]
+ local c1 = a2[2]
+ local d1 = a2[3]
+ local a3 = a2[4]
+ local tmp67 = a3 + (b1 & d1 | c1 & (~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp68
+ do
+ local base = X.base
+ tmp68 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp69 = _L[189]((tmp67 + tmp68 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x9)
+ return {b1, c1, d1, b1 + tmp69 & 0xFFFFFFFF}
+ end
+ end
+ CDAB = function(k, t)
+ return function(a2)
+ local c1 = a2[1]
+ local d1 = a2[2]
+ local a3 = a2[3]
+ local b1 = a2[4]
+ local tmp67 = a3 + (b1 & d1 | c1 & (~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp68
+ do
+ local base = X.base
+ tmp68 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp69 = _L[189]((tmp67 + tmp68 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0xE)
+ return {c1, d1, b1 + tmp69 & 0xFFFFFFFF, b1}
+ end
+ end
+ BCDA = function(k, t)
+ return function(a2)
+ local d1 = a2[1]
+ local a3 = a2[2]
+ local b1 = a2[3]
+ local c1 = a2[4]
+ local tmp67 = a3 + (b1 & d1 | c1 & (~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp68
+ do
+ local base = X.base
+ tmp68 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp69 = _L[189]((tmp67 + tmp68 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x14)
+ return {d1, b1 + tmp69 & 0xFFFFFFFF, b1, c1}
+ end
+ end
+ local tmp67 = ABCD(1, 0xF61E2562)
+ local tmp68 = tmp67(tmp64)
+ local tmp69 = DABC(6, 0xC040B340)
+ local tmp70 = tmp69(tmp68)
+ local tmp71 = CDAB(11, 0x265E5A51)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = BCDA(0, 0xE9B6C7AA)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = ABCD(5, 0xD62F105D)
+ local tmp76 = tmp75(tmp74)
+ local tmp77 = DABC(10, 0x2441453)
+ tmp66 = tmp77(tmp76)
+ end
+ local tmp67
+ do
+ local tmp68 = CDAB(15, 0xD8A1E681)
+ local tmp69 = tmp68(tmp66)
+ local tmp70 = BCDA(4, 0xE7D3FBC8)
+ local tmp71 = tmp70(tmp69)
+ local tmp72 = ABCD(9, 0x21E1CDE6)
+ local tmp73 = tmp72(tmp71)
+ local tmp74 = DABC(14, 0xC33707D6)
+ local tmp75 = tmp74(tmp73)
+ local tmp76 = CDAB(3, 0xF4D50D87)
+ local tmp77 = tmp76(tmp75)
+ local tmp78 = BCDA(8, 0x455A14ED)
+ tmp67 = tmp78(tmp77)
+ end
+ local tmp68 = ABCD(13, 0xA9E3E905)
+ local tmp69 = tmp68(tmp67)
+ local tmp70 = DABC(2, 0xFCEFA3F8)
+ local tmp71 = tmp70(tmp69)
+ local tmp72 = CDAB(7, 0x676F02D9)
+ local tmp73 = tmp72(tmp71)
+ local tmp74 = BCDA(12, 0x8D2A4C8A)
+ tmp65 = tmp74(tmp73)
+ end
+ local tmp66
+ do
+ local ABCD, DABC, CDAB, BCDA, tmp67
+ do
+ ABCD = function(k, t)
+ return function(a2)
+ local a3 = a2[1]
+ local b1 = a2[2]
+ local c1 = a2[3]
+ local d1 = a2[4]
+ local tmp68 = a3 + (b1 ~ (c1 ~ d1)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x4)
+ return {b1 + tmp70 & 0xFFFFFFFF, b1, c1, d1}
+ end
+ end
+ DABC = function(k, t)
+ return function(a2)
+ local b1 = a2[1]
+ local c1 = a2[2]
+ local d1 = a2[3]
+ local tmp68 = a2[4] + (b1 ~ (c1 ~ d1)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0xB)
+ return {b1, c1, d1, b1 + tmp70 & 0xFFFFFFFF}
+ end
+ end
+ CDAB = function(k, t)
+ return function(a2)
+ local c1 = a2[1]
+ local d1 = a2[2]
+ local a3 = a2[3]
+ local b1 = a2[4]
+ local tmp68 = a3 + (b1 ~ (c1 ~ d1)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x10)
+ return {c1, d1, b1 + tmp70 & 0xFFFFFFFF, b1}
+ end
+ end
+ BCDA = function(k, t)
+ return function(a2)
+ local d1 = a2[1]
+ local a3 = a2[2]
+ local b1 = a2[3]
+ local c1 = a2[4]
+ local tmp68 = a3 + (b1 ~ (c1 ~ d1)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x17)
+ return {d1, b1 + tmp70 & 0xFFFFFFFF, b1, c1}
+ end
+ end
+ local tmp68 = ABCD(5, 0xFFFA3942)
+ local tmp69 = tmp68(tmp65)
+ local tmp70 = DABC(8, 0x8771F681)
+ local tmp71 = tmp70(tmp69)
+ local tmp72 = CDAB(11, 0x6D9D6122)
+ local tmp73 = tmp72(tmp71)
+ local tmp74 = BCDA(14, 0xFDE5380C)
+ local tmp75 = tmp74(tmp73)
+ local tmp76 = ABCD(1, 0xA4BEEA44)
+ local tmp77 = tmp76(tmp75)
+ local tmp78 = DABC(4, 0x4BDECFA9)
+ tmp67 = tmp78(tmp77)
+ end
+ local tmp68
+ do
+ local tmp69 = CDAB(7, 0xF6BB4B60)
+ local tmp70 = tmp69(tmp67)
+ local tmp71 = BCDA(10, 0xBEBFBC70)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = ABCD(13, 0x289B7EC6)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = DABC(0, 0xEAA127FA)
+ local tmp76 = tmp75(tmp74)
+ local tmp77 = CDAB(3, 0xD4EF3085)
+ local tmp78 = tmp77(tmp76)
+ local tmp79 = BCDA(6, 0x4881D05)
+ tmp68 = tmp79(tmp78)
+ end
+ local tmp69 = ABCD(9, 0xD9D4D039)
+ local tmp70 = tmp69(tmp68)
+ local tmp71 = DABC(12, 0xE6DB99E5)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = CDAB(15, 0x1FA27CF8)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = BCDA(2, 0xC4AC5665)
+ tmp66 = tmp75(tmp74)
+ end
+ local exp
+ do
+ local ABCD, DABC, CDAB, BCDA, tmp67
+ do
+ ABCD = function(k, t)
+ return function(a2)
+ local a3 = a2[1]
+ local b1 = a2[2]
+ local c1 = a2[3]
+ local d1 = a2[4]
+ local tmp68 = a3 + (c1 ~ (b1 | ~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x6)
+ return {b1 + tmp70 & 0xFFFFFFFF, b1, c1, d1}
+ end
+ end
+ DABC = function(k, t)
+ return function(a2)
+ local b1 = a2[1]
+ local c1 = a2[2]
+ local d1 = a2[3]
+ local tmp68 = a2[4] + (c1 ~ (b1 | ~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0xA)
+ return {b1, c1, d1, b1 + tmp70 & 0xFFFFFFFF}
+ end
+ end
+ CDAB = function(k, t)
+ return function(a2)
+ local c1 = a2[1]
+ local d1 = a2[2]
+ local a3 = a2[3]
+ local b1 = a2[4]
+ local tmp68 = a3 + (c1 ~ (b1 | ~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0xF)
+ return {c1, d1, b1 + tmp70 & 0xFFFFFFFF, b1}
+ end
+ end
+ BCDA = function(k, t)
+ return function(a2)
+ local d1 = a2[1]
+ local a3 = a2[2]
+ local b1 = a2[3]
+ local c1 = a2[4]
+ local tmp68 = a3 + (c1 ~ (b1 | ~ d1 & 0xFFFFFFFF)) & 0xFFFFFFFF
+ local tmp69
+ do
+ local base = X.base
+ tmp69 = _L[18](base, X.length, X.start, k)
+ end
+ local tmp70 = _L[189]((tmp68 + tmp69 & 0xFFFFFFFF) + t & 0xFFFFFFFF, 0x15)
+ return {d1, b1 + tmp70 & 0xFFFFFFFF, b1, c1}
+ end
+ end
+ local tmp68 = ABCD(0, 0xF4292244)
+ local tmp69 = tmp68(tmp66)
+ local tmp70 = DABC(7, 0x432AFF97)
+ local tmp71 = tmp70(tmp69)
+ local tmp72 = CDAB(14, 0xAB9423A7)
+ local tmp73 = tmp72(tmp71)
+ local tmp74 = BCDA(5, 0xFC93A039)
+ local tmp75 = tmp74(tmp73)
+ local tmp76 = ABCD(12, 0x655B59C3)
+ local tmp77 = tmp76(tmp75)
+ local tmp78 = DABC(3, 0x8F0CCC92)
+ tmp67 = tmp78(tmp77)
+ end
+ local tmp68
+ do
+ local tmp69 = CDAB(10, 0xFFEFF47D)
+ local tmp70 = tmp69(tmp67)
+ local tmp71 = BCDA(1, 0x85845DD1)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = ABCD(8, 0x6FA87E4F)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = DABC(15, 0xFE2CE6E0)
+ local tmp76 = tmp75(tmp74)
+ local tmp77 = CDAB(6, 0xA3014314)
+ local tmp78 = tmp77(tmp76)
+ local tmp79 = BCDA(13, 0x4E0811A1)
+ tmp68 = tmp79(tmp78)
+ end
+ local tmp69 = ABCD(4, 0xF7537E82)
+ local tmp70 = tmp69(tmp68)
+ local tmp71 = DABC(11, 0xBD3AF235)
+ local tmp72 = tmp71(tmp70)
+ local tmp73 = CDAB(2, 0x2AD7D2BB)
+ local tmp74 = tmp73(tmp72)
+ local tmp75 = BCDA(9, 0xEB86D391)
+ exp = tmp75(tmp74)
+ end
+ local a_PRIME = exp[1]
+ b_PRIME = exp[2]
+ c_PRIME = exp[3]
+ d_PRIME = exp[4]
+ tmp60 = _Int_add(i, 1)
+ tmp61 = a1 + a_PRIME & 0xFFFFFFFF
end
- elseif shellutil.has_command("inotifywait") and (options.watch == "auto" or options.watch == "inotifywait") then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using `inotifywait' command")
+ local tmp62 = b + b_PRIME & 0xFFFFFFFF
+ local tmp63 = c + c_PRIME & 0xFFFFFFFF
+ tmp59 = tmp60
+ tmp58 = tmp61
+ tmp57 = tmp62
+ tmp56 = tmp63
+ tmp55 = d + d_PRIME & 0xFFFFFFFF
+ goto cont
+ end
+end
+_L[192] = function(a)
+ local tmp54 = _L[190](a & 0xFF)
+ local tmp55
+ if not math_ult(0x8, tmp24) then
+ tmp55 = 0x0
+ else
+ tmp55 = a >> 0x8
+ end
+ local tmp56 = _L[190](tmp55 & 0xFF)
+ local tmp57
+ if not math_ult(0x10, tmp24) then
+ tmp57 = 0x0
+ else
+ tmp57 = a >> 0x10
+ end
+ local tmp58 = _L[190](tmp57 & 0xFF)
+ local tmp59
+ if not math_ult(0x18, tmp24) then
+ tmp59 = 0x0
+ else
+ tmp59 = a >> 0x18
+ end
+ local tmp60 = _L[190](tmp59)
+ return table_concat({n = 4, tmp54, tmp56, tmp58, tmp60})
+end
+_L[193] = function(a, b, c, d)
+ local tmp54 = _L[192](a)
+ local tmp55 = _L[192](b)
+ local tmp56 = tmp54 .. tmp55
+ local tmp57 = _L[192](c)
+ local tmp58 = tmp56 .. tmp57
+ local tmp59 = _L[192](d)
+ return tmp58 .. tmp59
+end
+_L[194] = "R"
+_L[195] = "B"
+_L[196] = {tag = "E"}
+_L[197] = {0, _L[196]}
+_L[198] = function(tmp54, x)
+ local nItems = tmp54[1]
+ local m = tmp54[2]
+ local tmp55 = {nItems}
+ local function ins(a)
+ if a.tag == "E" then
+ tmp55[1] = _Int_add(nItems, 1)
+ return {tag = "T", payload = {_L[194], _L[196], x, _L[196]}}
end
- do_watch = function(files)
- local inotifywait_command = {"inotifywait", "--event=modify", "--event=attrib", "--format=%w", "--quiet"}
- for _,path in ipairs(files) do
- table.insert(inotifywait_command, shellutil.escape(path))
+ if a.tag == "T" then
+ else
+ _raise(_Match, "redblack-set-fn.sml:64:8")
+ end
+ do
+ local color = a.payload[1]
+ local a1 = a.payload[2]
+ local y = a.payload[3]
+ local b = a.payload[4]
+ local exp
+ if x == y then
+ exp = EQUAL
+ elseif x < y then
+ exp = LESS
+ else
+ exp = GREATER
end
- local inotifywait_command_str = table.concat(inotifywait_command, " ")
- if CLUTTEX_VERBOSITY >= 1 then
- message.exec(inotifywait_command_str)
+ if exp == "LESS" then
+ else
+ goto else1
end
- local inotifywait = assert(io.popen(inotifywait_command_str, "r"))
- for l in inotifywait:lines() do
- for _,path in ipairs(files) do
- if l == path then
- inotifywait:close()
- return true
+ do
+ if a1.tag == "T" and a1.payload[1] == "R" then
+ else
+ goto else2
+ end
+ do
+ local c = a1.payload[2]
+ local z = a1.payload[3]
+ local d = a1.payload[4]
+ local exp1
+ if x == z then
+ exp1 = EQUAL
+ elseif x < z then
+ exp1 = LESS
+ else
+ exp1 = GREATER
end
+ if exp1 == "LESS" then
+ else
+ goto else3
+ end
+ do
+ local exp2 = ins(c)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local w = exp2.payload[3]
+ local tmp56 = {tag = "T", payload = {_L[195], e, w, exp2.payload[4]}}
+ return {tag = "T", payload = {_L[194], tmp56, z, {tag = "T", payload = {_L[195], d, y, b}}}}
+ else
+ return {tag = "T", payload = {_L[195], {tag = "T", payload = {_L[194], exp2, z, d}}, y, b}}
+ end
+ end
+ ::else3::
+ if exp1 == "EQUAL" then
+ return {tag = "T", payload = {color, {tag = "T", payload = {_L[194], c, x, d}}, y, b}}
+ end
+ if exp1 == "GREATER" then
+ else
+ _raise(_Match, "redblack-set-fn.sml:67:31")
+ end
+ do
+ local exp2 = ins(d)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local w = exp2.payload[3]
+ local f = exp2.payload[4]
+ local tmp56 = {tag = "T", payload = {_L[195], c, z, e}}
+ return {tag = "T", payload = {_L[194], tmp56, w, {tag = "T", payload = {_L[195], f, y, b}}}}
+ else
+ return {tag = "T", payload = {_L[195], {tag = "T", payload = {_L[194], c, z, exp2}}, y, b}}
+ end
+ end
end
+ ::else2::
+ local tmp56 = ins(a1)
+ return {tag = "T", payload = {_L[195], tmp56, y, b}}
end
+ ::else1::
+ if exp == "EQUAL" then
+ return {tag = "T", payload = {color, a1, x, b}}
+ end
+ if exp == "GREATER" then
+ else
+ _raise(_Match, "redblack-set-fn.sml:65:47")
+ end
+ do
+ if b.tag == "T" and b.payload[1] == "R" then
+ else
+ goto else2
+ end
+ do
+ local c = b.payload[2]
+ local z = b.payload[3]
+ local d = b.payload[4]
+ local exp1
+ if x == z then
+ exp1 = EQUAL
+ elseif x < z then
+ exp1 = LESS
+ else
+ exp1 = GREATER
+ end
+ if exp1 == "LESS" then
+ else
+ goto else3
+ end
+ do
+ local exp2 = ins(c)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local w = exp2.payload[3]
+ local f = exp2.payload[4]
+ local tmp56 = {tag = "T", payload = {_L[195], a1, y, e}}
+ return {tag = "T", payload = {_L[194], tmp56, w, {tag = "T", payload = {_L[195], f, z, d}}}}
+ else
+ return {tag = "T", payload = {_L[195], a1, y, {tag = "T", payload = {_L[194], exp2, z, d}}}}
+ end
+ end
+ ::else3::
+ if exp1 == "EQUAL" then
+ return {tag = "T", payload = {color, a1, y, {tag = "T", payload = {_L[194], c, x, d}}}}
+ end
+ if exp1 == "GREATER" then
+ else
+ _raise(_Match, "redblack-set-fn.sml:82:31")
+ end
+ do
+ local exp2 = ins(d)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local w = exp2.payload[3]
+ local f = exp2.payload[4]
+ local tmp56 = {tag = "T", payload = {_L[195], a1, y, c}}
+ return {tag = "T", payload = {_L[194], tmp56, z, {tag = "T", payload = {_L[195], e, w, f}}}}
+ else
+ return {tag = "T", payload = {_L[195], a1, y, {tag = "T", payload = {_L[194], c, z, exp2}}}}
+ end
+ end
+ end
+ ::else2::
+ local tmp56 = ins(b)
+ return {tag = "T", payload = {_L[195], a1, y, tmp56}}
+ end
+ end
+ end
+ local exp = ins(m)
+ if exp.tag == "T" then
+ local a = exp.payload[2]
+ local y = exp.payload[3]
+ local b = exp.payload[4]
+ local x1 = tmp55[1]
+ return {x1, {tag = "T", payload = {_L[195], a, y, b}}}
+ else
+ _raise(_Bind, "redblack-set-fn.sml:96:8")
+ end
+end
+_L[199] = function(tmp54, k)
+ local tmp55 = tmp54[2]
+ ::cont::
+ do
+ local a = tmp55
+ if a.tag == "E" then
return false
end
+ if a.tag == "T" then
+ local a1 = a.payload[2]
+ local y = a.payload[3]
+ local b = a.payload[4]
+ local exp
+ if k == y then
+ exp = EQUAL
+ elseif k < y then
+ exp = LESS
+ else
+ exp = GREATER
+ end
+ if exp == "LESS" then
+ tmp55 = a1
+ goto cont
+ elseif exp == "EQUAL" then
+ return true
+ elseif exp == "GREATER" then
+ tmp55 = b
+ goto cont
+ else
+ _raise(_Match, "redblack-set-fn.sml:226:33")
+ end
+ else
+ _raise(_Match, "redblack-set-fn.sml:225:8")
+ end
+ end
+end
+_L[200] = "R"
+_L[201] = "B"
+_L[202] = {tag = "E"}
+_L[203] = {0, _L[202]}
+_L[204] = function(tmp54, xk, x)
+ local nItems = tmp54[1]
+ local m = tmp54[2]
+ local tmp55 = {nItems}
+ local function ins(a)
+ if a.tag == "E" then
+ tmp55[1] = _Int_add(nItems, 1)
+ return {tag = "T", payload = {_L[200], _L[202], xk, x, _L[202]}}
+ end
+ if a.tag == "T" then
+ else
+ _raise(_Match, "redblack-map-fn.sml:46:8")
+ end
+ do
+ local color = a.payload[1]
+ local a1 = a.payload[2]
+ local yk = a.payload[3]
+ local y = a.payload[4]
+ local b = a.payload[5]
+ local exp
+ if xk == yk then
+ exp = EQUAL
+ elseif xk < yk then
+ exp = LESS
+ else
+ exp = GREATER
+ end
+ if exp == "LESS" then
+ else
+ goto else1
+ end
+ do
+ if a1.tag == "T" and a1.payload[1] == "R" then
+ else
+ goto else2
+ end
+ do
+ local c = a1.payload[2]
+ local zk = a1.payload[3]
+ local z = a1.payload[4]
+ local d = a1.payload[5]
+ local exp1
+ if xk == zk then
+ exp1 = EQUAL
+ elseif xk < zk then
+ exp1 = LESS
+ else
+ exp1 = GREATER
+ end
+ if exp1 == "LESS" then
+ else
+ goto else3
+ end
+ do
+ local exp2 = ins(c)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local wk = exp2.payload[3]
+ local w = exp2.payload[4]
+ local tmp56 = {tag = "T", payload = {_L[201], e, wk, w, exp2.payload[5]}}
+ return {tag = "T", payload = {_L[200], tmp56, zk, z, {tag = "T", payload = {_L[201], d, yk, y, b}}}}
+ else
+ return {tag = "T", payload = {_L[201], {tag = "T", payload = {_L[200], exp2, zk, z, d}}, yk, y, b}}
+ end
+ end
+ ::else3::
+ if exp1 == "EQUAL" then
+ return {tag = "T", payload = {color, {tag = "T", payload = {_L[200], c, xk, x, d}}, yk, y, b}}
+ end
+ if exp1 == "GREATER" then
+ else
+ _raise(_Match, "redblack-map-fn.sml:49:35")
+ end
+ do
+ local exp2 = ins(d)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local wk = exp2.payload[3]
+ local w = exp2.payload[4]
+ local f = exp2.payload[5]
+ local tmp56 = {tag = "T", payload = {_L[201], c, zk, z, e}}
+ return {tag = "T", payload = {_L[200], tmp56, wk, w, {tag = "T", payload = {_L[201], f, yk, y, b}}}}
+ else
+ return {tag = "T", payload = {_L[201], {tag = "T", payload = {_L[200], c, zk, z, exp2}}, yk, y, b}}
+ end
+ end
+ end
+ ::else2::
+ local tmp56 = ins(a1)
+ return {tag = "T", payload = {_L[201], tmp56, yk, y, b}}
+ end
+ ::else1::
+ if exp == "EQUAL" then
+ return {tag = "T", payload = {color, a1, xk, x, b}}
+ end
+ if exp == "GREATER" then
+ else
+ _raise(_Match, "redblack-map-fn.sml:47:51")
+ end
+ do
+ if b.tag == "T" and b.payload[1] == "R" then
+ else
+ goto else2
+ end
+ do
+ local c = b.payload[2]
+ local zk = b.payload[3]
+ local z = b.payload[4]
+ local d = b.payload[5]
+ local exp1
+ if xk == zk then
+ exp1 = EQUAL
+ elseif xk < zk then
+ exp1 = LESS
+ else
+ exp1 = GREATER
+ end
+ if exp1 == "LESS" then
+ else
+ goto else3
+ end
+ do
+ local exp2 = ins(c)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local wk = exp2.payload[3]
+ local w = exp2.payload[4]
+ local f = exp2.payload[5]
+ local tmp56 = {tag = "T", payload = {_L[201], a1, yk, y, e}}
+ return {tag = "T", payload = {_L[200], tmp56, wk, w, {tag = "T", payload = {_L[201], f, zk, z, d}}}}
+ else
+ return {tag = "T", payload = {_L[201], a1, yk, y, {tag = "T", payload = {_L[200], exp2, zk, z, d}}}}
+ end
+ end
+ ::else3::
+ if exp1 == "EQUAL" then
+ return {tag = "T", payload = {color, a1, yk, y, {tag = "T", payload = {_L[200], c, xk, x, d}}}}
+ end
+ if exp1 == "GREATER" then
+ else
+ _raise(_Match, "redblack-map-fn.sml:66:35")
+ end
+ do
+ local exp2 = ins(d)
+ if exp2.tag == "T" and exp2.payload[1] == "R" then
+ local e = exp2.payload[2]
+ local wk = exp2.payload[3]
+ local w = exp2.payload[4]
+ local f = exp2.payload[5]
+ local tmp56 = {tag = "T", payload = {_L[201], a1, yk, y, c}}
+ return {tag = "T", payload = {_L[200], tmp56, zk, z, {tag = "T", payload = {_L[201], e, wk, w, f}}}}
+ else
+ return {tag = "T", payload = {_L[201], a1, yk, y, {tag = "T", payload = {_L[200], c, zk, z, exp2}}}}
+ end
+ end
+ end
+ ::else2::
+ local tmp56 = ins(b)
+ return {tag = "T", payload = {_L[201], a1, yk, y, tmp56}}
+ end
+ end
+ end
+ local exp = ins(m)
+ local a, b, y, yk
+ if exp.tag == "T" then
+ local a1 = exp.payload[2]
+ local yk1 = exp.payload[3]
+ local y1 = exp.payload[4]
+ yk = yk1
+ y = y1
+ b = exp.payload[5]
+ a = a1
else
- if options.watch == "auto" then
- message.error("Could not watch files because neither `fswatch' nor `inotifywait' was installed.")
- elseif options.watch == "fswatch" then
- message.error("Could not watch files because your selected engine `fswatch' was not installed.")
- elseif options.watch == "inotifywait" then
- message.error("Could not watch files because your selected engine `inotifywait' was not installed.")
+ _raise(_Bind, "redblack-map-fn.sml:82:8")
+ end
+ local x1 = tmp55[1]
+ return {x1, {tag = "T", payload = {_L[201], a, yk, y, b}}}
+end
+_L[205] = function(tmp54, k)
+ local tmp55 = tmp54[2]
+ ::cont::
+ do
+ local a = tmp55
+ if a.tag == "E" then
+ return NONE
end
- message.info("See ClutTeX's manual for details.")
- os.exit(1)
+ if a.tag == "T" then
+ local a1 = a.payload[2]
+ local yk = a.payload[3]
+ local y = a.payload[4]
+ local b = a.payload[5]
+ local exp
+ if k == yk then
+ exp = EQUAL
+ elseif k < yk then
+ exp = LESS
+ else
+ exp = GREATER
+ end
+ if exp == "LESS" then
+ tmp55 = a1
+ goto cont
+ elseif exp == "EQUAL" then
+ return {tag = "SOME", payload = y}
+ elseif exp == "GREATER" then
+ tmp55 = b
+ goto cont
+ else
+ _raise(_Match, "redblack-map-fn.sml:155:37")
+ end
+ else
+ _raise(_Match, "redblack-map-fn.sml:154:8")
+ end
end
-
- local success, status = do_typeset()
- -- TODO: filenames here can be UTF-8 if command_line_encoding=utf-8
- 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
+_L[206] = function(a)
+ local function mapf(a1)
+ if a1.tag == "E" then
+ return _L[202]
+ end
+ if a1.tag == "T" then
+ else
+ _raise(_Match, "redblack-map-fn.sml:551:8")
+ end
+ do
+ local color = a1.payload[1]
+ local a2 = a1.payload[2]
+ local xk = a1.payload[3]
+ local x = a1.payload[4]
+ local b = a1.payload[5]
+ local tmp54 = mapf(a2)
+ local tmp55 = a(x)
+ local tmp56 = mapf(b)
+ return {tag = "T", payload = {color, tmp54, xk, tmp55, tmp56}}
+ end
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)
+ return function(a1)
+ local n = a1[1]
+ local tmp54 = mapf(a1[2])
+ return {n, tmp54}
+ end
+end
+_L[207] = tmp3("texrunner.shellutil")
+_L[208] = _L[207].escape
+_L[209] = _L[207].has_command
+_L[210] = tmp3("texrunner.pathutil")
+_L[211] = _L[210].basename
+_L[212] = _L[210].dirname
+_L[213] = _L[210].trimext
+_L[214] = _L[210].ext
+_L[215] = function(cwd, path)
+ if cwd.tag == "SOME" then
+ local cwd1 = cwd.payload
+ return _L[210].abspath(path, cwd1)
+ elseif cwd.tag == "NONE" then
+ return _L[210].abspath(path)
+ else
+ _raise(_Match, "path-util.sml:22:7")
+ end
+end
+_L[216] = tmp3("lfs")
+_L[217] = tmp3("texrunner.fsutil")
+_L[218] = _L[217].isfile
+_L[219] = _L[217].isdir
+_L[220] = tmp1.type == "windows"
+_L[221] = tmp1.setenv
+_L[222] = "BATCHMODE"
+_L[223] = "NONSTOPMODE"
+_L[224] = "SCROLLMODE"
+_L[225] = "ERRORSTOPMODE"
+_L[226] = "ALLOWED"
+_L[227] = "RESTRICTED"
+_L[228] = "FORBIDDEN"
+_L[229] = function(p)
+ return p[1] == "ALLOWED" and p[2] == "ALLOWED" or (p[1] == "RESTRICTED" and p[2] == "RESTRICTED" or p[1] == "FORBIDDEN" and p[2] == "FORBIDDEN")
+end
+_L[230] = "PDF"
+_L[231] = "DVI"
+_L[232] = function(tmp54, tmp55)
+ return tmp54 == "PDF" and tmp55 == "PDF" or tmp54 == "DVI" and tmp55 == "DVI"
+end
+_L[233] = "PDFTEX"
+_L[234] = "XETEX"
+_L[235] = "LUATEX"
+_L[236] = "OTHER"
+_L[237] = function(tmp54, tmp55)
+ return tmp54 == "PDFTEX" and tmp55 == "PDFTEX" or (tmp54 == "XETEX" and tmp55 == "XETEX" or (tmp54 == "LUATEX" and tmp55 == "LUATEX" or tmp54 == "OTHER" and tmp55 == "OTHER"))
+end
+_L[238] = {dvi_extension = "dvi", engine_type = _L[233], executable = "pdftex", name = "pdftex", supports_draftmode = true, supports_pdf_generation = true}
+_L[239] = {dvi_extension = "dvi", engine_type = _L[233], executable = "pdflatex", name = "pdflatex", supports_draftmode = true, supports_pdf_generation = true}
+_L[240] = {dvi_extension = "dvi", engine_type = _L[235], executable = "luatex", name = "luatex", supports_draftmode = true, supports_pdf_generation = true}
+_L[241] = {dvi_extension = "dvi", engine_type = _L[235], executable = "lualatex", name = "lualatex", supports_draftmode = true, supports_pdf_generation = true}
+_L[242] = {dvi_extension = "dvi", engine_type = _L[235], executable = "luajittex", name = "luajittex", supports_draftmode = true, supports_pdf_generation = true}
+_L[243] = {dvi_extension = "xdv", engine_type = _L[234], executable = "xetex", name = "xetex", supports_draftmode = true, supports_pdf_generation = true}
+_L[244] = {dvi_extension = "xdv", engine_type = _L[234], executable = "xelatex", name = "xelatex", supports_draftmode = true, supports_pdf_generation = true}
+_L[245] = {dvi_extension = "dvi", engine_type = _L[236], executable = "tex", name = "tex", supports_draftmode = false, supports_pdf_generation = false}
+_L[246] = {dvi_extension = "dvi", engine_type = _L[236], executable = "etex", name = "etex", supports_draftmode = false, supports_pdf_generation = false}
+_L[247] = {dvi_extension = "dvi", engine_type = _L[236], executable = "latex", name = "latex", supports_draftmode = false, supports_pdf_generation = false}
+_L[248] = {dvi_extension = "dvi", engine_type = _L[236], executable = "ptex", name = "ptex", supports_draftmode = false, supports_pdf_generation = false}
+_L[249] = {dvi_extension = "dvi", engine_type = _L[236], executable = "eptex", name = "eptex", supports_draftmode = false, supports_pdf_generation = false}
+_L[250] = {dvi_extension = "dvi", engine_type = _L[236], executable = "platex", name = "platex", supports_draftmode = false, supports_pdf_generation = false}
+_L[251] = {dvi_extension = "dvi", engine_type = _L[236], executable = "uptex", name = "uptex", supports_draftmode = false, supports_pdf_generation = false}
+_L[252] = {dvi_extension = "dvi", engine_type = _L[236], executable = "euptex", name = "euptex", supports_draftmode = false, supports_pdf_generation = false}
+_L[253] = {dvi_extension = "dvi", engine_type = _L[236], executable = "uplatex", name = "uplatex", supports_draftmode = false, supports_pdf_generation = false}
+_L[254] = function(a)
+ if a == "pdftex" then
+ return {tag = "SOME", payload = _L[238]}
+ elseif a == "pdflatex" then
+ return {tag = "SOME", payload = _L[239]}
+ elseif a == "luatex" then
+ return {tag = "SOME", payload = _L[240]}
+ elseif a == "lualatex" then
+ return {tag = "SOME", payload = _L[241]}
+ elseif a == "luajittex" then
+ return {tag = "SOME", payload = _L[242]}
+ elseif a == "xetex" then
+ return {tag = "SOME", payload = _L[243]}
+ elseif a == "xelatex" then
+ return {tag = "SOME", payload = _L[244]}
+ elseif a == "tex" then
+ return {tag = "SOME", payload = _L[245]}
+ elseif a == "etex" then
+ return {tag = "SOME", payload = _L[246]}
+ elseif a == "latex" then
+ return {tag = "SOME", payload = _L[247]}
+ elseif a == "ptex" then
+ return {tag = "SOME", payload = _L[248]}
+ elseif a == "eptex" then
+ return {tag = "SOME", payload = _L[249]}
+ elseif a == "platex" then
+ return {tag = "SOME", payload = _L[250]}
+ elseif a == "uptex" then
+ return {tag = "SOME", payload = _L[251]}
+ elseif a == "euptex" then
+ return {tag = "SOME", payload = _L[252]}
+ elseif a == "uplatex" then
+ return {tag = "SOME", payload = _L[253]}
+ else
+ return NONE
+ end
+end
+_L[255] = "DEFAULT"
+_L[256] = "BLACK"
+_L[257] = "RED"
+_L[258] = "GREEN"
+_L[259] = "YELLOW"
+_L[260] = "BLUE"
+_L[261] = "MAGENTA"
+_L[262] = "CYAN"
+_L[263] = "WHITE"
+_L[264] = "BRIGHT_BLACK"
+_L[265] = "BRIGHT_RED"
+_L[266] = "BRIGHT_GREEN"
+_L[267] = "BRIGHT_YELLOW"
+_L[268] = "BRIGHT_BLUE"
+_L[269] = "BRIGHT_MAGENTA"
+_L[270] = "BRIGHT_CYAN"
+_L[271] = "BRIGHT_WHITE"
+_L[272] = function(a)
+ if a == "DEFAULT" then
+ return NONE
+ elseif a == "BLACK" then
+ return {tag = "SOME", payload = "30"}
+ elseif a == "RED" then
+ return {tag = "SOME", payload = "31"}
+ elseif a == "GREEN" then
+ return {tag = "SOME", payload = "32"}
+ elseif a == "YELLOW" then
+ return {tag = "SOME", payload = "33"}
+ elseif a == "BLUE" then
+ return {tag = "SOME", payload = "34"}
+ elseif a == "MAGENTA" then
+ return {tag = "SOME", payload = "35"}
+ elseif a == "CYAN" then
+ return {tag = "SOME", payload = "36"}
+ elseif a == "WHITE" then
+ return {tag = "SOME", payload = "37"}
+ elseif a == "BRIGHT_BLACK" then
+ return {tag = "SOME", payload = "90"}
+ elseif a == "BRIGHT_RED" then
+ return {tag = "SOME", payload = "91"}
+ elseif a == "BRIGHT_GREEN" then
+ return {tag = "SOME", payload = "92"}
+ elseif a == "BRIGHT_YELLOW" then
+ return {tag = "SOME", payload = "93"}
+ elseif a == "BRIGHT_BLUE" then
+ return {tag = "SOME", payload = "94"}
+ elseif a == "BRIGHT_MAGENTA" then
+ return {tag = "SOME", payload = "95"}
+ elseif a == "BRIGHT_CYAN" then
+ return {tag = "SOME", payload = "96"}
+ elseif a == "BRIGHT_WHITE" then
+ return {tag = "SOME", payload = "97"}
+ else
+ _raise(_Match, "ansi-color.sml:62:7")
+ end
+end
+_L[273] = function(a)
+ if a == "DEFAULT" then
+ return NONE
+ elseif a == "BLACK" then
+ return {tag = "SOME", payload = "40"}
+ elseif a == "RED" then
+ return {tag = "SOME", payload = "41"}
+ elseif a == "GREEN" then
+ return {tag = "SOME", payload = "42"}
+ elseif a == "YELLOW" then
+ return {tag = "SOME", payload = "43"}
+ elseif a == "BLUE" then
+ return {tag = "SOME", payload = "44"}
+ elseif a == "MAGENTA" then
+ return {tag = "SOME", payload = "45"}
+ elseif a == "CYAN" then
+ return {tag = "SOME", payload = "46"}
+ elseif a == "WHITE" then
+ return {tag = "SOME", payload = "47"}
+ elseif a == "BRIGHT_BLACK" then
+ return {tag = "SOME", payload = "100"}
+ elseif a == "BRIGHT_RED" then
+ return {tag = "SOME", payload = "101"}
+ elseif a == "BRIGHT_GREEN" then
+ return {tag = "SOME", payload = "102"}
+ elseif a == "BRIGHT_YELLOW" then
+ return {tag = "SOME", payload = "103"}
+ elseif a == "BRIGHT_BLUE" then
+ return {tag = "SOME", payload = "104"}
+ elseif a == "BRIGHT_MAGENTA" then
+ return {tag = "SOME", payload = "105"}
+ elseif a == "BRIGHT_CYAN" then
+ return {tag = "SOME", payload = "106"}
+ elseif a == "BRIGHT_WHITE" then
+ return {tag = "SOME", payload = "107"}
+ else
+ _raise(_Match, "ansi-color.sml:79:7")
+ end
+end
+_L[274] = function(tmp54, xs)
+ if tmp54.tag == "SOME" then
+ return {tmp54.payload, xs}
+ elseif tmp54.tag == "NONE" then
+ return xs
+ else
+ _raise(_Match, "ansi-color.sml:137:7")
+ end
+end
+_L[275] = function(background, blink, bold, dim, foreground, italic, reverse, strike, underline)
+ local attrs, tmp54
+ do
+ local attrs1
+ if strike then
+ attrs1 = {"9", nil}
+ else
+ attrs1 = nil
end
+ local attrs2
+ if reverse then
+ attrs2 = {"7", attrs1}
+ else
+ attrs2 = attrs1
+ end
+ local attrs3
+ if blink then
+ attrs3 = {"5", attrs2}
+ else
+ attrs3 = attrs2
+ end
+ local attrs4
+ if underline then
+ attrs4 = {"4", attrs3}
+ else
+ attrs4 = attrs3
+ end
+ local attrs5
+ if italic then
+ attrs5 = {"3", attrs4}
+ else
+ attrs5 = attrs4
+ end
+ local attrs6
+ if dim then
+ attrs6 = {"2", attrs5}
+ else
+ attrs6 = attrs5
+ end
+ local attrs7
+ if bold then
+ attrs7 = {"1", attrs6}
+ else
+ attrs7 = attrs6
+ end
+ local tmp55 = mapPartial(_L[273])
+ local tmp56 = tmp55(background)
+ attrs = _L[274](tmp56, attrs7)
+ local tmp57 = mapPartial(_L[272])
+ tmp54 = tmp57(foreground)
end
-
- while do_watch(input_files_to_watch) do
- local success, status = do_typeset()
- if not success then
- -- error
+ local attrs1 = _L[274](tmp54, attrs)
+ return "\x1B[" .. table_concat(_VectorOrArray_fromList(attrs1), ";") .. "m"
+end
+_ENV.CLUTTEX_VERBOSITY = 0
+_L[276] = "ALWAYS"
+_L[277] = "AUTO"
+_L[278] = "NEVER"
+_L[279] = {false}
+_L[280] = function(a)
+ if a == "ALWAYS" then
+ else
+ goto else1
+ end
+ do
+ local tmp54 = tmp3("texrunner.isatty").enable_virtual_terminal
+ local tmp55 = _ENV.io.stderr
+ _L[279][1] = true
+ if not not tmp54 then
else
- 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)
+ return nil
+ end
+ do
+ if not tmp54(tmp55) and _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ return nil
end
- input_files_to_watch = {}
- for _,fileinfo in ipairs(filelist) do
- if fileinfo.kind == "input" then
- table.insert(input_files_to_watch, fileinfo.abspath)
+ do
+ return _L[124]({_L[118], "ClutTeX: Failed to enable virtual terminal\n"})
+ end
+ end
+ end
+ ::else1::
+ if a == "AUTO" then
+ elseif a == "NEVER" then
+ _L[279][1] = false
+ return nil
+ else
+ _raise(_Match, "message.sml:26:5")
+ end
+ do
+ local tmp54 = tmp3("texrunner.isatty")
+ local tmp55 = tmp54.enable_virtual_terminal
+ local tmp56 = _ENV.io.stderr
+ local tmp57 = not not tmp54.isatty(tmp56)
+ _L[279][1] = tmp57
+ local tmp58
+ tmp58 = tmp57 and not not tmp55
+ if tmp58 then
+ else
+ return nil
+ end
+ do
+ local tmp59 = tmp55(tmp56)
+ _L[279][1] = tmp59
+ if not tmp59 and _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ return nil
+ end
+ do
+ return _L[124]({_L[118], "ClutTeX: Failed to enable virtual terminal\n"})
+ end
+ end
+ end
+end
+_L[281] = {tag = "SOME", payload = _L[271]}
+_L[282] = _L[275]({tag = "SOME", payload = _L[257]}, false, false, false, _L[281], false, false, false, false)
+_L[283] = {_L[282]}
+_L[284] = _L[275](NONE, false, false, false, {tag = "SOME", payload = _L[262]}, false, false, false, false)
+_L[285] = {_L[284]}
+_L[286] = _L[275](NONE, false, false, false, {tag = "SOME", payload = _L[257]}, false, false, false, false)
+_L[287] = {_L[286]}
+_L[288] = _L[275](NONE, false, false, false, {tag = "SOME", payload = _L[260]}, false, false, false, false)
+_L[289] = {_L[288]}
+_L[290] = _L[275](NONE, false, false, false, {tag = "SOME", payload = _L[260]}, false, false, false, false)
+_L[291] = {_L[290]}
+_L[292] = _L[275](NONE, false, false, false, {tag = "SOME", payload = _L[261]}, false, false, false, false)
+_L[293] = {_L[292]}
+_L[294] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[283][1] = tmp54
+ return nil
+end
+_L[295] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[285][1] = tmp54
+ return nil
+end
+_L[296] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[287][1] = tmp54
+ return nil
+end
+_L[297] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[289][1] = tmp54
+ return nil
+end
+_L[298] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[291][1] = tmp54
+ return nil
+end
+_L[299] = function(a)
+ local tmp54
+ do
+ local background = a.background
+ local blink = a.blink
+ local bold = a.bold
+ local dim = a.dim
+ local foreground = a.foreground
+ local italic = a.italic
+ local reverse = a.reverse
+ local strike = a.strike
+ tmp54 = _L[275](background, blink, bold, dim, foreground, italic, reverse, strike, a.underline)
+ end
+ _L[293][1] = tmp54
+ return nil
+end
+_L[300] = function(a)
+ if _L[279][1] then
+ else
+ return _L[124]({_L[118], "[EXEC] " .. a .. "\n"})
+ end
+ do
+ local tmp54 = _L[283][1] .. "[EXEC]" .. "\x1B[0m" .. " "
+ return _L[124]({_L[118], tmp54 .. _L[285][1] .. a .. "\x1B[0m" .. "\n"})
+ end
+end
+_L[301] = function(a)
+ if _L[279][1] then
+ else
+ return _L[124]({_L[118], "[ERROR] " .. a .. "\n"})
+ end
+ do
+ local tmp54 = _L[283][1] .. "[ERROR]" .. "\x1B[0m" .. " "
+ return _L[124]({_L[118], tmp54 .. _L[287][1] .. a .. "\x1B[0m" .. "\n"})
+ end
+end
+_L[302] = function(a)
+ if _L[279][1] then
+ else
+ return _L[124]({_L[118], "[WARN] " .. a .. "\n"})
+ end
+ do
+ local tmp54 = _L[283][1] .. "[WARN]" .. "\x1B[0m" .. " "
+ return _L[124]({_L[118], tmp54 .. _L[289][1] .. a .. "\x1B[0m" .. "\n"})
+ end
+end
+_L[303] = function(a)
+ if _L[279][1] then
+ else
+ return _L[124]({_L[118], "[DIAG] " .. a .. "\n"})
+ end
+ do
+ local tmp54 = _L[283][1] .. "[DIAG]" .. "\x1B[0m" .. " "
+ return _L[124]({_L[118], tmp54 .. _L[291][1] .. a .. "\x1B[0m" .. "\n"})
+ end
+end
+_L[304] = function(a)
+ if _L[279][1] then
+ else
+ return _L[124]({_L[118], "[INFO] " .. a .. "\n"})
+ end
+ do
+ local tmp54 = _L[283][1] .. "[INFO]" .. "\x1B[0m" .. " "
+ return _L[124]({_L[118], tmp54 .. _L[293][1] .. a .. "\x1B[0m" .. "\n"})
+ end
+end
+_L[305] = "DVIPDFMX"
+_L[306] = "DVIPS"
+_L[307] = "DVISVGM"
+_L[308] = "PDFTEX"
+_L[309] = "XETEX"
+_L[310] = "LUATEX"
+_L[311] = "DVIPDFMX"
+_L[312] = "DVIPS"
+_L[313] = "DVISVGM"
+_L[314] = "PDFTEX"
+_L[315] = "XETEX"
+_L[316] = "LUATEX"
+_L[317] = "UNKNOWN"
+_L[318] = function(a)
+ if a == "DVIPDFMX" then
+ return "dvipdfmx"
+ elseif a == "DVIPS" then
+ return "dvips"
+ elseif a == "DVISVGM" then
+ return "dvisvgm"
+ elseif a == "PDFTEX" then
+ return "pdftex"
+ elseif a == "XETEX" then
+ return "xetex"
+ elseif a == "LUATEX" then
+ return "luatex"
+ elseif a == "UNKNOWN" then
+ return "unknown"
+ else
+ _raise(_Match, "check-driver.sml:24:9")
+ end
+end
+_L[319] = "PDFMODE"
+_L[320] = "DVISVGM"
+_L[321] = "XDVIPDFMX"
+_L[322] = "DVIPDFMX"
+_L[323] = "DVIPS"
+_L[324] = "PDFTEX"
+_L[325] = "LUATEX"
+_L[326] = "XETEX"
+_L[327] = "UNKNOWN"
+_L[328] = function(tmp54, tmp55)
+ return tmp54 == "PDFMODE" and tmp55 == "PDFMODE" or (tmp54 == "DVISVGM" and tmp55 == "DVISVGM" or (tmp54 == "XDVIPDFMX" and tmp55 == "XDVIPDFMX" or (tmp54 == "DVIPDFMX" and tmp55 == "DVIPDFMX" or (tmp54 == "DVIPS" and tmp55 == "DVIPS" or (tmp54 == "PDFTEX" and tmp55 == "PDFTEX" or (tmp54 == "LUATEX" and tmp55 == "LUATEX" or (tmp54 == "XETEX" and tmp55 == "XETEX" or tmp54 == "UNKNOWN" and tmp55 == "UNKNOWN")))))))
+end
+_L[329] = function(a)
+ if a == "PDFMODE" then
+ return "pdfmode"
+ elseif a == "DVISVGM" then
+ return "dvisvgm"
+ elseif a == "XDVIPDFMX" then
+ return "xdvipdfmx"
+ elseif a == "DVIPDFMX" then
+ return "dvipdfmx"
+ elseif a == "DVIPS" then
+ return "dvips"
+ elseif a == "PDFTEX" then
+ return "pdftex"
+ elseif a == "LUATEX" then
+ return "luatex"
+ elseif a == "XETEX" then
+ return "xetex"
+ elseif a == "UNKNOWN" then
+ return "unknown"
+ else
+ _raise(_Match, "check-driver.sml:44:9")
+ end
+end
+_L[330] = "DVIPDFMX"
+_L[331] = "DVIPS"
+_L[332] = "PDFTEX"
+_L[333] = "LUATEX"
+_L[334] = "XETEX"
+_L[335] = "UNKNOWN"
+_L[336] = function(a)
+ if a == "DVIPDFMX" then
+ return "dvipdfmx"
+ elseif a == "DVIPS" then
+ return "dvips"
+ elseif a == "PDFTEX" then
+ return "pdftex"
+ elseif a == "LUATEX" then
+ return "luatex"
+ elseif a == "XETEX" then
+ return "xetex"
+ elseif a == "UNKNOWN" then
+ return "unknown"
+ else
+ _raise(_Match, "check-driver.sml:57:9")
+ end
+end
+_L[337] = "PDF"
+_L[338] = "DVIPS"
+_L[339] = "UNKNOWN"
+_L[340] = "DVIPDFMX"
+_L[341] = "DVIPS"
+_L[342] = "DVISVGM"
+_L[343] = "FSWATCH"
+_L[344] = "INOTIFYWAIT"
+_L[345] = "AUTO"
+_L[346] = function(tmp54, tmp55)
+ return tmp54 == "FSWATCH" and tmp55 == "FSWATCH" or (tmp54 == "INOTIFYWAIT" and tmp55 == "INOTIFYWAIT" or tmp54 == "AUTO" and tmp55 == "AUTO")
+end
+_L[347] = {tag = "NOW"}
+_L[348] = function(p)
+ if p[1].tag == "NOW" and p[2].tag == "NOW" then
+ return true
+ elseif p[1].tag == "RAW" and p[2].tag == "RAW" then
+ local a = p[1].payload
+ return a == p[2].payload
+ else
+ return false
+ end
+end
+_L[349] = {bibtex_or_biber = NONE, change_directory = NONE, check_driver = NONE, color = NONE, config_file = NONE, dvipdfmx_extraoptions = nil, engine = NONE, engine_executable = NONE, file_line_error = true, fmt = NONE, fresh = false, halt_on_error = true, includeonly = NONE, interaction = NONE, jobname = NONE, make_depends = NONE, makeglossaries = NONE, makeindex = NONE, max_iterations = NONE, output = NONE, output_directory = NONE, output_format = NONE, package_support = {epstopdf = false, minted = false, pdfx = false}, print_output_directory = false, shell_escape = NONE, source_date_epoch = NONE, start_with_draft = false, synctex = NONE, tex_extraoptions = nil, watch = NONE}
+_L[350] = function(a)
+ return function(a1)
+ local tmp54 = isPrefix(a)
+ local tmp55 = tmp54(a1)
+ if tmp55 then
+ else
+ return NONE
+ end
+ do
+ local tmp56 = extract1({a1, #a, NONE})
+ return {tag = "SOME", payload = tmp56}
+ end
+ end
+end
+_L[351] = function(line, outdir)
+ local tmp54 = _L[350]("\\@input{")
+ local exp = tmp54(line)
+ if exp.tag == "NONE" then
+ return NONE
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "auxfile.sml:15:5")
+ end
+ do
+ local rest = exp.payload
+ local tmp55 = splitl(function(c)
+ return c ~= 125
+ end)
+ local tmp56 = tmp55(rest)
+ local subauxfile = string1(tmp56[1])
+ local subauxfile_abs = _L[215]({tag = "SOME", payload = outdir}, subauxfile)
+ return {tag = "SOME", payload = {subauxfile = subauxfile, subauxfile_abs = subauxfile_abs}}
+ end
+end
+_L[352] = function(auxfile, outdir, seen)
+ local ins, tmp54, tmp55
+ do
+ ins = _L[115](auxfile)
+ local seen1 = _L[198](seen, auxfile)
+ tmp55, tmp54 = false, seen1
+ end
+ ::cont::
+ do
+ local did, seen1 = tmp55, tmp54
+ local exp = _L[114](ins)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ _L[120](ins)
+ return {did, seen1}
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "auxfile.sml:31:9")
+ end
+ do
+ local exp1 = _L[351](exp.payload, outdir)
+ if exp1.tag == "NONE" then
+ tmp55 = did
+ tmp54 = seen1
+ goto cont
+ end
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "auxfile.sml:34:13")
+ end
+ do
+ local subauxfile
+ do
+ subauxfile = exp1.payload.subauxfile
+ local subauxfile_abs = exp1.payload.subauxfile_abs
+ local tmp56 = _L[218](subauxfile_abs)
+ if tmp56 then
+ else
+ goto else2
+ end
+ do
+ local exp2 = _L[352](subauxfile_abs, outdir, seen1)
+ local did_PRIME = exp2[1]
+ local seen2 = exp2[2]
+ if did then
+ tmp55 = true
+ tmp54 = seen2
+ goto cont
+ else
+ tmp55 = did_PRIME
+ tmp54 = seen2
+ goto cont
+ end
+ end
end
+ ::else2::
+ local tmp56 = _L[212](subauxfile)
+ local tmp57 = _L[210].join(outdir, tmp56)
+ local tmp58 = _L[219](tmp57)
+ if tmp58 then
+ tmp55 = did
+ tmp54 = seen1
+ goto cont
+ end
+ local tmp59, tmp60 = _L[217].mkdir_rec(tmp57)
+ if not tmp59 then
+ else
+ tmp55 = true
+ tmp54 = seen1
+ goto cont
+ end
+ do
+ local tmp61 = _Error(tmp60)
+ _raise(tmp61, "fs-util.sml:16:28")
+ end
end
end
end
-
-else
- -- Not in watch mode
- local success, status = do_typeset()
- if not success then
- os.exit(1)
+end
+_L[353] = function(auxfile, outdir, revLines)
+ local ins = _L[115](auxfile)
+ local tmp54 = revLines
+ ::cont::
+ do
+ local a = tmp54
+ local exp = _L[114](ins)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ _L[120](ins)
+ return a
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "auxfile.sml:62:9")
+ end
+ do
+ local line = exp.payload
+ local exp1 = _L[351](line, outdir)
+ if exp1.tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ local subauxfile_abs = exp1.payload.subauxfile_abs
+ local tmp55 = _L[218](subauxfile_abs)
+ if tmp55 then
+ else
+ tmp54 = a
+ goto cont
+ end
+ tmp54 = _L[353](subauxfile_abs, outdir, a)
+ goto cont
+ end
+ ::else2::
+ if exp1.tag == "NONE" then
+ else
+ _raise(_Match, "auxfile.sml:65:13")
+ end
+ do
+ local isBibTeXLine
+ do
+ local tmp55 = _L[350]("\\")
+ local exp2 = tmp55(line)
+ do
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ isBibTeXLine = false
+ goto cont1
+ else
+ _raise(_Match, "auxfile.sml:83:21")
+ end
+ do
+ local s = exp2.payload
+ local tmp56
+ do
+ local tmp57 = splitl(function(c)
+ local tmp58
+ tmp58 = 65 <= c and c <= 90 or 97 <= c and c <= 122
+ return tmp58 or c == 64
+ end)
+ local tmp58 = tmp57(s)
+ tmp56 = tmp58[1]
+ end
+ local exp3 = string1(tmp56)
+ isBibTeXLine = exp3 == "citation" or (exp3 == "bibdata" or exp3 == "bibstyle")
+ end
+ end
+ end
+ ::cont1::
+ if isBibTeXLine then
+ else
+ tmp54 = a
+ goto cont
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ tmp54 = {line, a}
+ goto cont
+ end
+ do
+ local tmp55 = full(line)
+ local tmp56 = splitr(isSpace, tmp55)
+ local tmp57 = string1(tmp56[1])
+ _L[304]("BibTeX line: " .. tmp57)
+ tmp54 = {line, a}
+ goto cont
+ end
+ end
+ end
+ end
end
end
+_L[354] = tmp3("texrunner.luatexinit")
+_L[355] = "INPUT"
+_L[356] = "OUTPUT"
+_L[357] = "AUXILIARY"
+_L[358] = function(tmp54, tmp55)
+ return tmp54 == "INPUT" and tmp55 == "INPUT" or (tmp54 == "OUTPUT" and tmp55 == "OUTPUT" or tmp54 == "AUXILIARY" and tmp55 == "AUXILIARY")
+end
+_L[359] = function(fileInfo, fileMap)
+ local tmp54 = foldl(function(a)
+ local x = a[1]
+ return {x[1], a[2]}
+ end)
+ local tmp55 = tmp54(nil)
+ local tmp56 = tmp55(fileInfo)
+ local tmp57 = _L[206](_EXCLAM)
+ local tmp58 = tmp57(fileMap)
+ return {tmp56, tmp58}
+end
+_L[360] = function(file, tmp54, fileList, fileMap)
+ local ins = _L[115](file)
+ local tmp55, tmp56 = fileList, fileMap
+ ::cont::
+ do
+ local fileList1, fileMap1 = tmp55, tmp56
+ local exp = _L[114](ins)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ _L[120](ins)
+ return {fileList1, fileMap1}
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "reruncheck.sml:29:17")
+ end
+ do
+ local path, exp1
+ do
+ local line = exp.payload
+ local tmp57 = splitl(isAlphaNum)
+ local tmp58 = full(line)
+ local exp2 = tmp57(tmp58)
+ local t = exp2[1]
+ local tmp59
+ do
+ local tmp60 = splitr(isSpace, exp2[2])
+ tmp59 = tmp60[1]
+ end
+ local tmp60
+ do
+ local tmp61 = splitl(isSpace)
+ local tmp62 = tmp61(tmp59)
+ tmp60 = tmp62[2]
+ end
+ path = string1(tmp60)
+ exp1 = string1(t)
+ if exp1 == "PWD" then
+ tmp55 = fileList1
+ tmp56 = fileMap1
+ goto cont
+ end
+ if exp1 == "INPUT" then
+ else
+ goto else2
+ end
+ do
+ local abspath = _L[215](NONE, path)
+ local exp3 = _L[205](fileMap1, abspath)
+ if exp3.tag == "SOME" then
+ else
+ goto else4
+ end
+ do
+ local r = exp3.payload
+ local path_PRIME = exp3.payload[1].path
+ local abspath_PRIME = exp3.payload[1].abspath
+ local kind = exp3.payload[1].kind
+ local tmp61 = #path
+ local tmp62
+ if tmp61 < #path_PRIME then
+ tmp62 = path
+ else
+ tmp62 = path_PRIME
+ end
+ local tmp63 = _L[358](kind, _L[356])
+ local tmp64
+ if tmp63 then
+ tmp64 = _L[357]
+ else
+ tmp64 = kind
+ end
+ r[1] = {abspath = abspath_PRIME, kind = tmp64, path = tmp62}
+ tmp55 = fileList1
+ tmp56 = fileMap1
+ goto cont
+ end
+ ::else4::
+ if exp3.tag == "NONE" then
+ else
+ _raise(_Match, "reruncheck.sml:38:31")
+ end
+ do
+ local tmp61 = _L[218](path)
+ if tmp61 then
+ else
+ tmp55 = fileList1
+ tmp56 = fileMap1
+ goto cont
+ end
+ do
+ local tmp62 = _L[214](path)
+ local tmp63
+ if tmp62 == "bbl" then
+ tmp63 = _L[357]
+ else
+ tmp63 = _L[355]
+ end
+ local tmp64 = {{abspath = abspath, kind = tmp63, path = path}}
+ local tmp65 = {tmp64, fileList1}
+ local tmp66 = _L[204](fileMap1, abspath, tmp64)
+ tmp55 = tmp65
+ tmp56 = tmp66
+ goto cont
+ end
+ end
+ end
+ end
+ ::else2::
+ if exp1 == "OUTPUT" then
+ else
+ goto else3
+ end
+ do
+ local abspath = _L[215](NONE, path)
+ local exp2 = _L[205](fileMap1, abspath)
+ if exp2.tag == "SOME" then
+ else
+ goto else4
+ end
+ do
+ local r = exp2.payload
+ local path_PRIME = exp2.payload[1].path
+ local abspath_PRIME = exp2.payload[1].abspath
+ local kind = exp2.payload[1].kind
+ local tmp57 = #path
+ local tmp58
+ if tmp57 < #path_PRIME then
+ tmp58 = path
+ else
+ tmp58 = path_PRIME
+ end
+ local tmp59 = _L[358](kind, _L[355])
+ local tmp60
+ if tmp59 then
+ tmp60 = _L[357]
+ else
+ tmp60 = kind
+ end
+ r[1] = {abspath = abspath_PRIME, kind = tmp60, path = tmp58}
+ tmp55 = fileList1
+ tmp56 = fileMap1
+ goto cont
+ end
+ ::else4::
+ if exp2.tag == "NONE" then
+ else
+ _raise(_Match, "reruncheck.sml:70:31")
+ end
+ do
+ local tmp57
+ do
+ local ext = _L[214](path)
+ do
+ if ext == "out" then
+ tmp57 = true
+ goto cont1
+ end
+ local tmp58 = tmp(eq)
+ local tmp59
+ do
+ local tmp60 = tmp58({tmp54, NONE})
+ tmp59 = not tmp60
+ end
+ local tmp60
+ tmp60 = tmp59 and ext == "idx"
+ tmp57 = tmp60 or (ext == "bcf" or ext == "glo")
+ end
+ end
+ ::cont1::
+ local tmp58
+ if tmp57 then
+ tmp58 = _L[357]
+ else
+ tmp58 = _L[356]
+ end
+ local tmp59 = {{abspath = abspath, kind = tmp58, path = path}}
+ local tmp60 = {tmp59, fileList1}
+ local tmp61 = _L[204](fileMap1, abspath, tmp59)
+ tmp55 = tmp60
+ tmp56 = tmp61
+ goto cont
+ end
+ end
+ ::else3::
+ _L[302]("Unrecognized line in recorder file '" .. file .. "': " .. exp1)
+ tmp55 = fileList1
+ tmp56 = fileMap1
+ goto cont
+ end
+ end
+end
+_L[361] = function(fileList, auxstatus)
+ local shouldRerun, auxstatus1
+ do
+ local tmp54, tmp55 = fileList, _L[203]
+ ::cont1::
+ do
+ local tmp56, newauxstatus = tmp54, tmp55
+ if tmp56 == nil then
+ auxstatus1 = newauxstatus
+ shouldRerun = false
+ goto cont
+ end
+ if tmp56 ~= nil then
+ else
+ _raise(_Match, "reruncheck.sml:155:15")
+ end
+ do
+ local shortPath = tmp56[1].path
+ local abspath = tmp56[1].abspath
+ local kind = tmp56[1].kind
+ local tmp57 = tmp56[2]
+ local tmp58 = _L[218](abspath)
+ if tmp58 then
+ else
+ tmp54 = tmp57
+ tmp55 = newauxstatus
+ goto cont1
+ end
+ do
+ local shouldRerun1, newauxstatus1
+ do
+ if kind == "INPUT" then
+ else
+ goto else1
+ end
+ do
+ local mtime = _L[66](abspath)
+ local exp = _L[205](auxstatus, abspath)
+ if exp.tag == "SOME" and exp.payload.mtime.tag == "SOME" then
+ else
+ newauxstatus1 = newauxstatus
+ shouldRerun1 = false
+ goto cont2
+ end
+ do
+ if exp.payload.mtime.payload < mtime then
+ else
+ newauxstatus1 = newauxstatus
+ shouldRerun1 = false
+ goto cont2
+ end
+ do
+ _L[304]("Input file '" .. shortPath .. "' was modified (by user, or some external commands).")
+ local tmp59 = _L[204](newauxstatus, abspath, {{md5sum = NONE, mtime = {tag = "SOME", payload = mtime}, size = NONE}})
+ newauxstatus1 = tmp59
+ shouldRerun1 = true
+ goto cont2
+ end
+ end
+ end
+ ::else1::
+ if kind == "AUXILIARY" then
+ elseif kind == "OUTPUT" then
+ newauxstatus1 = newauxstatus
+ shouldRerun1 = false
+ goto cont2
+ else
+ _raise(_Match, "reruncheck.sml:159:31")
+ end
+ do
+ local exp = _L[205](auxstatus, abspath)
+ if exp.tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ local newauxstatus2, modifiedBecause
+ do
+ local s = exp.payload
+ local size1 = _L[67](abspath)
+ local exp1 = s.size
+ local sizeIsDifferent
+ if exp1.tag == "SOME" then
+ sizeIsDifferent = exp1.payload ~= size1
+ elseif exp1.tag == "NONE" then
+ sizeIsDifferent = true
+ else
+ _raise(_Match, "reruncheck.sml:178:66")
+ end
+ do
+ if sizeIsDifferent then
+ else
+ goto else4
+ end
+ do
+ local exp2 = s.size
+ local previousSize
+ if exp2.tag == "SOME" then
+ previousSize = tmp21(tmp5(exp2.payload), "-", "~")
+ elseif exp2.tag == "NONE" then
+ previousSize = "(N/A)"
+ else
+ _raise(_Match, "reruncheck.sml:183:77")
+ end
+ local tmp59 = "size: " .. previousSize .. " -> "
+ local tmp60 = {tag = "SOME", payload = tmp59 .. tmp21(tmp5(size1), "-", "~")}
+ local tmp61 = _L[204](newauxstatus, abspath, {{md5sum = NONE, mtime = NONE, size = {tag = "SOME", payload = size1}}})
+ newauxstatus2 = tmp61
+ modifiedBecause = tmp60
+ goto cont3
+ end
+ ::else4::
+ local md5sum
+ do
+ local ins = _L[151](abspath)
+ local tmp59 = _L[153](ins)
+ _L[152](ins)
+ md5sum = _L[191](tmp59)
+ end
+ local exp2 = s.md5sum
+ local md5sumIsDifferent
+ if exp2.tag == "SOME" then
+ local h = exp2.payload
+ local tmp59 = h[1]
+ local tmp60 = h[2]
+ local tmp61 = h[3]
+ local tmp62 = h[4]
+ local tmp63 = md5sum[1]
+ local tmp64 = md5sum[2]
+ local tmp65 = md5sum[3]
+ md5sumIsDifferent = tmp62 ~= md5sum[4] or (tmp61 ~= tmp65 or (tmp60 ~= tmp64 or tmp59 ~= tmp63))
+ elseif exp2.tag == "NONE" then
+ md5sumIsDifferent = true
+ else
+ _raise(_Match, "reruncheck.sml:190:82")
+ end
+ if md5sumIsDifferent then
+ else
+ newauxstatus2 = newauxstatus
+ modifiedBecause = NONE
+ goto cont3
+ end
+ do
+ local previousMd5sum
+ do
+ local exp3 = s.md5sum
+ do
+ if exp3.tag == "SOME" then
+ elseif exp3.tag == "NONE" then
+ previousMd5sum = "(N/A)"
+ goto cont4
+ else
+ _raise(_Match, "reruncheck.sml:194:86")
+ end
+ do
+ local h = exp3.payload
+ local a = h[1]
+ local b = h[2]
+ local c = h[3]
+ previousMd5sum = _L[193](a, b, c, h[4])
+ end
+ end
+ end
+ ::cont4::
+ local tmp59 = "md5: " .. previousMd5sum .. " -> "
+ local tmp60
+ do
+ local a = md5sum[1]
+ local b = md5sum[2]
+ local c = md5sum[3]
+ tmp60 = _L[193](a, b, c, md5sum[4])
+ end
+ local tmp61 = {tag = "SOME", payload = tmp59 .. tmp60}
+ local tmp62 = {tag = "SOME", payload = size1}
+ local tmp63 = _L[204](newauxstatus, abspath, {{md5sum = {tag = "SOME", payload = md5sum}, mtime = NONE, size = tmp62}})
+ newauxstatus2 = tmp63
+ modifiedBecause = tmp61
+ end
+ end
+ end
+ ::cont3::
+ if modifiedBecause.tag == "SOME" then
+ else
+ goto else3
+ end
+ do
+ local reason = modifiedBecause.payload
+ _L[304]("File '" .. shortPath .. "' was modified (" .. reason .. ").")
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = true
+ goto cont2
+ end
+ ::else3::
+ if modifiedBecause.tag == "NONE" then
+ else
+ _raise(_Match, "reruncheck.sml:202:43")
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = false
+ goto cont2
+ end
+ _L[304]("File '" .. shortPath .. "' unmodified (size and md5sum).")
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = false
+ goto cont2
+ end
+ end
+ ::else2::
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "reruncheck.sml:175:36")
+ end
+ do
+ local newauxstatus2, shouldRerun2
+ do
+ local tmp59 = isSuffix(".aux")
+ local tmp60 = tmp59(abspath)
+ do
+ if tmp60 then
+ else
+ newauxstatus2 = newauxstatus
+ shouldRerun2 = true
+ goto cont3
+ end
+ do
+ local size1 = _L[67](abspath)
+ if size1 == 8 then
+ else
+ goto else4
+ end
+ do
+ local ins = _L[151](abspath)
+ local tmp61 = _L[153](ins)
+ _L[152](ins)
+ local tmp62 = tmp61 == "\\relax \n"
+ local tmp63 = {tag = "SOME", payload = size1}
+ local tmp64 = _L[191](tmp61)
+ local newauxstatus3 = _L[204](newauxstatus, abspath, {{md5sum = {tag = "SOME", payload = tmp64}, mtime = NONE, size = tmp63}})
+ newauxstatus2 = newauxstatus3
+ shouldRerun2 = not tmp62
+ goto cont3
+ end
+ ::else4::
+ local newauxstatus3 = _L[204](newauxstatus, abspath, {{md5sum = NONE, mtime = NONE, size = {tag = "SOME", payload = size1}}})
+ newauxstatus2 = newauxstatus3
+ shouldRerun2 = true
+ end
+ end
+ end
+ ::cont3::
+ if shouldRerun2 then
+ else
+ goto else3
+ end
+ _L[304]("New auxiliary file '" .. shortPath .. "'.")
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = shouldRerun2
+ goto cont2
+ ::else3::
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = shouldRerun2
+ goto cont2
+ end
+ _L[304]("Ignoring almost-empty auxiliary file '" .. shortPath .. "'.")
+ newauxstatus1 = newauxstatus2
+ shouldRerun1 = shouldRerun2
+ end
+ end
+ end
+ ::cont2::
+ if shouldRerun1 then
+ auxstatus1 = newauxstatus1
+ shouldRerun = true
+ else
+ tmp54 = tmp57
+ tmp55 = newauxstatus1
+ goto cont1
+ end
+ end
+ end
+ end
+ end
+ ::cont::
+ local tmp54 = _L[206](_EXCLAM)
+ local tmp55 = tmp54(auxstatus1)
+ return {shouldRerun, tmp55}
+end
+_L[362] = function(auxstatus, dst, srcAbs)
+ local tmp54 = _L[218](dst)
+ if not tmp54 then
+ return true
+ end
+ local exp = _L[205](auxstatus, srcAbs)
+ if exp.tag == "SOME" and exp.payload.mtime.tag == "SOME" then
+ else
+ return false
+ end
+ do
+ local mtime = exp.payload.mtime.payload
+ local tmp55 = _L[66](dst)
+ return mtime > tmp55
+ end
+end
+_L[363] = {color = {diagnostic = NONE, error = NONE, execute = NONE, information = NONE, type_ = NONE, warning = NONE}, temporary_directory = NONE}
+_L[364] = function(table, key)
+ local tmp54 = find(function(a)
+ return a[1] == key
+ end)
+ local exp = tmp54(table)
+ if exp.tag == "NONE" then
+ return NONE
+ elseif exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload[2]}
+ else
+ _raise(_Match, "config-file.sml:42:5")
+ end
+end
+_L[365] = function(tmp54, key)
+ if tmp54.tag == "SOME" then
+ elseif tmp54.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "config-file.sml:46:7")
+ end
+ do
+ local table = tmp54.payload
+ local tmp55 = find(function(a)
+ return a[1] == key
+ end)
+ local exp = tmp55(table)
+ if exp.tag == "NONE" then
+ return NONE
+ elseif exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload[2]}
+ else
+ _raise(_Match, "config-file.sml:47:10")
+ end
+ end
+end
+_L[366] = function(tmp54, f)
+ if tmp54.tag == "SOME" then
+ elseif tmp54.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "config-file.sml:54:7")
+ end
+ do
+ return f(tmp54.payload)
+ end
+end
+_L[367] = function(a)
+ return function(a1)
+ if a1.tag == "BOOL" then
+ return {tag = "SOME", payload = a1.payload}
+ end
+ _L[302]("Config entry " .. a .. " should be a boolean.")
+ return NONE
+ end
+end
+_L[368] = function(a)
+ return function(a1)
+ if a1.tag == "STRING" then
+ else
+ goto else1
+ end
+ do
+ local x = a1.payload
+ local exp
+ if x == "default" then
+ exp = {tag = "SOME", payload = _L[255]}
+ elseif x == "black" then
+ exp = {tag = "SOME", payload = _L[256]}
+ elseif x == "red" then
+ exp = {tag = "SOME", payload = _L[257]}
+ elseif x == "green" then
+ exp = {tag = "SOME", payload = _L[258]}
+ elseif x == "yellow" then
+ exp = {tag = "SOME", payload = _L[259]}
+ elseif x == "blue" then
+ exp = {tag = "SOME", payload = _L[260]}
+ elseif x == "magenta" then
+ exp = {tag = "SOME", payload = _L[261]}
+ elseif x == "cyan" then
+ exp = {tag = "SOME", payload = _L[262]}
+ elseif x == "white" then
+ exp = {tag = "SOME", payload = _L[263]}
+ elseif x == "brightblack" then
+ exp = {tag = "SOME", payload = _L[264]}
+ elseif x == "brightred" then
+ exp = {tag = "SOME", payload = _L[265]}
+ elseif x == "brightgreen" then
+ exp = {tag = "SOME", payload = _L[266]}
+ elseif x == "brightyellow" then
+ exp = {tag = "SOME", payload = _L[267]}
+ elseif x == "brightblue" then
+ exp = {tag = "SOME", payload = _L[268]}
+ elseif x == "brightmagenta" then
+ exp = {tag = "SOME", payload = _L[269]}
+ elseif x == "brightcyan" then
+ exp = {tag = "SOME", payload = _L[270]}
+ elseif x == "brightwhite" then
+ exp = {tag = "SOME", payload = _L[271]}
+ else
+ exp = NONE
+ end
+ if exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload}
+ end
+ if exp.tag == "NONE" then
+ else
+ _raise(_Match, "config-file.sml:76:10")
+ end
+ do
+ _L[302]("Config entry " .. a .. " should be a valid color.")
+ return NONE
+ end
+ end
+ ::else1::
+ _L[302]("Config entry " .. a .. " should be a string.")
+ return NONE
+ end
+end
+_L[369] = function(a)
+ return function(a1)
+ if a1.tag == "TABLE" then
+ else
+ goto else1
+ end
+ do
+ local t, tmp54, tmp55, tmp56, tmp57
+ do
+ t = a1.payload
+ local tmp58 = _L[364](t, "fore")
+ local tmp59 = _L[368](a .. ".fore")
+ tmp54 = _L[366](tmp58, tmp59)
+ local tmp60 = _L[364](t, "back")
+ local tmp61 = _L[368](a .. ".back")
+ tmp55 = _L[366](tmp60, tmp61)
+ local tmp62 = _L[364](t, "bold")
+ local tmp63 = _L[367](a .. ".bold")
+ local tmp64 = _L[366](tmp62, tmp63)
+ tmp56 = getOpt(tmp64, false)
+ local tmp65 = _L[364](t, "dim")
+ local tmp66 = _L[367](a .. ".dim")
+ local tmp67 = _L[366](tmp65, tmp66)
+ tmp57 = getOpt(tmp67, false)
+ end
+ local tmp58, tmp59, tmp60, tmp61
+ do
+ local tmp62 = _L[364](t, "underline")
+ local tmp63 = _L[367](a .. ".underline")
+ local tmp64 = _L[366](tmp62, tmp63)
+ tmp58 = getOpt(tmp64, false)
+ local tmp65 = _L[364](t, "blink")
+ local tmp66 = _L[367](a .. ".blink")
+ local tmp67 = _L[366](tmp65, tmp66)
+ tmp59 = getOpt(tmp67, false)
+ local tmp68 = _L[364](t, "reverse")
+ local tmp69 = _L[367](a .. ".reverse")
+ local tmp70 = _L[366](tmp68, tmp69)
+ tmp60 = getOpt(tmp70, false)
+ local tmp71 = _L[364](t, "italic")
+ local tmp72 = _L[367](a .. ".italic")
+ tmp61 = _L[366](tmp71, tmp72)
+ end
+ local tmp62 = getOpt(tmp61, false)
+ local tmp63 = _L[364](t, "strike")
+ local tmp64 = _L[367](a .. ".strike")
+ local tmp65 = _L[366](tmp63, tmp64)
+ local tmp66 = getOpt(tmp65, false)
+ return {tag = "SOME", payload = {background = tmp55, blink = tmp59, bold = tmp56, dim = tmp57, foreground = tmp54, italic = tmp62, reverse = tmp60, strike = tmp66, underline = tmp58}}
+ end
+ ::else1::
+ _L[302]("Config entry " .. a .. " should be a table.")
+ return NONE
+ end
+end
+_L[370] = {"Abort"}
+_L[371] = {tag = _L[370]}
+tmp17("", "ctype")
+_L[372] = function(a)
+ local tmp54 = a
+ ::cont::
+ do
+ local a1 = tmp54
+ if a1 == nil then
+ return NONE
+ end
+ if a1 ~= nil then
+ local tmp55 = a1[1]
+ local tmp56 = a1[2]
+ local exp
+ do
+ local tmp57 = tmp16(tmp55)
+ if tmp57 == nil then
+ exp = NONE
+ else
+ exp = {tag = "SOME", payload = tmp57}
+ end
+ end
+ if exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload}
+ elseif exp.tag == "NONE" then
+ tmp54 = tmp56
+ goto cont
+ else
+ _raise(_Match, "main.sml:27:32")
+ end
+ else
+ _raise(_Match, "main.sml:26:5")
+ end
+ end
+end
+_L[373] = function()
+ local progName
+ do
+ local tmp54 = _L[154][0]
+ if tmp54 == nil then
+ else
+ progName = tmp54
+ goto cont
+ end
+ do
+ local tmp55 = _Fail("CommandLine.name: arg is not available")
+ _raise(tmp55, "command-line.sml:10:45")
+ end
+ end
+ ::cont::
+ _L[124]({_L[118], "ClutTeX: Process TeX files without cluttering your working directory\n\nUsage:\n " .. progName .. " [options] [--] FILE.tex\n\nOptions:\n -e, --engine=ENGINE Specify which TeX engine to use.\n ENGINE is one of the following:\n pdflatex, pdftex,\n lualatex, luatex, luajittex,\n xelatex, xetex, latex, etex, tex,\n platex, eptex, ptex,\n uplatex, euptex, uptex,\n --engine-executable=COMMAND+OPTIONs\n The actual TeX command to use.\n [default: ENGINE]\n -o, --output=FILE The name of output file.\n [default: JOBNAME.pdf or JOBNAME.dvi]\n --fresh Clean intermediate files before running TeX.\n Cannot be used with --output-directory.\n --max-iterations=N Maximum number of running TeX to resolve\n cross-references. [default: 3]\n --start-with-draft Start with draft mode.\n --[no-]change-directory Change directory before running TeX.\n --watch[=ENGINE] Watch input files for change. Requires fswatch\n or inotifywait to be installed. ENGINE is one of\n `fswatch', `inotifywait' or `auto' [default: `auto']\n --tex-option=OPTION Pass OPTION to TeX as a single option.\n --tex-options=OPTIONs Pass OPTIONs to TeX as multiple options.\n --dvipdfmx-option[s]=OPTION[s] Same for dvipdfmx.\n --makeindex=COMMAND+OPTIONs Command to generate index, such as\n `makeindex' or `mendex'.\n --bibtex=COMMAND+OPTIONs Command for BibTeX, such as\n `bibtex' or `pbibtex'.\n --biber[=COMMA!
ND+OPTIONs] Command for Biber.\n --makeglossaries[=COMMAND+OPTIONs] Command for makeglossaries.\n -h, --help Print this message and exit.\n -v, --version Print version information and exit.\n -V, --verbose Be more verbose.\n --color[=WHEN] Make ClutTeX's message colorful. WHEN is one of\n `always', `auto', or `never'.\n [default: `auto' if --color is omitted,\n `always' if WHEN is omitted]\n --includeonly=NAMEs Insert '\\includeonly{NAMEs}'.\n --make-depends=FILE Write dependencies as a Makefile rule.\n --print-output-directory Print the output directory and exit.\n --package-support=PKG1[,PKG2,...]\n Enable special support for some shell-escaping\n packages.\n Currently supported: minted, epstopdf\n --check-driver=DRIVER Check that the correct driver file is loaded.\n DRIVER is one of `dvipdfmx', `dvips', `dvisvgm'.\n --source-date-epoch=TIME\n Set SOURCE_DATE_EPOCH variable.\n TIME is `now' or an integer.\n\n --[no-]shell-escape\n --shell-restricted\n --synctex=NUMBER\n --fmt=FMTNAME\n --[no-]file-line-error [default: yes]\n --[no-]halt-on-error [default: yes]\n --interaction=STRING [default: nonstopmode]\n --jobname=STRING\n --output-directory=DIR [default: somewhere in the temporary directory]\n --output-format=FORMAT FORMAT is `pdf' or `dvi'. [default: pdf]\n\n" .. "Copyright (C) 2016-2024 ARATA Mizuki\n\nThis program is free software: you can redistribute it and/or modify\nit under the terms of the GNU General Public License as published by\nthe Free Software Foundation, either version 3 of the License, or\n(at your option) any later version.!
\n\nThis program is distributed in the hope that it will be useful,\nbut WITHOUT ANY WARRANTY; without even the implied warranty of\nMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\nGNU General Public License for more details.\n\nYou should have received a copy of the GNU General Public License\nalong with this program. If not, see <http://www.gnu.org/licenses/>.\n"})
+ tmp15(0, true)
+end
+_L[374] = function(payload)
+ return {tag = "OPT_ENGINE", payload = payload}
+end
+_L[375] = function(payload)
+ return {tag = "OPT_ENGINE_EXECUTABLE", payload = payload}
+end
+_L[376] = function(payload)
+ return {tag = "OPT_OUTPUT", payload = payload}
+end
+_L[377] = {tag = "OPT_FRESH"}
+_L[378] = function(payload)
+ return {tag = "OPT_MAX_ITERATIONS", payload = payload}
+end
+_L[379] = {tag = "OPT_START_WITH_DRAFT"}
+_L[380] = function(payload)
+ return {tag = "OPT_WATCH", payload = payload}
+end
+_L[381] = {tag = "OPT_HELP"}
+_L[382] = {tag = "OPT_VERSION"}
+_L[383] = {tag = "OPT_VERBOSE"}
+_L[384] = function(payload)
+ return {tag = "OPT_COLOR", payload = payload}
+end
+_L[385] = function(payload)
+ return {tag = "OPT_INCLUDEONLY", payload = payload}
+end
+_L[386] = function(payload)
+ return {tag = "OPT_MAKE_DEPENDS", payload = payload}
+end
+_L[387] = {tag = "OPT_PRINT_OUTPUT_DIRECTORY"}
+_L[388] = function(payload)
+ return {tag = "OPT_PACKAGE_SUPPORT", payload = payload}
+end
+_L[389] = function(payload)
+ return {tag = "OPT_CHECK_DRIVER", payload = payload}
+end
+_L[390] = function(payload)
+ return {tag = "OPT_SOURCE_DATE_EPOCH", payload = payload}
+end
+_L[391] = function(payload)
+ return {tag = "OPT_SYNCTEX", payload = payload}
+end
+_L[392] = function(payload)
+ return {tag = "OPT_INTERACTION", payload = payload}
+end
+_L[393] = function(payload)
+ return {tag = "OPT_JOBNAME", payload = payload}
+end
+_L[394] = function(payload)
+ return {tag = "OPT_FMT", payload = payload}
+end
+_L[395] = function(payload)
+ return {tag = "OPT_OUTPUT_DIRECTORY", payload = payload}
+end
+_L[396] = function(payload)
+ return {tag = "OPT_OUTPUT_FORMAT", payload = payload}
+end
+_L[397] = function(payload)
+ return {tag = "OPT_TEX_OPTION", payload = payload}
+end
+_L[398] = function(payload)
+ return {tag = "OPT_TEX_OPTIONS", payload = payload}
+end
+_L[399] = function(payload)
+ return {tag = "OPT_DVIPDFMX_OPTION", payload = payload}
+end
+_L[400] = function(payload)
+ return {tag = "OPT_DVIPDFMX_OPTIONS", payload = payload}
+end
+_L[401] = function(payload)
+ return {tag = "OPT_MAKEINDEX", payload = payload}
+end
+_L[402] = function(payload)
+ return {tag = "OPT_BIBTEX", payload = payload}
+end
+_L[403] = function(payload)
+ return {tag = "OPT_BIBER", payload = payload}
+end
+_L[404] = function(payload)
+ return {tag = "OPT_MAKEGLOSSARIES", payload = payload}
+end
+_L[405] = function(payload)
+ return {tag = "OPT_CONFIG_FILE", payload = payload}
+end
+_L[406] = {tag = "SHORT", payload = "-e"}
+_L[407] = {_L[406], {tag = "WITH_ARG", payload = _L[374]}}
+_L[408] = {tag = "LONG", payload = "--engine"}
+_L[409] = {_L[408], {tag = "WITH_ARG", payload = _L[374]}}
+_L[410] = {tag = "LONG", payload = "--engine-executable"}
+_L[411] = {_L[410], {tag = "WITH_ARG", payload = _L[375]}}
+_L[412] = {tag = "SHORT", payload = "-o"}
+_L[413] = {_L[412], {tag = "WITH_ARG", payload = _L[376]}}
+_L[414] = {tag = "LONG", payload = "--output"}
+_L[415] = {_L[414], {tag = "WITH_ARG", payload = _L[376]}}
+_L[416] = {tag = "LONG", payload = "--fresh"}
+_L[417] = {_L[416], {tag = "SIMPLE", payload = _L[377]}}
+_L[418] = {tag = "LONG", payload = "--max-iterations"}
+_L[419] = {_L[418], {tag = "WITH_ARG", payload = _L[378]}}
+_L[420] = {tag = "LONG", payload = "--start-with-draft"}
+_L[421] = {_L[420], {tag = "SIMPLE", payload = _L[379]}}
+_L[422] = {tag = "LONG", payload = "--change-directory"}
+_L[423] = {_L[422], {tag = "SIMPLE", payload = {tag = "OPT_CHANGE_DIRECTORY", payload = true}}}
+_L[424] = {tag = "LONG", payload = "--no-change-directory"}
+_L[425] = {_L[424], {tag = "SIMPLE", payload = {tag = "OPT_CHANGE_DIRECTORY", payload = false}}}
+_L[426] = {tag = "LONG", payload = "--watch"}
+_L[427] = {_L[426], {tag = "WITH_OPTIONAL_ARG", payload = {action = _L[380], default = "auto"}}}
+_L[428] = {tag = "SHORT", payload = "-h"}
+_L[429] = {_L[428], {tag = "SIMPLE", payload = _L[381]}}
+_L[430] = {tag = "LONG", payload = "-help"}
+_L[431] = {_L[430], {tag = "SIMPLE", payload = _L[381]}}
+_L[432] = {tag = "LONG", payload = "--help"}
+_L[433] = {_L[432], {tag = "SIMPLE", payload = _L[381]}}
+_L[434] = {tag = "SHORT", payload = "-v"}
+_L[435] = {_L[434], {tag = "SIMPLE", payload = _L[382]}}
+_L[436] = {tag = "LONG", payload = "--version"}
+_L[437] = {_L[436], {tag = "SIMPLE", payload = _L[382]}}
+_L[438] = {tag = "SHORT", payload = "-V"}
+_L[439] = {_L[438], {tag = "SIMPLE", payload = _L[383]}}
+_L[440] = {tag = "LONG", payload = "--verbose"}
+_L[441] = {_L[440], {tag = "SIMPLE", payload = _L[383]}}
+_L[442] = {tag = "LONG", payload = "--color"}
+_L[443] = {_L[442], {tag = "WITH_OPTIONAL_ARG", payload = {action = _L[384], default = "always"}}}
+_L[444] = {tag = "LONG", payload = "--includeonly"}
+_L[445] = {_L[444], {tag = "WITH_ARG", payload = _L[385]}}
+_L[446] = {tag = "LONG", payload = "--make-depends"}
+_L[447] = {_L[446], {tag = "WITH_ARG", payload = _L[386]}}
+_L[448] = {tag = "LONG", payload = "--print-output-directory"}
+_L[449] = {_L[448], {tag = "SIMPLE", payload = _L[387]}}
+_L[450] = {tag = "LONG", payload = "--package-support"}
+_L[451] = {_L[450], {tag = "WITH_ARG", payload = _L[388]}}
+_L[452] = {tag = "LONG", payload = "--check-driver"}
+_L[453] = {_L[452], {tag = "WITH_ARG", payload = _L[389]}}
+_L[454] = {tag = "LONG", payload = "--source-date-epoch"}
+_L[455] = {_L[454], {tag = "WITH_ARG", payload = _L[390]}}
+_L[456] = {tag = "LONG", payload = "-synctex"}
+_L[457] = {_L[456], {tag = "WITH_ARG", payload = _L[391]}}
+_L[458] = {tag = "LONG", payload = "--synctex"}
+_L[459] = {_L[458], {tag = "WITH_ARG", payload = _L[391]}}
+_L[460] = {tag = "LONG", payload = "-file-line-error"}
+_L[461] = {_L[460], {tag = "SIMPLE", payload = {tag = "OPT_FILE_LINE_ERROR", payload = true}}}
+_L[462] = {tag = "LONG", payload = "--file-line-error"}
+_L[463] = {_L[462], {tag = "SIMPLE", payload = {tag = "OPT_FILE_LINE_ERROR", payload = true}}}
+_L[464] = {tag = "LONG", payload = "-no-file-line-error"}
+_L[465] = {_L[464], {tag = "SIMPLE", payload = {tag = "OPT_FILE_LINE_ERROR", payload = false}}}
+_L[466] = {tag = "LONG", payload = "--no-file-line-error"}
+_L[467] = {_L[466], {tag = "SIMPLE", payload = {tag = "OPT_FILE_LINE_ERROR", payload = false}}}
+_L[468] = {tag = "LONG", payload = "-interaction"}
+_L[469] = {_L[468], {tag = "WITH_ARG", payload = _L[392]}}
+_L[470] = {tag = "LONG", payload = "--interaction"}
+_L[471] = {_L[470], {tag = "WITH_ARG", payload = _L[392]}}
+_L[472] = {tag = "LONG", payload = "-halt-on-error"}
+_L[473] = {_L[472], {tag = "SIMPLE", payload = {tag = "OPT_HALT_ON_ERROR", payload = true}}}
+_L[474] = {tag = "LONG", payload = "--halt-on-error"}
+_L[475] = {_L[474], {tag = "SIMPLE", payload = {tag = "OPT_HALT_ON_ERROR", payload = true}}}
+_L[476] = {tag = "LONG", payload = "-no-halt-on-error"}
+_L[477] = {_L[476], {tag = "SIMPLE", payload = {tag = "OPT_HALT_ON_ERROR", payload = false}}}
+_L[478] = {tag = "LONG", payload = "--no-halt-on-error"}
+_L[479] = {_L[478], {tag = "SIMPLE", payload = {tag = "OPT_HALT_ON_ERROR", payload = false}}}
+_L[480] = {tag = "LONG", payload = "-shell-escape"}
+_L[481] = {_L[480], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[226]}}}
+_L[482] = {tag = "LONG", payload = "--shell-escape"}
+_L[483] = {_L[482], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[226]}}}
+_L[484] = {tag = "LONG", payload = "-no-shell-escape"}
+_L[485] = {_L[484], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[228]}}}
+_L[486] = {tag = "LONG", payload = "--no-shell-escape"}
+_L[487] = {_L[486], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[228]}}}
+_L[488] = {tag = "LONG", payload = "-shell-restricted"}
+_L[489] = {_L[488], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[227]}}}
+_L[490] = {tag = "LONG", payload = "--shell-restricted"}
+_L[491] = {_L[490], {tag = "SIMPLE", payload = {tag = "OPT_SHELL_ESCAPE", payload = _L[227]}}}
+_L[492] = {tag = "LONG", payload = "-jobname"}
+_L[493] = {_L[492], {tag = "WITH_ARG", payload = _L[393]}}
+_L[494] = {tag = "LONG", payload = "--jobname"}
+_L[495] = {_L[494], {tag = "WITH_ARG", payload = _L[393]}}
+_L[496] = {tag = "LONG", payload = "-fmt"}
+_L[497] = {_L[496], {tag = "WITH_ARG", payload = _L[394]}}
+_L[498] = {tag = "LONG", payload = "--fmt"}
+_L[499] = {_L[498], {tag = "WITH_ARG", payload = _L[394]}}
+_L[500] = {tag = "LONG", payload = "-output-directory"}
+_L[501] = {_L[500], {tag = "WITH_ARG", payload = _L[395]}}
+_L[502] = {tag = "LONG", payload = "--output-directory"}
+_L[503] = {_L[502], {tag = "WITH_ARG", payload = _L[395]}}
+_L[504] = {tag = "LONG", payload = "-output-format"}
+_L[505] = {_L[504], {tag = "WITH_ARG", payload = _L[396]}}
+_L[506] = {tag = "LONG", payload = "--output-format"}
+_L[507] = {_L[506], {tag = "WITH_ARG", payload = _L[396]}}
+_L[508] = {tag = "LONG", payload = "--tex-option"}
+_L[509] = {_L[508], {tag = "WITH_ARG", payload = _L[397]}}
+_L[510] = {tag = "LONG", payload = "--tex-options"}
+_L[511] = {_L[510], {tag = "WITH_ARG", payload = _L[398]}}
+_L[512] = {tag = "LONG", payload = "--dvipdfmx-option"}
+_L[513] = {_L[512], {tag = "WITH_ARG", payload = _L[399]}}
+_L[514] = {tag = "LONG", payload = "--dvipdfmx-options"}
+_L[515] = {_L[514], {tag = "WITH_ARG", payload = _L[400]}}
+_L[516] = {tag = "LONG", payload = "--makeindex"}
+_L[517] = {_L[516], {tag = "WITH_ARG", payload = _L[401]}}
+_L[518] = {tag = "LONG", payload = "--bibtex"}
+_L[519] = {_L[518], {tag = "WITH_ARG", payload = _L[402]}}
+_L[520] = {tag = "LONG", payload = "--biber"}
+_L[521] = {_L[520], {tag = "WITH_OPTIONAL_ARG", payload = {action = _L[403], default = "biber"}}}
+_L[522] = {tag = "LONG", payload = "--makeglossaries"}
+_L[523] = {_L[522], {tag = "WITH_OPTIONAL_ARG", payload = {action = _L[404], default = "makeglossaries"}}}
+_L[524] = {tag = "LONG", payload = "--config-file"}
+_L[525] = _list({n = 60, _L[407], _L[409], _L[411], _L[413], _L[415], _L[417], _L[419], _L[421], _L[423], _L[425], _L[427], _L[429], _L[431], _L[433], _L[435], _L[437], _L[439], _L[441], _L[443], _L[445], _L[447], _L[449], _L[451], _L[453], _L[455], _L[457], _L[459], _L[461], _L[463], _L[465], _L[467], _L[469], _L[471], _L[473], _L[475], _L[477], _L[479], _L[481], _L[483], _L[485], _L[487], _L[489], _L[491], _L[493], _L[495], _L[497], _L[499], _L[501], _L[503], _L[505], _L[507], _L[509], _L[511], _L[513], _L[515], _L[517], _L[519], _L[521], _L[523], {_L[524], {tag = "WITH_ARG", payload = _L[405]}}})
+_L[526] = function(command, recover)
+ local status_or_signal, termination, success_or_recovered
+ do
+ _L[300](command)
+ local tmp54, tmp55, tmp56 = tmp14(command)
+ local success
+ if tmp6(tmp54) == "number" then
+ status_or_signal = tmp54
+ termination = NONE
+ success = tmp54 == 0
+ else
+ status_or_signal = tmp56
+ termination = {tag = "SOME", payload = tmp55}
+ success = tmp54
+ end
+ if success then
+ success_or_recovered = true
+ else
+ if recover.tag == "SOME" then
+ elseif recover.tag == "NONE" then
+ success_or_recovered = false
+ goto cont
+ else
+ _raise(_Match, "main.sml:150:54")
+ end
+ success_or_recovered = recover.payload(nil)
+ end
+ end
+ ::cont::
+ if success_or_recovered then
+ return nil
+ end
+ if termination.tag == "SOME" and termination.payload == "exit" then
+ else
+ goto else1
+ end
+ _L[301]("Command exited abnormally: exit status " .. tmp5(status_or_signal))
+ _raise(_L[371], "main.sml:161:16")
+ ::else1::
+ if termination.tag == "SOME" and termination.payload == "signal" then
+ else
+ goto else2
+ end
+ _L[301]("Command exited abnormally: signal " .. tmp5(status_or_signal))
+ _raise(_L[371], "main.sml:161:16")
+ ::else2::
+ _L[301]("Command exited abnormally: " .. tmp5(status_or_signal))
+ _raise(_L[371], "main.sml:161:16")
+end
+_L[527] = {tag = "NO_NEED_TO_RERUN"}
+_L[528] = {tag = "NO_PAGES_OF_OUTPUT"}
+_L[529] = function(engine_type, tmp54, tmp55, tmp56, inputfile, exp, exp1, tmp57, exp2, tmp58, exp3, exp4, tmp59, tmp60, tmp61, tmp62, tmp63, tmp64, tmp65, tmp66, tmp67, exp5, tmp68, tmp69, original_wd, output_extension, recorderfile, recorderfile2, source_date_epoch_info, tmp70, tmp71, tmp72, tmp73, tmp74, tmp75, tmp76, tmp77, tmp78, tmp79, tmp80, tmp81, tmp82)
+ local tmp83
+ do
+ local tmp84, tmp85 = 0, _L[203]
+ ::cont1::
+ do
+ local tmp86, exp6
+ do
+ local iteration, auxstatus = tmp84, tmp85
+ tmp86 = _Int_add(iteration, 1)
+ do
+ local tmp87, pdfx, minted, filelist, epstopdf, bibtex_aux_hash, auxstatus1
+ do
+ local tmp88 = tmp58 .. "." .. "aux"
+ tmp87 = _L[210].join(tmp62, tmp88)
+ local tmp89 = _L[218](recorderfile)
+ do
+ if tmp89 then
+ else
+ goto else2
+ end
+ do
+ local recorded, tmp90
+ do
+ recorded = _L[360](recorderfile, tmp59, nil, _L[203])
+ local tmp91 = _L[237](engine_type, _L[235])
+ do
+ if tmp91 then
+ else
+ tmp90 = false
+ goto cont13
+ end
+ tmp90 = _L[218](recorderfile2)
+ end
+ end
+ ::cont13::
+ local recorded1
+ do
+ if tmp90 then
+ else
+ recorded1 = recorded
+ goto cont14
+ end
+ do
+ local fileList = recorded[1]
+ recorded1 = _L[360](recorderfile2, tmp59, fileList, recorded[2])
+ end
+ end
+ ::cont14::
+ local filelist1, auxstatus2, minted1, epstopdf1, pdfx1, bibtex_aux_hash1
+ do
+ local exp7
+ do
+ local fileInfo = recorded1[1]
+ exp7 = _L[359](fileInfo, recorded1[2])
+ end
+ filelist1 = exp7[1]
+ do
+ local go = function(a)
+ local abspath = a[1].abspath
+ local kind = a[1].kind
+ local auxstatus3 = a[2]
+ local tmp91 = _L[218](abspath)
+ if tmp91 then
+ else
+ return auxstatus3
+ end
+ do
+ local auxstatus4, status
+ do
+ local exp8 = _L[205](auxstatus3, abspath)
+ do
+ if exp8.tag == "NONE" then
+ elseif exp8.tag == "SOME" then
+ auxstatus4 = auxstatus3
+ status = exp8.payload
+ goto cont
+ else
+ _raise(_Match, "reruncheck.sml:124:51")
+ end
+ do
+ local tmp92 = {{md5sum = NONE, mtime = NONE, size = NONE}}
+ local tmp93 = _L[204](auxstatus3, abspath, tmp92)
+ auxstatus4 = tmp93
+ status = tmp92
+ end
+ end
+ end
+ ::cont::
+ if kind == "INPUT" then
+ else
+ goto else1
+ end
+ do
+ if status[1].mtime.tag == "NONE" then
+ else
+ return auxstatus4
+ end
+ do
+ local s = status[1]
+ local tmp92 = s.md5sum
+ local tmp93 = s.size
+ local tmp94 = _L[66](abspath)
+ status[1] = {md5sum = tmp92, mtime = {tag = "SOME", payload = tmp94}, size = tmp93}
+ return auxstatus4
+ end
+ end
+ ::else1::
+ if kind == "AUXILIARY" then
+ elseif kind == "OUTPUT" then
+ return auxstatus4
+ else
+ _raise(_Match, "reruncheck.sml:129:24")
+ end
+ do
+ local s
+ do
+ local x = status[1]
+ do
+ if x.mtime.tag == "NONE" then
+ else
+ s = x
+ goto cont1
+ end
+ do
+ local tmp92 = x.md5sum
+ local tmp93 = x.size
+ local tmp94 = _L[66](abspath)
+ s = {md5sum = tmp92, mtime = {tag = "SOME", payload = tmp94}, size = tmp93}
+ end
+ end
+ end
+ ::cont1::
+ local s1
+ do
+ if s.size.tag == "NONE" then
+ else
+ s1 = s
+ goto cont2
+ end
+ do
+ local tmp92 = s.md5sum
+ local tmp93 = s.mtime
+ local tmp94 = _L[67](abspath)
+ s1 = {md5sum = tmp92, mtime = tmp93, size = {tag = "SOME", payload = tmp94}}
+ end
+ end
+ ::cont2::
+ if s1.md5sum.tag == "NONE" then
+ else
+ status[1] = s1
+ return auxstatus4
+ end
+ do
+ local tmp92 = s1.mtime
+ local tmp93 = s1.size
+ local tmp94
+ do
+ local ins = _L[151](abspath)
+ local tmp95 = _L[153](ins)
+ _L[152](ins)
+ tmp94 = _L[191](tmp95)
+ end
+ status[1] = {md5sum = {tag = "SOME", payload = tmp94}, mtime = tmp92, size = tmp93}
+ return auxstatus4
+ end
+ end
+ end
+ end
+ local tmp91 = _L[206](_EXCLAM)
+ local tmp92 = foldl(go)
+ local tmp93 = _L[206](ref)
+ local tmp94 = tmp93(auxstatus)
+ local tmp95 = tmp92(tmp94)
+ local tmp96 = tmp95(filelist1)
+ auxstatus2 = tmp91(tmp96)
+ end
+ local tmp91 = foldl(function(a)
+ local path, epstopdf2, pdfx2, tmp92
+ do
+ path = a[1].path
+ local minted2 = a[2].minted
+ epstopdf2 = a[2].epstopdf
+ pdfx2 = a[2].pdfx
+ do
+ if minted2 then
+ tmp92 = true
+ goto cont
+ end
+ local tmp93 = isSuffix("minted/minted.sty")
+ tmp92 = tmp93(path)
+ end
+ end
+ ::cont::
+ local tmp93
+ do
+ if epstopdf2 then
+ tmp93 = true
+ goto cont1
+ end
+ local tmp94 = isSuffix("epstopdf.sty")
+ tmp93 = tmp94(path)
+ end
+ ::cont1::
+ local tmp94
+ do
+ if pdfx2 then
+ tmp94 = true
+ goto cont2
+ end
+ local tmp95 = isSuffix("pdfx.sty")
+ tmp94 = tmp95(path)
+ end
+ ::cont2::
+ return {epstopdf = tmp93, minted = tmp92, pdfx = tmp94}
+ end)
+ local tmp92 = tmp91({epstopdf = false, minted = false, pdfx = false})
+ local exp8 = tmp92(filelist1)
+ minted1 = exp8.minted
+ epstopdf1 = exp8.epstopdf
+ pdfx1 = exp8.pdfx
+ local tmp93 = exp.tag == "SOME" and exp.payload.tag == "BIBTEX"
+ do
+ if tmp93 then
+ else
+ bibtex_aux_hash1 = NONE
+ goto cont15
+ end
+ do
+ local biblines
+ do
+ local tmp94 = _L[353](tmp87, tmp62, nil)
+ biblines = revAppend(tmp94, nil)
+ end
+ local tmp94 = _L[191](table_concat(_VectorOrArray_fromList(biblines), "\n"))
+ bibtex_aux_hash1 = {tag = "SOME", payload = tmp94}
+ end
+ end
+ end
+ ::cont15::
+ pdfx = pdfx1
+ minted = minted1
+ filelist = filelist1
+ epstopdf = epstopdf1
+ bibtex_aux_hash = bibtex_aux_hash1
+ auxstatus1 = auxstatus2
+ goto cont3
+ end
+ ::else2::
+ if auxstatus[2].tag == "E" then
+ pdfx = false
+ minted = false
+ filelist = nil
+ epstopdf = false
+ bibtex_aux_hash = NONE
+ auxstatus1 = _L[203]
+ goto cont3
+ end
+ _L[301]("Recorder file was not generated during the execution!")
+ _raise(_L[371], "main.sml:218:27")
+ end
+ end
+ ::cont3::
+ do
+ if source_date_epoch_info.tag == "NONE" then
+ goto cont4
+ end
+ if source_date_epoch_info.tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:229:20")
+ end
+ do
+ local r = source_date_epoch_info.payload
+ local tmp88 = exp5.tag == "SOME" and exp5.payload.tag == "NOW"
+ local should_set_source_date_epoch
+ if tmp88 then
+ should_set_source_date_epoch = true
+ elseif exp5.tag == "SOME" and exp5.payload.tag == "RAW" then
+ should_set_source_date_epoch = false
+ elseif exp5.tag == "NONE" then
+ should_set_source_date_epoch = pdfx or tmp66
+ else
+ _raise(_Match, "main.sml:232:54")
+ end
+ if should_set_source_date_epoch then
+ else
+ goto cont4
+ end
+ do
+ local tmp89
+ do
+ local tmp90 = foldl(function(a)
+ if a[1].kind == "INPUT" then
+ else
+ return a[2]
+ end
+ do
+ local abspath = a[1].abspath
+ local acc = a[2]
+ local exp7 = _L[205](auxstatus1, abspath)
+ if exp7.tag == "SOME" then
+ local mtime = exp7.payload.mtime
+ if mtime.tag == "SOME" and acc.tag == "SOME" then
+ if acc.payload < mtime.payload then
+ return mtime
+ else
+ return acc
+ end
+ elseif mtime.tag == "NONE" then
+ return acc
+ elseif acc.tag == "NONE" then
+ return mtime
+ else
+ _raise(_Match, "main.sml:240:68")
+ end
+ elseif exp7.tag == "NONE" then
+ return acc
+ else
+ _raise(_Match, "main.sml:238:59")
+ end
+ end
+ end)
+ local tmp91 = tmp90(NONE)
+ local input_time = tmp91(filelist)
+ do
+ if input_time.tag == "SOME" then
+ elseif input_time.tag == "NONE" then
+ tmp89 = r[1].time_since_epoch
+ goto cont13
+ else
+ _raise(_Match, "main.sml:253:37")
+ end
+ do
+ local input_time1 = input_time.payload
+ if r[1].time < input_time1 then
+ else
+ tmp89 = r[1].time_since_epoch
+ goto cont13
+ end
+ do
+ local tmp92 = tmp5(tmp18())
+ local new_info = {time = input_time1, time_since_epoch = tmp92}
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ r[1] = new_info
+ tmp89 = tmp92
+ goto cont13
+ end
+ _L[304]("Input file was modified; Updating SOURCE_DATE_EPOCH...")
+ r[1] = new_info
+ tmp89 = tmp92
+ end
+ end
+ end
+ end
+ ::cont13::
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ _L[221]("SOURCE_DATE_EPOCH", tmp89)
+ goto cont4
+ end
+ _L[304]("Setting SOURCE_DATE_EPOCH to " .. tmp89)
+ _L[221]("SOURCE_DATE_EPOCH", tmp89)
+ end
+ end
+ end
+ ::cont4::
+ local tex_injection
+ do
+ local tex_injection1
+ if exp2.tag == "SOME" then
+ tex_injection1 = "\\includeonly{" .. exp2.payload .. "}"
+ elseif exp2.tag == "NONE" then
+ tex_injection1 = ""
+ else
+ _raise(_Match, "main.sml:276:31")
+ end
+ local tmp88
+ tmp88 = minted or tmp65
+ do
+ if tmp88 then
+ else
+ tex_injection = tex_injection1
+ goto cont5
+ end
+ do
+ do
+ if not tmp65 then
+ else
+ goto cont13
+ end
+ _L[303]("You may want to use --package-support=minted option.")
+ end
+ ::cont13::
+ local outdir
+ if _L[220] then
+ outdir = tmp21(tmp62, ".", function(a)
+ local tmp89 = tmp19(a)
+ if tmp89 == 92 then
+ return string_char(47)
+ else
+ return string_char(tmp89)
+ end
+ end)
+ else
+ outdir = tmp62
+ end
+ tex_injection = tex_injection1 .. "\\PassOptionsToPackage{outputdir=" .. outdir .. "}{minted}"
+ end
+ end
+ end
+ ::cont5::
+ local tex_injection1
+ do
+ local tmp88
+ tmp88 = epstopdf or tmp64
+ do
+ if tmp88 then
+ else
+ tex_injection1 = tex_injection
+ goto cont6
+ end
+ do
+ do
+ if not tmp64 then
+ else
+ goto cont13
+ end
+ _L[303]("You may want to use --package-support=epstopdf option.")
+ end
+ ::cont13::
+ local outdir
+ if _L[220] then
+ outdir = tmp21(tmp62, ".", function(a)
+ local tmp89 = tmp19(a)
+ if tmp89 == 92 then
+ return string_char(47)
+ else
+ return string_char(tmp89)
+ end
+ end)
+ else
+ outdir = tmp62
+ end
+ local tmp89 = isSuffix("/")
+ local tmp90 = tmp89(outdir)
+ local outdir1
+ if tmp90 then
+ outdir1 = outdir
+ else
+ outdir1 = outdir .. "/"
+ end
+ tex_injection1 = tex_injection .. "\\PassOptionsToPackage{outdir=" .. outdir1 .. "}{epstopdf}"
+ end
+ end
+ end
+ ::cont6::
+ local lightweight_mode, command
+ do
+ local tmp88 = _L[237](engine_type, _L[233])
+ local tmp89
+ do
+ local escaped
+ do
+ local tmp90, tmp91
+ do
+ local tmp92 = full(tmp21(inputfile, ".", function(a)
+ local tmp93 = tmp19(a)
+ if tmp93 == 92 then
+ return "~\\\\"
+ elseif tmp93 == 37 then
+ return "~\\%"
+ elseif tmp93 == 94 then
+ return "~\\^"
+ elseif tmp93 == 123 then
+ return "~\\{"
+ elseif tmp93 == 125 then
+ return "~\\}"
+ elseif tmp93 == 126 then
+ return "~\\~"
+ elseif tmp93 == 35 then
+ return "~\\#"
+ else
+ return string_char(tmp93)
+ end
+ end))
+ tmp91, tmp90 = tmp92, nil
+ end
+ ::cont15::
+ do
+ local acc, s
+ do
+ s, acc = tmp91, tmp90
+ local tmp92 = isEmpty(s)
+ if tmp92 then
+ else
+ goto else2
+ end
+ do
+ local tmp93 = revAppend(acc, nil)
+ escaped = concat1(tmp93)
+ goto cont13
+ end
+ end
+ ::else2::
+ local a, d, tmp92, tmp93
+ do
+ local tmp94 = splitl(function(c)
+ return c ~= 32
+ end)
+ local exp7 = tmp94(s)
+ a = exp7[1]
+ local b = exp7[2]
+ local tmp95 = splitl(function(c)
+ return c == 32
+ end)
+ local exp8 = tmp95(b)
+ local c = exp8[1]
+ d = exp8[2]
+ tmp92 = map(str)
+ do
+ local base, start, tmp96, tmp97
+ do
+ base = c.base
+ local length1 = c.length
+ start = c.start
+ tmp97, tmp96 = _Int_sub(_Int_add(start, length1), 1), nil
+ end
+ ::cont17::
+ do
+ local i, acc1 = tmp97, tmp96
+ if i < start then
+ tmp93 = acc1
+ goto cont16
+ end
+ local tmp98 = _Int_sub(i, 1)
+ local tmp99 = sub1({base, i})
+ tmp97 = tmp98
+ tmp96 = {tmp99, acc1}
+ goto cont17
+ end
+ end
+ end
+ ::cont16::
+ local tmp94 = tmp92(tmp93)
+ local c_PRIME = full(table_concat(_VectorOrArray_fromList(tmp94), "~"))
+ tmp91 = d
+ tmp90 = {c_PRIME, {a, acc}}
+ goto cont15
+ end
+ end
+ ::cont13::
+ local escaped1
+ do
+ if tmp88 then
+ else
+ escaped1 = escaped
+ goto cont14
+ end
+ do
+ local tmp90, tmp91
+ do
+ local tmp92 = full(escaped)
+ tmp91, tmp90 = tmp92, nil
+ end
+ ::cont15::
+ do
+ local acc, s
+ do
+ s, acc = tmp91, tmp90
+ local tmp92 = isEmpty(s)
+ if tmp92 then
+ else
+ goto else2
+ end
+ do
+ local tmp93 = revAppend(acc, nil)
+ escaped1 = concat1(tmp93)
+ goto cont14
+ end
+ end
+ ::else2::
+ local a, d, c_PRIME
+ do
+ local tmp92 = splitl(isAscii)
+ local exp7 = tmp92(s)
+ a = exp7[1]
+ local b = exp7[2]
+ local tmp93 = splitl(function(a1)
+ return not (a1 <= 127)
+ end)
+ local exp8 = tmp93(b)
+ local c = exp8[1]
+ d = exp8[2]
+ local tmp94 = isEmpty(c)
+ do
+ if tmp94 then
+ c_PRIME = c
+ goto cont16
+ end
+ local tmp95 = string1(c)
+ c_PRIME = full("\\detokenize{" .. tmp95 .. "}")
+ end
+ end
+ ::cont16::
+ tmp91 = d
+ tmp90 = {c_PRIME, {a, acc}}
+ goto cont15
+ end
+ end
+ end
+ ::cont14::
+ if inputfile == escaped1 then
+ tmp89 = "\\input\"" .. inputfile .. "\""
+ else
+ tmp89 = "\\begingroup\\escapechar-1\\let~\\string\\edef\\x{\"" .. escaped1 .. "\" }\\expandafter\\endgroup\\expandafter\\input\\x"
+ end
+ end
+ local tmp90 = tex_injection1 .. tmp89
+ local tmp91 = tmp86 == 1 and tmp68
+ local tmp92, tmp93, tmp94, exp7, exp8, exp9, exp10, exp11, exp12, exp13, exp14, exp15, exp16
+ if tmp91 then
+ if tmp55 then
+ lightweight_mode = true
+ exp16 = tmp82
+ exp15 = tmp81
+ exp14 = tmp80
+ exp13 = tmp79
+ exp12 = tmp78
+ exp11 = tmp77
+ exp10 = {tag = "SOME", payload = _L[222]}
+ exp9 = tmp75
+ exp8 = tmp74
+ exp7 = tmp73
+ tmp94 = tmp72
+ tmp93 = tmp71
+ tmp92 = true
+ else
+ lightweight_mode = true
+ exp16 = tmp82
+ exp15 = tmp81
+ exp14 = tmp80
+ exp13 = tmp79
+ exp12 = tmp78
+ exp11 = tmp77
+ exp10 = {tag = "SOME", payload = _L[222]}
+ exp9 = tmp75
+ exp8 = tmp74
+ exp7 = tmp73
+ tmp94 = tmp72
+ tmp93 = tmp71
+ tmp92 = tmp70
+ end
+ else
+ lightweight_mode = false
+ exp16 = tmp82
+ exp15 = tmp81
+ exp14 = tmp80
+ exp13 = tmp79
+ exp12 = tmp78
+ exp11 = tmp77
+ exp10 = tmp76
+ exp9 = tmp75
+ exp8 = tmp74
+ exp7 = tmp73
+ tmp94 = tmp72
+ tmp93 = tmp71
+ tmp92 = false
+ end
+ do
+ local revCommand
+ do
+ local executable = getOpt(tmp93, tmp54)
+ local revCommand1 = {"-recorder", {executable, nil}}
+ local revCommand2
+ if exp8.tag == "NONE" then
+ revCommand2 = revCommand1
+ elseif exp8.tag == "SOME" then
+ revCommand2 = {"-fmt=" .. exp8.payload, revCommand1}
+ else
+ _raise(_Match, "tex-engine.sml:58:28")
+ end
+ local revCommand3
+ if not exp9 then
+ revCommand3 = revCommand2
+ elseif exp9 then
+ revCommand3 = {"-halt-on-error", revCommand2}
+ else
+ _raise(_Match, "tex-engine.sml:61:28")
+ end
+ if exp10.tag == "NONE" then
+ revCommand = revCommand3
+ goto cont13
+ end
+ if exp10.tag == "SOME" then
+ local mode = exp10.payload
+ local tmp95
+ if mode == "BATCHMODE" then
+ tmp95 = "batchmode"
+ elseif mode == "NONSTOPMODE" then
+ tmp95 = "nonstopmode"
+ elseif mode == "SCROLLMODE" then
+ tmp95 = "scrollmode"
+ elseif mode == "ERRORSTOPMODE" then
+ tmp95 = "errorstopmode"
+ else
+ _raise(_Match, "types.sml:14:7")
+ end
+ revCommand = {"-interaction=" .. tmp95, revCommand3}
+ else
+ _raise(_Match, "tex-engine.sml:64:28")
+ end
+ end
+ ::cont13::
+ local revCommand1
+ do
+ local revCommand2
+ if not exp7 then
+ revCommand2 = revCommand
+ elseif exp7 then
+ revCommand2 = {"-file-line-error", revCommand}
+ else
+ _raise(_Match, "tex-engine.sml:67:28")
+ end
+ do
+ if exp16.tag == "NONE" then
+ revCommand1 = revCommand2
+ goto cont14
+ end
+ if exp16.tag == "SOME" then
+ else
+ _raise(_Match, "tex-engine.sml:70:28")
+ end
+ do
+ local tmp95 = _L[208](exp16.payload)
+ revCommand1 = {"-synctex=" .. tmp95, revCommand2}
+ end
+ end
+ end
+ ::cont14::
+ local revCommand2
+ do
+ local revCommand3
+ if exp15.tag == "NONE" then
+ revCommand3 = revCommand1
+ elseif exp15.tag == "SOME" and exp15.payload == "FORBIDDEN" then
+ revCommand3 = {"-no-shell-escape", revCommand1}
+ elseif exp15.tag == "SOME" and exp15.payload == "RESTRICTED" then
+ revCommand3 = {"-shell-restricted", revCommand1}
+ elseif exp15.tag == "SOME" and exp15.payload == "ALLOWED" then
+ revCommand3 = {"-shell-escape", revCommand1}
+ else
+ _raise(_Match, "tex-engine.sml:73:28")
+ end
+ do
+ if exp11.tag == "NONE" then
+ revCommand2 = revCommand3
+ goto cont15
+ end
+ if exp11.tag == "SOME" then
+ else
+ _raise(_Match, "tex-engine.sml:78:28")
+ end
+ do
+ local tmp95 = _L[208](exp11.payload)
+ revCommand2 = {"-jobname=" .. tmp95, revCommand3}
+ end
+ end
+ end
+ ::cont15::
+ local revCommand3
+ do
+ if exp13.tag == "NONE" then
+ revCommand3 = revCommand2
+ goto cont16
+ end
+ if exp13.tag == "SOME" then
+ else
+ _raise(_Match, "tex-engine.sml:81:28")
+ end
+ do
+ local tmp95 = _L[208](exp13.payload)
+ revCommand3 = {"-output-directory=" .. tmp95, revCommand2}
+ end
+ end
+ ::cont16::
+ local revCommand4
+ do
+ if engine_type == "OTHER" then
+ revCommand4 = revCommand3
+ goto cont17
+ end
+ if engine_type == "PDFTEX" then
+ local revCommand5
+ if tmp92 then
+ revCommand5 = {"-draftmode", revCommand3}
+ else
+ revCommand5 = revCommand3
+ end
+ if exp14 == "DVI" then
+ revCommand4 = {"-output-format=dvi", revCommand5}
+ goto cont17
+ elseif exp14 == "PDF" then
+ revCommand4 = revCommand5
+ goto cont17
+ else
+ _raise(_Match, "tex-engine.sml:90:45")
+ end
+ end
+ if engine_type == "XETEX" then
+ else
+ goto else2
+ end
+ do
+ local tmp95
+ if tmp92 then
+ tmp95 = true
+ else
+ tmp95 = _L[232](exp14, _L[231])
+ end
+ if tmp95 then
+ revCommand4 = {"-no-pdf", revCommand3}
+ goto cont17
+ else
+ revCommand4 = revCommand3
+ goto cont17
+ end
+ end
+ ::else2::
+ if engine_type == "LUATEX" then
+ else
+ _raise(_Match, "tex-engine.sml:84:28")
+ end
+ do
+ local revCommand5
+ do
+ if exp12.tag == "NONE" then
+ revCommand5 = revCommand3
+ goto cont18
+ end
+ if exp12.tag == "SOME" then
+ else
+ _raise(_Match, "tex-engine.sml:98:63")
+ end
+ do
+ local tmp95 = _L[208](exp12.payload)
+ revCommand5 = {"--lua=" .. tmp95, revCommand3}
+ end
+ end
+ ::cont18::
+ local revCommand6
+ if tmp92 then
+ revCommand6 = {"--draftmode", revCommand5}
+ else
+ revCommand6 = revCommand5
+ end
+ if exp14 == "DVI" then
+ revCommand4 = {"--output-format=dvi", revCommand6}
+ elseif exp14 == "PDF" then
+ revCommand4 = revCommand6
+ else
+ _raise(_Match, "tex-engine.sml:105:45")
+ end
+ end
+ end
+ ::cont17::
+ local revCommand5 = revAppend(tmp94, revCommand4)
+ local tmp95 = _L[208](tmp90)
+ local tmp96 = revAppend({tmp95, revCommand5}, nil)
+ command = table_concat(_VectorOrArray_fromList(tmp96), " ")
+ end
+ end
+ local getExecLog, recorded, tmp88
+ do
+ local tmp89 = {NONE}
+ getExecLog = function()
+ local x = tmp89[1]
+ if x.tag == "NONE" then
+ elseif x.tag == "SOME" then
+ return x.payload
+ else
+ _raise(_Match, "main.sml:322:31")
+ end
+ do
+ local tmp90 = tmp58 .. "." .. "log"
+ local ins = _L[115](_L[210].join(tmp62, tmp90))
+ local log = _L[123](ins)
+ _L[120](ins)
+ tmp89[1] = {tag = "SOME", payload = log}
+ return log
+ end
+ end
+ local tmp90 = {false}
+ _L[526](command, {tag = "SOME", payload = function(a)
+ local execlog = getExecLog()
+ local tmp91 = _L[210].join(tmp62, tmp58 .. "." .. "aux")
+ local r
+ do
+ local recovered
+ do
+ local tmp92 = _L[49]("I can't write on file")
+ local tmp93 = tmp92(execlog)
+ if tmp93 then
+ else
+ recovered = false
+ goto cont
+ end
+ do
+ local exp7 = _L[352](tmp91, tmp62, _L[197])
+ local madeNewDirectory = exp7[1]
+ local tmp94
+ tmp94 = madeNewDirectory and _ENV.CLUTTEX_VERBOSITY >= 1
+ if tmp94 then
+ else
+ recovered = madeNewDirectory
+ goto cont
+ end
+ _L[304]("Created missing directories.")
+ recovered = madeNewDirectory
+ end
+ end
+ ::cont::
+ local tmp92
+ do
+ local tmp93 = tmp(_L[229])
+ local tmp94
+ do
+ local tmp95 = tmp93({tmp67, {tag = "SOME", payload = _L[228]}})
+ tmp94 = not tmp95
+ end
+ if tmp94 then
+ else
+ tmp92 = false
+ goto cont1
+ end
+ do
+ local tmp95 = tokens(function(c)
+ return c == 10
+ end)
+ local tmp96 = full(execlog)
+ local lines = tmp95(tmp96)
+ local tmp97 = foldl(function(a1)
+ local line = a1[1]
+ local run = a1[2]
+ local tmp98 = map(string1)
+ local tmp99 = tokens(isSpace)
+ local tmp100 = tmp99(line)
+ local exp7 = tmp98(tmp100)
+ if exp7 ~= nil and (exp7[1] == "(epstopdf)" and (exp7[2] ~= nil and (exp7[2][1] == "Command:" and (exp7[2][2] ~= nil and (exp7[2][2][2] ~= nil and (exp7[2][2][2][2] ~= nil and exp7[2][2][2][2][2] == nil)))))) then
+ else
+ return run
+ end
+ do
+ local tmp101, tmp102, tmp103
+ do
+ local tmp104 = exp7[2][2][1]
+ tmp101 = exp7[2][2][2][1]
+ tmp102 = exp7[2][2][2][2][1]
+ do
+ if tmp104 == "<epstopdf" then
+ tmp103 = true
+ goto cont
+ end
+ if tmp104 == "<repstopdf" then
+ else
+ tmp103 = false
+ goto cont
+ end
+ do
+ local tmp105 = isPrefix("--outfile=")
+ local tmp106 = tmp105(tmp101)
+ if tmp106 then
+ else
+ tmp103 = false
+ goto cont
+ end
+ do
+ local tmp107 = isSuffix(">")
+ tmp103 = tmp107(tmp102)
+ end
+ end
+ end
+ end
+ ::cont::
+ if tmp103 then
+ else
+ return run
+ end
+ do
+ local outfile = extract(tmp101, 10, NONE)
+ local infile = substring(tmp102, 0, _Int_sub(#tmp102, 1))
+ local infileAbs = _L[215]({tag = "SOME", payload = original_wd}, infile)
+ local tmp104 = _L[218](infileAbs)
+ if tmp104 then
+ else
+ return run
+ end
+ do
+ local outfileAbs = _L[215]({tag = "SOME", payload = tmp62}, outfile)
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont1
+ end
+ _L[304]("Running epstopdf on " .. infile .. ".")
+ end
+ ::cont1::
+ do
+ local outdir = _L[212](outfileAbs)
+ local tmp105 = _L[219](outdir)
+ do
+ if not tmp105 then
+ else
+ goto cont2
+ end
+ do
+ local tmp106, tmp107 = _L[217].mkdir_rec(outdir)
+ if not tmp106 then
+ else
+ goto cont2
+ end
+ do
+ local tmp108 = _Error(tmp107)
+ _raise(tmp108, "fs-util.sml:16:28")
+ end
+ end
+ end
+ end
+ ::cont2::
+ local tmp105 = _L[208](outfileAbs)
+ local tmp106 = "epstopdf --outfile=" .. tmp105 .. " "
+ local tmp107 = _L[208](infileAbs)
+ local tmp108 = tmp106 .. tmp107
+ _L[300](tmp108)
+ tmp14(tmp108)
+ return run
+ end
+ end
+ end
+ end)
+ local tmp98 = tmp97(false)
+ tmp92 = tmp98(lines)
+ end
+ end
+ ::cont1::
+ local recovered1
+ recovered1 = tmp92 or recovered
+ if recovered1 then
+ tmp90[1] = true
+ return true
+ end
+ local tmp93 = _L[49]("Package minted Error: Missing Pygments output; \\inputminted was")
+ r = tmp93(execlog)
+ end
+ tmp90[1] = true
+ return r
+ end})
+ if tmp90[1] then
+ exp6 = {tag = "SHOULD_RERUN", payload = _L[203]}
+ goto cont2
+ end
+ recorded = _L[360](recorderfile, tmp59, nil, _L[203])
+ local tmp91 = _L[237](engine_type, _L[235])
+ do
+ if tmp91 then
+ else
+ tmp88 = false
+ goto cont7
+ end
+ tmp88 = _L[218](recorderfile2)
+ end
+ end
+ ::cont7::
+ local recorded1
+ do
+ if tmp88 then
+ else
+ recorded1 = recorded
+ goto cont8
+ end
+ do
+ local fileList = recorded[1]
+ recorded1 = _L[360](recorderfile2, tmp59, fileList, recorded[2])
+ end
+ end
+ ::cont8::
+ local filelist1, execlog
+ do
+ local exp7
+ do
+ local fileInfo = recorded1[1]
+ exp7 = _L[359](fileInfo, recorded1[2])
+ end
+ filelist1 = exp7[1]
+ execlog = getExecLog()
+ do
+ if exp1.tag == "NONE" then
+ goto cont9
+ end
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:349:27")
+ end
+ do
+ do
+ local driver = exp1.payload
+ local tmp89 = map(function(a)
+ local path = a.path
+ local kind = a.kind
+ if kind == "INPUT" then
+ return {kind = "input", path = path}
+ elseif kind == "OUTPUT" then
+ return {kind = "output", path = path}
+ elseif kind == "AUXILIARY" then
+ return {kind = "auxiliary", path = path}
+ else
+ _raise(_Match, "main.sml:351:141")
+ end
+ end)
+ local tmp90 = tmp89(filelist1)
+ do
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont14
+ end
+ do
+ if driver == "DVIPDFMX" then
+ else
+ goto else2
+ end
+ _L[304]("checkdriver: expects dvipdfmx")
+ goto cont14
+ ::else2::
+ if driver == "DVIPS" then
+ else
+ goto else3
+ end
+ _L[304]("checkdriver: expects dvips")
+ goto cont14
+ ::else3::
+ if driver == "DVISVGM" then
+ else
+ goto else4
+ end
+ _L[304]("checkdriver: expects dvisvgm")
+ goto cont14
+ ::else4::
+ if driver == "PDFTEX" then
+ else
+ goto else5
+ end
+ _L[304]("checkdriver: expects pdftex")
+ goto cont14
+ ::else5::
+ if driver == "XETEX" then
+ else
+ goto else6
+ end
+ _L[304]("checkdriver: expects xetex")
+ goto cont14
+ ::else6::
+ if driver == "LUATEX" then
+ else
+ _raise(_Match, "check-driver.sml:8:7")
+ end
+ _L[304]("checkdriver: expects luatex")
+ end
+ end
+ ::cont14::
+ local loadedSet, graphics_driver
+ do
+ local tmp91 = foldl(function(a)
+ local kind = a[1].kind
+ local path = a[1].path
+ local set = a[2]
+ if kind == "input" then
+ else
+ return set
+ end
+ do
+ local tmp92 = _L[211](path)
+ return _L[198](set, tmp92)
+ end
+ end)
+ local tmp92 = tmp91(_L[197])
+ loadedSet = tmp92(tmp90)
+ local tmp93 = _L[199](loadedSet, "graphics.sty")
+ local tmp94
+ if tmp93 then
+ tmp94 = true
+ else
+ tmp94 = _L[199](loadedSet, "color.sty")
+ end
+ do
+ if tmp94 then
+ else
+ graphics_driver = NONE
+ goto cont15
+ end
+ do
+ local tmp95 = _L[199](loadedSet, "dvipdfmx.def")
+ if tmp95 then
+ graphics_driver = {tag = "SOME", payload = _L[311]}
+ goto cont15
+ end
+ local tmp96 = _L[199](loadedSet, "dvips.def")
+ if tmp96 then
+ graphics_driver = {tag = "SOME", payload = _L[312]}
+ goto cont15
+ end
+ local tmp97 = _L[199](loadedSet, "dvisvgm.def")
+ if tmp97 then
+ graphics_driver = {tag = "SOME", payload = _L[313]}
+ goto cont15
+ end
+ local tmp98 = _L[199](loadedSet, "pdftex.def")
+ if tmp98 then
+ graphics_driver = {tag = "SOME", payload = _L[314]}
+ goto cont15
+ end
+ local tmp99 = _L[199](loadedSet, "luatex.def")
+ if tmp99 then
+ graphics_driver = {tag = "SOME", payload = _L[316]}
+ goto cont15
+ end
+ local tmp100 = _L[199](loadedSet, "xetex.def")
+ if tmp100 then
+ graphics_driver = {tag = "SOME", payload = _L[315]}
+ else
+ graphics_driver = {tag = "SOME", payload = _L[317]}
+ end
+ end
+ end
+ end
+ ::cont15::
+ local tmp91
+ do
+ local tmp92 = _L[199](loadedSet, "expl3-code.tex")
+ do
+ if tmp92 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp93 = _L[199](loadedSet, "expl3.sty")
+ if tmp93 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp94 = _L[199](loadedSet, "l3backend-dvips.def")
+ if tmp94 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp95 = _L[199](loadedSet, "l3backend-dvipdfmx.def")
+ if tmp95 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp96 = _L[199](loadedSet, "l3backend-xdvipdfmx.def")
+ if tmp96 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp97 = _L[199](loadedSet, "l3backend-pdfmode.def")
+ if tmp97 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp98 = _L[199](loadedSet, "l3backend-pdftex.def")
+ if tmp98 then
+ tmp91 = true
+ goto cont16
+ end
+ local tmp99 = _L[199](loadedSet, "l3backend-luatex.def")
+ if tmp99 then
+ tmp91 = true
+ else
+ tmp91 = _L[199](loadedSet, "l3backend-xetex.def")
+ end
+ end
+ end
+ ::cont16::
+ local expl3_driver
+ do
+ if tmp91 then
+ else
+ expl3_driver = NONE
+ goto cont17
+ end
+ do
+ local tmp92 = _L[199](loadedSet, "l3backend-pdfmode.def")
+ if tmp92 then
+ expl3_driver = {tag = "SOME", payload = _L[319]}
+ goto cont17
+ end
+ local tmp93 = _L[199](loadedSet, "l3backend-dvisvgm.def")
+ if tmp93 then
+ expl3_driver = {tag = "SOME", payload = _L[320]}
+ goto cont17
+ end
+ local tmp94 = _L[199](loadedSet, "l3backend-xdvipdfmx.def")
+ if tmp94 then
+ expl3_driver = {tag = "SOME", payload = _L[321]}
+ goto cont17
+ end
+ local tmp95 = _L[199](loadedSet, "l3backend-dvipdfmx.def")
+ if tmp95 then
+ expl3_driver = {tag = "SOME", payload = _L[322]}
+ goto cont17
+ end
+ local tmp96 = _L[199](loadedSet, "l3backend-dvips.def")
+ if tmp96 then
+ expl3_driver = {tag = "SOME", payload = _L[323]}
+ goto cont17
+ end
+ local tmp97 = _L[199](loadedSet, "l3backend-pdftex.def")
+ if tmp97 then
+ expl3_driver = {tag = "SOME", payload = _L[324]}
+ goto cont17
+ end
+ local tmp98 = _L[199](loadedSet, "l3backend-luatex.def")
+ if tmp98 then
+ expl3_driver = {tag = "SOME", payload = _L[325]}
+ goto cont17
+ end
+ local tmp99 = _L[199](loadedSet, "l3backend-xetex.def")
+ if tmp99 then
+ expl3_driver = {tag = "SOME", payload = _L[326]}
+ else
+ expl3_driver = {tag = "SOME", payload = _L[327]}
+ end
+ end
+ end
+ ::cont17::
+ local hyperref_driver
+ do
+ local tmp92 = _L[199](loadedSet, "hyperref.sty")
+ do
+ if tmp92 then
+ else
+ hyperref_driver = NONE
+ goto cont18
+ end
+ do
+ local tmp93 = _L[199](loadedSet, "hluatex.def")
+ if tmp93 then
+ hyperref_driver = {tag = "SOME", payload = _L[333]}
+ goto cont18
+ end
+ local tmp94 = _L[199](loadedSet, "hpdftex.def")
+ if tmp94 then
+ hyperref_driver = {tag = "SOME", payload = _L[332]}
+ goto cont18
+ end
+ local tmp95 = _L[199](loadedSet, "hxetex.def")
+ if tmp95 then
+ hyperref_driver = {tag = "SOME", payload = _L[334]}
+ goto cont18
+ end
+ local tmp96 = _L[199](loadedSet, "hdvipdfm.def")
+ if tmp96 then
+ hyperref_driver = {tag = "SOME", payload = _L[330]}
+ goto cont18
+ end
+ local tmp97 = _L[199](loadedSet, "hdvips.def")
+ if tmp97 then
+ hyperref_driver = {tag = "SOME", payload = _L[331]}
+ else
+ hyperref_driver = {tag = "SOME", payload = _L[335]}
+ end
+ end
+ end
+ end
+ ::cont18::
+ local xypic_driver
+ do
+ local tmp92 = _L[199](loadedSet, "xy.tex")
+ do
+ if tmp92 then
+ else
+ xypic_driver = NONE
+ goto cont19
+ end
+ do
+ local tmp93 = _L[199](loadedSet, "xypdf.tex")
+ if tmp93 then
+ xypic_driver = {tag = "SOME", payload = _L[337]}
+ goto cont19
+ end
+ local tmp94 = _L[199](loadedSet, "xydvips.tex")
+ if tmp94 then
+ xypic_driver = {tag = "SOME", payload = _L[338]}
+ else
+ xypic_driver = {tag = "SOME", payload = _L[339]}
+ end
+ end
+ end
+ end
+ ::cont19::
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont20
+ end
+ do
+ do
+ local tmp92
+ if graphics_driver.tag == "NONE" then
+ tmp92 = "not loaded"
+ else
+ if graphics_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:204:17")
+ end
+ tmp92 = _L[318](graphics_driver.payload)
+ end
+ _L[304]("checkdriver: graphics=" .. tmp92)
+ local tmp93
+ if expl3_driver.tag == "NONE" then
+ tmp93 = "not loaded"
+ else
+ if expl3_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:210:17")
+ end
+ tmp93 = _L[329](expl3_driver.payload)
+ end
+ _L[304]("checkdriver: expl3=" .. tmp93)
+ local tmp94
+ if hyperref_driver.tag == "NONE" then
+ tmp94 = "not loaded"
+ else
+ if hyperref_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:216:17")
+ end
+ tmp94 = _L[336](hyperref_driver.payload)
+ end
+ _L[304]("checkdriver: hyperref=" .. tmp94)
+ if xypic_driver.tag == "NONE" then
+ else
+ goto else2
+ end
+ _L[304]("checkdriver: xypic=not loaded")
+ goto cont20
+ end
+ ::else2::
+ if xypic_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:222:17")
+ end
+ do
+ local d = xypic_driver.payload
+ if d == "PDF" then
+ else
+ goto else3
+ end
+ _L[304]("checkdriver: xypic=pdf")
+ goto cont20
+ ::else3::
+ if d == "DVIPS" then
+ else
+ goto else4
+ end
+ _L[304]("checkdriver: xypic=dvips")
+ goto cont20
+ ::else4::
+ if d == "UNKNOWN" then
+ else
+ _raise(_Match, "check-driver.sml:67:9")
+ end
+ _L[304]("checkdriver: xypic=unknown")
+ end
+ end
+ end
+ ::cont20::
+ local expected_xypic, expected_hyperref, expected_expl3_old, expected_expl3_new
+ do
+ local expected_graphics
+ if driver == "DVIPS" then
+ local tmp92 = {tag = "SOME", payload = _L[331]}
+ expected_xypic = {tag = "SOME", payload = _L[338]}
+ expected_hyperref = tmp92
+ expected_graphics = _L[312]
+ expected_expl3_old = _L[323]
+ expected_expl3_new = _L[323]
+ elseif driver == "DVIPDFMX" then
+ local tmp92 = {tag = "SOME", payload = _L[330]}
+ expected_xypic = {tag = "SOME", payload = _L[337]}
+ expected_hyperref = tmp92
+ expected_graphics = _L[311]
+ expected_expl3_old = _L[322]
+ expected_expl3_new = _L[322]
+ elseif driver == "DVISVGM" then
+ expected_xypic = NONE
+ expected_hyperref = NONE
+ expected_graphics = _L[313]
+ expected_expl3_old = _L[320]
+ expected_expl3_new = _L[320]
+ elseif driver == "XETEX" then
+ local tmp92 = {tag = "SOME", payload = _L[334]}
+ expected_xypic = {tag = "SOME", payload = _L[337]}
+ expected_hyperref = tmp92
+ expected_graphics = _L[315]
+ expected_expl3_old = _L[321]
+ expected_expl3_new = _L[326]
+ elseif driver == "PDFTEX" then
+ local tmp92 = {tag = "SOME", payload = _L[332]}
+ expected_xypic = {tag = "SOME", payload = _L[337]}
+ expected_hyperref = tmp92
+ expected_graphics = _L[314]
+ expected_expl3_old = _L[319]
+ expected_expl3_new = _L[324]
+ elseif driver == "LUATEX" then
+ local tmp92 = {tag = "SOME", payload = _L[333]}
+ expected_xypic = {tag = "SOME", payload = _L[337]}
+ expected_hyperref = tmp92
+ expected_graphics = _L[316]
+ expected_expl3_old = _L[319]
+ expected_expl3_new = _L[325]
+ else
+ _raise(_Match, "check-driver.sml:72:7")
+ end
+ do
+ if graphics_driver.tag == "NONE" then
+ goto cont21
+ end
+ if graphics_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:236:7")
+ end
+ do
+ local d = graphics_driver.payload
+ local tmp92
+ tmp92 = not (d == "DVIPDFMX" and expected_graphics == "DVIPDFMX") and (not (d == "DVIPS" and expected_graphics == "DVIPS") and (not (d == "DVISVGM" and expected_graphics == "DVISVGM") and (not (d == "PDFTEX" and expected_graphics == "PDFTEX") and (not (d == "XETEX" and expected_graphics == "XETEX") and (not (d == "LUATEX" and expected_graphics == "LUATEX") and (d ~= "UNKNOWN" or expected_graphics ~= "UNKNOWN"))))))
+ if tmp92 then
+ else
+ goto cont21
+ end
+ do
+ _L[303]("The driver option for grahipcs(x)/color is missing or wrong.")
+ local tmp93 = _L[318](expected_graphics)
+ _L[303]("Consider setting '" .. tmp93 .. "' option.")
+ end
+ end
+ end
+ end
+ ::cont21::
+ do
+ if expl3_driver.tag == "NONE" then
+ goto cont22
+ end
+ if expl3_driver.tag == "SOME" then
+ else
+ _raise(_Match, "check-driver.sml:248:7")
+ end
+ do
+ local tmp92
+ do
+ local d = expl3_driver.payload
+ local tmp93
+ do
+ local tmp94 = _L[328](d, expected_expl3_old)
+ tmp93 = not tmp94
+ end
+ do
+ if tmp93 then
+ else
+ tmp92 = false
+ goto cont24
+ end
+ do
+ local tmp94 = _L[328](d, expected_expl3_new)
+ tmp92 = not tmp94
+ end
+ end
+ end
+ ::cont24::
+ if tmp92 then
+ else
+ goto cont22
+ end
+ do
+ _L[303]("The driver option for expl3 is missing or wrong.")
+ local tmp93 = _L[329](expected_expl3_new)
+ _L[303]("Consider setting 'driver=" .. tmp93 .. "' option when loading expl3.")
+ local tmp94 = _L[328](expected_expl3_old, expected_expl3_new)
+ if not tmp94 then
+ else
+ goto cont22
+ end
+ do
+ local tmp95 = _L[329](expected_expl3_old)
+ _L[303]("You might need to instead set 'driver=" .. tmp95 .. "' if you are using an older version of expl3.")
+ end
+ end
+ end
+ end
+ ::cont22::
+ do
+ local tmp92 = hyperref_driver.tag == "SOME" and expected_hyperref.tag == "SOME"
+ do
+ if tmp92 then
+ else
+ goto cont23
+ end
+ do
+ local actual = hyperref_driver.payload
+ local expected = expected_hyperref.payload
+ local tmp93
+ tmp93 = not (actual == "DVIPDFMX" and expected == "DVIPDFMX") and (not (actual == "DVIPS" and expected == "DVIPS") and (not (actual == "PDFTEX" and expected == "PDFTEX") and (not (actual == "LUATEX" and expected == "LUATEX") and (not (actual == "XETEX" and expected == "XETEX") and (actual ~= "UNKNOWN" or expected ~= "UNKNOWN")))))
+ if tmp93 then
+ else
+ goto cont23
+ end
+ do
+ _L[303]("The driver option for hyperref is missing or wrong.")
+ local tmp94 = _L[336](expected)
+ _L[303]("Consider setting '" .. tmp94 .. "' option.")
+ end
+ end
+ end
+ end
+ ::cont23::
+ if xypic_driver.tag == "SOME" and expected_xypic.tag == "SOME" then
+ else
+ goto cont9
+ end
+ do
+ local actual = xypic_driver.payload
+ local expected = expected_xypic.payload
+ local tmp92
+ tmp92 = not (actual == "PDF" and expected == "PDF") and (not (actual == "DVIPS" and expected == "DVIPS") and (actual ~= "UNKNOWN" or expected ~= "UNKNOWN"))
+ if tmp92 then
+ else
+ goto cont9
+ end
+ do
+ _L[303]("The driver option for Xy-pic is missing or wrong.")
+ if driver == "DVIPDFMX" then
+ else
+ if driver == "PDFTEX" then
+ else
+ if expected == "PDF" then
+ else
+ if expected == "DVIPS" then
+ elseif expected == "UNKNOWN" then
+ goto cont9
+ else
+ _raise(_Match, "check-driver.sml:280:15")
+ end
+ _L[303]("Consider setting 'dvips' option.")
+ goto cont13
+ end
+ _L[303]("Consider setting 'pdf' package option or running \\xyoption{pdf}.")
+ goto cont13
+ end
+ _L[303]("Consider setting 'pdftex' option or running \\xyoption{pdf}.")
+ goto cont13
+ end
+ _L[303]("Consider setting 'dvipdfmx' option or running \\xyoption{pdf}.")
+ end
+ end
+ end
+ end
+ ::cont13::
+ end
+ end
+ end
+ ::cont9::
+ local filelist2
+ do
+ if tmp59.tag == "NONE" then
+ else
+ goto else2
+ end
+ if not tmp20(execlog, "No file [^\n]+%.ind%.") then
+ filelist2 = filelist1
+ goto cont10
+ end
+ _L[303]("You may want to use --makeindex option.")
+ filelist2 = filelist1
+ goto cont10
+ ::else2::
+ if tmp59.tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:354:33")
+ end
+ do
+ local makeindex = tmp59.payload
+ local tmp89 = foldl(function(a)
+ local file = a[1]
+ local filelist_acc = a[2]
+ local tmp90 = _L[214](file.path)
+ if tmp90 == "idx" then
+ else
+ return filelist_acc
+ end
+ do
+ local tmp91
+ do
+ local idxfileinfo = {abspath = file.abspath, kind = _L[357], path = file.path}
+ tmp91 = _L[210].replaceext(file.abspath, "ind")
+ local tmp92 = _L[361]({idxfileinfo, nil}, auxstatus1)
+ local tmp93
+ if tmp92[1] then
+ tmp93 = true
+ else
+ tmp93 = _L[362](auxstatus1, tmp91, file.abspath)
+ end
+ if tmp93 then
+ else
+ goto else1
+ end
+ do
+ local idx_dir = _L[212](file.abspath)
+ local tmp94 = _L[208](idx_dir)
+ local tmp95 = _L[211](tmp91)
+ local tmp96 = _L[211](file.abspath)
+ _L[526](table_concat({n = 7, "cd", tmp94, "&&", makeindex, "-o", tmp95, tmp96}, " "), NONE)
+ return {{abspath = tmp91, kind = _L[357], path = tmp91}, filelist_acc}
+ end
+ end
+ ::else1::
+ do
+ local status, exn = _handle(function()
+ local tmp92, tmp93 = _L[216].touch(tmp91)
+ if not tmp92 then
+ else
+ return nil
+ end
+ do
+ local tmp94 = _Error(tmp93)
+ _raise(tmp94, "fs-util.sml:28:25")
+ end
+ end)
+ if not status then
+ if __exn_instanceof(exn, _Error_tag) then
+ else
+ _raise(exn, nil)
+ end
+ do
+ _L[302]("Failed to touch " .. tmp91 .. " (" .. exn.payload .. ")")
+ return filelist_acc
+ end
+ end
+ end
+ return filelist_acc
+ end
+ end)
+ local tmp90 = tmp89(filelist1)
+ filelist2 = tmp90(filelist1)
+ end
+ end
+ ::cont10::
+ local filelist3
+ do
+ if exp4.tag == "NONE" then
+ else
+ goto else2
+ end
+ if not tmp20(execlog, "No file [^\n]+%.gls%.") then
+ filelist3 = filelist2
+ goto cont11
+ end
+ _L[303]("You may want to use --makeglossaries option.")
+ filelist3 = filelist2
+ goto cont11
+ ::else2::
+ if exp4.tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:390:33")
+ end
+ do
+ local makeglossaries = exp4.payload
+ local tmp89 = foldl(function(a)
+ local file = a[1]
+ local filelist_acc = a[2]
+ local tmp90 = _L[214](file.path)
+ if tmp90 == "glo" then
+ else
+ return filelist_acc
+ end
+ do
+ local tmp91
+ do
+ local glofileinfo = {abspath = file.abspath, kind = _L[357], path = file.path}
+ tmp91 = _L[210].replaceext(file.abspath, "gls")
+ local tmp92 = _L[361]({glofileinfo, nil}, auxstatus1)
+ local tmp93
+ if tmp92[1] then
+ tmp93 = true
+ else
+ tmp93 = _L[362](auxstatus1, tmp91, file.abspath)
+ end
+ if tmp93 then
+ else
+ goto else1
+ end
+ do
+ local tmp94 = _L[208](tmp62)
+ local tmp95 = _L[211](file.path)
+ local tmp96 = _L[213](tmp95)
+ _L[526](table_concat({n = 4, makeglossaries, "-d", tmp94, tmp96}, " "), NONE)
+ return {{abspath = tmp91, kind = _L[357], path = tmp91}, filelist_acc}
+ end
+ end
+ ::else1::
+ do
+ local status, exn = _handle(function()
+ local tmp92, tmp93 = _L[216].touch(tmp91)
+ if not tmp92 then
+ else
+ return nil
+ end
+ do
+ local tmp94 = _Error(tmp93)
+ _raise(tmp94, "fs-util.sml:28:25")
+ end
+ end)
+ if not status then
+ if __exn_instanceof(exn, _Error_tag) then
+ else
+ _raise(exn, nil)
+ end
+ do
+ _L[302]("Failed to touch " .. tmp91 .. " (" .. exn.payload .. ")")
+ return filelist_acc
+ end
+ end
+ end
+ return filelist_acc
+ end
+ end)
+ local tmp90 = tmp89(filelist2)
+ filelist3 = tmp90(filelist2)
+ end
+ end
+ ::cont11::
+ local filelist4
+ do
+ if exp.tag == "NONE" then
+ else
+ goto else2
+ end
+ if not tmp20(execlog, "No file [^\n]+%.bbl%.") then
+ filelist4 = filelist3
+ goto cont12
+ end
+ _L[303]("You may want to use --bibtex or biber option.")
+ filelist4 = filelist3
+ goto cont12
+ ::else2::
+ if exp.tag == "SOME" and exp.payload.tag == "BIBTEX" then
+ else
+ goto else3
+ end
+ do
+ local bibtex, bibtex_aux_hash2
+ do
+ bibtex = exp.payload.payload
+ local biblines2
+ do
+ local tmp89 = _L[353](tmp87, tmp62, nil)
+ biblines2 = revAppend(tmp89, nil)
+ end
+ local tmp89 = biblines2 == nil
+ do
+ if tmp89 then
+ bibtex_aux_hash2 = NONE
+ goto cont13
+ end
+ local tmp90 = _L[191](table_concat(_VectorOrArray_fromList(biblines2), "\n"))
+ bibtex_aux_hash2 = {tag = "SOME", payload = tmp90}
+ end
+ end
+ ::cont13::
+ local tmp89, tmp90
+ do
+ local tmp91 = tmp58 .. "." .. "bbl"
+ tmp89 = _L[210].join(tmp62, tmp91)
+ local tmp92 = tmp(function(a)
+ local x = a[1]
+ local y = a[2]
+ return x[4] == y[4] and (x[3] == y[3] and (x[2] == y[2] and x[1] == y[1]))
+ end)
+ local tmp93
+ do
+ local tmp94 = tmp92({bibtex_aux_hash, bibtex_aux_hash2})
+ tmp93 = not tmp94
+ end
+ do
+ if tmp93 then
+ tmp90 = true
+ goto cont14
+ end
+ local tmp94 = _L[215](NONE, tmp87)
+ tmp90 = _L[362](auxstatus1, tmp89, tmp94)
+ end
+ end
+ ::cont14::
+ if tmp90 then
+ else
+ goto else4
+ end
+ do
+ local tmp91 = _L[208](tmp62)
+ local tmp92 = _L[211](tmp87)
+ _L[526](table_concat({n = 5, "cd", tmp91, "&&", bibtex, tmp92}, " "), NONE)
+ filelist4 = filelist3
+ goto cont12
+ end
+ ::else4::
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont15
+ end
+ _L[304]("No need to run BibTeX.")
+ end
+ ::cont15::
+ do
+ local status, exn = _handle(function()
+ local tmp91, tmp92 = _L[216].touch(tmp89)
+ if not tmp91 then
+ else
+ return nil
+ end
+ do
+ local tmp93 = _Error(tmp92)
+ _raise(tmp93, "fs-util.sml:28:25")
+ end
+ end)
+ if not status then
+ if __exn_instanceof(exn, _Error_tag) then
+ else
+ _raise(exn, nil)
+ end
+ do
+ local err = exn.payload
+ _L[302]("Failed to touch " .. tmp89 .. " (" .. err .. ")")
+ filelist4 = filelist3
+ goto cont12
+ end
+ end
+ end
+ filelist4 = filelist3
+ goto cont12
+ end
+ ::else3::
+ if exp.tag == "SOME" and exp.payload.tag == "BIBER" then
+ else
+ _raise(_Match, "main.sml:424:33")
+ end
+ do
+ local biber = exp.payload.payload
+ local tmp89 = foldl(function(a)
+ local file = a[1]
+ local filelist_acc = a[2]
+ local tmp90 = _L[214](file.path)
+ if tmp90 == "bcf" then
+ else
+ return filelist_acc
+ end
+ do
+ local bcffileinfo = {abspath = file.abspath, kind = _L[357], path = file.path}
+ local tmp91 = _L[210].replaceext(file.abspath, "bbl")
+ local updated_dot_bib
+ do
+ local ins = _L[115](file.abspath)
+ local tmp92 = false
+ ::cont2::
+ do
+ local a1 = tmp92
+ local exp7 = _L[114](ins)
+ if exp7.tag == "NONE" then
+ else
+ goto else2
+ end
+ _L[120](ins)
+ updated_dot_bib = a1
+ goto cont
+ ::else2::
+ if exp7.tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:470:65")
+ end
+ do
+ local tmp93
+ do
+ local tmp94 = tmp22(exp7.payload, "<bcf:datasource .*>(.*)</bcf:datasource>")
+ if not tmp94 then
+ tmp92 = a1
+ goto cont2
+ end
+ tmp93 = _L[210].join(original_wd, tmp94)
+ local tmp95 = _L[218](tmp93)
+ if tmp95 then
+ else
+ goto else3
+ end
+ do
+ local tmp96 = _L[215](NONE, tmp87)
+ local tmp97 = _L[362](auxstatus1, tmp93, tmp96)
+ local tmp98 = not tmp97
+ if tmp98 then
+ else
+ tmp92 = a1 or tmp98
+ goto cont2
+ end
+ _L[304](tmp93 .. " is newer than aux")
+ tmp92 = a1 or tmp98
+ goto cont2
+ end
+ end
+ ::else3::
+ _L[302](tmp93 .. " is not accessible")
+ tmp92 = a1
+ goto cont2
+ end
+ end
+ end
+ ::cont::
+ local tmp92
+ do
+ if updated_dot_bib then
+ tmp92 = true
+ goto cont1
+ end
+ local tmp93 = _L[361]({bcffileinfo, nil}, auxstatus1)
+ if tmp93[1] then
+ tmp92 = true
+ else
+ tmp92 = _L[362](auxstatus1, tmp91, file.abspath)
+ end
+ end
+ ::cont1::
+ if tmp92 then
+ else
+ goto else1
+ end
+ do
+ local tmp93 = _L[208](tmp62)
+ local tmp94 = _L[211](file.abspath)
+ _L[526](table_concat({n = 4, biber, "--output-directory", tmp93, tmp94}, " "), NONE)
+ return {{abspath = tmp91, kind = _L[357], path = tmp91}, filelist3}
+ end
+ ::else1::
+ do
+ local status, exn = _handle(function()
+ local tmp93, tmp94 = _L[216].touch(tmp91)
+ if not tmp93 then
+ else
+ return nil
+ end
+ do
+ local tmp95 = _Error(tmp94)
+ _raise(tmp95, "fs-util.sml:28:25")
+ end
+ end)
+ if not status then
+ if __exn_instanceof(exn, _Error_tag) then
+ else
+ _raise(exn, nil)
+ end
+ do
+ _L[302]("Failed to touch " .. tmp91 .. " (" .. exn.payload .. ")")
+ return filelist_acc
+ end
+ end
+ end
+ return filelist_acc
+ end
+ end)
+ local tmp90 = tmp89(filelist3)
+ filelist4 = tmp90(filelist3)
+ end
+ end
+ ::cont12::
+ local tmp89 = _L[49]("No pages of output.")
+ local tmp90 = tmp89(execlog)
+ if tmp90 then
+ exp6 = _L[528]
+ goto cont2
+ end
+ local exp7 = _L[361](filelist4, auxstatus1)
+ local should_rerun = exp7[1]
+ local auxstatus2 = exp7[2]
+ local tmp91
+ tmp91 = should_rerun or lightweight_mode
+ if tmp91 then
+ exp6 = {tag = "SHOULD_RERUN", payload = auxstatus2}
+ else
+ exp6 = _L[527]
+ end
+ end
+ end
+ ::cont2::
+ if exp6.tag == "NO_PAGES_OF_OUTPUT" then
+ else
+ goto else1
+ end
+ _L[302]("No pages of output.")
+ tmp83 = false
+ goto cont
+ ::else1::
+ if exp6.tag == "NO_NEED_TO_RERUN" then
+ tmp83 = true
+ goto cont
+ end
+ if exp6.tag == "SHOULD_RERUN" then
+ else
+ _raise(_Match, "main.sml:533:20")
+ end
+ do
+ local auxstatus = exp6.payload
+ if tmp86 >= tmp60 then
+ else
+ tmp84 = tmp86
+ tmp85 = auxstatus
+ goto cont1
+ end
+ _L[302]("LaTeX should be run once more.")
+ tmp83 = true
+ end
+ end
+ end
+ ::cont::
+ if tmp83 then
+ else
+ return nil
+ end
+ do
+ do
+ local tmp84 = _L[232](tmp63, _L[231])
+ local tmp85
+ tmp85 = tmp84 or tmp56
+ do
+ if tmp85 then
+ else
+ goto else1
+ end
+ do
+ local tmp86 = tmp58 .. "." .. output_extension
+ local tmp87 = _L[210].join(tmp62, tmp86)
+ local onCopyError
+ if _L[220] then
+ onCopyError = {tag = "SOME", payload = function(a)
+ local output_format
+ if tmp63 == "DVI" then
+ output_format = "DVI"
+ elseif tmp63 == "PDF" then
+ output_format = "PDF"
+ else
+ _raise(_Match, "main.sml:551:85")
+ end
+ _L[301]("Failed to copy file. Some applications may be locking the " .. output_format .. " file.")
+ return false
+ end}
+ else
+ onCopyError = NONE
+ end
+ _L[526](_L[217].copy_command(tmp87, tmp61), onCopyError)
+ if tmp57 == nil then
+ goto cont1
+ end
+ _L[302]("--dvipdfmx-option[s] are ignored.")
+ goto cont1
+ end
+ ::else1::
+ local tmp86 = tmp58 .. "." .. "dvi"
+ local tmp87 = _L[210].join(tmp62, tmp86)
+ local tmp88 = _L[208](tmp61)
+ local tmp89 = _L[208](tmp87)
+ local tmp90 = {tmp89, nil}
+ local tmp91
+ do
+ local tmp92 = revAppend(tmp57, nil)
+ tmp91 = revAppend(tmp92, tmp90)
+ end
+ _L[526](table_concat(_VectorOrArray_fromList({"dvipdfmx", {"-o", {tmp88, tmp91}}}), " "), NONE)
+ end
+ end
+ ::cont1::
+ do
+ local tmp84 = _L[232](tmp63, _L[230])
+ do
+ if tmp84 then
+ else
+ goto cont2
+ end
+ do
+ local tmp85 = getOpt(tmp69, "0")
+ local tmp86 = tmp4(tmp85)
+ local synctex_ext
+ if tmp86 > 0 then
+ synctex_ext = {tag = "SOME", payload = "synctex.gz"}
+ elseif tmp86 < 0 then
+ synctex_ext = {tag = "SOME", payload = "synctex"}
+ else
+ synctex_ext = NONE
+ end
+ if synctex_ext.tag == "SOME" then
+ elseif synctex_ext.tag == "NONE" then
+ goto cont2
+ else
+ _raise(_Match, "main.sml:583:23")
+ end
+ do
+ local ext = synctex_ext.payload
+ local tmp87 = tmp58 .. "." .. ext
+ local tmp88 = _L[210].join(tmp62, tmp87)
+ local tmp89 = _L[210].replaceext(tmp61, ext)
+ _L[526](_L[217].copy_command(tmp88, tmp89), NONE)
+ end
+ end
+ end
+ end
+ ::cont2::
+ do
+ if exp3.tag == "SOME" then
+ elseif exp3.tag == "NONE" then
+ goto cont3
+ else
+ _raise(_Match, "main.sml:590:16")
+ end
+ do
+ local make_depends, recorded, tmp84
+ do
+ make_depends = exp3.payload
+ recorded = _L[360](recorderfile, tmp59, nil, _L[203])
+ local tmp85 = _L[237](engine_type, _L[235])
+ do
+ if tmp85 then
+ else
+ tmp84 = false
+ goto cont4
+ end
+ tmp84 = _L[218](recorderfile2)
+ end
+ end
+ ::cont4::
+ local recorded1
+ do
+ if tmp84 then
+ else
+ recorded1 = recorded
+ goto cont5
+ end
+ do
+ local fileList = recorded[1]
+ recorded1 = _L[360](recorderfile2, tmp59, fileList, recorded[2])
+ end
+ end
+ ::cont5::
+ local filelist, outs
+ do
+ local exp6
+ do
+ local fileInfo = recorded1[1]
+ exp6 = _L[359](fileInfo, recorded1[2])
+ end
+ filelist = exp6[1]
+ do
+ local tmp85, tmp86 = tmp7(make_depends, "w")
+ if tmp85 == nil then
+ else
+ local tmp87 = _L[113].mkOutstream
+ outs = tmp87({tag = "LUA_WRITABLE", payload = {buffer_mode = {_L[16]}, name = make_depends, writable = tmp85}})
+ goto cont6
+ end
+ do
+ local tmp87 = _Fail(tmp86)
+ _raise({tag = _L[9], payload = {cause = tmp87, ["function"] = "TextIO.openOut", name = make_depends}}, "text-io.sml:493:27")
+ end
+ end
+ end
+ ::cont6::
+ _L[124]({outs, tmp61 .. ":"})
+ local tmp85 = app1(function(a)
+ if a.kind == "INPUT" then
+ else
+ return nil
+ end
+ do
+ return _L[124]({outs, " " .. a.path})
+ end
+ end)
+ tmp85(filelist)
+ _L[124]({outs, "\n"})
+ _L[121](outs)
+ end
+ end
+ ::cont3::
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ return nil
+ end
+ do
+ return _L[304]("Command exited successfully")
+ end
+ end
+end
+_L[530] = function(a, a1)
+ local tmp54 = assert(a.new())
+ local tmp55 = app1(function(file)
+ assert(tmp54:add(file))
+ return nil
+ end)
+ tmp55(a1)
+ local tmp56 = assert(tmp54:next())
+ if _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ tmp54:close()
+ return true
+ end
+ do
+ local tmp57 = tmp56.action .. " "
+ _L[304](tmp57 .. tmp56.path)
+ tmp54:close()
+ return true
+ end
+end
+_L[531] = function(a)
+ local tmp54
+ do
+ local tmp55 = map(_L[208])
+ local tmp56 = tmp55(a)
+ tmp54 = table_concat(_VectorOrArray_fromList({"fswatch", {"--one-event", {"--event=Updated", {"--", tmp56}}}}), " ")
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont
+ end
+ _L[300](tmp54)
+ end
+ end
+ ::cont::
+ local tmp55 = assert(tmp8(tmp54, "r"))
+ local tmp56 = tmp55:lines()
+ ::cont1::
+ do
+ local tmp57 = tmp56()
+ if not tmp57 then
+ tmp55:close()
+ return false
+ end
+ local tmp58 = exists(function(path)
+ return tmp57 == path
+ end)
+ local tmp59 = tmp58(a)
+ if tmp59 then
+ tmp55:close()
+ return true
+ else
+ goto cont1
+ end
+ end
+end
+_L[532] = function(a)
+ local tmp54
+ do
+ local tmp55 = map(_L[208])
+ local tmp56 = tmp55(a)
+ tmp54 = table_concat(_VectorOrArray_fromList({"inotifywait", {"--event=modify", {"--event=attrib", {"--format=%w", {"--quiet", tmp56}}}}}), " ")
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto cont
+ end
+ _L[300](tmp54)
+ end
+ end
+ ::cont::
+ local tmp55 = assert(tmp8(tmp54, "r"))
+ local tmp56 = tmp55:lines()
+ ::cont1::
+ do
+ local tmp57 = tmp56()
+ if not tmp57 then
+ tmp55:close()
+ return false
+ end
+ local tmp58 = exists(function(path)
+ return tmp57 == path
+ end)
+ local tmp59 = tmp58(a)
+ if tmp59 then
+ tmp55:close()
+ return true
+ else
+ goto cont1
+ end
+ end
+end
+do
+ do
+ _L[534] = #_L[154]
+ _L[533] = tabulate(_L[534], function(i)
+ return _L[154][_Int_add(i, 1)]
+ end)
+ end
+ do
+ _L[536], _L[537] = _L[349], _L[533]
+ ::cont18::
+ do
+ local _L1 = {}
+ _L1[1], _L1[2] = _L[536], _L[537]
+ do
+ if _L1[2] == nil then
+ _L1[3] = NONE
+ goto cont19
+ end
+ _L1[4] = _L[525]
+ ::cont20::
+ do
+ local _L2 = {}
+ _L2[1] = _L1[4]
+ if _L2[1] == nil then
+ _L1[3] = NONE
+ goto cont19
+ end
+ if _L2[1] ~= nil then
+ else
+ _raise(_Match, "handle-options.sml:63:41")
+ end
+ do
+ _L2[2] = _L2[1][1]
+ _L2[3] = _L2[1][2]
+ do
+ _L2[5] = _L2[2][1]
+ _L2[6] = _L2[2][2]
+ if _L1[2] == nil then
+ _L2[4] = NONE
+ goto cont21
+ end
+ _L2[7] = _L2[5].tag == "SHORT" and _L2[6].tag == "SIMPLE"
+ _L2[8] = _L2[7] and _L1[2] ~= nil
+ if _L2[8] then
+ _L2[9] = _L2[5].payload
+ _L2[10] = _L2[6].payload
+ _L2[11] = _L1[2][1]
+ _L2[12] = _L1[2][2]
+ if _L2[11] == _L2[9] then
+ _L2[4] = {tag = "SOME", payload = {_L2[10], _L2[12]}}
+ goto cont21
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ end
+ _L2[13] = _L2[5].tag == "SHORT" and _L2[6].tag == "WITH_ARG"
+ _L2[14] = _L2[13] and _L1[2] ~= nil
+ if _L2[14] then
+ else
+ goto else33
+ end
+ do
+ _L2[15] = _L2[5].payload
+ _L2[16] = _L2[6].payload
+ _L2[17] = _L1[2][1]
+ _L2[18] = _L1[2][2]
+ if _L2[17] == _L2[15] then
+ else
+ goto else36
+ end
+ do
+ if _L2[18] == nil then
+ else
+ goto else37
+ end
+ do
+ _L2[19] = _Fail("argument missing after " .. _L2[15])
+ _raise(_L2[19], "handle-options.sml:21:21")
+ end
+ ::else37::
+ if _L2[18] ~= nil then
+ else
+ _raise(_Match, "handle-options.sml:20:11")
+ end
+ do
+ _L2[20] = _L2[18][1]
+ _L2[21] = _L2[18][2]
+ _L2[22] = _L2[16](_L2[20])
+ _L2[4] = {tag = "SOME", payload = {_L2[22], _L2[21]}}
+ goto cont21
+ end
+ end
+ ::else36::
+ _L2[23] = isPrefix(_L2[15])
+ _L2[24] = _L2[23](_L2[17])
+ if _L2[24] then
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ do
+ _L2[25] = extract(_L2[17], #_L2[15], NONE)
+ _L2[26] = _L2[16](_L2[25])
+ _L2[4] = {tag = "SOME", payload = {_L2[26], _L2[18]}}
+ goto cont21
+ end
+ end
+ ::else33::
+ _L2[27] = _L2[5].tag == "SHORT" and _L2[6].tag == "WITH_OPTIONAL_ARG"
+ _L2[28] = _L2[27] and _L1[2] ~= nil
+ if _L2[28] then
+ else
+ goto else34
+ end
+ do
+ _L2[29] = _L2[5].payload
+ _L2[30] = _L2[6].payload.default
+ _L2[31] = _L2[6].payload.action
+ _L2[32] = _L1[2][1]
+ _L2[33] = _L1[2][2]
+ if _L2[32] == _L2[29] then
+ else
+ goto else36
+ end
+ do
+ _L2[34] = _L2[31](_L2[30])
+ _L2[4] = {tag = "SOME", payload = {_L2[34], _L2[33]}}
+ goto cont21
+ end
+ ::else36::
+ _L2[35] = isPrefix(_L2[29])
+ _L2[36] = _L2[35](_L2[32])
+ if _L2[36] then
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ do
+ _L2[37] = extract(_L2[32], #_L2[29], NONE)
+ _L2[38] = _L2[31](_L2[37])
+ _L2[4] = {tag = "SOME", payload = {_L2[38], _L2[33]}}
+ goto cont21
+ end
+ end
+ ::else34::
+ _L2[39] = _L2[5].tag == "LONG" and _L2[6].tag == "SIMPLE"
+ _L2[40] = _L2[39] and _L1[2] ~= nil
+ if _L2[40] then
+ _L2[41] = _L2[5].payload
+ _L2[42] = _L2[6].payload
+ _L2[43] = _L1[2][1]
+ _L2[44] = _L1[2][2]
+ if _L2[43] == _L2[41] then
+ _L2[4] = {tag = "SOME", payload = {_L2[42], _L2[44]}}
+ goto cont21
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ end
+ _L2[45] = _L2[5].tag == "LONG" and _L2[6].tag == "WITH_ARG"
+ _L2[46] = _L2[45] and _L1[2] ~= nil
+ if _L2[46] then
+ else
+ goto else35
+ end
+ do
+ _L2[47] = _L2[5].payload
+ _L2[48] = _L2[6].payload
+ _L2[49] = _L1[2][1]
+ _L2[50] = _L1[2][2]
+ if _L2[49] == _L2[47] then
+ else
+ goto else36
+ end
+ do
+ if _L2[50] == nil then
+ else
+ goto else37
+ end
+ do
+ _L2[51] = _Fail("argument missing after " .. _L2[47])
+ _raise(_L2[51], "handle-options.sml:45:21")
+ end
+ ::else37::
+ if _L2[50] ~= nil then
+ else
+ _raise(_Match, "handle-options.sml:44:11")
+ end
+ do
+ _L2[52] = _L2[50][1]
+ _L2[53] = _L2[50][2]
+ _L2[54] = _L2[48](_L2[52])
+ _L2[4] = {tag = "SOME", payload = {_L2[54], _L2[53]}}
+ goto cont21
+ end
+ end
+ ::else36::
+ _L2[55] = isPrefix(_L2[47] .. "=")
+ _L2[56] = _L2[55](_L2[49])
+ if _L2[56] then
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ do
+ _L2[57] = extract(_L2[49], _Int_add(#_L2[47], 1), NONE)
+ _L2[58] = _L2[48](_L2[57])
+ _L2[4] = {tag = "SOME", payload = {_L2[58], _L2[50]}}
+ goto cont21
+ end
+ end
+ ::else35::
+ _L2[59] = _L2[5].tag == "LONG" and _L2[6].tag == "WITH_OPTIONAL_ARG"
+ _L2[60] = _L2[59] and _L1[2] ~= nil
+ if _L2[60] then
+ else
+ _raise(_Match, "handle-options.sml:13:5")
+ end
+ do
+ _L2[61] = _L2[5].payload
+ _L2[62] = _L2[6].payload.default
+ _L2[63] = _L2[6].payload.action
+ _L2[64] = _L1[2][1]
+ _L2[65] = _L1[2][2]
+ if _L2[64] == _L2[61] then
+ else
+ goto else36
+ end
+ do
+ _L2[66] = _L2[63](_L2[62])
+ _L2[4] = {tag = "SOME", payload = {_L2[66], _L2[65]}}
+ goto cont21
+ end
+ ::else36::
+ _L2[67] = isPrefix(_L2[61] .. "=")
+ _L2[68] = _L2[67](_L2[64])
+ if _L2[68] then
+ else
+ _L2[4] = NONE
+ goto cont21
+ end
+ do
+ _L2[69] = extract(_L2[64], _Int_add(#_L2[61], 1), NONE)
+ _L2[70] = _L2[63](_L2[69])
+ _L2[4] = {tag = "SOME", payload = {_L2[70], _L2[65]}}
+ end
+ end
+ end
+ ::cont21::
+ if _L2[4].tag == "SOME" then
+ _L1[3] = {tag = "SOME", payload = _L2[4].payload}
+ elseif _L2[4].tag == "NONE" then
+ _L1[4] = _L2[3]
+ goto cont20
+ else
+ _raise(_Match, "handle-options.sml:64:62")
+ end
+ end
+ end
+ end
+ ::cont19::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_ENGINE" then
+ else
+ goto else2
+ end
+ do
+ _L1[5] = _L1[3].payload[1].payload
+ _L1[6] = _L1[3].payload[2]
+ _L1[7] = _L1[1].engine
+ if _L1[7].tag == "NONE" then
+ _L1[8] = _L1[1].bibtex_or_biber
+ _L1[9] = _L1[1].change_directory
+ _L1[10] = _L1[1].check_driver
+ _L1[11] = _L1[1].color
+ _L1[12] = _L1[1].config_file
+ _L1[13] = _L1[1].dvipdfmx_extraoptions
+ _L1[14] = _L1[1].engine_executable
+ _L1[15] = _L1[1].file_line_error
+ _L1[16] = _L1[1].fmt
+ _L1[17] = _L1[1].fresh
+ _L1[18] = _L1[1].halt_on_error
+ _L1[19] = _L1[1].includeonly
+ _L1[20] = _L1[1].interaction
+ _L1[21] = _L1[1].jobname
+ _L1[22] = _L1[1].make_depends
+ _L1[23] = _L1[1].makeglossaries
+ _L1[24] = _L1[1].makeindex
+ _L1[25] = _L1[1].max_iterations
+ _L1[26] = _L1[1].output
+ _L1[27] = _L1[1].output_directory
+ _L1[28] = _L1[1].output_format
+ _L1[29] = _L1[1].package_support
+ _L1[30] = _L1[1].print_output_directory
+ _L1[31] = _L1[1].shell_escape
+ _L1[32] = _L1[1].source_date_epoch
+ _L1[33] = _L1[1].start_with_draft
+ _L1[34] = _L1[1].synctex
+ _L1[35] = _L1[1].tex_extraoptions
+ _L1[36] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[8], change_directory = _L1[9], check_driver = _L1[10], color = _L1[11], config_file = _L1[12], dvipdfmx_extraoptions = _L1[13], engine = {tag = "SOME", payload = _L1[5]}, engine_executable = _L1[14], file_line_error = _L1[15], fmt = _L1[16], fresh = _L1[17], halt_on_error = _L1[18], includeonly = _L1[19], interaction = _L1[20], jobname = _L1[21], make_depends = _L1[22], makeglossaries = _L1[23], makeindex = _L1[24], max_iterations = _L1[25], output = _L1[26], output_directory = _L1[27], output_format = _L1[28], package_support = _L1[29], print_output_directory = _L1[30], shell_escape = _L1[31], source_date_epoch = _L1[32], start_with_draft = _L1[33], synctex = _L1[34], tex_extraoptions = _L1[35], watch = _L1[36]}
+ _L[537] = _L1[6]
+ goto cont18
+ end
+ if _L1[7].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:168:46")
+ end
+ _L[124]({_L[118], "multiple --engine options\n"})
+ tmp15(1, true)
+ end
+ ::else2::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_ENGINE_EXECUTABLE" then
+ else
+ goto else3
+ end
+ do
+ _L1[37] = _L1[3].payload[1].payload
+ _L1[38] = _L1[3].payload[2]
+ _L1[39] = _L1[1].engine_executable
+ if _L1[39].tag == "NONE" then
+ _L1[40] = _L1[1].bibtex_or_biber
+ _L1[41] = _L1[1].change_directory
+ _L1[42] = _L1[1].check_driver
+ _L1[43] = _L1[1].color
+ _L1[44] = _L1[1].config_file
+ _L1[45] = _L1[1].dvipdfmx_extraoptions
+ _L1[46] = _L1[1].engine
+ _L1[47] = _L1[1].file_line_error
+ _L1[48] = _L1[1].fmt
+ _L1[49] = _L1[1].fresh
+ _L1[50] = _L1[1].halt_on_error
+ _L1[51] = _L1[1].includeonly
+ _L1[52] = _L1[1].interaction
+ _L1[53] = _L1[1].jobname
+ _L1[54] = _L1[1].make_depends
+ _L1[55] = _L1[1].makeglossaries
+ _L1[56] = _L1[1].makeindex
+ _L1[57] = _L1[1].max_iterations
+ _L1[58] = _L1[1].output
+ _L1[59] = _L1[1].output_directory
+ _L1[60] = _L1[1].output_format
+ _L1[61] = _L1[1].package_support
+ _L1[62] = _L1[1].print_output_directory
+ _L1[63] = _L1[1].shell_escape
+ _L1[64] = _L1[1].source_date_epoch
+ _L1[65] = _L1[1].start_with_draft
+ _L1[66] = _L1[1].synctex
+ _L1[67] = _L1[1].tex_extraoptions
+ _L1[68] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[40], change_directory = _L1[41], check_driver = _L1[42], color = _L1[43], config_file = _L1[44], dvipdfmx_extraoptions = _L1[45], engine = _L1[46], engine_executable = {tag = "SOME", payload = _L1[37]}, file_line_error = _L1[47], fmt = _L1[48], fresh = _L1[49], halt_on_error = _L1[50], includeonly = _L1[51], interaction = _L1[52], jobname = _L1[53], make_depends = _L1[54], makeglossaries = _L1[55], makeindex = _L1[56], max_iterations = _L1[57], output = _L1[58], output_directory = _L1[59], output_format = _L1[60], package_support = _L1[61], print_output_directory = _L1[62], shell_escape = _L1[63], source_date_epoch = _L1[64], start_with_draft = _L1[65], synctex = _L1[66], tex_extraoptions = _L1[67], watch = _L1[68]}
+ _L[537] = _L1[38]
+ goto cont18
+ end
+ if _L1[39].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:172:61")
+ end
+ _L[124]({_L[118], "multiple --engine-executable options\n"})
+ tmp15(1, true)
+ end
+ ::else3::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_OUTPUT" then
+ else
+ goto else4
+ end
+ do
+ _L1[69] = _L1[3].payload[1].payload
+ _L1[70] = _L1[3].payload[2]
+ _L1[71] = _L1[1].output
+ if _L1[71].tag == "NONE" then
+ _L1[72] = _L1[1].bibtex_or_biber
+ _L1[73] = _L1[1].change_directory
+ _L1[74] = _L1[1].check_driver
+ _L1[75] = _L1[1].color
+ _L1[76] = _L1[1].config_file
+ _L1[77] = _L1[1].dvipdfmx_extraoptions
+ _L1[78] = _L1[1].engine
+ _L1[79] = _L1[1].engine_executable
+ _L1[80] = _L1[1].file_line_error
+ _L1[81] = _L1[1].fmt
+ _L1[82] = _L1[1].fresh
+ _L1[83] = _L1[1].halt_on_error
+ _L1[84] = _L1[1].includeonly
+ _L1[85] = _L1[1].interaction
+ _L1[86] = _L1[1].jobname
+ _L1[87] = _L1[1].make_depends
+ _L1[88] = _L1[1].makeglossaries
+ _L1[89] = _L1[1].makeindex
+ _L1[90] = _L1[1].max_iterations
+ _L1[91] = _L1[1].output_directory
+ _L1[92] = _L1[1].output_format
+ _L1[93] = _L1[1].package_support
+ _L1[94] = _L1[1].print_output_directory
+ _L1[95] = _L1[1].shell_escape
+ _L1[96] = _L1[1].source_date_epoch
+ _L1[97] = _L1[1].start_with_draft
+ _L1[98] = _L1[1].synctex
+ _L1[99] = _L1[1].tex_extraoptions
+ _L1[100] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[72], change_directory = _L1[73], check_driver = _L1[74], color = _L1[75], config_file = _L1[76], dvipdfmx_extraoptions = _L1[77], engine = _L1[78], engine_executable = _L1[79], file_line_error = _L1[80], fmt = _L1[81], fresh = _L1[82], halt_on_error = _L1[83], includeonly = _L1[84], interaction = _L1[85], jobname = _L1[86], make_depends = _L1[87], makeglossaries = _L1[88], makeindex = _L1[89], max_iterations = _L1[90], output = {tag = "SOME", payload = _L1[69]}, output_directory = _L1[91], output_format = _L1[92], package_support = _L1[93], print_output_directory = _L1[94], shell_escape = _L1[95], source_date_epoch = _L1[96], start_with_draft = _L1[97], synctex = _L1[98], tex_extraoptions = _L1[99], watch = _L1[100]}
+ _L[537] = _L1[70]
+ goto cont18
+ end
+ if _L1[71].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:176:46")
+ end
+ _L[124]({_L[118], "multiple --output options\n"})
+ tmp15(1, true)
+ end
+ ::else4::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_FRESH" then
+ else
+ goto else5
+ end
+ do
+ _L1[101] = _L1[3].payload[2]
+ _L1[102] = _L1[1].fresh
+ if not _L1[102] then
+ _L1[103] = _L1[1].bibtex_or_biber
+ _L1[104] = _L1[1].change_directory
+ _L1[105] = _L1[1].check_driver
+ _L1[106] = _L1[1].color
+ _L1[107] = _L1[1].config_file
+ _L1[108] = _L1[1].dvipdfmx_extraoptions
+ _L1[109] = _L1[1].engine
+ _L1[110] = _L1[1].engine_executable
+ _L1[111] = _L1[1].file_line_error
+ _L1[112] = _L1[1].fmt
+ _L1[113] = _L1[1].halt_on_error
+ _L1[114] = _L1[1].includeonly
+ _L1[115] = _L1[1].interaction
+ _L1[116] = _L1[1].jobname
+ _L1[117] = _L1[1].make_depends
+ _L1[118] = _L1[1].makeglossaries
+ _L1[119] = _L1[1].makeindex
+ _L1[120] = _L1[1].max_iterations
+ _L1[121] = _L1[1].output
+ _L1[122] = _L1[1].output_directory
+ _L1[123] = _L1[1].output_format
+ _L1[124] = _L1[1].package_support
+ _L1[125] = _L1[1].print_output_directory
+ _L1[126] = _L1[1].shell_escape
+ _L1[127] = _L1[1].source_date_epoch
+ _L1[128] = _L1[1].start_with_draft
+ _L1[129] = _L1[1].synctex
+ _L1[130] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[103], change_directory = _L1[104], check_driver = _L1[105], color = _L1[106], config_file = _L1[107], dvipdfmx_extraoptions = _L1[108], engine = _L1[109], engine_executable = _L1[110], file_line_error = _L1[111], fmt = _L1[112], fresh = true, halt_on_error = _L1[113], includeonly = _L1[114], interaction = _L1[115], jobname = _L1[116], make_depends = _L1[117], makeglossaries = _L1[118], makeindex = _L1[119], max_iterations = _L1[120], output = _L1[121], output_directory = _L1[122], output_format = _L1[123], package_support = _L1[124], print_output_directory = _L1[125], shell_escape = _L1[126], source_date_epoch = _L1[127], start_with_draft = _L1[128], synctex = _L1[129], tex_extraoptions = _L1[130], watch = _L1[1].watch}
+ _L[537] = _L1[101]
+ goto cont18
+ end
+ if _L1[102] then
+ else
+ _raise(_Match, "handle-options.sml:180:38")
+ end
+ _L[124]({_L[118], "multiple --fresh options\n"})
+ tmp15(1, true)
+ end
+ ::else5::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_MAX_ITERATIONS" then
+ else
+ goto else6
+ end
+ do
+ _L1[131] = _L1[3].payload[1].payload
+ _L1[132] = _L1[3].payload[2]
+ _L1[133] = _L1[1].max_iterations
+ if _L1[133].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ do
+ _L1[135] = scanString(function(a)
+ return function(a1)
+ local strm
+ do
+ local strm1 = _L[3](a, a1)
+ local exp = _L[7](a, strm1)
+ local isNegative = exp[1]
+ strm = exp[2]
+ if isNegative then
+ else
+ goto else1
+ end
+ do
+ local exp1 = a(strm)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:43:25")
+ end
+ do
+ local c = exp1.payload[1]
+ local strm_PRIME = exp1.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local tmp54, tmp55
+ do
+ local tmp56 = _L[6](c)
+ local tmp57 = _Int_negate(tmp56)
+ tmp55, tmp54 = tmp57, strm_PRIME
+ end
+ ::cont::
+ do
+ local x, strm2 = tmp55, tmp54
+ local exp2 = a(strm2)
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ return {tag = "SOME", payload = {x, strm2}}
+ else
+ _raise(_Match, "scan-num.sml:37:35")
+ end
+ do
+ local c1 = exp2.payload[1]
+ local strm_PRIME1 = exp2.payload[2]
+ if 48 <= c1 and c1 <= 57 then
+ else
+ return {tag = "SOME", payload = {x, strm2}}
+ end
+ do
+ local tmp56 = _Int_mul(10, x)
+ local tmp57 = _L[6](c1)
+ tmp55 = _Int_sub(tmp56, tmp57)
+ tmp54 = strm_PRIME1
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ ::else1::
+ local exp = a(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:29:25")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local tmp54, tmp55
+ do
+ local tmp56 = _L[6](c)
+ tmp55, tmp54 = tmp56, strm_PRIME
+ end
+ ::cont::
+ do
+ local x, strm1 = tmp55, tmp54
+ local exp1 = a(strm1)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return {tag = "SOME", payload = {x, strm1}}
+ else
+ _raise(_Match, "scan-num.sml:23:35")
+ end
+ do
+ local c1 = exp1.payload[1]
+ local strm_PRIME1 = exp1.payload[2]
+ if 48 <= c1 and c1 <= 57 then
+ else
+ return {tag = "SOME", payload = {x, strm1}}
+ end
+ do
+ local tmp56 = _Int_mul(10, x)
+ local tmp57 = _L[6](c1)
+ tmp55 = _Int_add(tmp56, tmp57)
+ tmp54 = strm_PRIME1
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ end
+ end)
+ _L1[134] = _L1[135](_L1[131])
+ end
+ if _L1[134].tag == "SOME" then
+ _L1[136] = _L1[134].payload
+ _L1[137] = _L1[1].bibtex_or_biber
+ _L1[138] = _L1[1].change_directory
+ _L1[139] = _L1[1].check_driver
+ _L1[140] = _L1[1].color
+ _L1[141] = _L1[1].config_file
+ _L1[142] = _L1[1].dvipdfmx_extraoptions
+ _L1[143] = _L1[1].engine
+ _L1[144] = _L1[1].engine_executable
+ _L1[145] = _L1[1].file_line_error
+ _L1[146] = _L1[1].fmt
+ _L1[147] = _L1[1].fresh
+ _L1[148] = _L1[1].halt_on_error
+ _L1[149] = _L1[1].includeonly
+ _L1[150] = _L1[1].interaction
+ _L1[151] = _L1[1].jobname
+ _L1[152] = _L1[1].make_depends
+ _L1[153] = _L1[1].makeglossaries
+ _L1[154] = _L1[1].makeindex
+ _L1[155] = _L1[1].output
+ _L1[156] = _L1[1].output_directory
+ _L1[157] = _L1[1].output_format
+ _L1[158] = _L1[1].package_support
+ _L1[159] = _L1[1].print_output_directory
+ _L1[160] = _L1[1].shell_escape
+ _L1[161] = _L1[1].source_date_epoch
+ _L1[162] = _L1[1].start_with_draft
+ _L1[163] = _L1[1].synctex
+ _L1[164] = _L1[1].tex_extraoptions
+ _L1[165] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[137], change_directory = _L1[138], check_driver = _L1[139], color = _L1[140], config_file = _L1[141], dvipdfmx_extraoptions = _L1[142], engine = _L1[143], engine_executable = _L1[144], file_line_error = _L1[145], fmt = _L1[146], fresh = _L1[147], halt_on_error = _L1[148], includeonly = _L1[149], interaction = _L1[150], jobname = _L1[151], make_depends = _L1[152], makeglossaries = _L1[153], makeindex = _L1[154], max_iterations = {tag = "SOME", payload = _L1[136]}, output = _L1[155], output_directory = _L1[156], output_format = _L1[157], package_support = _L1[158], print_output_directory = _L1[159], shell_escape = _L1[160], source_date_epoch = _L1[161], start_with_draft = _L1[162], synctex = _L1[163], tex_extraoptions = _L1[164], watch = _L1[165]}
+ _L[537] = _L1[132]
+ goto cont18
+ end
+ if _L1[134].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:185:62")
+ end
+ _L[124]({_L[118], "invalid value for --max-iterations option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[133].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:184:49")
+ end
+ _L[124]({_L[118], "multiple --max-iterations options\n"})
+ tmp15(1, true)
+ end
+ ::else6::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_START_WITH_DRAFT" then
+ else
+ goto else7
+ end
+ do
+ _L1[166] = _L1[3].payload[2]
+ _L1[167] = _L1[1].start_with_draft
+ if not _L1[167] then
+ _L1[168] = _L1[1].bibtex_or_biber
+ _L1[169] = _L1[1].change_directory
+ _L1[170] = _L1[1].check_driver
+ _L1[171] = _L1[1].color
+ _L1[172] = _L1[1].config_file
+ _L1[173] = _L1[1].dvipdfmx_extraoptions
+ _L1[174] = _L1[1].engine
+ _L1[175] = _L1[1].engine_executable
+ _L1[176] = _L1[1].file_line_error
+ _L1[177] = _L1[1].fmt
+ _L1[178] = _L1[1].fresh
+ _L1[179] = _L1[1].halt_on_error
+ _L1[180] = _L1[1].includeonly
+ _L1[181] = _L1[1].interaction
+ _L1[182] = _L1[1].jobname
+ _L1[183] = _L1[1].make_depends
+ _L1[184] = _L1[1].makeglossaries
+ _L1[185] = _L1[1].makeindex
+ _L1[186] = _L1[1].max_iterations
+ _L1[187] = _L1[1].output
+ _L1[188] = _L1[1].output_directory
+ _L1[189] = _L1[1].output_format
+ _L1[190] = _L1[1].package_support
+ _L1[191] = _L1[1].print_output_directory
+ _L1[192] = _L1[1].shell_escape
+ _L1[193] = _L1[1].source_date_epoch
+ _L1[194] = _L1[1].synctex
+ _L1[195] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[168], change_directory = _L1[169], check_driver = _L1[170], color = _L1[171], config_file = _L1[172], dvipdfmx_extraoptions = _L1[173], engine = _L1[174], engine_executable = _L1[175], file_line_error = _L1[176], fmt = _L1[177], fresh = _L1[178], halt_on_error = _L1[179], includeonly = _L1[180], interaction = _L1[181], jobname = _L1[182], make_depends = _L1[183], makeglossaries = _L1[184], makeindex = _L1[185], max_iterations = _L1[186], output = _L1[187], output_directory = _L1[188], output_format = _L1[189], package_support = _L1[190], print_output_directory = _L1[191], shell_escape = _L1[192], source_date_epoch = _L1[193], start_with_draft = true, synctex = _L1[194], tex_extraoptions = _L1[195], watch = _L1[1].watch}
+ _L[537] = _L1[166]
+ goto cont18
+ end
+ if _L1[167] then
+ else
+ _raise(_Match, "handle-options.sml:191:49")
+ end
+ _L[124]({_L[118], "multiple --start-with-draft options\n"})
+ tmp15(1, true)
+ end
+ ::else7::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_WATCH" then
+ else
+ goto else8
+ end
+ do
+ _L1[196] = _L1[3].payload[1].payload
+ _L1[197] = _L1[3].payload[2]
+ _L1[198] = _L1[1].watch
+ if _L1[198].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ if _L1[196] == "fswatch" then
+ _L1[199] = {tag = "SOME", payload = _L[343]}
+ elseif _L1[196] == "inotifywait" then
+ _L1[199] = {tag = "SOME", payload = _L[344]}
+ elseif _L1[196] == "auto" then
+ _L1[199] = {tag = "SOME", payload = _L[345]}
+ else
+ _L1[199] = NONE
+ end
+ if _L1[199].tag == "SOME" then
+ _L1[200] = _L1[199].payload
+ _L1[201] = _L1[1].bibtex_or_biber
+ _L1[202] = _L1[1].change_directory
+ _L1[203] = _L1[1].check_driver
+ _L1[204] = _L1[1].color
+ _L1[205] = _L1[1].config_file
+ _L1[206] = _L1[1].dvipdfmx_extraoptions
+ _L1[207] = _L1[1].engine
+ _L1[208] = _L1[1].engine_executable
+ _L1[209] = _L1[1].file_line_error
+ _L1[210] = _L1[1].fmt
+ _L1[211] = _L1[1].fresh
+ _L1[212] = _L1[1].halt_on_error
+ _L1[213] = _L1[1].includeonly
+ _L1[214] = _L1[1].interaction
+ _L1[215] = _L1[1].jobname
+ _L1[216] = _L1[1].make_depends
+ _L1[217] = _L1[1].makeglossaries
+ _L1[218] = _L1[1].makeindex
+ _L1[219] = _L1[1].max_iterations
+ _L1[220] = _L1[1].output
+ _L1[221] = _L1[1].output_directory
+ _L1[222] = _L1[1].output_format
+ _L1[223] = _L1[1].package_support
+ _L1[224] = _L1[1].print_output_directory
+ _L1[225] = _L1[1].shell_escape
+ _L1[226] = _L1[1].source_date_epoch
+ _L1[227] = _L1[1].start_with_draft
+ _L1[228] = _L1[1].synctex
+ _L1[229] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[201], change_directory = _L1[202], check_driver = _L1[203], color = _L1[204], config_file = _L1[205], dvipdfmx_extraoptions = _L1[206], engine = _L1[207], engine_executable = _L1[208], file_line_error = _L1[209], fmt = _L1[210], fresh = _L1[211], halt_on_error = _L1[212], includeonly = _L1[213], interaction = _L1[214], jobname = _L1[215], make_depends = _L1[216], makeglossaries = _L1[217], makeindex = _L1[218], max_iterations = _L1[219], output = _L1[220], output_directory = _L1[221], output_format = _L1[222], package_support = _L1[223], print_output_directory = _L1[224], shell_escape = _L1[225], source_date_epoch = _L1[226], start_with_draft = _L1[227], synctex = _L1[228], tex_extraoptions = _L1[229], watch = {tag = "SOME", payload = _L1[200]}}
+ _L[537] = _L1[197]
+ goto cont18
+ end
+ if _L1[199].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:196:58")
+ end
+ _L[124]({_L[118], "invalid value for --watch option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[198].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:195:45")
+ end
+ _L[124]({_L[118], "multiple --watch options\n"})
+ tmp15(1, true)
+ end
+ ::else8::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_HELP" then
+ else
+ goto else9
+ end
+ _L[535] = _L[373]()
+ goto cont5
+ ::else9::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_VERSION" then
+ else
+ goto else10
+ end
+ _L[124]({_L[118], "cluttex v0.7.0\n"})
+ tmp15(0, true)
+ ::else10::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_VERBOSE" then
+ _L1[230] = _L1[3].payload[2]
+ _ENV.CLUTTEX_VERBOSITY = _ENV.CLUTTEX_VERBOSITY + 1
+ _L[536] = _L1[1]
+ _L[537] = _L1[230]
+ goto cont18
+ end
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_COLOR" then
+ else
+ goto else11
+ end
+ do
+ _L1[231] = _L1[3].payload[1].payload
+ _L1[232] = _L1[3].payload[2]
+ _L1[233] = _L1[1].color
+ if _L1[233].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ if _L1[231] == "always" then
+ _L1[234] = {tag = "SOME", payload = _L[276]}
+ elseif _L1[231] == "auto" then
+ _L1[234] = {tag = "SOME", payload = _L[277]}
+ elseif _L1[231] == "never" then
+ _L1[234] = {tag = "SOME", payload = _L[278]}
+ else
+ _L1[234] = NONE
+ end
+ if _L1[234].tag == "SOME" then
+ else
+ goto else34
+ end
+ do
+ _L1[235] = _L1[234].payload
+ _L[280](_L1[235])
+ _L1[236] = _L1[1].bibtex_or_biber
+ _L1[237] = _L1[1].change_directory
+ _L1[238] = _L1[1].check_driver
+ _L1[239] = _L1[1].config_file
+ _L1[240] = _L1[1].dvipdfmx_extraoptions
+ _L1[241] = _L1[1].engine
+ _L1[242] = _L1[1].engine_executable
+ _L1[243] = _L1[1].file_line_error
+ _L1[244] = _L1[1].fmt
+ _L1[245] = _L1[1].fresh
+ _L1[246] = _L1[1].halt_on_error
+ _L1[247] = _L1[1].includeonly
+ _L1[248] = _L1[1].interaction
+ _L1[249] = _L1[1].jobname
+ _L1[250] = _L1[1].make_depends
+ _L1[251] = _L1[1].makeglossaries
+ _L1[252] = _L1[1].makeindex
+ _L1[253] = _L1[1].max_iterations
+ _L1[254] = _L1[1].output
+ _L1[255] = _L1[1].output_directory
+ _L1[256] = _L1[1].output_format
+ _L1[257] = _L1[1].package_support
+ _L1[258] = _L1[1].print_output_directory
+ _L1[259] = _L1[1].shell_escape
+ _L1[260] = _L1[1].source_date_epoch
+ _L1[261] = _L1[1].start_with_draft
+ _L1[262] = _L1[1].synctex
+ _L1[263] = _L1[1].tex_extraoptions
+ _L1[264] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[236], change_directory = _L1[237], check_driver = _L1[238], color = {tag = "SOME", payload = _L1[235]}, config_file = _L1[239], dvipdfmx_extraoptions = _L1[240], engine = _L1[241], engine_executable = _L1[242], file_line_error = _L1[243], fmt = _L1[244], fresh = _L1[245], halt_on_error = _L1[246], includeonly = _L1[247], interaction = _L1[248], jobname = _L1[249], make_depends = _L1[250], makeglossaries = _L1[251], makeindex = _L1[252], max_iterations = _L1[253], output = _L1[254], output_directory = _L1[255], output_format = _L1[256], package_support = _L1[257], print_output_directory = _L1[258], shell_escape = _L1[259], source_date_epoch = _L1[260], start_with_draft = _L1[261], synctex = _L1[262], tex_extraoptions = _L1[263], watch = _L1[264]}
+ _L[537] = _L1[232]
+ goto cont18
+ end
+ ::else34::
+ if _L1[234].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:208:56")
+ end
+ _L[124]({_L[118], "invalid value for --color option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[233].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:207:43")
+ end
+ _L[124]({_L[118], "multiple --color options\n"})
+ tmp15(1, true)
+ end
+ ::else11::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_CHANGE_DIRECTORY" then
+ else
+ goto else12
+ end
+ do
+ _L1[265] = _L1[3].payload[1].payload
+ _L1[266] = _L1[3].payload[2]
+ _L1[267] = _L1[1].change_directory
+ if _L1[267].tag == "NONE" then
+ _L1[268] = _L1[1].bibtex_or_biber
+ _L1[269] = _L1[1].check_driver
+ _L1[270] = _L1[1].color
+ _L1[271] = _L1[1].config_file
+ _L1[272] = _L1[1].dvipdfmx_extraoptions
+ _L1[273] = _L1[1].engine
+ _L1[274] = _L1[1].engine_executable
+ _L1[275] = _L1[1].file_line_error
+ _L1[276] = _L1[1].fmt
+ _L1[277] = _L1[1].fresh
+ _L1[278] = _L1[1].halt_on_error
+ _L1[279] = _L1[1].includeonly
+ _L1[280] = _L1[1].interaction
+ _L1[281] = _L1[1].jobname
+ _L1[282] = _L1[1].make_depends
+ _L1[283] = _L1[1].makeglossaries
+ _L1[284] = _L1[1].makeindex
+ _L1[285] = _L1[1].max_iterations
+ _L1[286] = _L1[1].output
+ _L1[287] = _L1[1].output_directory
+ _L1[288] = _L1[1].output_format
+ _L1[289] = _L1[1].package_support
+ _L1[290] = _L1[1].print_output_directory
+ _L1[291] = _L1[1].shell_escape
+ _L1[292] = _L1[1].source_date_epoch
+ _L1[293] = _L1[1].start_with_draft
+ _L1[294] = _L1[1].synctex
+ _L1[295] = _L1[1].tex_extraoptions
+ _L1[296] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[268], change_directory = {tag = "SOME", payload = _L1[265]}, check_driver = _L1[269], color = _L1[270], config_file = _L1[271], dvipdfmx_extraoptions = _L1[272], engine = _L1[273], engine_executable = _L1[274], file_line_error = _L1[275], fmt = _L1[276], fresh = _L1[277], halt_on_error = _L1[278], includeonly = _L1[279], interaction = _L1[280], jobname = _L1[281], make_depends = _L1[282], makeglossaries = _L1[283], makeindex = _L1[284], max_iterations = _L1[285], output = _L1[286], output_directory = _L1[287], output_format = _L1[288], package_support = _L1[289], print_output_directory = _L1[290], shell_escape = _L1[291], source_date_epoch = _L1[292], start_with_draft = _L1[293], synctex = _L1[294], tex_extraoptions = _L1[295], watch = _L1[296]}
+ _L[537] = _L1[266]
+ goto cont18
+ end
+ if _L1[267].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:216:51")
+ end
+ _L[124]({_L[118], "multiple --change-directory options\n"})
+ tmp15(1, true)
+ end
+ ::else12::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_INCLUDEONLY" then
+ else
+ goto else13
+ end
+ do
+ _L1[297] = _L1[3].payload[1].payload
+ _L1[298] = _L1[3].payload[2]
+ _L1[299] = _L1[1].includeonly
+ if _L1[299].tag == "NONE" then
+ _L1[300] = _L1[1].bibtex_or_biber
+ _L1[301] = _L1[1].change_directory
+ _L1[302] = _L1[1].check_driver
+ _L1[303] = _L1[1].color
+ _L1[304] = _L1[1].config_file
+ _L1[305] = _L1[1].dvipdfmx_extraoptions
+ _L1[306] = _L1[1].engine
+ _L1[307] = _L1[1].engine_executable
+ _L1[308] = _L1[1].file_line_error
+ _L1[309] = _L1[1].fmt
+ _L1[310] = _L1[1].fresh
+ _L1[311] = _L1[1].halt_on_error
+ _L1[312] = _L1[1].interaction
+ _L1[313] = _L1[1].jobname
+ _L1[314] = _L1[1].make_depends
+ _L1[315] = _L1[1].makeglossaries
+ _L1[316] = _L1[1].makeindex
+ _L1[317] = _L1[1].max_iterations
+ _L1[318] = _L1[1].output
+ _L1[319] = _L1[1].output_directory
+ _L1[320] = _L1[1].output_format
+ _L1[321] = _L1[1].package_support
+ _L1[322] = _L1[1].print_output_directory
+ _L1[323] = _L1[1].shell_escape
+ _L1[324] = _L1[1].source_date_epoch
+ _L1[325] = _L1[1].start_with_draft
+ _L1[326] = _L1[1].synctex
+ _L1[327] = _L1[1].tex_extraoptions
+ _L1[328] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[300], change_directory = _L1[301], check_driver = _L1[302], color = _L1[303], config_file = _L1[304], dvipdfmx_extraoptions = _L1[305], engine = _L1[306], engine_executable = _L1[307], file_line_error = _L1[308], fmt = _L1[309], fresh = _L1[310], halt_on_error = _L1[311], includeonly = {tag = "SOME", payload = _L1[297]}, interaction = _L1[312], jobname = _L1[313], make_depends = _L1[314], makeglossaries = _L1[315], makeindex = _L1[316], max_iterations = _L1[317], output = _L1[318], output_directory = _L1[319], output_format = _L1[320], package_support = _L1[321], print_output_directory = _L1[322], shell_escape = _L1[323], source_date_epoch = _L1[324], start_with_draft = _L1[325], synctex = _L1[326], tex_extraoptions = _L1[327], watch = _L1[328]}
+ _L[537] = _L1[298]
+ goto cont18
+ end
+ if _L1[299].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:220:46")
+ end
+ _L[124]({_L[118], "multiple --includeonly options\n"})
+ tmp15(1, true)
+ end
+ ::else13::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_MAKE_DEPENDS" then
+ else
+ goto else14
+ end
+ do
+ _L1[329] = _L1[3].payload[1].payload
+ _L1[330] = _L1[3].payload[2]
+ _L1[331] = _L1[1].make_depends
+ if _L1[331].tag == "NONE" then
+ _L1[332] = _L1[1].bibtex_or_biber
+ _L1[333] = _L1[1].change_directory
+ _L1[334] = _L1[1].check_driver
+ _L1[335] = _L1[1].color
+ _L1[336] = _L1[1].config_file
+ _L1[337] = _L1[1].dvipdfmx_extraoptions
+ _L1[338] = _L1[1].engine
+ _L1[339] = _L1[1].engine_executable
+ _L1[340] = _L1[1].file_line_error
+ _L1[341] = _L1[1].fmt
+ _L1[342] = _L1[1].fresh
+ _L1[343] = _L1[1].halt_on_error
+ _L1[344] = _L1[1].includeonly
+ _L1[345] = _L1[1].interaction
+ _L1[346] = _L1[1].jobname
+ _L1[347] = _L1[1].makeglossaries
+ _L1[348] = _L1[1].makeindex
+ _L1[349] = _L1[1].max_iterations
+ _L1[350] = _L1[1].output
+ _L1[351] = _L1[1].output_directory
+ _L1[352] = _L1[1].output_format
+ _L1[353] = _L1[1].package_support
+ _L1[354] = _L1[1].print_output_directory
+ _L1[355] = _L1[1].shell_escape
+ _L1[356] = _L1[1].source_date_epoch
+ _L1[357] = _L1[1].start_with_draft
+ _L1[358] = _L1[1].synctex
+ _L1[359] = _L1[1].tex_extraoptions
+ _L1[360] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[332], change_directory = _L1[333], check_driver = _L1[334], color = _L1[335], config_file = _L1[336], dvipdfmx_extraoptions = _L1[337], engine = _L1[338], engine_executable = _L1[339], file_line_error = _L1[340], fmt = _L1[341], fresh = _L1[342], halt_on_error = _L1[343], includeonly = _L1[344], interaction = _L1[345], jobname = _L1[346], make_depends = {tag = "SOME", payload = _L1[329]}, makeglossaries = _L1[347], makeindex = _L1[348], max_iterations = _L1[349], output = _L1[350], output_directory = _L1[351], output_format = _L1[352], package_support = _L1[353], print_output_directory = _L1[354], shell_escape = _L1[355], source_date_epoch = _L1[356], start_with_draft = _L1[357], synctex = _L1[358], tex_extraoptions = _L1[359], watch = _L1[360]}
+ _L[537] = _L1[330]
+ goto cont18
+ end
+ if _L1[331].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:224:47")
+ end
+ _L[124]({_L[118], "multiple --make-depends options\n"})
+ tmp15(1, true)
+ end
+ ::else14::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_PRINT_OUTPUT_DIRECTORY" then
+ else
+ goto else15
+ end
+ do
+ _L1[361] = _L1[3].payload[2]
+ _L1[362] = _L1[1].print_output_directory
+ if not _L1[362] then
+ _L1[363] = _L1[1].bibtex_or_biber
+ _L1[364] = _L1[1].change_directory
+ _L1[365] = _L1[1].check_driver
+ _L1[366] = _L1[1].color
+ _L1[367] = _L1[1].config_file
+ _L1[368] = _L1[1].dvipdfmx_extraoptions
+ _L1[369] = _L1[1].engine
+ _L1[370] = _L1[1].engine_executable
+ _L1[371] = _L1[1].file_line_error
+ _L1[372] = _L1[1].fmt
+ _L1[373] = _L1[1].fresh
+ _L1[374] = _L1[1].halt_on_error
+ _L1[375] = _L1[1].includeonly
+ _L1[376] = _L1[1].interaction
+ _L1[377] = _L1[1].jobname
+ _L1[378] = _L1[1].make_depends
+ _L1[379] = _L1[1].makeglossaries
+ _L1[380] = _L1[1].makeindex
+ _L1[381] = _L1[1].max_iterations
+ _L1[382] = _L1[1].output
+ _L1[383] = _L1[1].output_directory
+ _L1[384] = _L1[1].output_format
+ _L1[385] = _L1[1].package_support
+ _L1[386] = _L1[1].shell_escape
+ _L1[387] = _L1[1].source_date_epoch
+ _L1[388] = _L1[1].start_with_draft
+ _L1[389] = _L1[1].synctex
+ _L1[390] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[363], change_directory = _L1[364], check_driver = _L1[365], color = _L1[366], config_file = _L1[367], dvipdfmx_extraoptions = _L1[368], engine = _L1[369], engine_executable = _L1[370], file_line_error = _L1[371], fmt = _L1[372], fresh = _L1[373], halt_on_error = _L1[374], includeonly = _L1[375], interaction = _L1[376], jobname = _L1[377], make_depends = _L1[378], makeglossaries = _L1[379], makeindex = _L1[380], max_iterations = _L1[381], output = _L1[382], output_directory = _L1[383], output_format = _L1[384], package_support = _L1[385], print_output_directory = true, shell_escape = _L1[386], source_date_epoch = _L1[387], start_with_draft = _L1[388], synctex = _L1[389], tex_extraoptions = _L1[390], watch = _L1[1].watch}
+ _L[537] = _L1[361]
+ goto cont18
+ end
+ if _L1[362] then
+ else
+ _raise(_Match, "handle-options.sml:228:55")
+ end
+ _L[124]({_L[118], "multiple --print-output-directory options\n"})
+ tmp15(1, true)
+ end
+ ::else15::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_PACKAGE_SUPPORT" then
+ else
+ goto else16
+ end
+ do
+ _L1[391] = _L1[3].payload[1].payload
+ _L1[392] = _L1[3].payload[2]
+ do
+ do
+ _L1[395] = foldr(_COLON_COLON, nil)
+ _L1[396] = #_L1[391]
+ _L1[397] = _VectorOrArray_tabulate({_L1[396], function(i)
+ return sub1({_L1[391], i})
+ end})
+ _L1[394] = _L1[395](_L1[397])
+ end
+ _L1[398], _L1[399], _L1[400] = nil, nil, _L1[394]
+ ::cont21::
+ do
+ local _L2 = {}
+ _L2[1], _L2[2], _L2[3] = _L1[398], _L1[399], _L1[400]
+ if _L2[3] == nil then
+ else
+ goto else33
+ end
+ do
+ if _L2[2] == nil then
+ else
+ goto else34
+ end
+ _L1[393] = revAppend(_L2[1], nil)
+ goto cont20
+ ::else34::
+ _L2[4] = implodeRev(_L2[2])
+ _L1[393] = revAppend({_L2[4], _L2[1]}, nil)
+ goto cont20
+ end
+ ::else33::
+ if _L2[3] ~= nil then
+ else
+ _raise(_Match, "string-1.sml:73:26")
+ end
+ do
+ _L2[5] = _L2[3][1]
+ _L2[6] = _L2[3][2]
+ if _L2[5] == 44 then
+ _L2[7] = true
+ else
+ _L2[7] = isSpace(_L2[5])
+ end
+ if _L2[7] then
+ else
+ _L1[398] = _L2[1]
+ _L1[399] = {_L2[5], _L2[2]}
+ _L1[400] = _L2[6]
+ goto cont21
+ end
+ do
+ if _L2[2] == nil then
+ _L1[398] = _L2[1]
+ _L1[399] = nil
+ _L1[400] = _L2[6]
+ goto cont21
+ end
+ _L2[8] = implodeRev(_L2[2])
+ _L1[398] = {_L2[8], _L2[1]}
+ _L1[399] = nil
+ _L1[400] = _L2[6]
+ goto cont21
+ end
+ end
+ end
+ end
+ ::cont20::
+ _L1[401] = foldl(function(a)
+ if a[1] == "minted" then
+ local ps = a[2]
+ return {epstopdf = ps.epstopdf, minted = true, pdfx = ps.pdfx}
+ end
+ if a[1] == "epstopdf" then
+ local ps = a[2]
+ return {epstopdf = true, minted = ps.minted, pdfx = ps.pdfx}
+ end
+ if a[1] == "pdfx" then
+ local ps = a[2]
+ return {epstopdf = ps.epstopdf, minted = ps.minted, pdfx = true}
+ end
+ local pkg = a[1]
+ local ps = a[2]
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ return ps
+ end
+ do
+ _L[302]("ClutTeX provides no special support for '" .. pkg .. "'.")
+ return ps
+ end
+ end)
+ _L1[402] = _L1[401](_L1[1].package_support)
+ _L1[403] = _L1[402](_L1[393])
+ _L1[404] = _L1[1].bibtex_or_biber
+ _L1[405] = _L1[1].change_directory
+ _L1[406] = _L1[1].check_driver
+ _L1[407] = _L1[1].color
+ _L1[408] = _L1[1].config_file
+ _L1[409] = _L1[1].dvipdfmx_extraoptions
+ _L1[410] = _L1[1].engine
+ _L1[411] = _L1[1].engine_executable
+ _L1[412] = _L1[1].file_line_error
+ _L1[413] = _L1[1].fmt
+ _L1[414] = _L1[1].fresh
+ _L1[415] = _L1[1].halt_on_error
+ _L1[416] = _L1[1].includeonly
+ _L1[417] = _L1[1].interaction
+ _L1[418] = _L1[1].jobname
+ _L1[419] = _L1[1].make_depends
+ _L1[420] = _L1[1].makeglossaries
+ _L1[421] = _L1[1].makeindex
+ _L1[422] = _L1[1].max_iterations
+ _L1[423] = _L1[1].output
+ _L1[424] = _L1[1].output_directory
+ _L1[425] = _L1[1].output_format
+ _L1[426] = _L1[1].print_output_directory
+ _L1[427] = _L1[1].shell_escape
+ _L1[428] = _L1[1].source_date_epoch
+ _L1[429] = _L1[1].start_with_draft
+ _L1[430] = _L1[1].synctex
+ _L1[431] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[404], change_directory = _L1[405], check_driver = _L1[406], color = _L1[407], config_file = _L1[408], dvipdfmx_extraoptions = _L1[409], engine = _L1[410], engine_executable = _L1[411], file_line_error = _L1[412], fmt = _L1[413], fresh = _L1[414], halt_on_error = _L1[415], includeonly = _L1[416], interaction = _L1[417], jobname = _L1[418], make_depends = _L1[419], makeglossaries = _L1[420], makeindex = _L1[421], max_iterations = _L1[422], output = _L1[423], output_directory = _L1[424], output_format = _L1[425], package_support = _L1[403], print_output_directory = _L1[426], shell_escape = _L1[427], source_date_epoch = _L1[428], start_with_draft = _L1[429], synctex = _L1[430], tex_extraoptions = _L1[431], watch = _L1[1].watch}
+ _L[537] = _L1[392]
+ goto cont18
+ end
+ ::else16::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_CHECK_DRIVER" then
+ else
+ goto else17
+ end
+ do
+ _L1[432] = _L1[3].payload[1].payload
+ _L1[433] = _L1[3].payload[2]
+ _L1[434] = _L1[1].check_driver
+ if _L1[434].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ if _L1[432] == "dvipdfmx" then
+ _L1[435] = {tag = "SOME", payload = _L[340]}
+ elseif _L1[432] == "dvips" then
+ _L1[435] = {tag = "SOME", payload = _L[341]}
+ elseif _L1[432] == "dvisvgm" then
+ _L1[435] = {tag = "SOME", payload = _L[342]}
+ else
+ _L1[435] = NONE
+ end
+ if _L1[435].tag == "SOME" then
+ _L1[436] = _L1[435].payload
+ _L1[437] = _L1[1].bibtex_or_biber
+ _L1[438] = _L1[1].change_directory
+ _L1[439] = _L1[1].color
+ _L1[440] = _L1[1].config_file
+ _L1[441] = _L1[1].dvipdfmx_extraoptions
+ _L1[442] = _L1[1].engine
+ _L1[443] = _L1[1].engine_executable
+ _L1[444] = _L1[1].file_line_error
+ _L1[445] = _L1[1].fmt
+ _L1[446] = _L1[1].fresh
+ _L1[447] = _L1[1].halt_on_error
+ _L1[448] = _L1[1].includeonly
+ _L1[449] = _L1[1].interaction
+ _L1[450] = _L1[1].jobname
+ _L1[451] = _L1[1].make_depends
+ _L1[452] = _L1[1].makeglossaries
+ _L1[453] = _L1[1].makeindex
+ _L1[454] = _L1[1].max_iterations
+ _L1[455] = _L1[1].output
+ _L1[456] = _L1[1].output_directory
+ _L1[457] = _L1[1].output_format
+ _L1[458] = _L1[1].package_support
+ _L1[459] = _L1[1].print_output_directory
+ _L1[460] = _L1[1].shell_escape
+ _L1[461] = _L1[1].source_date_epoch
+ _L1[462] = _L1[1].start_with_draft
+ _L1[463] = _L1[1].synctex
+ _L1[464] = _L1[1].tex_extraoptions
+ _L1[465] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[437], change_directory = _L1[438], check_driver = {tag = "SOME", payload = _L1[436]}, color = _L1[439], config_file = _L1[440], dvipdfmx_extraoptions = _L1[441], engine = _L1[442], engine_executable = _L1[443], file_line_error = _L1[444], fmt = _L1[445], fresh = _L1[446], halt_on_error = _L1[447], includeonly = _L1[448], interaction = _L1[449], jobname = _L1[450], make_depends = _L1[451], makeglossaries = _L1[452], makeindex = _L1[453], max_iterations = _L1[454], output = _L1[455], output_directory = _L1[456], output_format = _L1[457], package_support = _L1[458], print_output_directory = _L1[459], shell_escape = _L1[460], source_date_epoch = _L1[461], start_with_draft = _L1[462], synctex = _L1[463], tex_extraoptions = _L1[464], watch = _L1[465]}
+ _L[537] = _L1[433]
+ goto cont18
+ end
+ if _L1[435].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:246:65")
+ end
+ _L[124]({_L[118], "invalid value for --check-driver option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[434].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:245:52")
+ end
+ _L[124]({_L[118], "multiple --check-driver options\n"})
+ tmp15(1, true)
+ end
+ ::else17::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_SOURCE_DATE_EPOCH" then
+ else
+ goto else18
+ end
+ do
+ _L1[466] = _L1[3].payload[1].payload
+ _L1[467] = _L1[3].payload[2]
+ _L1[468] = _L1[1].source_date_epoch
+ if _L1[468].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ do
+ if _L1[466] == "now" then
+ _L1[469] = {tag = "SOME", payload = _L[347]}
+ goto cont20
+ end
+ do
+ if #_L1[466] > 0 then
+ else
+ _L1[470] = false
+ goto cont21
+ end
+ do
+ _L1[471] = tmp32(isDigit)
+ _L1[470] = _L1[471](_L1[466])
+ end
+ end
+ ::cont21::
+ if _L1[470] then
+ _L1[469] = {tag = "SOME", payload = {tag = "RAW", payload = _L1[466]}}
+ else
+ _L1[469] = NONE
+ end
+ end
+ ::cont20::
+ if _L1[469].tag == "SOME" then
+ _L1[472] = _L1[469].payload
+ _L1[473] = _L1[1].bibtex_or_biber
+ _L1[474] = _L1[1].change_directory
+ _L1[475] = _L1[1].check_driver
+ _L1[476] = _L1[1].color
+ _L1[477] = _L1[1].config_file
+ _L1[478] = _L1[1].dvipdfmx_extraoptions
+ _L1[479] = _L1[1].engine
+ _L1[480] = _L1[1].engine_executable
+ _L1[481] = _L1[1].file_line_error
+ _L1[482] = _L1[1].fmt
+ _L1[483] = _L1[1].fresh
+ _L1[484] = _L1[1].halt_on_error
+ _L1[485] = _L1[1].includeonly
+ _L1[486] = _L1[1].interaction
+ _L1[487] = _L1[1].jobname
+ _L1[488] = _L1[1].make_depends
+ _L1[489] = _L1[1].makeglossaries
+ _L1[490] = _L1[1].makeindex
+ _L1[491] = _L1[1].max_iterations
+ _L1[492] = _L1[1].output
+ _L1[493] = _L1[1].output_directory
+ _L1[494] = _L1[1].output_format
+ _L1[495] = _L1[1].package_support
+ _L1[496] = _L1[1].print_output_directory
+ _L1[497] = _L1[1].shell_escape
+ _L1[498] = _L1[1].start_with_draft
+ _L1[499] = _L1[1].synctex
+ _L1[500] = _L1[1].tex_extraoptions
+ _L1[501] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[473], change_directory = _L1[474], check_driver = _L1[475], color = _L1[476], config_file = _L1[477], dvipdfmx_extraoptions = _L1[478], engine = _L1[479], engine_executable = _L1[480], file_line_error = _L1[481], fmt = _L1[482], fresh = _L1[483], halt_on_error = _L1[484], includeonly = _L1[485], interaction = _L1[486], jobname = _L1[487], make_depends = _L1[488], makeglossaries = _L1[489], makeindex = _L1[490], max_iterations = _L1[491], output = _L1[492], output_directory = _L1[493], output_format = _L1[494], package_support = _L1[495], print_output_directory = _L1[496], shell_escape = _L1[497], source_date_epoch = {tag = "SOME", payload = _L1[472]}, start_with_draft = _L1[498], synctex = _L1[499], tex_extraoptions = _L1[500], watch = _L1[501]}
+ _L[537] = _L1[467]
+ goto cont18
+ end
+ if _L1[469].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:253:68")
+ end
+ _L[124]({_L[118], "invalid value for --source-date-epoch option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[468].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:252:55")
+ end
+ _L[124]({_L[118], "multiple --source-date-epoch options\n"})
+ tmp15(1, true)
+ end
+ ::else18::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_SYNCTEX" then
+ else
+ goto else19
+ end
+ do
+ _L1[502] = _L1[3].payload[1].payload
+ _L1[503] = _L1[3].payload[2]
+ _L1[504] = _L1[1].synctex
+ if _L1[504].tag == "NONE" then
+ _L1[505] = _L1[1].bibtex_or_biber
+ _L1[506] = _L1[1].change_directory
+ _L1[507] = _L1[1].check_driver
+ _L1[508] = _L1[1].color
+ _L1[509] = _L1[1].config_file
+ _L1[510] = _L1[1].dvipdfmx_extraoptions
+ _L1[511] = _L1[1].engine
+ _L1[512] = _L1[1].engine_executable
+ _L1[513] = _L1[1].file_line_error
+ _L1[514] = _L1[1].fmt
+ _L1[515] = _L1[1].fresh
+ _L1[516] = _L1[1].halt_on_error
+ _L1[517] = _L1[1].includeonly
+ _L1[518] = _L1[1].interaction
+ _L1[519] = _L1[1].jobname
+ _L1[520] = _L1[1].make_depends
+ _L1[521] = _L1[1].makeglossaries
+ _L1[522] = _L1[1].makeindex
+ _L1[523] = _L1[1].max_iterations
+ _L1[524] = _L1[1].output
+ _L1[525] = _L1[1].output_directory
+ _L1[526] = _L1[1].output_format
+ _L1[527] = _L1[1].package_support
+ _L1[528] = _L1[1].print_output_directory
+ _L1[529] = _L1[1].shell_escape
+ _L1[530] = _L1[1].source_date_epoch
+ _L1[531] = _L1[1].start_with_draft
+ _L1[532] = _L1[1].tex_extraoptions
+ _L1[533] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[505], change_directory = _L1[506], check_driver = _L1[507], color = _L1[508], config_file = _L1[509], dvipdfmx_extraoptions = _L1[510], engine = _L1[511], engine_executable = _L1[512], file_line_error = _L1[513], fmt = _L1[514], fresh = _L1[515], halt_on_error = _L1[516], includeonly = _L1[517], interaction = _L1[518], jobname = _L1[519], make_depends = _L1[520], makeglossaries = _L1[521], makeindex = _L1[522], max_iterations = _L1[523], output = _L1[524], output_directory = _L1[525], output_format = _L1[526], package_support = _L1[527], print_output_directory = _L1[528], shell_escape = _L1[529], source_date_epoch = _L1[530], start_with_draft = _L1[531], synctex = {tag = "SOME", payload = _L1[502]}, tex_extraoptions = _L1[532], watch = _L1[533]}
+ _L[537] = _L1[503]
+ goto cont18
+ end
+ if _L1[504].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:259:42")
+ end
+ _L[124]({_L[118], "multiple --synctex options\n"})
+ tmp15(1, true)
+ end
+ ::else19::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_FILE_LINE_ERROR" then
+ _L1[534] = _L1[3].payload[1].payload
+ _L1[535] = _L1[3].payload[2]
+ _L1[536] = _L1[1].bibtex_or_biber
+ _L1[537] = _L1[1].change_directory
+ _L1[538] = _L1[1].check_driver
+ _L1[539] = _L1[1].color
+ _L1[540] = _L1[1].config_file
+ _L1[541] = _L1[1].dvipdfmx_extraoptions
+ _L1[542] = _L1[1].engine
+ _L1[543] = _L1[1].engine_executable
+ _L1[544] = _L1[1].fmt
+ _L1[545] = _L1[1].fresh
+ _L1[546] = _L1[1].halt_on_error
+ _L1[547] = _L1[1].includeonly
+ _L1[548] = _L1[1].interaction
+ _L1[549] = _L1[1].jobname
+ _L1[550] = _L1[1].make_depends
+ _L1[551] = _L1[1].makeglossaries
+ _L1[552] = _L1[1].makeindex
+ _L1[553] = _L1[1].max_iterations
+ _L1[554] = _L1[1].output
+ _L1[555] = _L1[1].output_directory
+ _L1[556] = _L1[1].output_format
+ _L1[557] = _L1[1].package_support
+ _L1[558] = _L1[1].print_output_directory
+ _L1[559] = _L1[1].shell_escape
+ _L1[560] = _L1[1].source_date_epoch
+ _L1[561] = _L1[1].start_with_draft
+ _L1[562] = _L1[1].synctex
+ _L1[563] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[536], change_directory = _L1[537], check_driver = _L1[538], color = _L1[539], config_file = _L1[540], dvipdfmx_extraoptions = _L1[541], engine = _L1[542], engine_executable = _L1[543], file_line_error = _L1[534], fmt = _L1[544], fresh = _L1[545], halt_on_error = _L1[546], includeonly = _L1[547], interaction = _L1[548], jobname = _L1[549], make_depends = _L1[550], makeglossaries = _L1[551], makeindex = _L1[552], max_iterations = _L1[553], output = _L1[554], output_directory = _L1[555], output_format = _L1[556], package_support = _L1[557], print_output_directory = _L1[558], shell_escape = _L1[559], source_date_epoch = _L1[560], start_with_draft = _L1[561], synctex = _L1[562], tex_extraoptions = _L1[563], watch = _L1[1].watch}
+ _L[537] = _L1[535]
+ goto cont18
+ end
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_INTERACTION" then
+ else
+ goto else20
+ end
+ do
+ _L1[564] = _L1[3].payload[1].payload
+ _L1[565] = _L1[3].payload[2]
+ _L1[566] = _L1[1].interaction
+ if _L1[566].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ if _L1[564] == "batchmode" then
+ _L1[567] = {tag = "SOME", payload = _L[222]}
+ elseif _L1[564] == "nonstopmode" then
+ _L1[567] = {tag = "SOME", payload = _L[223]}
+ elseif _L1[564] == "scrollmode" then
+ _L1[567] = {tag = "SOME", payload = _L[224]}
+ elseif _L1[564] == "errorstopmode" then
+ _L1[567] = {tag = "SOME", payload = _L[225]}
+ else
+ _L1[567] = NONE
+ end
+ if _L1[567].tag == "SOME" then
+ _L1[568] = _L1[567].payload
+ _L1[569] = _L1[1].bibtex_or_biber
+ _L1[570] = _L1[1].change_directory
+ _L1[571] = _L1[1].check_driver
+ _L1[572] = _L1[1].color
+ _L1[573] = _L1[1].config_file
+ _L1[574] = _L1[1].dvipdfmx_extraoptions
+ _L1[575] = _L1[1].engine
+ _L1[576] = _L1[1].engine_executable
+ _L1[577] = _L1[1].file_line_error
+ _L1[578] = _L1[1].fmt
+ _L1[579] = _L1[1].fresh
+ _L1[580] = _L1[1].halt_on_error
+ _L1[581] = _L1[1].includeonly
+ _L1[582] = _L1[1].jobname
+ _L1[583] = _L1[1].make_depends
+ _L1[584] = _L1[1].makeglossaries
+ _L1[585] = _L1[1].makeindex
+ _L1[586] = _L1[1].max_iterations
+ _L1[587] = _L1[1].output
+ _L1[588] = _L1[1].output_directory
+ _L1[589] = _L1[1].output_format
+ _L1[590] = _L1[1].package_support
+ _L1[591] = _L1[1].print_output_directory
+ _L1[592] = _L1[1].shell_escape
+ _L1[593] = _L1[1].source_date_epoch
+ _L1[594] = _L1[1].start_with_draft
+ _L1[595] = _L1[1].synctex
+ _L1[596] = _L1[1].tex_extraoptions
+ _L1[597] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[569], change_directory = _L1[570], check_driver = _L1[571], color = _L1[572], config_file = _L1[573], dvipdfmx_extraoptions = _L1[574], engine = _L1[575], engine_executable = _L1[576], file_line_error = _L1[577], fmt = _L1[578], fresh = _L1[579], halt_on_error = _L1[580], includeonly = _L1[581], interaction = {tag = "SOME", payload = _L1[568]}, jobname = _L1[582], make_depends = _L1[583], makeglossaries = _L1[584], makeindex = _L1[585], max_iterations = _L1[586], output = _L1[587], output_directory = _L1[588], output_format = _L1[589], package_support = _L1[590], print_output_directory = _L1[591], shell_escape = _L1[592], source_date_epoch = _L1[593], start_with_draft = _L1[594], synctex = _L1[595], tex_extraoptions = _L1[596], watch = _L1[597]}
+ _L[537] = _L1[565]
+ goto cont18
+ end
+ if _L1[567].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:265:59")
+ end
+ _L[124]({_L[118], "invalid argument for --interaction\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[566].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:264:46")
+ end
+ _L[124]({_L[118], "multiple --interaction options\n"})
+ tmp15(1, true)
+ end
+ ::else20::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_HALT_ON_ERROR" then
+ _L1[598] = _L1[3].payload[1].payload
+ _L1[599] = _L1[3].payload[2]
+ _L1[600] = _L1[1].bibtex_or_biber
+ _L1[601] = _L1[1].change_directory
+ _L1[602] = _L1[1].check_driver
+ _L1[603] = _L1[1].color
+ _L1[604] = _L1[1].config_file
+ _L1[605] = _L1[1].dvipdfmx_extraoptions
+ _L1[606] = _L1[1].engine
+ _L1[607] = _L1[1].engine_executable
+ _L1[608] = _L1[1].file_line_error
+ _L1[609] = _L1[1].fmt
+ _L1[610] = _L1[1].fresh
+ _L1[611] = _L1[1].includeonly
+ _L1[612] = _L1[1].interaction
+ _L1[613] = _L1[1].jobname
+ _L1[614] = _L1[1].make_depends
+ _L1[615] = _L1[1].makeglossaries
+ _L1[616] = _L1[1].makeindex
+ _L1[617] = _L1[1].max_iterations
+ _L1[618] = _L1[1].output
+ _L1[619] = _L1[1].output_directory
+ _L1[620] = _L1[1].output_format
+ _L1[621] = _L1[1].package_support
+ _L1[622] = _L1[1].print_output_directory
+ _L1[623] = _L1[1].shell_escape
+ _L1[624] = _L1[1].source_date_epoch
+ _L1[625] = _L1[1].start_with_draft
+ _L1[626] = _L1[1].synctex
+ _L1[627] = _L1[1].tex_extraoptions
+ _L[536] = {bibtex_or_biber = _L1[600], change_directory = _L1[601], check_driver = _L1[602], color = _L1[603], config_file = _L1[604], dvipdfmx_extraoptions = _L1[605], engine = _L1[606], engine_executable = _L1[607], file_line_error = _L1[608], fmt = _L1[609], fresh = _L1[610], halt_on_error = _L1[598], includeonly = _L1[611], interaction = _L1[612], jobname = _L1[613], make_depends = _L1[614], makeglossaries = _L1[615], makeindex = _L1[616], max_iterations = _L1[617], output = _L1[618], output_directory = _L1[619], output_format = _L1[620], package_support = _L1[621], print_output_directory = _L1[622], shell_escape = _L1[623], source_date_epoch = _L1[624], start_with_draft = _L1[625], synctex = _L1[626], tex_extraoptions = _L1[627], watch = _L1[1].watch}
+ _L[537] = _L1[599]
+ goto cont18
+ end
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_SHELL_ESCAPE" then
+ else
+ goto else21
+ end
+ do
+ _L1[628] = _L1[3].payload[1].payload
+ _L1[629] = _L1[3].payload[2]
+ _L1[630] = _L1[1].shell_escape
+ if _L1[630].tag == "NONE" then
+ _L1[631] = _L1[1].bibtex_or_biber
+ _L1[632] = _L1[1].change_directory
+ _L1[633] = _L1[1].check_driver
+ _L1[634] = _L1[1].color
+ _L1[635] = _L1[1].config_file
+ _L1[636] = _L1[1].dvipdfmx_extraoptions
+ _L1[637] = _L1[1].engine
+ _L1[638] = _L1[1].engine_executable
+ _L1[639] = _L1[1].file_line_error
+ _L1[640] = _L1[1].fmt
+ _L1[641] = _L1[1].fresh
+ _L1[642] = _L1[1].halt_on_error
+ _L1[643] = _L1[1].includeonly
+ _L1[644] = _L1[1].interaction
+ _L1[645] = _L1[1].jobname
+ _L1[646] = _L1[1].make_depends
+ _L1[647] = _L1[1].makeglossaries
+ _L1[648] = _L1[1].makeindex
+ _L1[649] = _L1[1].max_iterations
+ _L1[650] = _L1[1].output
+ _L1[651] = _L1[1].output_directory
+ _L1[652] = _L1[1].output_format
+ _L1[653] = _L1[1].package_support
+ _L1[654] = _L1[1].print_output_directory
+ _L1[655] = _L1[1].source_date_epoch
+ _L1[656] = _L1[1].start_with_draft
+ _L1[657] = _L1[1].synctex
+ _L1[658] = _L1[1].tex_extraoptions
+ _L1[659] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[631], change_directory = _L1[632], check_driver = _L1[633], color = _L1[634], config_file = _L1[635], dvipdfmx_extraoptions = _L1[636], engine = _L1[637], engine_executable = _L1[638], file_line_error = _L1[639], fmt = _L1[640], fresh = _L1[641], halt_on_error = _L1[642], includeonly = _L1[643], interaction = _L1[644], jobname = _L1[645], make_depends = _L1[646], makeglossaries = _L1[647], makeindex = _L1[648], max_iterations = _L1[649], output = _L1[650], output_directory = _L1[651], output_format = _L1[652], package_support = _L1[653], print_output_directory = _L1[654], shell_escape = {tag = "SOME", payload = _L1[628]}, source_date_epoch = _L1[655], start_with_draft = _L1[656], synctex = _L1[657], tex_extraoptions = _L1[658], watch = _L1[659]}
+ _L[537] = _L1[629]
+ goto cont18
+ end
+ if _L1[630].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:272:48")
+ end
+ _L[124]({_L[118], "multiple --(no-)shell-escape / --shell-restricted options\n"})
+ tmp15(1, true)
+ end
+ ::else21::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_JOBNAME" then
+ else
+ goto else22
+ end
+ do
+ _L1[660] = _L1[3].payload[1].payload
+ _L1[661] = _L1[3].payload[2]
+ _L1[662] = _L1[1].jobname
+ if _L1[662].tag == "NONE" then
+ _L1[663] = _L1[1].bibtex_or_biber
+ _L1[664] = _L1[1].change_directory
+ _L1[665] = _L1[1].check_driver
+ _L1[666] = _L1[1].color
+ _L1[667] = _L1[1].config_file
+ _L1[668] = _L1[1].dvipdfmx_extraoptions
+ _L1[669] = _L1[1].engine
+ _L1[670] = _L1[1].engine_executable
+ _L1[671] = _L1[1].file_line_error
+ _L1[672] = _L1[1].fmt
+ _L1[673] = _L1[1].fresh
+ _L1[674] = _L1[1].halt_on_error
+ _L1[675] = _L1[1].includeonly
+ _L1[676] = _L1[1].interaction
+ _L1[677] = _L1[1].make_depends
+ _L1[678] = _L1[1].makeglossaries
+ _L1[679] = _L1[1].makeindex
+ _L1[680] = _L1[1].max_iterations
+ _L1[681] = _L1[1].output
+ _L1[682] = _L1[1].output_directory
+ _L1[683] = _L1[1].output_format
+ _L1[684] = _L1[1].package_support
+ _L1[685] = _L1[1].print_output_directory
+ _L1[686] = _L1[1].shell_escape
+ _L1[687] = _L1[1].source_date_epoch
+ _L1[688] = _L1[1].start_with_draft
+ _L1[689] = _L1[1].synctex
+ _L1[690] = _L1[1].tex_extraoptions
+ _L1[691] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[663], change_directory = _L1[664], check_driver = _L1[665], color = _L1[666], config_file = _L1[667], dvipdfmx_extraoptions = _L1[668], engine = _L1[669], engine_executable = _L1[670], file_line_error = _L1[671], fmt = _L1[672], fresh = _L1[673], halt_on_error = _L1[674], includeonly = _L1[675], interaction = _L1[676], jobname = {tag = "SOME", payload = _L1[660]}, make_depends = _L1[677], makeglossaries = _L1[678], makeindex = _L1[679], max_iterations = _L1[680], output = _L1[681], output_directory = _L1[682], output_format = _L1[683], package_support = _L1[684], print_output_directory = _L1[685], shell_escape = _L1[686], source_date_epoch = _L1[687], start_with_draft = _L1[688], synctex = _L1[689], tex_extraoptions = _L1[690], watch = _L1[691]}
+ _L[537] = _L1[661]
+ goto cont18
+ end
+ if _L1[662].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:276:42")
+ end
+ _L[124]({_L[118], "multiple --jobname options\n"})
+ tmp15(1, true)
+ end
+ ::else22::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_FMT" then
+ else
+ goto else23
+ end
+ do
+ _L1[692] = _L1[3].payload[1].payload
+ _L1[693] = _L1[3].payload[2]
+ _L1[694] = _L1[1].fmt
+ if _L1[694].tag == "NONE" then
+ _L1[695] = _L1[1].bibtex_or_biber
+ _L1[696] = _L1[1].change_directory
+ _L1[697] = _L1[1].check_driver
+ _L1[698] = _L1[1].color
+ _L1[699] = _L1[1].config_file
+ _L1[700] = _L1[1].dvipdfmx_extraoptions
+ _L1[701] = _L1[1].engine
+ _L1[702] = _L1[1].engine_executable
+ _L1[703] = _L1[1].file_line_error
+ _L1[704] = _L1[1].fresh
+ _L1[705] = _L1[1].halt_on_error
+ _L1[706] = _L1[1].includeonly
+ _L1[707] = _L1[1].interaction
+ _L1[708] = _L1[1].jobname
+ _L1[709] = _L1[1].make_depends
+ _L1[710] = _L1[1].makeglossaries
+ _L1[711] = _L1[1].makeindex
+ _L1[712] = _L1[1].max_iterations
+ _L1[713] = _L1[1].output
+ _L1[714] = _L1[1].output_directory
+ _L1[715] = _L1[1].output_format
+ _L1[716] = _L1[1].package_support
+ _L1[717] = _L1[1].print_output_directory
+ _L1[718] = _L1[1].shell_escape
+ _L1[719] = _L1[1].source_date_epoch
+ _L1[720] = _L1[1].start_with_draft
+ _L1[721] = _L1[1].synctex
+ _L1[722] = _L1[1].tex_extraoptions
+ _L1[723] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[695], change_directory = _L1[696], check_driver = _L1[697], color = _L1[698], config_file = _L1[699], dvipdfmx_extraoptions = _L1[700], engine = _L1[701], engine_executable = _L1[702], file_line_error = _L1[703], fmt = {tag = "SOME", payload = _L1[692]}, fresh = _L1[704], halt_on_error = _L1[705], includeonly = _L1[706], interaction = _L1[707], jobname = _L1[708], make_depends = _L1[709], makeglossaries = _L1[710], makeindex = _L1[711], max_iterations = _L1[712], output = _L1[713], output_directory = _L1[714], output_format = _L1[715], package_support = _L1[716], print_output_directory = _L1[717], shell_escape = _L1[718], source_date_epoch = _L1[719], start_with_draft = _L1[720], synctex = _L1[721], tex_extraoptions = _L1[722], watch = _L1[723]}
+ _L[537] = _L1[693]
+ goto cont18
+ end
+ if _L1[694].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:280:38")
+ end
+ _L[124]({_L[118], "multiple --fmt options\n"})
+ tmp15(1, true)
+ end
+ ::else23::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_OUTPUT_DIRECTORY" then
+ else
+ goto else24
+ end
+ do
+ _L1[724] = _L1[3].payload[1].payload
+ _L1[725] = _L1[3].payload[2]
+ _L1[726] = _L1[1].output_directory
+ if _L1[726].tag == "NONE" then
+ _L1[727] = _L1[1].bibtex_or_biber
+ _L1[728] = _L1[1].change_directory
+ _L1[729] = _L1[1].check_driver
+ _L1[730] = _L1[1].color
+ _L1[731] = _L1[1].config_file
+ _L1[732] = _L1[1].dvipdfmx_extraoptions
+ _L1[733] = _L1[1].engine
+ _L1[734] = _L1[1].engine_executable
+ _L1[735] = _L1[1].file_line_error
+ _L1[736] = _L1[1].fmt
+ _L1[737] = _L1[1].fresh
+ _L1[738] = _L1[1].halt_on_error
+ _L1[739] = _L1[1].includeonly
+ _L1[740] = _L1[1].interaction
+ _L1[741] = _L1[1].jobname
+ _L1[742] = _L1[1].make_depends
+ _L1[743] = _L1[1].makeglossaries
+ _L1[744] = _L1[1].makeindex
+ _L1[745] = _L1[1].max_iterations
+ _L1[746] = _L1[1].output
+ _L1[747] = _L1[1].output_format
+ _L1[748] = _L1[1].package_support
+ _L1[749] = _L1[1].print_output_directory
+ _L1[750] = _L1[1].shell_escape
+ _L1[751] = _L1[1].source_date_epoch
+ _L1[752] = _L1[1].start_with_draft
+ _L1[753] = _L1[1].synctex
+ _L1[754] = _L1[1].tex_extraoptions
+ _L1[755] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[727], change_directory = _L1[728], check_driver = _L1[729], color = _L1[730], config_file = _L1[731], dvipdfmx_extraoptions = _L1[732], engine = _L1[733], engine_executable = _L1[734], file_line_error = _L1[735], fmt = _L1[736], fresh = _L1[737], halt_on_error = _L1[738], includeonly = _L1[739], interaction = _L1[740], jobname = _L1[741], make_depends = _L1[742], makeglossaries = _L1[743], makeindex = _L1[744], max_iterations = _L1[745], output = _L1[746], output_directory = {tag = "SOME", payload = _L1[724]}, output_format = _L1[747], package_support = _L1[748], print_output_directory = _L1[749], shell_escape = _L1[750], source_date_epoch = _L1[751], start_with_draft = _L1[752], synctex = _L1[753], tex_extraoptions = _L1[754], watch = _L1[755]}
+ _L[537] = _L1[725]
+ goto cont18
+ end
+ if _L1[726].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:284:51")
+ end
+ _L[124]({_L[118], "multiple --output-directory options\n"})
+ tmp15(1, true)
+ end
+ ::else24::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_OUTPUT_FORMAT" then
+ else
+ goto else25
+ end
+ do
+ _L1[756] = _L1[3].payload[1].payload
+ _L1[757] = _L1[3].payload[2]
+ _L1[758] = _L1[1].output_format
+ if _L1[758].tag == "NONE" then
+ else
+ goto else33
+ end
+ do
+ if _L1[756] == "pdf" then
+ _L1[759] = {tag = "SOME", payload = _L[230]}
+ elseif _L1[756] == "dvi" then
+ _L1[759] = {tag = "SOME", payload = _L[231]}
+ else
+ _L1[759] = NONE
+ end
+ if _L1[759].tag == "SOME" then
+ _L1[760] = _L1[759].payload
+ _L1[761] = _L1[1].bibtex_or_biber
+ _L1[762] = _L1[1].change_directory
+ _L1[763] = _L1[1].check_driver
+ _L1[764] = _L1[1].color
+ _L1[765] = _L1[1].config_file
+ _L1[766] = _L1[1].dvipdfmx_extraoptions
+ _L1[767] = _L1[1].engine
+ _L1[768] = _L1[1].engine_executable
+ _L1[769] = _L1[1].file_line_error
+ _L1[770] = _L1[1].fmt
+ _L1[771] = _L1[1].fresh
+ _L1[772] = _L1[1].halt_on_error
+ _L1[773] = _L1[1].includeonly
+ _L1[774] = _L1[1].interaction
+ _L1[775] = _L1[1].jobname
+ _L1[776] = _L1[1].make_depends
+ _L1[777] = _L1[1].makeglossaries
+ _L1[778] = _L1[1].makeindex
+ _L1[779] = _L1[1].max_iterations
+ _L1[780] = _L1[1].output
+ _L1[781] = _L1[1].output_directory
+ _L1[782] = _L1[1].package_support
+ _L1[783] = _L1[1].print_output_directory
+ _L1[784] = _L1[1].shell_escape
+ _L1[785] = _L1[1].source_date_epoch
+ _L1[786] = _L1[1].start_with_draft
+ _L1[787] = _L1[1].synctex
+ _L1[788] = _L1[1].tex_extraoptions
+ _L1[789] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[761], change_directory = _L1[762], check_driver = _L1[763], color = _L1[764], config_file = _L1[765], dvipdfmx_extraoptions = _L1[766], engine = _L1[767], engine_executable = _L1[768], file_line_error = _L1[769], fmt = _L1[770], fresh = _L1[771], halt_on_error = _L1[772], includeonly = _L1[773], interaction = _L1[774], jobname = _L1[775], make_depends = _L1[776], makeglossaries = _L1[777], makeindex = _L1[778], max_iterations = _L1[779], output = _L1[780], output_directory = _L1[781], output_format = {tag = "SOME", payload = _L1[760]}, package_support = _L1[782], print_output_directory = _L1[783], shell_escape = _L1[784], source_date_epoch = _L1[785], start_with_draft = _L1[786], synctex = _L1[787], tex_extraoptions = _L1[788], watch = _L1[789]}
+ _L[537] = _L1[757]
+ goto cont18
+ end
+ if _L1[759].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:289:66")
+ end
+ _L[124]({_L[118], "invalid value for --output-format option\n"})
+ tmp15(1, true)
+ end
+ ::else33::
+ if _L1[758].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:288:53")
+ end
+ _L[124]({_L[118], "multiple --output-format options\n"})
+ tmp15(1, true)
+ end
+ ::else25::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_TEX_OPTION" then
+ else
+ goto else26
+ end
+ do
+ _L1[790] = _L1[3].payload[1].payload
+ _L1[791] = _L1[3].payload[2]
+ _L1[792] = _L[208](_L1[790])
+ _L1[793] = _L1[1].bibtex_or_biber
+ _L1[794] = _L1[1].change_directory
+ _L1[795] = _L1[1].check_driver
+ _L1[796] = _L1[1].color
+ _L1[797] = _L1[1].config_file
+ _L1[798] = _L1[1].dvipdfmx_extraoptions
+ _L1[799] = _L1[1].engine
+ _L1[800] = _L1[1].engine_executable
+ _L1[801] = _L1[1].file_line_error
+ _L1[802] = _L1[1].fmt
+ _L1[803] = _L1[1].fresh
+ _L1[804] = _L1[1].halt_on_error
+ _L1[805] = _L1[1].includeonly
+ _L1[806] = _L1[1].interaction
+ _L1[807] = _L1[1].jobname
+ _L1[808] = _L1[1].make_depends
+ _L1[809] = _L1[1].makeglossaries
+ _L1[810] = _L1[1].makeindex
+ _L1[811] = _L1[1].max_iterations
+ _L1[812] = _L1[1].output
+ _L1[813] = _L1[1].output_directory
+ _L1[814] = _L1[1].output_format
+ _L1[815] = _L1[1].package_support
+ _L1[816] = _L1[1].print_output_directory
+ _L1[817] = _L1[1].shell_escape
+ _L1[818] = _L1[1].source_date_epoch
+ _L1[819] = _L1[1].start_with_draft
+ _L1[820] = _L1[1].synctex
+ _L1[821] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[793], change_directory = _L1[794], check_driver = _L1[795], color = _L1[796], config_file = _L1[797], dvipdfmx_extraoptions = _L1[798], engine = _L1[799], engine_executable = _L1[800], file_line_error = _L1[801], fmt = _L1[802], fresh = _L1[803], halt_on_error = _L1[804], includeonly = _L1[805], interaction = _L1[806], jobname = _L1[807], make_depends = _L1[808], makeglossaries = _L1[809], makeindex = _L1[810], max_iterations = _L1[811], output = _L1[812], output_directory = _L1[813], output_format = _L1[814], package_support = _L1[815], print_output_directory = _L1[816], shell_escape = _L1[817], source_date_epoch = _L1[818], start_with_draft = _L1[819], synctex = _L1[820], tex_extraoptions = {_L1[792], _L1[1].tex_extraoptions}, watch = _L1[821]}
+ _L[537] = _L1[791]
+ goto cont18
+ end
+ ::else26::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_TEX_OPTIONS" then
+ _L1[822] = _L1[3].payload[1].payload
+ _L1[823] = _L1[3].payload[2]
+ _L1[824] = _L1[1].bibtex_or_biber
+ _L1[825] = _L1[1].change_directory
+ _L1[826] = _L1[1].check_driver
+ _L1[827] = _L1[1].color
+ _L1[828] = _L1[1].config_file
+ _L1[829] = _L1[1].dvipdfmx_extraoptions
+ _L1[830] = _L1[1].engine
+ _L1[831] = _L1[1].engine_executable
+ _L1[832] = _L1[1].file_line_error
+ _L1[833] = _L1[1].fmt
+ _L1[834] = _L1[1].fresh
+ _L1[835] = _L1[1].halt_on_error
+ _L1[836] = _L1[1].includeonly
+ _L1[837] = _L1[1].interaction
+ _L1[838] = _L1[1].jobname
+ _L1[839] = _L1[1].make_depends
+ _L1[840] = _L1[1].makeglossaries
+ _L1[841] = _L1[1].makeindex
+ _L1[842] = _L1[1].max_iterations
+ _L1[843] = _L1[1].output
+ _L1[844] = _L1[1].output_directory
+ _L1[845] = _L1[1].output_format
+ _L1[846] = _L1[1].package_support
+ _L1[847] = _L1[1].print_output_directory
+ _L1[848] = _L1[1].shell_escape
+ _L1[849] = _L1[1].source_date_epoch
+ _L1[850] = _L1[1].start_with_draft
+ _L1[851] = _L1[1].synctex
+ _L1[852] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[824], change_directory = _L1[825], check_driver = _L1[826], color = _L1[827], config_file = _L1[828], dvipdfmx_extraoptions = _L1[829], engine = _L1[830], engine_executable = _L1[831], file_line_error = _L1[832], fmt = _L1[833], fresh = _L1[834], halt_on_error = _L1[835], includeonly = _L1[836], interaction = _L1[837], jobname = _L1[838], make_depends = _L1[839], makeglossaries = _L1[840], makeindex = _L1[841], max_iterations = _L1[842], output = _L1[843], output_directory = _L1[844], output_format = _L1[845], package_support = _L1[846], print_output_directory = _L1[847], shell_escape = _L1[848], source_date_epoch = _L1[849], start_with_draft = _L1[850], synctex = _L1[851], tex_extraoptions = {_L1[822], _L1[1].tex_extraoptions}, watch = _L1[852]}
+ _L[537] = _L1[823]
+ goto cont18
+ end
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_DVIPDFMX_OPTION" then
+ else
+ goto else27
+ end
+ do
+ _L1[853] = _L1[3].payload[1].payload
+ _L1[854] = _L1[3].payload[2]
+ _L1[855] = _L[208](_L1[853])
+ _L1[856] = _L1[1].bibtex_or_biber
+ _L1[857] = _L1[1].change_directory
+ _L1[858] = _L1[1].check_driver
+ _L1[859] = _L1[1].color
+ _L1[860] = _L1[1].config_file
+ _L1[861] = _L1[1].engine
+ _L1[862] = _L1[1].engine_executable
+ _L1[863] = _L1[1].file_line_error
+ _L1[864] = _L1[1].fmt
+ _L1[865] = _L1[1].fresh
+ _L1[866] = _L1[1].halt_on_error
+ _L1[867] = _L1[1].includeonly
+ _L1[868] = _L1[1].interaction
+ _L1[869] = _L1[1].jobname
+ _L1[870] = _L1[1].make_depends
+ _L1[871] = _L1[1].makeglossaries
+ _L1[872] = _L1[1].makeindex
+ _L1[873] = _L1[1].max_iterations
+ _L1[874] = _L1[1].output
+ _L1[875] = _L1[1].output_directory
+ _L1[876] = _L1[1].output_format
+ _L1[877] = _L1[1].package_support
+ _L1[878] = _L1[1].print_output_directory
+ _L1[879] = _L1[1].shell_escape
+ _L1[880] = _L1[1].source_date_epoch
+ _L1[881] = _L1[1].start_with_draft
+ _L1[882] = _L1[1].synctex
+ _L1[883] = _L1[1].tex_extraoptions
+ _L1[884] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[856], change_directory = _L1[857], check_driver = _L1[858], color = _L1[859], config_file = _L1[860], dvipdfmx_extraoptions = {_L1[855], _L1[1].dvipdfmx_extraoptions}, engine = _L1[861], engine_executable = _L1[862], file_line_error = _L1[863], fmt = _L1[864], fresh = _L1[865], halt_on_error = _L1[866], includeonly = _L1[867], interaction = _L1[868], jobname = _L1[869], make_depends = _L1[870], makeglossaries = _L1[871], makeindex = _L1[872], max_iterations = _L1[873], output = _L1[874], output_directory = _L1[875], output_format = _L1[876], package_support = _L1[877], print_output_directory = _L1[878], shell_escape = _L1[879], source_date_epoch = _L1[880], start_with_draft = _L1[881], synctex = _L1[882], tex_extraoptions = _L1[883], watch = _L1[884]}
+ _L[537] = _L1[854]
+ goto cont18
+ end
+ ::else27::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_DVIPDFMX_OPTIONS" then
+ _L1[885] = _L1[3].payload[1].payload
+ _L1[886] = _L1[3].payload[2]
+ _L1[887] = _L1[1].bibtex_or_biber
+ _L1[888] = _L1[1].change_directory
+ _L1[889] = _L1[1].check_driver
+ _L1[890] = _L1[1].color
+ _L1[891] = _L1[1].config_file
+ _L1[892] = _L1[1].dvipdfmx_extraoptions
+ _L1[893] = _L1[1].engine
+ _L1[894] = _L1[1].engine_executable
+ _L1[895] = _L1[1].file_line_error
+ _L1[896] = _L1[1].fmt
+ _L1[897] = _L1[1].fresh
+ _L1[898] = _L1[1].halt_on_error
+ _L1[899] = _L1[1].includeonly
+ _L1[900] = _L1[1].interaction
+ _L1[901] = _L1[1].jobname
+ _L1[902] = _L1[1].make_depends
+ _L1[903] = _L1[1].makeglossaries
+ _L1[904] = _L1[1].makeindex
+ _L1[905] = _L1[1].max_iterations
+ _L1[906] = _L1[1].output
+ _L1[907] = _L1[1].output_directory
+ _L1[908] = _L1[1].output_format
+ _L1[909] = _L1[1].package_support
+ _L1[910] = _L1[1].print_output_directory
+ _L1[911] = _L1[1].shell_escape
+ _L1[912] = _L1[1].source_date_epoch
+ _L1[913] = _L1[1].start_with_draft
+ _L1[914] = _L1[1].synctex
+ _L1[915] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[887], change_directory = _L1[888], check_driver = _L1[889], color = _L1[890], config_file = _L1[891], dvipdfmx_extraoptions = _L1[892], engine = _L1[893], engine_executable = _L1[894], file_line_error = _L1[895], fmt = _L1[896], fresh = _L1[897], halt_on_error = _L1[898], includeonly = _L1[899], interaction = _L1[900], jobname = _L1[901], make_depends = _L1[902], makeglossaries = _L1[903], makeindex = _L1[904], max_iterations = _L1[905], output = _L1[906], output_directory = _L1[907], output_format = _L1[908], package_support = _L1[909], print_output_directory = _L1[910], shell_escape = _L1[911], source_date_epoch = _L1[912], start_with_draft = _L1[913], synctex = _L1[914], tex_extraoptions = {_L1[885], _L1[1].dvipdfmx_extraoptions}, watch = _L1[915]}
+ _L[537] = _L1[886]
+ goto cont18
+ end
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_MAKEINDEX" then
+ else
+ goto else28
+ end
+ do
+ _L1[916] = _L1[3].payload[1].payload
+ _L1[917] = _L1[3].payload[2]
+ _L1[918] = _L1[1].makeindex
+ if _L1[918].tag == "NONE" then
+ _L1[919] = _L1[1].bibtex_or_biber
+ _L1[920] = _L1[1].change_directory
+ _L1[921] = _L1[1].check_driver
+ _L1[922] = _L1[1].color
+ _L1[923] = _L1[1].config_file
+ _L1[924] = _L1[1].dvipdfmx_extraoptions
+ _L1[925] = _L1[1].engine
+ _L1[926] = _L1[1].engine_executable
+ _L1[927] = _L1[1].file_line_error
+ _L1[928] = _L1[1].fmt
+ _L1[929] = _L1[1].fresh
+ _L1[930] = _L1[1].halt_on_error
+ _L1[931] = _L1[1].includeonly
+ _L1[932] = _L1[1].interaction
+ _L1[933] = _L1[1].jobname
+ _L1[934] = _L1[1].make_depends
+ _L1[935] = _L1[1].makeglossaries
+ _L1[936] = _L1[1].max_iterations
+ _L1[937] = _L1[1].output
+ _L1[938] = _L1[1].output_directory
+ _L1[939] = _L1[1].output_format
+ _L1[940] = _L1[1].package_support
+ _L1[941] = _L1[1].print_output_directory
+ _L1[942] = _L1[1].shell_escape
+ _L1[943] = _L1[1].source_date_epoch
+ _L1[944] = _L1[1].start_with_draft
+ _L1[945] = _L1[1].synctex
+ _L1[946] = _L1[1].tex_extraoptions
+ _L1[947] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[919], change_directory = _L1[920], check_driver = _L1[921], color = _L1[922], config_file = _L1[923], dvipdfmx_extraoptions = _L1[924], engine = _L1[925], engine_executable = _L1[926], file_line_error = _L1[927], fmt = _L1[928], fresh = _L1[929], halt_on_error = _L1[930], includeonly = _L1[931], interaction = _L1[932], jobname = _L1[933], make_depends = _L1[934], makeglossaries = _L1[935], makeindex = {tag = "SOME", payload = _L1[916]}, max_iterations = _L1[936], output = _L1[937], output_directory = _L1[938], output_format = _L1[939], package_support = _L1[940], print_output_directory = _L1[941], shell_escape = _L1[942], source_date_epoch = _L1[943], start_with_draft = _L1[944], synctex = _L1[945], tex_extraoptions = _L1[946], watch = _L1[947]}
+ _L[537] = _L1[917]
+ goto cont18
+ end
+ if _L1[918].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:303:44")
+ end
+ _L[124]({_L[118], "multiple --makeindex options\n"})
+ tmp15(1, true)
+ end
+ ::else28::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_BIBTEX" then
+ else
+ goto else29
+ end
+ do
+ _L1[948] = _L1[3].payload[1].payload
+ _L1[949] = _L1[3].payload[2]
+ _L1[950] = _L1[1].bibtex_or_biber
+ if _L1[950].tag == "NONE" then
+ _L1[951] = _L1[1].change_directory
+ _L1[952] = _L1[1].check_driver
+ _L1[953] = _L1[1].color
+ _L1[954] = _L1[1].config_file
+ _L1[955] = _L1[1].dvipdfmx_extraoptions
+ _L1[956] = _L1[1].engine
+ _L1[957] = _L1[1].engine_executable
+ _L1[958] = _L1[1].file_line_error
+ _L1[959] = _L1[1].fmt
+ _L1[960] = _L1[1].fresh
+ _L1[961] = _L1[1].halt_on_error
+ _L1[962] = _L1[1].includeonly
+ _L1[963] = _L1[1].interaction
+ _L1[964] = _L1[1].jobname
+ _L1[965] = _L1[1].make_depends
+ _L1[966] = _L1[1].makeglossaries
+ _L1[967] = _L1[1].makeindex
+ _L1[968] = _L1[1].max_iterations
+ _L1[969] = _L1[1].output
+ _L1[970] = _L1[1].output_directory
+ _L1[971] = _L1[1].output_format
+ _L1[972] = _L1[1].package_support
+ _L1[973] = _L1[1].print_output_directory
+ _L1[974] = _L1[1].shell_escape
+ _L1[975] = _L1[1].source_date_epoch
+ _L1[976] = _L1[1].start_with_draft
+ _L1[977] = _L1[1].synctex
+ _L1[978] = _L1[1].tex_extraoptions
+ _L1[979] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = {tag = "SOME", payload = {tag = "BIBTEX", payload = _L1[948]}}, change_directory = _L1[951], check_driver = _L1[952], color = _L1[953], config_file = _L1[954], dvipdfmx_extraoptions = _L1[955], engine = _L1[956], engine_executable = _L1[957], file_line_error = _L1[958], fmt = _L1[959], fresh = _L1[960], halt_on_error = _L1[961], includeonly = _L1[962], interaction = _L1[963], jobname = _L1[964], make_depends = _L1[965], makeglossaries = _L1[966], makeindex = _L1[967], max_iterations = _L1[968], output = _L1[969], output_directory = _L1[970], output_format = _L1[971], package_support = _L1[972], print_output_directory = _L1[973], shell_escape = _L1[974], source_date_epoch = _L1[975], start_with_draft = _L1[976], synctex = _L1[977], tex_extraoptions = _L1[978], watch = _L1[979]}
+ _L[537] = _L1[949]
+ goto cont18
+ end
+ if _L1[950].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:307:41")
+ end
+ _L[124]({_L[118], "multiple --bibtex / --biber options\n"})
+ tmp15(1, true)
+ end
+ ::else29::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_BIBER" then
+ else
+ goto else30
+ end
+ do
+ _L1[980] = _L1[3].payload[1].payload
+ _L1[981] = _L1[3].payload[2]
+ _L1[982] = _L1[1].bibtex_or_biber
+ if _L1[982].tag == "NONE" then
+ _L1[983] = _L1[1].change_directory
+ _L1[984] = _L1[1].check_driver
+ _L1[985] = _L1[1].color
+ _L1[986] = _L1[1].config_file
+ _L1[987] = _L1[1].dvipdfmx_extraoptions
+ _L1[988] = _L1[1].engine
+ _L1[989] = _L1[1].engine_executable
+ _L1[990] = _L1[1].file_line_error
+ _L1[991] = _L1[1].fmt
+ _L1[992] = _L1[1].fresh
+ _L1[993] = _L1[1].halt_on_error
+ _L1[994] = _L1[1].includeonly
+ _L1[995] = _L1[1].interaction
+ _L1[996] = _L1[1].jobname
+ _L1[997] = _L1[1].make_depends
+ _L1[998] = _L1[1].makeglossaries
+ _L1[999] = _L1[1].makeindex
+ _L1[1000] = _L1[1].max_iterations
+ _L1[1001] = _L1[1].output
+ _L1[1002] = _L1[1].output_directory
+ _L1[1003] = _L1[1].output_format
+ _L1[1004] = _L1[1].package_support
+ _L1[1005] = _L1[1].print_output_directory
+ _L1[1006] = _L1[1].shell_escape
+ _L1[1007] = _L1[1].source_date_epoch
+ _L1[1008] = _L1[1].start_with_draft
+ _L1[1009] = _L1[1].synctex
+ _L1[1010] = _L1[1].tex_extraoptions
+ _L1[1011] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = {tag = "SOME", payload = {tag = "BIBER", payload = _L1[980]}}, change_directory = _L1[983], check_driver = _L1[984], color = _L1[985], config_file = _L1[986], dvipdfmx_extraoptions = _L1[987], engine = _L1[988], engine_executable = _L1[989], file_line_error = _L1[990], fmt = _L1[991], fresh = _L1[992], halt_on_error = _L1[993], includeonly = _L1[994], interaction = _L1[995], jobname = _L1[996], make_depends = _L1[997], makeglossaries = _L1[998], makeindex = _L1[999], max_iterations = _L1[1000], output = _L1[1001], output_directory = _L1[1002], output_format = _L1[1003], package_support = _L1[1004], print_output_directory = _L1[1005], shell_escape = _L1[1006], source_date_epoch = _L1[1007], start_with_draft = _L1[1008], synctex = _L1[1009], tex_extraoptions = _L1[1010], watch = _L1[1011]}
+ _L[537] = _L1[981]
+ goto cont18
+ end
+ if _L1[982].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:311:40")
+ end
+ _L[124]({_L[118], "multiple --bibtex / --biber options\n"})
+ tmp15(1, true)
+ end
+ ::else30::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_MAKEGLOSSARIES" then
+ else
+ goto else31
+ end
+ do
+ _L1[1012] = _L1[3].payload[1].payload
+ _L1[1013] = _L1[3].payload[2]
+ _L1[1014] = _L1[1].makeglossaries
+ if _L1[1014].tag == "NONE" then
+ _L1[1015] = _L1[1].bibtex_or_biber
+ _L1[1016] = _L1[1].change_directory
+ _L1[1017] = _L1[1].check_driver
+ _L1[1018] = _L1[1].color
+ _L1[1019] = _L1[1].config_file
+ _L1[1020] = _L1[1].dvipdfmx_extraoptions
+ _L1[1021] = _L1[1].engine
+ _L1[1022] = _L1[1].engine_executable
+ _L1[1023] = _L1[1].file_line_error
+ _L1[1024] = _L1[1].fmt
+ _L1[1025] = _L1[1].fresh
+ _L1[1026] = _L1[1].halt_on_error
+ _L1[1027] = _L1[1].includeonly
+ _L1[1028] = _L1[1].interaction
+ _L1[1029] = _L1[1].jobname
+ _L1[1030] = _L1[1].make_depends
+ _L1[1031] = _L1[1].makeindex
+ _L1[1032] = _L1[1].max_iterations
+ _L1[1033] = _L1[1].output
+ _L1[1034] = _L1[1].output_directory
+ _L1[1035] = _L1[1].output_format
+ _L1[1036] = _L1[1].package_support
+ _L1[1037] = _L1[1].print_output_directory
+ _L1[1038] = _L1[1].shell_escape
+ _L1[1039] = _L1[1].source_date_epoch
+ _L1[1040] = _L1[1].start_with_draft
+ _L1[1041] = _L1[1].synctex
+ _L1[1042] = _L1[1].tex_extraoptions
+ _L1[1043] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[1015], change_directory = _L1[1016], check_driver = _L1[1017], color = _L1[1018], config_file = _L1[1019], dvipdfmx_extraoptions = _L1[1020], engine = _L1[1021], engine_executable = _L1[1022], file_line_error = _L1[1023], fmt = _L1[1024], fresh = _L1[1025], halt_on_error = _L1[1026], includeonly = _L1[1027], interaction = _L1[1028], jobname = _L1[1029], make_depends = _L1[1030], makeglossaries = {tag = "SOME", payload = _L1[1012]}, makeindex = _L1[1031], max_iterations = _L1[1032], output = _L1[1033], output_directory = _L1[1034], output_format = _L1[1035], package_support = _L1[1036], print_output_directory = _L1[1037], shell_escape = _L1[1038], source_date_epoch = _L1[1039], start_with_draft = _L1[1040], synctex = _L1[1041], tex_extraoptions = _L1[1042], watch = _L1[1043]}
+ _L[537] = _L1[1013]
+ goto cont18
+ end
+ if _L1[1014].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:315:49")
+ end
+ _L[124]({_L[118], "multiple --makeglossaries options\n"})
+ tmp15(1, true)
+ end
+ ::else31::
+ if _L1[3].tag == "SOME" and _L1[3].payload[1].tag == "OPT_CONFIG_FILE" then
+ else
+ goto else32
+ end
+ do
+ _L1[1044] = _L1[3].payload[1].payload
+ _L1[1045] = _L1[3].payload[2]
+ _L1[1046] = _L1[1].config_file
+ if _L1[1046].tag == "NONE" then
+ _L1[1047] = _L1[1].bibtex_or_biber
+ _L1[1048] = _L1[1].change_directory
+ _L1[1049] = _L1[1].check_driver
+ _L1[1050] = _L1[1].color
+ _L1[1051] = _L1[1].dvipdfmx_extraoptions
+ _L1[1052] = _L1[1].engine
+ _L1[1053] = _L1[1].engine_executable
+ _L1[1054] = _L1[1].file_line_error
+ _L1[1055] = _L1[1].fmt
+ _L1[1056] = _L1[1].fresh
+ _L1[1057] = _L1[1].halt_on_error
+ _L1[1058] = _L1[1].includeonly
+ _L1[1059] = _L1[1].interaction
+ _L1[1060] = _L1[1].jobname
+ _L1[1061] = _L1[1].make_depends
+ _L1[1062] = _L1[1].makeglossaries
+ _L1[1063] = _L1[1].makeindex
+ _L1[1064] = _L1[1].max_iterations
+ _L1[1065] = _L1[1].output
+ _L1[1066] = _L1[1].output_directory
+ _L1[1067] = _L1[1].output_format
+ _L1[1068] = _L1[1].package_support
+ _L1[1069] = _L1[1].print_output_directory
+ _L1[1070] = _L1[1].shell_escape
+ _L1[1071] = _L1[1].source_date_epoch
+ _L1[1072] = _L1[1].start_with_draft
+ _L1[1073] = _L1[1].synctex
+ _L1[1074] = _L1[1].tex_extraoptions
+ _L1[1075] = _L1[1].watch
+ _L[536] = {bibtex_or_biber = _L1[1047], change_directory = _L1[1048], check_driver = _L1[1049], color = _L1[1050], config_file = {tag = "SOME", payload = _L1[1044]}, dvipdfmx_extraoptions = _L1[1051], engine = _L1[1052], engine_executable = _L1[1053], file_line_error = _L1[1054], fmt = _L1[1055], fresh = _L1[1056], halt_on_error = _L1[1057], includeonly = _L1[1058], interaction = _L1[1059], jobname = _L1[1060], make_depends = _L1[1061], makeglossaries = _L1[1062], makeindex = _L1[1063], max_iterations = _L1[1064], output = _L1[1065], output_directory = _L1[1066], output_format = _L1[1067], package_support = _L1[1068], print_output_directory = _L1[1069], shell_escape = _L1[1070], source_date_epoch = _L1[1071], start_with_draft = _L1[1072], synctex = _L1[1073], tex_extraoptions = _L1[1074], watch = _L1[1075]}
+ _L[537] = _L1[1045]
+ goto cont18
+ end
+ if _L1[1046].tag == "SOME" then
+ else
+ _raise(_Match, "handle-options.sml:319:46")
+ end
+ _L[124]({_L[118], "multiple --config-file options\n"})
+ tmp15(1, true)
+ end
+ ::else32::
+ if _L1[3].tag == "NONE" then
+ else
+ _raise(_Match, "handle-options.sml:167:7")
+ end
+ do
+ if _L1[2] ~= nil and _L1[2][1] == "--" then
+ _L[535] = {_L1[1], _L1[2][2]}
+ goto cont5
+ end
+ if _L1[2] ~= nil then
+ else
+ if _L1[2] == nil then
+ else
+ _raise(_Match, "handle-options.sml:323:20")
+ end
+ _L[535] = _L[373]()
+ goto cont5
+ end
+ do
+ _L1[1076] = _L1[2][1]
+ _L1[1077] = isPrefix("-")
+ _L1[1078] = _L1[1077](_L1[1076])
+ if _L1[1078] then
+ else
+ _L[535] = {_L1[1], _L1[2]}
+ goto cont5
+ end
+ _L[124]({_L[118], "Unrecognized option: " .. _L1[1076] .. ".\n" .. "\n"})
+ tmp15(1, true)
+ end
+ end
+ end
+ end
+ ::cont5::
+ _L[538] = _L[535][1]
+ _L[539] = _L[535][2]
+ _L[540] = _L[538].config_file
+ do
+ if _L[540].tag == "SOME" then
+ _L[542] = {tag = "SOME", payload = _L[540].payload}
+ goto cont18
+ end
+ if _L[540].tag == "NONE" then
+ do
+ _L[544] = tmp16("CLUTTEX_CONFIG_FILE")
+ if _L[544] == nil then
+ _L[543] = NONE
+ else
+ _L[543] = {tag = "SOME", payload = _L[544]}
+ end
+ end
+ if _L[543].tag == "SOME" then
+ _L[542] = {tag = "SOME", payload = _L[543].payload}
+ goto cont18
+ end
+ if _L[543].tag == "NONE" then
+ if _L[220] then
+ do
+ _L[546] = tmp16("APPDATA")
+ if _L[546] == nil then
+ _L[545] = NONE
+ else
+ _L[545] = {tag = "SOME", payload = _L[546]}
+ end
+ end
+ if _L[545].tag == "SOME" then
+ _L[542] = {tag = "SOME", payload = _L[545].payload .. "\\cluttex\\config.toml"}
+ goto cont18
+ elseif _L[545].tag == "NONE" then
+ _L[542] = NONE
+ goto cont18
+ else
+ _raise(_Match, "main.sml:754:45")
+ end
+ end
+ do
+ _L[548] = tmp16("XDG_CONFIG_HOME")
+ if _L[548] == nil then
+ _L[547] = NONE
+ else
+ _L[547] = {tag = "SOME", payload = _L[548]}
+ end
+ end
+ if _L[547].tag == "SOME" then
+ _L[542] = {tag = "SOME", payload = _L[547].payload .. "/cluttex/config.toml"}
+ goto cont18
+ end
+ if _L[547].tag == "NONE" then
+ do
+ _L[550] = tmp16("HOME")
+ if _L[550] == nil then
+ _L[549] = NONE
+ else
+ _L[549] = {tag = "SOME", payload = _L[550]}
+ end
+ end
+ if _L[549].tag == "SOME" then
+ _L[542] = {tag = "SOME", payload = _L[549].payload .. "/.config/cluttex/config.toml"}
+ elseif _L[549].tag == "NONE" then
+ _L[542] = NONE
+ else
+ _raise(_Match, "main.sml:760:57")
+ end
+ else
+ _raise(_Match, "main.sml:758:45")
+ end
+ else
+ _raise(_Match, "main.sml:751:30")
+ end
+ else
+ _raise(_Match, "main.sml:750:5")
+ end
+ ::cont18::
+ if _L[542].tag == "NONE" then
+ _L[541] = _L[363]
+ goto cont6
+ end
+ if _L[542].tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:764:32")
+ end
+ do
+ _L[551] = _L[542].payload
+ _L[552], _L[553] = _handle(function()
+ local tmp54, tmp55, expect, skipWhiteSpace, skipWhiteSpaceAndGetc, skipUntilNewline, skipWhiteSpaceOrComment, skipWhiteSpaceOrCommentOrNewlineAndGetc, skipOptionalNewline, go, checkAllowedChar, go1, go2, readHexInt, readOctInt, readBinInt, readSigned, readUnsigned
+ do
+ local ins = _L[115](_L[551])
+ tmp54 = _L[122](ins)
+ tmp55 = function(strm, state)
+ local tmp56 = _L[94](strm)
+ if state == "START" and tmp56.tag == "NONE" then
+ return NONE
+ end
+ if tmp56.tag == "NONE" then
+ _raise(_L[172], "validate_utf8.sml:67:22")
+ end
+ if tmp56.tag == "SOME" then
+ local c = tmp56.payload[1]
+ local strm1 = tmp56.payload[2]
+ local tmp57
+ if state == "START" then
+ if c < 128 then
+ tmp57 = _L[173]
+ goto cont
+ end
+ if c < 224 then
+ if 194 <= c then
+ tmp57 = _L[178]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:30:55")
+ end
+ elseif c == 224 then
+ tmp57 = _L[174]
+ goto cont
+ elseif c == 237 then
+ tmp57 = _L[175]
+ goto cont
+ elseif c < 240 then
+ tmp57 = _L[179]
+ goto cont
+ elseif c == 240 then
+ tmp57 = _L[176]
+ goto cont
+ elseif c < 244 then
+ tmp57 = _L[180]
+ goto cont
+ elseif c == 244 then
+ tmp57 = _L[177]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:44:11")
+ end
+ end
+ if state == "TAIL_1" then
+ if 128 <= c then
+ if c < 192 then
+ tmp57 = _L[173]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:47:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:47:14")
+ end
+ end
+ if state == "MID_1_OF_3_E0" then
+ if 160 <= c then
+ if c < 192 then
+ tmp57 = _L[178]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:50:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:50:14")
+ end
+ end
+ if state == "MID_1_OF_3_ED" then
+ if 128 <= c then
+ if c < 160 then
+ tmp57 = _L[178]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:53:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:53:14")
+ end
+ end
+ if state == "TAIL_2" then
+ if 128 <= c then
+ if c < 192 then
+ tmp57 = _L[178]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:56:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:56:14")
+ end
+ end
+ if state == "MID_1_OF_4_F0" then
+ if 144 <= c then
+ if c < 192 then
+ tmp57 = _L[179]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:59:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:59:14")
+ end
+ end
+ if state == "TAIL_3" then
+ if 128 <= c then
+ if c < 192 then
+ tmp57 = _L[179]
+ goto cont
+ else
+ _raise(_L[172], "validate_utf8.sml:62:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:62:14")
+ end
+ end
+ if state == "MID_1_OF_4_F4" then
+ if 128 <= c then
+ if c < 144 then
+ tmp57 = _L[179]
+ else
+ _raise(_L[172], "validate_utf8.sml:65:14")
+ end
+ else
+ _raise(_L[172], "validate_utf8.sml:65:14")
+ end
+ else
+ _raise(_Match, "validate_utf8.sml:26:7")
+ end
+ ::cont::
+ return {tag = "SOME", payload = {c, {strm1, tmp57}}}
+ else
+ _raise(_Match, "validate_utf8.sml:66:7")
+ end
+ end
+ expect = function(c, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = tmp56}}}, "parse_toml.sml:16:5")
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:28:9")
+ end
+ do
+ local c_PRIME = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == c_PRIME then
+ return strm_PRIME
+ end
+ local tmp56 = toString(c)
+ local tmp57 = toString(c_PRIME)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp57, expected = tmp56}}}, "parse_toml.sml:19:5")
+ end
+ end
+ skipWhiteSpace = function(a)
+ local tmp56 = a
+ ::cont::
+ do
+ local a1 = tmp56
+ local exp
+ do
+ local strm = a1[1]
+ exp = tmp55(strm, a1[2])
+ end
+ if exp.tag == "NONE" then
+ return a1
+ end
+ if exp.tag == "SOME" then
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 32 then
+ tmp56 = strm_PRIME
+ goto cont
+ elseif c == 9 then
+ tmp56 = strm_PRIME
+ goto cont
+ else
+ return a1
+ end
+ else
+ _raise(_Match, "parse_toml.sml:34:9")
+ end
+ end
+ end
+ skipWhiteSpaceAndGetc = function(strm, state)
+ local tmp56, tmp57 = strm, state
+ ::cont::
+ do
+ local strm1, state1 = tmp56, tmp57
+ local exp = tmp55(strm1, state1)
+ if exp.tag == "SOME" and exp.payload[1] == 32 then
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ tmp56 = strm2
+ tmp57 = strm_PRIME[2]
+ goto cont
+ elseif exp.tag == "SOME" and exp.payload[1] == 9 then
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ tmp56 = strm2
+ tmp57 = strm_PRIME[2]
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ skipUntilNewline = function(a)
+ local tmp56 = a
+ ::cont::
+ do
+ local exp
+ do
+ local a1 = tmp56
+ do
+ local strm = a1[1]
+ exp = tmp55(strm, a1[2])
+ end
+ if exp.tag == "NONE" then
+ return a1
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 10 then
+ return exp.payload[2]
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm = strm_PRIME[1]
+ return expect(10, strm, strm_PRIME[2])
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:47:9")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp57
+ do
+ if c <= 127 then
+ else
+ tmp57 = false
+ goto cont1
+ end
+ do
+ local tmp58 = isPrint(c)
+ tmp57 = not tmp58
+ end
+ end
+ ::cont1::
+ if tmp57 then
+ else
+ tmp56 = strm_PRIME
+ goto cont
+ end
+ do
+ local tmp58 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp58, expected = "printable character"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ end
+ skipWhiteSpaceOrComment = function(a)
+ local tmp56 = a
+ ::cont::
+ do
+ local exp
+ do
+ local a1 = tmp56
+ do
+ local strm = a1[1]
+ exp = tmp55(strm, a1[2])
+ end
+ if exp.tag == "NONE" then
+ return a1
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 35 then
+ else
+ goto else1
+ end
+ do
+ return skipUntilNewline(exp.payload[2])
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 32 then
+ tmp56 = exp.payload[2]
+ goto cont
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 9 then
+ tmp56 = exp.payload[2]
+ goto cont
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm = strm_PRIME[1]
+ return expect(10, strm, strm_PRIME[2])
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 10 then
+ return exp.payload[2]
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:56:9")
+ end
+ do
+ local tmp57 = toString(exp.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp57, expected = "whitespace or comment"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ skipWhiteSpaceOrCommentOrNewlineAndGetc = function(a)
+ local tmp56 = a
+ ::cont::
+ do
+ local a1 = tmp56
+ local exp
+ do
+ local strm = a1[1]
+ exp = tmp55(strm, a1[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 35 then
+ elseif exp.tag == "SOME" and exp.payload[1] == 32 then
+ tmp56 = exp.payload[2]
+ goto cont
+ elseif exp.tag == "SOME" and exp.payload[1] == 9 then
+ tmp56 = exp.payload[2]
+ goto cont
+ else
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ elseif exp.tag == "SOME" and exp.payload[1] == 10 then
+ tmp56 = exp.payload[2]
+ goto cont
+ else
+ return exp
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm = strm_PRIME[1]
+ tmp56 = expect(10, strm, strm_PRIME[2])
+ goto cont
+ end
+ end
+ tmp56 = skipUntilNewline(exp.payload[2])
+ goto cont
+ end
+ end
+ skipOptionalNewline = function(a)
+ local exp
+ do
+ local strm = a[1]
+ exp = tmp55(strm, a[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 10 then
+ return exp.payload[2]
+ else
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ else
+ return a
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm = strm_PRIME[1]
+ return expect(10, strm, strm_PRIME[2])
+ end
+ end
+ end
+ local skipWhiteSpaceOrNewline = function(a)
+ local tmp56 = a
+ ::cont::
+ do
+ local a1 = tmp56
+ local exp
+ do
+ local strm = a1[1]
+ exp = tmp55(strm, a1[2])
+ end
+ if exp.tag == "NONE" then
+ return a1
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm = strm_PRIME[1]
+ tmp56 = expect(10, strm, strm_PRIME[2])
+ goto cont
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 32 then
+ tmp56 = strm_PRIME
+ goto cont
+ elseif c == 9 then
+ tmp56 = strm_PRIME
+ goto cont
+ elseif c == 10 then
+ tmp56 = strm_PRIME
+ goto cont
+ else
+ return a1
+ end
+ else
+ _raise(_Match, "parse_toml.sml:83:9")
+ end
+ end
+ end
+ local readHexDigit = function(strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "hexadecimal digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:93:9")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ return {_Int_sub(c, 48), strm_PRIME}
+ end
+ if 65 <= c and c <= 70 then
+ return {_Int_sub(c, 55), strm_PRIME}
+ end
+ if 97 <= c and c <= 102 then
+ return {_Int_sub(c, 87), strm_PRIME}
+ end
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "hexadecimal digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local readFourHexDigit = function(strm, state)
+ local exp = readHexDigit(strm, state)
+ local c3 = exp[1]
+ local strm1 = exp[2]
+ local exp1
+ do
+ local strm2 = strm1[1]
+ exp1 = readHexDigit(strm2, strm1[2])
+ end
+ local c2 = exp1[1]
+ local strm2 = exp1[2]
+ local exp2
+ do
+ local strm3 = strm2[1]
+ exp2 = readHexDigit(strm3, strm2[2])
+ end
+ local c1 = exp2[1]
+ local strm3 = exp2[2]
+ local exp3
+ do
+ local strm4 = strm3[1]
+ exp3 = readHexDigit(strm4, strm3[2])
+ end
+ local c0 = exp3[1]
+ local strm4 = exp3[2]
+ return {_Int_add(_Int_mul(_Int_add(_Int_mul(_Int_add(_Int_mul(c3, 16), c2), 16), c1), 16), c0), strm4}
+ end
+ go = function(accum, strm, state)
+ local tmp56, tmp57, tmp58 = accum, strm, state
+ ::cont::
+ do
+ local accum1, exp
+ do
+ local strm1, state1
+ accum1, strm1, state1 = tmp56, tmp57, tmp58
+ exp = tmp55(strm1, state1)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 34 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = implodeRev(accum1)
+ return {tmp59, strm_PRIME}
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 92 then
+ else
+ goto else2
+ end
+ do
+ local exp1
+ do
+ local strm_PRIME = exp.payload[2]
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "escape sequence"}}}, "parse_toml.sml:16:5")
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 34 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {34, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 92 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {92, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 98 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {8, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 102 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {12, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 110 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {10, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 114 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {13, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 116 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {9, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME[2]
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 117 then
+ else
+ goto else3
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp2 = readFourHexDigit(strm1, strm_PRIME_PRIME[2])
+ end
+ local i = exp2[1]
+ local strm_PRIME_PRIME_PRIME = exp2[2]
+ local tmp59 = _L[187](i, accum1)
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME_PRIME[2]
+ goto cont
+ end
+ end
+ ::else3::
+ if exp1.tag == "SOME" and exp1.payload[1] == 85 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp2 = readFourHexDigit(strm1, strm_PRIME_PRIME[2])
+ end
+ local hi = exp2[1]
+ local strm_PRIME_PRIME_PRIME = exp2[2]
+ local exp3
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp3 = readFourHexDigit(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ local lo = exp3[1]
+ local strm_PRIME_PRIME_PRIME_PRIME = exp3[2]
+ if hi > 16 then
+ _raise({tag = _L[186], payload = _L[182]}, "parse_toml.sml:139:24")
+ end
+ local tmp59 = _L[187](_Int_add(_Int_mul(hi, 65536), lo), accum1)
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME_PRIME_PRIME[2]
+ goto cont
+ end
+ ::else4::
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:120:16")
+ end
+ do
+ local tmp59 = toString(exp1.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp59, expected = "escape sequence"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ ::else2::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:116:11")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = c < 32 and c ~= 9
+ local tmp60
+ tmp60 = tmp59 or c == 127
+ if tmp60 then
+ else
+ local tmp61 = {c, accum1}
+ local strm1 = strm_PRIME[1]
+ tmp56 = tmp61
+ tmp57 = strm1
+ tmp58 = strm_PRIME[2]
+ goto cont
+ end
+ do
+ local tmp61 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp61, expected = "printable character"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ end
+ checkAllowedChar = function(a)
+ local tmp56 = a < 32 and (a ~= 9 and a ~= 10)
+ local tmp57
+ tmp57 = tmp56 or a == 127
+ if tmp57 then
+ else
+ return a
+ end
+ do
+ local tmp58 = toString(a)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp58, expected = "printable character"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local function escape(accum, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "escape sequence"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 34 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {34, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 92 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {92, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 98 then
+ else
+ goto else3
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {8, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else3::
+ if exp.tag == "SOME" and exp.payload[1] == 102 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {12, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else4::
+ if exp.tag == "SOME" and exp.payload[1] == 110 then
+ else
+ goto else5
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {10, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else5::
+ if exp.tag == "SOME" and exp.payload[1] == 114 then
+ else
+ goto else6
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {13, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else6::
+ if exp.tag == "SOME" and exp.payload[1] == 116 then
+ else
+ goto else7
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = {9, accum}
+ local strm1 = strm_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME[2])
+ end
+ ::else7::
+ if exp.tag == "SOME" and exp.payload[1] == 117 then
+ else
+ goto else8
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = readFourHexDigit(strm1, strm_PRIME[2])
+ end
+ local i = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ local tmp56 = _L[187](i, accum)
+ local strm1 = strm_PRIME_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else8::
+ if exp.tag == "SOME" and exp.payload[1] == 85 then
+ else
+ goto else9
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = readFourHexDigit(strm1, strm_PRIME[2])
+ end
+ local hi = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp2 = readFourHexDigit(strm1, strm_PRIME_PRIME[2])
+ end
+ local lo = exp2[1]
+ local strm_PRIME_PRIME_PRIME = exp2[2]
+ local tmp56 = _L[187](_Int_add(_Int_mul(hi, 65536), lo), accum)
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ return go1(tmp56, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ ::else9::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:204:11")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 32 or c == 9 then
+ else
+ goto else10
+ end
+ do
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = skipWhiteSpaceAndGetc(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "newline"}}}, "parse_toml.sml:16:5")
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 10 then
+ else
+ goto else13
+ end
+ do
+ local tmp56 = skipWhiteSpaceOrNewline(exp1.payload[2])
+ local strm1 = tmp56[1]
+ return go1(accum, strm1, tmp56[2])
+ end
+ ::else13::
+ if exp1.tag == "SOME" and exp1.payload[1] == 13 then
+ else
+ goto else14
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp56
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp56 = expect(10, strm1, strm_PRIME_PRIME[2])
+ end
+ local tmp57 = skipWhiteSpaceOrNewline(tmp56)
+ local strm1 = tmp57[1]
+ return go1(accum, strm1, tmp57[2])
+ end
+ ::else14::
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:229:17")
+ end
+ do
+ local tmp56 = toString(exp1.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "newline"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ ::else10::
+ if c == 13 then
+ else
+ goto else11
+ end
+ do
+ local tmp56
+ do
+ local strm1 = strm_PRIME[1]
+ tmp56 = expect(10, strm1, strm_PRIME[2])
+ end
+ local tmp57 = skipWhiteSpaceOrNewline(tmp56)
+ local strm1 = tmp57[1]
+ return go1(accum, strm1, tmp57[2])
+ end
+ ::else11::
+ if c == 10 then
+ else
+ goto else12
+ end
+ do
+ local tmp56 = skipWhiteSpaceOrNewline(strm_PRIME)
+ local strm1 = tmp56[1]
+ return go1(accum, strm1, tmp56[2])
+ end
+ ::else12::
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "escape sequence"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ go1 = function(accum, strm, state)
+ local tmp56, tmp57, tmp58 = accum, strm, state
+ ::cont::
+ do
+ local accum1, exp
+ do
+ local strm1, state1
+ accum1, strm1, state1 = tmp56, tmp57, tmp58
+ exp = tmp55(strm1, state1)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 92 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ return escape(accum1, strm2, strm_PRIME[2])
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 34 then
+ else
+ goto else2
+ end
+ do
+ local exp1
+ do
+ local strm_PRIME = exp.payload[2]
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 34 then
+ else
+ goto else4
+ end
+ do
+ local exp2
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp2 = tmp55(strm1, strm_PRIME_PRIME[2])
+ end
+ if exp2.tag == "SOME" and exp2.payload[1] == 34 then
+ else
+ goto else7
+ end
+ do
+ local strm_PRIME_PRIME_PRIME
+ do
+ strm_PRIME_PRIME_PRIME = exp2.payload[2]
+ local exp3
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp3 = tmp55(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ if exp3.tag == "SOME" and exp3.payload[1] == 34 then
+ else
+ goto else10
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME
+ do
+ strm_PRIME_PRIME_PRIME_PRIME = exp3.payload[2]
+ local exp4
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ exp4 = tmp55(strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ if exp4.tag == "SOME" and exp4.payload[1] == 34 then
+ else
+ goto else11
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME = exp4.payload[2]
+ local tmp59 = implodeRev({34, {34, accum1}})
+ return {tmp59, strm_PRIME_PRIME_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else11::
+ local tmp59 = implodeRev({34, accum1})
+ return {tmp59, strm_PRIME_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else10::
+ local tmp59 = implodeRev(accum1)
+ return {tmp59, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else7::
+ if exp2.tag == "SOME" and exp2.payload[1] == 92 then
+ else
+ goto else8
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp2.payload[2]
+ local tmp59 = {34, {34, accum1}}
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ return escape(tmp59, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ ::else8::
+ if exp2.tag == "SOME" and exp2.payload[1] == 13 then
+ else
+ goto else9
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp2.payload[2]
+ local tmp59 = {10, {13, {34, {34, accum1}}}}
+ local tmp60
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ tmp60 = expect(10, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ local strm1 = tmp60[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = tmp60[2]
+ goto cont
+ end
+ ::else9::
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ else
+ _raise(_Match, "parse_toml.sml:170:21")
+ end
+ do
+ local c = exp2.payload[1]
+ local strm_PRIME_PRIME_PRIME = exp2.payload[2]
+ local tmp59 = checkAllowedChar(c)
+ local tmp60 = {tmp59, {34, {34, accum1}}}
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ tmp56 = tmp60
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME_PRIME[2]
+ goto cont
+ end
+ end
+ end
+ ::else4::
+ if exp1.tag == "SOME" and exp1.payload[1] == 92 then
+ else
+ goto else5
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {34, accum1}
+ local strm1 = strm_PRIME_PRIME[1]
+ return escape(tmp59, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else5::
+ if exp1.tag == "SOME" and exp1.payload[1] == 13 then
+ else
+ goto else6
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = {10, {13, {34, accum1}}}
+ local tmp60
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp60 = expect(10, strm1, strm_PRIME_PRIME[2])
+ end
+ local strm1 = tmp60[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = tmp60[2]
+ goto cont
+ end
+ ::else6::
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ else
+ _raise(_Match, "parse_toml.sml:168:16")
+ end
+ do
+ local c = exp1.payload[1]
+ local strm_PRIME_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = checkAllowedChar(c)
+ local tmp60 = {tmp59, {34, accum1}}
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ tmp56 = tmp60
+ tmp57 = strm1
+ tmp58 = strm_PRIME_PRIME_PRIME[2]
+ goto cont
+ end
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 13 then
+ else
+ goto else3
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = {10, {13, accum1}}
+ local tmp60
+ do
+ local strm1 = strm_PRIME[1]
+ tmp60 = expect(10, strm1, strm_PRIME[2])
+ end
+ local strm1 = tmp60[1]
+ tmp56 = tmp59
+ tmp57 = strm1
+ tmp58 = tmp60[2]
+ goto cont
+ end
+ ::else3::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:164:11")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = checkAllowedChar(c)
+ local tmp60 = {tmp59, accum1}
+ local strm1 = strm_PRIME[1]
+ tmp56 = tmp60
+ tmp57 = strm1
+ tmp58 = strm_PRIME[2]
+ goto cont
+ end
+ end
+ end
+ go2 = function(accum, strm, state)
+ local tmp56, tmp57, tmp58 = accum, strm, state
+ ::cont::
+ do
+ local accum1, exp
+ do
+ local strm1, state1
+ accum1, strm1, state1 = tmp56, tmp57, tmp58
+ exp = tmp55(strm1, state1)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 39 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = implodeRev(accum1)
+ return {tmp59, strm_PRIME}
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:248:11")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = c < 32 and c ~= 9
+ local tmp60
+ tmp60 = tmp59 or c == 127
+ if tmp60 then
+ else
+ local tmp61 = {c, accum1}
+ local strm1 = strm_PRIME[1]
+ tmp56 = tmp61
+ tmp57 = strm1
+ tmp58 = strm_PRIME[2]
+ goto cont
+ end
+ do
+ local tmp61 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp61, expected = "printable character"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ end
+ local function readHexIntUnderscore(accum, strm)
+ local tmp56, tmp57 = accum, strm
+ ::cont::
+ do
+ local accum1, strm1 = tmp56, tmp57
+ local exp
+ do
+ local strm2 = strm1[1]
+ exp = tmp55(strm2, strm1[2])
+ end
+ if exp.tag == "NONE" then
+ return {accum1, strm1}
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 95 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ return readHexInt(accum1, strm2, strm_PRIME[2])
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:324:9")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ goto else2
+ end
+ do
+ local tmp58 = _L[22](16)
+ local tmp59 = mul(accum1, tmp58)
+ local tmp60 = _L[22](_Int_sub(c, 48))
+ local tmp61 = add(tmp59, tmp60)
+ tmp56 = tmp61
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ ::else2::
+ if 65 <= c and c <= 70 then
+ else
+ goto else3
+ end
+ do
+ local tmp58 = _L[22](16)
+ local tmp59 = mul(accum1, tmp58)
+ local tmp60 = _L[22](_Int_sub(c, 55))
+ local tmp61 = add(tmp59, tmp60)
+ tmp56 = tmp61
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ ::else3::
+ if 97 <= c and c <= 102 then
+ else
+ return {accum1, strm1}
+ end
+ do
+ local tmp58 = _L[22](16)
+ local tmp59 = mul(accum1, tmp58)
+ local tmp60 = _L[22](_Int_sub(c, 87))
+ local tmp61 = add(tmp59, tmp60)
+ tmp56 = tmp61
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ end
+ end
+ end
+ readHexInt = function(accum, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "hexadecimal digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:292:9")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = _L[22](16)
+ local tmp57 = mul(accum, tmp56)
+ local tmp58 = _L[22](_Int_sub(c, 48))
+ local tmp59 = add(tmp57, tmp58)
+ return readHexIntUnderscore(tmp59, strm_PRIME)
+ end
+ ::else1::
+ if 65 <= c and c <= 70 then
+ else
+ goto else2
+ end
+ do
+ local tmp56 = _L[22](16)
+ local tmp57 = mul(accum, tmp56)
+ local tmp58 = _L[22](_Int_sub(c, 55))
+ local tmp59 = add(tmp57, tmp58)
+ return readHexIntUnderscore(tmp59, strm_PRIME)
+ end
+ ::else2::
+ if 97 <= c and c <= 102 then
+ else
+ goto else3
+ end
+ do
+ local tmp56 = _L[22](16)
+ local tmp57 = mul(accum, tmp56)
+ local tmp58 = _L[22](_Int_sub(c, 87))
+ local tmp59 = add(tmp57, tmp58)
+ return readHexIntUnderscore(tmp59, strm_PRIME)
+ end
+ ::else3::
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "hexadecimal digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local function readOctIntUnderscore(accum, strm)
+ local tmp56, tmp57 = accum, strm
+ ::cont::
+ do
+ local accum1, strm1 = tmp56, tmp57
+ local exp
+ do
+ local strm2 = strm1[1]
+ exp = tmp55(strm2, strm1[2])
+ end
+ if exp.tag == "NONE" then
+ return {accum1, strm1}
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 95 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ return readOctInt(accum1, strm2, strm_PRIME[2])
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:376:9")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 55 then
+ else
+ return {accum1, strm1}
+ end
+ do
+ local tmp58 = _L[22](8)
+ local tmp59 = mul(accum1, tmp58)
+ local tmp60 = _L[22](_Int_sub(c, 48))
+ local tmp61 = add(tmp59, tmp60)
+ tmp56 = tmp61
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ end
+ end
+ end
+ readOctInt = function(accum, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "octal digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:362:9")
+ end
+ do
+ local c
+ do
+ c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 55 then
+ else
+ goto else1
+ end
+ do
+ local tmp56 = _L[22](8)
+ local tmp57 = mul(accum, tmp56)
+ local tmp58 = _L[22](_Int_sub(c, 48))
+ local tmp59 = add(tmp57, tmp58)
+ return readOctIntUnderscore(tmp59, strm_PRIME)
+ end
+ end
+ ::else1::
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "octal digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local function readBinIntUnderscore(accum, strm)
+ local tmp56, tmp57 = accum, strm
+ ::cont::
+ do
+ local accum1, strm1 = tmp56, tmp57
+ local exp
+ do
+ local strm2 = strm1[1]
+ exp = tmp55(strm2, strm1[2])
+ end
+ if exp.tag == "NONE" then
+ return {accum1, strm1}
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 95 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ return readBinInt(accum1, strm2, strm_PRIME[2])
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 48 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp58 = _L[22](2)
+ local tmp59 = mul(accum1, tmp58)
+ tmp56 = tmp59
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 49 then
+ elseif exp.tag == "SOME" then
+ return {accum1, strm1}
+ else
+ _raise(_Match, "parse_toml.sml:409:9")
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp58 = _L[22](2)
+ local tmp59 = mul(accum1, tmp58)
+ local tmp60 = _L[22](1)
+ local tmp61 = add(tmp59, tmp60)
+ tmp56 = tmp61
+ tmp57 = strm_PRIME
+ goto cont
+ end
+ end
+ end
+ readBinInt = function(accum, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "binary digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 48 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = _L[22](2)
+ local tmp57 = mul(accum, tmp56)
+ return readBinIntUnderscore(tmp57, strm_PRIME)
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 49 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp56 = _L[22](2)
+ local tmp57 = mul(accum, tmp56)
+ local tmp58 = _L[22](1)
+ local tmp59 = add(tmp57, tmp58)
+ return readBinIntUnderscore(tmp59, strm_PRIME)
+ end
+ ::else2::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:394:9")
+ end
+ do
+ local tmp56 = toString(exp.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "binary digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local readDecIntUnderscore, readDecInt
+ readDecIntUnderscore = function(accum, hadUnderscore, strm)
+ local tmp56, tmp57, tmp58 = accum, hadUnderscore, strm
+ ::cont::
+ do
+ local accum1, hadUnderscore1, strm1 = tmp56, tmp57, tmp58
+ local exp
+ do
+ local strm2 = strm1[1]
+ exp = tmp55(strm2, strm1[2])
+ end
+ if exp.tag == "NONE" then
+ return {accum1, hadUnderscore1, strm1}
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 95 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local strm2 = strm_PRIME[1]
+ return readDecInt(accum1, true, strm2, strm_PRIME[2])
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ tmp56 = {c, accum1}
+ tmp57 = hadUnderscore1
+ tmp58 = strm_PRIME
+ goto cont
+ else
+ return {accum1, hadUnderscore1, strm1}
+ end
+ else
+ _raise(_Match, "parse_toml.sml:436:9")
+ end
+ end
+ end
+ readDecInt = function(accum, hadUnderscore, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:428:9")
+ end
+ do
+ local c
+ do
+ c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ goto else1
+ end
+ do
+ return readDecIntUnderscore({c, accum}, hadUnderscore, strm_PRIME)
+ end
+ end
+ ::else1::
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local readExpPart = function(accum_PRIME, e, strm, state)
+ local exp
+ do
+ local exp1 = tmp55(strm, state)
+ do
+ if exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "exponent part"}}}, "parse_toml.sml:16:5")
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 43 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp1.payload[2]
+ local tmp56 = {43, {e, accum_PRIME}}
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp = readDecInt(tmp56, false, strm1, strm_PRIME_PRIME_PRIME[2])
+ goto cont
+ end
+ ::else1::
+ if exp1.tag == "SOME" and exp1.payload[1] == 45 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp1.payload[2]
+ local tmp56 = {45, {e, accum_PRIME}}
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp = readDecInt(tmp56, false, strm1, strm_PRIME_PRIME_PRIME[2])
+ goto cont
+ end
+ ::else2::
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:448:13")
+ end
+ do
+ local c
+ do
+ c = exp1.payload[1]
+ local strm_PRIME_PRIME_PRIME = exp1.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ goto else3
+ end
+ exp = readDecIntUnderscore({c, {e, accum_PRIME}}, false, strm_PRIME_PRIME_PRIME)
+ goto cont
+ end
+ ::else3::
+ local tmp56 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "digit or sign (+/-)"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ ::cont::
+ local accum_PRIME_PRIME = exp[1]
+ local strm_PRIME_PRIME_PRIME = exp[3]
+ local tmp56 = implodeRev(accum_PRIME_PRIME)
+ local tmp57 = _L[188](tmp56)
+ return {tmp57, strm_PRIME_PRIME_PRIME}
+ end
+ readSigned = function(sign, d0, strm)
+ local accum, strm_PRIME, checkPrefixZero, exp
+ do
+ local exp1 = readDecIntUnderscore({d0, {sign, nil}}, false, strm)
+ accum = exp1[1]
+ strm_PRIME = exp1[3]
+ checkPrefixZero = function()
+ if accum ~= nil and (accum[2] ~= nil and accum[2][2] == nil) then
+ return nil
+ elseif d0 == 48 then
+ _raise({tag = _L[186], payload = _L[181]}, "parse_toml.sml:470:38")
+ else
+ return nil
+ end
+ end
+ do
+ local strm1 = strm_PRIME[1]
+ exp = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 46 then
+ else
+ goto else1
+ end
+ do
+ local accum_PRIME, strm_PRIME_PRIME_PRIME, exp2
+ do
+ local strm_PRIME_PRIME = exp.payload[2]
+ checkPrefixZero()
+ local tmp56 = {46, accum}
+ local exp3
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp3 = readDecInt(tmp56, false, strm1, strm_PRIME_PRIME[2])
+ end
+ accum_PRIME = exp3[1]
+ strm_PRIME_PRIME_PRIME = exp3[3]
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp2 = tmp55(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ if exp2.tag == "SOME" and exp2.payload[1] == 101 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp2.payload[2]
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readExpPart(accum_PRIME, 101, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ end
+ ::else4::
+ if exp2.tag == "SOME" and exp2.payload[1] == 69 then
+ else
+ goto else5
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp2.payload[2]
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readExpPart(accum_PRIME, 69, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ ::else5::
+ local tmp56 = implodeRev(accum_PRIME)
+ local tmp57 = _L[188](tmp56)
+ return {tmp57, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 101 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME_PRIME = exp.payload[2]
+ checkPrefixZero()
+ local strm1 = strm_PRIME_PRIME[1]
+ return readExpPart(accum, 101, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 69 then
+ else
+ goto else3
+ end
+ do
+ local strm_PRIME_PRIME = exp.payload[2]
+ checkPrefixZero()
+ local strm1 = strm_PRIME_PRIME[1]
+ return readExpPart(accum, 69, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else3::
+ checkPrefixZero()
+ local tmp56 = implodeRev(accum)
+ local tmp57
+ do
+ local tmp58 = scanString(function(a)
+ return scan(DEC, a)
+ end)
+ tmp57 = tmp58(tmp56)
+ end
+ if tmp57.tag == "SOME" then
+ return {{tag = "INTEGER", payload = tmp57.payload}, strm_PRIME}
+ elseif tmp57.tag == "NONE" then
+ _raise(Option, "option.sml:24:18")
+ else
+ _raise(_Match, "option.sml:23:5")
+ end
+ end
+ local readTwoDigit = function(accum, strm, state)
+ local exp = tmp55(strm, state)
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:502:9")
+ end
+ do
+ local c0
+ do
+ c0 = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c0 and c0 <= 57 then
+ else
+ goto else1
+ end
+ do
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "digit"}}}, "parse_toml.sml:16:5")
+ end
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:506:15")
+ end
+ do
+ local c1 = exp1.payload[1]
+ local strm_PRIME_PRIME = exp1.payload[2]
+ if 48 <= c1 and c1 <= 57 then
+ local tmp56 = {c1, {c0, accum}}
+ local tmp57 = _Int_mul(_Int_sub(c0, 48), 10)
+ return {tmp56, _Int_add(tmp57, _Int_sub(c1, 48)), strm_PRIME_PRIME}
+ end
+ local tmp56 = toString(c1)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ ::else1::
+ local tmp56 = toString(c0)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "digit"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ local readMinSec = function(accum, strm, state)
+ local exp = readTwoDigit(accum, strm, state)
+ local accum_PRIME = exp[1]
+ local min = exp[2]
+ local strm_PRIME = exp[3]
+ local strm_PRIME_PRIME
+ do
+ local strm1 = strm_PRIME[1]
+ strm_PRIME_PRIME = expect(58, strm1, strm_PRIME[2])
+ end
+ local tmp56 = {58, accum_PRIME}
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp1 = readTwoDigit(tmp56, strm1, strm_PRIME_PRIME[2])
+ end
+ local accum_PRIME_PRIME = exp1[1]
+ local sec = exp1[2]
+ local strm_PRIME_PRIME_PRIME = exp1[3]
+ local tmp57 = min < 60 and sec <= 60
+ if tmp57 then
+ else
+ _raise({tag = _L[186], payload = _L[184]}, "parse_toml.sml:535:18")
+ end
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp2 = tmp55(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ if exp2.tag == "SOME" and exp2.payload[1] == 46 then
+ else
+ return {accum_PRIME_PRIME, strm_PRIME_PRIME_PRIME}
+ end
+ do
+ local tmp58, tmp59
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp2.payload[2]
+ tmp59, tmp58 = {46, accum_PRIME_PRIME}, strm_PRIME_PRIME_PRIME_PRIME
+ end
+ ::cont::
+ do
+ local accum1, strm1 = tmp59, tmp58
+ local exp3
+ do
+ local strm2 = strm1[1]
+ exp3 = tmp55(strm2, strm1[2])
+ end
+ if exp3.tag == "NONE" then
+ return {accum1, strm1}
+ end
+ if exp3.tag == "SOME" then
+ local c = exp3.payload[1]
+ local strm_PRIME1 = exp3.payload[2]
+ if 48 <= c and c <= 57 then
+ tmp59 = {c, accum1}
+ tmp58 = strm_PRIME1
+ goto cont
+ else
+ return {accum1, strm1}
+ end
+ else
+ _raise(_Match, "parse_toml.sml:520:11")
+ end
+ end
+ end
+ end
+ local readTimePart = function(accum, strm, state)
+ local accum_PRIME_PRIME, strm_PRIME_PRIME, exp
+ do
+ local exp1 = readTwoDigit(accum, strm, state)
+ local accum_PRIME = exp1[1]
+ local hour = exp1[2]
+ local strm_PRIME = exp1[3]
+ if hour < 24 then
+ else
+ _raise({tag = _L[186], payload = _L[184]}, "parse_toml.sml:545:46")
+ end
+ local tmp56 = {58, accum_PRIME}
+ local tmp57
+ do
+ local strm1 = strm_PRIME[1]
+ tmp57 = expect(58, strm1, strm_PRIME[2])
+ end
+ local exp2
+ do
+ local strm1 = tmp57[1]
+ exp2 = readMinSec(tmp56, strm1, tmp57[2])
+ end
+ accum_PRIME_PRIME = exp2[1]
+ strm_PRIME_PRIME = exp2[2]
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp = tmp55(strm1, strm_PRIME_PRIME[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 90 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp.payload[2]
+ local tmp58 = implodeRev({90, accum_PRIME_PRIME})
+ return {{tag = "DATETIME", payload = tmp58}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 122 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp.payload[2]
+ local tmp56 = implodeRev({122, accum_PRIME_PRIME})
+ return {{tag = "DATETIME", payload = tmp56}, strm_PRIME_PRIME_PRIME}
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1] == 43 then
+ else
+ goto else3
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp.payload[2]
+ local tmp56 = {43, accum_PRIME_PRIME}
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp1 = readTwoDigit(tmp56, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ local accum_PRIME_PRIME_PRIME = exp1[1]
+ local offsetHour = exp1[2]
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1[3]
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ strm_PRIME_PRIME_PRIME_PRIME_PRIME = expect(58, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ local tmp57 = {58, accum_PRIME_PRIME_PRIME}
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME_PRIME[1]
+ exp2 = readTwoDigit(tmp57, strm1, strm_PRIME_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ local accum_PRIME_PRIME_PRIME_PRIME = exp2[1]
+ local offsetMin = exp2[2]
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME_PRIME = exp2[3]
+ if offsetHour < 24 and offsetMin < 60 then
+ else
+ _raise({tag = _L[186], payload = _L[184]}, "parse_toml.sml:567:24")
+ end
+ do
+ local tmp58 = implodeRev(accum_PRIME_PRIME_PRIME_PRIME)
+ return {{tag = "DATETIME", payload = tmp58}, strm_PRIME_PRIME_PRIME_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else3::
+ if exp.tag == "SOME" and exp.payload[1] == 45 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME_PRIME_PRIME = exp.payload[2]
+ local tmp56 = {45, accum_PRIME_PRIME}
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp1 = readTwoDigit(tmp56, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ local accum_PRIME_PRIME_PRIME = exp1[1]
+ local offsetHour = exp1[2]
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1[3]
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ strm_PRIME_PRIME_PRIME_PRIME_PRIME = expect(58, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ local tmp57 = {58, accum_PRIME_PRIME_PRIME}
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME_PRIME[1]
+ exp2 = readTwoDigit(tmp57, strm1, strm_PRIME_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ local accum_PRIME_PRIME_PRIME_PRIME = exp2[1]
+ local offsetMin = exp2[2]
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME_PRIME = exp2[3]
+ if offsetHour < 24 and offsetMin < 60 then
+ else
+ _raise({tag = _L[186], payload = _L[184]}, "parse_toml.sml:580:24")
+ end
+ do
+ local tmp58 = implodeRev(accum_PRIME_PRIME_PRIME_PRIME)
+ return {{tag = "DATETIME", payload = tmp58}, strm_PRIME_PRIME_PRIME_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else4::
+ local tmp56 = implodeRev(accum_PRIME_PRIME)
+ return {{tag = "LOCAL_DATETIME", payload = tmp56}, strm_PRIME_PRIME}
+ end
+ readUnsigned = function(d0, strm)
+ local revDigits, hadUnderscore, strm_PRIME, checkPrefixZero, tmp56
+ do
+ local exp = readDecIntUnderscore({d0, nil}, false, strm)
+ revDigits = exp[1]
+ hadUnderscore = exp[2]
+ strm_PRIME = exp[3]
+ checkPrefixZero = function()
+ if revDigits ~= nil and revDigits[2] == nil then
+ return nil
+ elseif d0 == 48 then
+ _raise({tag = _L[186], payload = _L[181]}, "parse_toml.sml:637:38")
+ else
+ return nil
+ end
+ end
+ do
+ local strm1 = strm_PRIME[1]
+ tmp56 = tmp55(strm1, strm_PRIME[2])
+ end
+ local tmp57 = revDigits ~= nil and (revDigits[2] ~= nil and (revDigits[2][2] ~= nil and (revDigits[2][2][2] ~= nil and revDigits[2][2][2][2] == nil)))
+ local tmp58
+ tmp58 = tmp57 and (not hadUnderscore and (tmp56.tag == "SOME" and tmp56.payload[1] == 45))
+ if tmp58 then
+ else
+ goto else1
+ end
+ do
+ local tmp59, accum_PRIME, month, strm_PRIME_PRIME
+ do
+ local tmp60 = revDigits[1]
+ local tmp61 = revDigits[2][1]
+ local tmp62 = revDigits[2][2][1]
+ local strm_PRIME_PRIME1 = tmp56.payload[2]
+ local tmp63 = _Int_mul(_Int_sub(d0, 48), 10)
+ local tmp64 = _Int_mul(_Int_add(tmp63, _Int_sub(tmp62, 48)), 10)
+ local tmp65 = _Int_mul(_Int_add(tmp64, _Int_sub(tmp61, 48)), 10)
+ tmp59 = _Int_add(tmp65, _Int_sub(tmp60, 48))
+ local tmp66 = {45, revDigits}
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME1[1]
+ exp1 = readTwoDigit(tmp66, strm1, strm_PRIME_PRIME1[2])
+ end
+ accum_PRIME = exp1[1]
+ month = exp1[2]
+ local strm_PRIME1 = exp1[3]
+ do
+ local strm1 = strm_PRIME1[1]
+ strm_PRIME_PRIME = expect(45, strm1, strm_PRIME1[2])
+ end
+ end
+ local accum_PRIME_PRIME, strm_PRIME_PRIME_PRIME, tmp60
+ do
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp1 = readTwoDigit(accum_PRIME, strm1, strm_PRIME_PRIME[2])
+ end
+ accum_PRIME_PRIME = exp1[1]
+ local mday = exp1[2]
+ strm_PRIME_PRIME_PRIME = exp1[3]
+ do
+ if month == 1 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ end
+ if month == 2 and mday == 29 then
+ elseif month == 2 then
+ tmp60 = 1 <= mday and mday <= 28
+ goto cont
+ elseif month == 3 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ elseif month == 4 then
+ tmp60 = 1 <= mday and mday <= 30
+ goto cont
+ elseif month == 5 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ elseif month == 6 then
+ tmp60 = 1 <= mday and mday <= 30
+ goto cont
+ elseif month == 7 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ elseif month == 8 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ elseif month == 9 then
+ tmp60 = 1 <= mday and mday <= 30
+ goto cont
+ elseif month == 10 then
+ tmp60 = 1 <= mday and mday <= 31
+ goto cont
+ elseif month == 11 then
+ tmp60 = 1 <= mday and mday <= 30
+ goto cont
+ else
+ tmp60 = month == 12 and (1 <= mday and mday <= 31)
+ goto cont
+ end
+ do
+ local tmp61 = rem(tmp59, 4)
+ if tmp61 == 0 then
+ else
+ tmp60 = false
+ goto cont
+ end
+ do
+ local tmp62 = rem(tmp59, 100)
+ if tmp62 ~= 0 then
+ tmp60 = true
+ goto cont
+ end
+ local tmp63 = rem(tmp59, 400)
+ tmp60 = tmp63 == 0
+ end
+ end
+ end
+ end
+ ::cont::
+ if tmp60 then
+ else
+ _raise({tag = _L[186], payload = _L[183]}, "parse_toml.sml:599:18")
+ end
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 84 then
+ else
+ goto else6
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1.payload[2]
+ local tmp61 = {84, accum_PRIME_PRIME}
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readTimePart(tmp61, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ ::else6::
+ if exp1.tag == "SOME" and exp1.payload[1] == 116 then
+ else
+ goto else7
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1.payload[2]
+ local tmp61 = {84, accum_PRIME_PRIME}
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readTimePart(tmp61, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ ::else7::
+ if exp1.tag == "SOME" and exp1.payload[1] == 32 then
+ else
+ goto else8
+ end
+ do
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1.payload[2]
+ local exp2
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ exp2 = tmp55(strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ if exp2.tag == "SOME" then
+ else
+ goto else9
+ end
+ do
+ do
+ local c = exp2.payload[1]
+ if 48 <= c and c <= 57 then
+ else
+ goto else10
+ end
+ do
+ local tmp61 = {84, accum_PRIME_PRIME}
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readTimePart(tmp61, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ end
+ ::else10::
+ local tmp61 = implodeRev(accum_PRIME_PRIME)
+ return {{tag = "DATE", payload = tmp61}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else9::
+ local tmp61 = implodeRev(accum_PRIME_PRIME)
+ return {{tag = "DATE", payload = tmp61}, strm_PRIME_PRIME_PRIME}
+ end
+ ::else8::
+ local tmp61 = implodeRev(accum_PRIME_PRIME)
+ return {{tag = "DATE", payload = tmp61}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else1::
+ do
+ local tmp57 = revDigits ~= nil and (revDigits[2] ~= nil and revDigits[2][2] == nil)
+ local tmp58
+ tmp58 = tmp57 and (not hadUnderscore and (tmp56.tag == "SOME" and tmp56.payload[1] == 58))
+ if tmp58 then
+ else
+ goto else2
+ end
+ do
+ local tmp59 = revDigits[1]
+ local tmp60 = revDigits[2][1]
+ local strm_PRIME_PRIME = tmp56.payload[2]
+ local tmp61 = _Int_mul(_Int_sub(tmp60, 48), 10)
+ if _Int_add(tmp61, _Int_sub(tmp59, 48)) < 24 then
+ else
+ _raise({tag = _L[186], payload = _L[184]}, "parse_toml.sml:652:45")
+ end
+ local tmp62 = {58, revDigits}
+ local exp
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp = readMinSec(tmp62, strm1, strm_PRIME_PRIME[2])
+ end
+ local accum = exp[1]
+ local strm_PRIME_PRIME_PRIME = exp[2]
+ local tmp63 = implodeRev(accum)
+ return {{tag = "TIME", payload = tmp63}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ ::else2::
+ if tmp56.tag == "SOME" and tmp56.payload[1] == 46 then
+ else
+ goto else3
+ end
+ do
+ local accum, strm_PRIME_PRIME_PRIME, exp
+ do
+ local strm_PRIME_PRIME = tmp56.payload[2]
+ checkPrefixZero()
+ local tmp57 = {46, revDigits}
+ local exp1
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ exp1 = readDecInt(tmp57, false, strm1, strm_PRIME_PRIME[2])
+ end
+ accum = exp1[1]
+ strm_PRIME_PRIME_PRIME = exp1[3]
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ exp = tmp55(strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 101 then
+ else
+ goto else6
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp.payload[2]
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readExpPart(accum, 101, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ end
+ ::else6::
+ if exp.tag == "SOME" and exp.payload[1] == 69 then
+ else
+ goto else7
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME = exp.payload[2]
+ local strm1 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ return readExpPart(accum, 69, strm1, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ ::else7::
+ local tmp57 = implodeRev(accum)
+ local tmp58 = _L[188](tmp57)
+ return {tmp58, strm_PRIME_PRIME_PRIME}
+ end
+ ::else3::
+ if tmp56.tag == "SOME" and tmp56.payload[1] == 101 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME_PRIME = tmp56.payload[2]
+ checkPrefixZero()
+ local strm1 = strm_PRIME_PRIME[1]
+ return readExpPart(revDigits, 101, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else4::
+ if tmp56.tag == "SOME" and tmp56.payload[1] == 69 then
+ else
+ goto else5
+ end
+ do
+ local strm_PRIME_PRIME = tmp56.payload[2]
+ checkPrefixZero()
+ local strm1 = strm_PRIME_PRIME[1]
+ return readExpPart(revDigits, 69, strm1, strm_PRIME_PRIME[2])
+ end
+ ::else5::
+ checkPrefixZero()
+ local tmp57 = implodeRev(revDigits)
+ local tmp58
+ do
+ local tmp59 = scanString(function(a)
+ return scan(DEC, a)
+ end)
+ tmp58 = tmp59(tmp57)
+ end
+ if tmp58.tag == "SOME" then
+ return {{tag = "INTEGER", payload = tmp58.payload}, strm_PRIME}
+ elseif tmp58.tag == "NONE" then
+ _raise(Option, "option.sml:24:18")
+ else
+ _raise(_Match, "option.sml:23:5")
+ end
+ end
+ end
+ local readKey, IMPLICIT_HEADER, finalizeTable, readKeyval, insertKeyval, insertTable
+ do
+ local isValidUnquotedKey = function(a)
+ local tmp56
+ do
+ local tmp57
+ if 65 <= a and a <= 90 then
+ tmp56 = true
+ goto cont
+ else
+ tmp57 = 97 <= a and a <= 122
+ end
+ tmp56 = tmp57 or 48 <= a and a <= 57
+ end
+ ::cont::
+ return tmp56 or (a == 45 or a == 95)
+ end
+ local readSimpleKey = function(a)
+ if a.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "key"}}}, "parse_toml.sml:16:5")
+ end
+ if a.tag == "SOME" and a.payload[1] == 34 then
+ else
+ goto else1
+ end
+ do
+ local strm = a.payload[2]
+ local strm1 = strm[1]
+ return go(nil, strm1, strm[2])
+ end
+ ::else1::
+ if a.tag == "SOME" and a.payload[1] == 39 then
+ else
+ goto else2
+ end
+ do
+ local strm = a.payload[2]
+ local strm1 = strm[1]
+ return go2(nil, strm1, strm[2])
+ end
+ ::else2::
+ if a.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:688:11")
+ end
+ do
+ local c0
+ do
+ c0 = a.payload[1]
+ local strm = a.payload[2]
+ local tmp56 = isValidUnquotedKey(c0)
+ if tmp56 then
+ else
+ goto else3
+ end
+ do
+ local tmp57, tmp58 = {c0, nil}, strm
+ ::cont::
+ do
+ local accum, strm_PRIME = tmp57, tmp58
+ local exp
+ do
+ local strm1 = strm_PRIME[1]
+ exp = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp.tag == "NONE" then
+ else
+ goto else4
+ end
+ do
+ local tmp59 = implodeRev(accum)
+ return {tmp59, strm_PRIME}
+ end
+ ::else4::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:694:17")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME_PRIME = exp.payload[2]
+ local tmp59 = isValidUnquotedKey(c)
+ if tmp59 then
+ tmp57 = {c, accum}
+ tmp58 = strm_PRIME_PRIME
+ goto cont
+ end
+ local tmp60 = implodeRev(accum)
+ return {tmp60, strm_PRIME}
+ end
+ end
+ end
+ end
+ ::else3::
+ local tmp56 = toString(c0)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp56, expected = "quote, alphanum, '-', or '_'"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ readKey = function(a)
+ local tmp56, tmp57
+ do
+ local exp = readSimpleKey(a)
+ local k0 = exp[1]
+ local strm = exp[2]
+ local tmp58 = {k0, nil}
+ local tmp59 = skipWhiteSpace(strm)
+ tmp57, tmp56 = tmp58, tmp59
+ end
+ ::cont::
+ do
+ local strm, accum
+ do
+ accum, strm = tmp57, tmp56
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 46 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp58
+ do
+ local strm1 = strm_PRIME[1]
+ tmp58 = skipWhiteSpaceAndGetc(strm1, strm_PRIME[2])
+ end
+ local exp1 = readSimpleKey(tmp58)
+ local k = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ local tmp59 = {k, accum}
+ local tmp60 = skipWhiteSpace(strm_PRIME_PRIME)
+ tmp57 = tmp59
+ tmp56 = tmp60
+ goto cont
+ end
+ end
+ ::else1::
+ local tmp58 = revAppend(accum, nil)
+ return {tmp58, strm}
+ end
+ end
+ local EXACT_HEADER = "EXACT_HEADER"
+ IMPLICIT_HEADER = "IMPLICIT_HEADER"
+ local IMPLICIT_KEYVAL = "IMPLICIT_KEYVAL"
+ local finalize, finalizeValue
+ finalize = function(a)
+ local tmp56 = finalizeTable(a)
+ return {tag = "TABLE", payload = tmp56}
+ end
+ finalizeValue = function(a)
+ if a.tag == "LEAF" then
+ return a.payload
+ end
+ if a.tag == "PARTIAL_TABLE" then
+ else
+ goto else1
+ end
+ do
+ return finalize(a.payload[2])
+ end
+ ::else1::
+ if a.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:733:11")
+ end
+ do
+ local last = a.payload[1]
+ local xs = a.payload[2]
+ local tmp56 = map(finalize)
+ local tmp57 = tmp56(xs)
+ local tmp58 = finalize(last)
+ local tmp59 = revAppend(tmp57, {tmp58, nil})
+ return {tag = "ARRAY", payload = tmp59}
+ end
+ end
+ finalizeTable = function(a)
+ local tmp56 = map(function(a1)
+ local key = a1[1]
+ local tmp57 = finalizeValue(a1[2])
+ return {key, tmp57}
+ end)
+ return tmp56(a)
+ end
+ local function insert(revPath, pt, tmp56, v)
+ if tmp56 ~= nil and tmp56[2] == nil then
+ else
+ goto else1
+ end
+ do
+ local tmp57
+ do
+ tmp57 = tmp56[1]
+ local tmp58 = exists(function(a)
+ return tmp57 == a[1]
+ end)
+ local tmp59 = tmp58(pt)
+ if tmp59 then
+ else
+ goto else2
+ end
+ do
+ local tmp60 = revAppend(revPath, tmp56)
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp60}}, "parse_toml.sml:22:5")
+ end
+ end
+ ::else2::
+ local tmp58 = {{tmp57, {tag = "LEAF", payload = v}}, nil}
+ local tmp59 = revAppend(pt, nil)
+ return revAppend(tmp59, tmp58)
+ end
+ ::else1::
+ if tmp56 ~= nil then
+ elseif tmp56 == nil then
+ _raise(_Match, "parse_toml.sml:781:34")
+ else
+ _raise(_Match, "parse_toml.sml:741:11")
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58 = tmp56[2]
+ local tmp59, tmp60 = nil, pt
+ ::cont::
+ do
+ local accum, tmp61 = tmp59, tmp60
+ if tmp61 == nil then
+ else
+ goto else2
+ end
+ do
+ local tmp62 = insert({tmp57, revPath}, nil, tmp58, v)
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_TABLE", payload = {IMPLICIT_KEYVAL, tmp62}}}, nil})
+ end
+ ::else2::
+ if tmp61 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:748:19")
+ end
+ do
+ local tmp62 = tmp61[1]
+ local key_PRIME = tmp61[1][1]
+ local pv = tmp61[1][2]
+ local tmp63 = tmp61[2]
+ if tmp57 == key_PRIME then
+ else
+ tmp59 = {tmp62, accum}
+ tmp60 = tmp63
+ goto cont
+ end
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp64 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" and pv.payload[1] == "EXACT_HEADER" then
+ else
+ goto else4
+ end
+ do
+ local tmp64 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ ::else4::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ goto else5
+ end
+ do
+ local definedBy = pv.payload[1]
+ local pt_PRIME = pv.payload[2]
+ local tmp64 = insert({tmp57, revPath}, pt_PRIME, tmp58, v)
+ return revAppend(accum, {{key_PRIME, {tag = "PARTIAL_TABLE", payload = {definedBy, tmp64}}}, tmp63})
+ end
+ ::else5::
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:760:23")
+ end
+ do
+ local tmp64 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ end
+ end
+ end
+ end
+ end
+ local readInlineTable, readArray, readValue
+ readKeyval = function(revPath, r)
+ local exp = readKey(r)
+ local key = exp[1]
+ local strm_PRIME = exp[2]
+ local tmp56 = revAppend(key, revPath)
+ local tmp57
+ do
+ local strm = strm_PRIME[1]
+ tmp57 = expect(61, strm, strm_PRIME[2])
+ end
+ local tmp58
+ do
+ local strm = tmp57[1]
+ tmp58 = skipWhiteSpaceAndGetc(strm, tmp57[2])
+ end
+ local exp1 = readValue(tmp56, tmp58)
+ local v = exp1[1]
+ return {key, v, exp1[2]}
+ end
+ readInlineTable = function(revPath, accum, r)
+ local tmp56, tmp57, tmp58 = revPath, accum, r
+ ::cont::
+ do
+ local accum_PRIME, exp
+ do
+ local revPath1, accum1, r1 = tmp56, tmp57, tmp58
+ local exp1 = readKeyval(revPath1, r1)
+ local key = exp1[1]
+ local v = exp1[2]
+ local strm = exp1[3]
+ accum_PRIME = insert(revPath1, accum1, key, v)
+ do
+ local strm1 = strm[1]
+ exp = skipWhiteSpaceAndGetc(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "',' or '}'"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 44 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59
+ do
+ local strm1 = strm_PRIME[1]
+ tmp59 = skipWhiteSpaceAndGetc(strm1, strm_PRIME[2])
+ end
+ tmp56 = revPath1
+ tmp57 = accum_PRIME
+ tmp58 = tmp59
+ goto cont
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1] == 125 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = finalize(accum_PRIME)
+ return {tmp59, strm_PRIME}
+ end
+ ::else2::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:922:11")
+ end
+ do
+ local tmp59 = toString(exp.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp59, expected = "',' or '}'"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ readArray = function(revPath, accum, strm)
+ local tmp56, tmp57, tmp58 = revPath, accum, strm
+ ::cont::
+ do
+ local accum1, revPath1, exp
+ do
+ local strm1
+ revPath1, accum1, strm1 = tmp56, tmp57, tmp58
+ exp = skipWhiteSpaceOrCommentOrNewlineAndGetc(strm1)
+ if exp.tag == "SOME" and exp.payload[1] == 93 then
+ else
+ goto else1
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp59 = revAppend(accum1, nil)
+ return {{tag = "ARRAY", payload = tmp59}, strm_PRIME}
+ end
+ end
+ ::else1::
+ local exp1
+ do
+ local exp2 = readValue(revPath1, exp)
+ local v = exp2[1]
+ exp1 = skipWhiteSpaceOrCommentOrNewlineAndGetc(exp2[2])
+ if exp1.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "',' or ']'"}}}, "parse_toml.sml:16:5")
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 44 then
+ local strm_PRIME_PRIME = exp1.payload[2]
+ tmp56 = revPath1
+ tmp57 = {v, accum1}
+ tmp58 = strm_PRIME_PRIME
+ goto cont
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 93 then
+ else
+ goto else2
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload[2]
+ local tmp59 = revAppend({v, accum1}, nil)
+ return {{tag = "ARRAY", payload = tmp59}, strm_PRIME_PRIME}
+ end
+ end
+ ::else2::
+ if exp1.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:910:16")
+ end
+ do
+ local tmp59 = toString(exp1.payload[1])
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp59, expected = "',' or ']'"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ end
+ readValue = function(revPath, tmp56)
+ if tmp56.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "value"}}}, "parse_toml.sml:16:5")
+ end
+ if tmp56.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:788:11")
+ end
+ do
+ local c = tmp56.payload[1]
+ local strm = tmp56.payload[2]
+ if c == 34 then
+ else
+ goto else1
+ end
+ do
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 34 then
+ else
+ goto else13
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 34 then
+ else
+ return {{tag = "STRING", payload = ""}, strm_PRIME}
+ end
+ do
+ local tmp57 = skipOptionalNewline(exp1.payload[2])
+ local exp2
+ do
+ local strm1 = tmp57[1]
+ exp2 = go1(nil, strm1, tmp57[2])
+ end
+ local s = exp2[1]
+ local strm_PRIME_PRIME_PRIME = exp2[2]
+ return {{tag = "STRING", payload = s}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ end
+ ::else13::
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = go(nil, strm1, strm[2])
+ end
+ local s = exp[1]
+ local strm_PRIME = exp[2]
+ return {{tag = "STRING", payload = s}, strm_PRIME}
+ end
+ ::else1::
+ if c == 39 then
+ else
+ goto else2
+ end
+ do
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 39 then
+ else
+ goto else13
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 39 then
+ else
+ return {{tag = "STRING", payload = ""}, strm_PRIME}
+ end
+ do
+ local strm_PRIME_PRIME_PRIME, s
+ do
+ local tmp57 = skipOptionalNewline(exp1.payload[2])
+ do
+ local tmp58, tmp59, tmp60
+ do
+ local strm1 = tmp57[1]
+ tmp58 = nil
+ tmp59 = strm1
+ tmp60 = tmp57[2]
+ end
+ ::cont1::
+ do
+ local accum, exp2
+ do
+ local strm1, state
+ accum, strm1, state = tmp58, tmp59, tmp60
+ exp2 = tmp55(strm1, state)
+ if exp2.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ end
+ if exp2.tag == "SOME" and exp2.payload[1] == 39 then
+ else
+ goto else14
+ end
+ do
+ local exp3
+ do
+ local strm_PRIME1 = exp2.payload[2]
+ do
+ local strm2 = strm_PRIME1[1]
+ exp3 = tmp55(strm2, strm_PRIME1[2])
+ end
+ if exp3.tag == "SOME" and exp3.payload[1] == 39 then
+ else
+ goto else15
+ end
+ do
+ local exp4
+ do
+ local strm_PRIME_PRIME = exp3.payload[2]
+ do
+ local strm2 = strm_PRIME_PRIME[1]
+ exp4 = tmp55(strm2, strm_PRIME_PRIME[2])
+ end
+ if exp4.tag == "SOME" and exp4.payload[1] == 39 then
+ else
+ goto else16
+ end
+ do
+ local strm_PRIME_PRIME_PRIME1
+ do
+ strm_PRIME_PRIME_PRIME1 = exp4.payload[2]
+ local exp5
+ do
+ local strm2 = strm_PRIME_PRIME_PRIME1[1]
+ exp5 = tmp55(strm2, strm_PRIME_PRIME_PRIME1[2])
+ end
+ if exp5.tag == "SOME" and exp5.payload[1] == 39 then
+ else
+ goto else17
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME
+ do
+ strm_PRIME_PRIME_PRIME_PRIME = exp5.payload[2]
+ local exp6
+ do
+ local strm2 = strm_PRIME_PRIME_PRIME_PRIME[1]
+ exp6 = tmp55(strm2, strm_PRIME_PRIME_PRIME_PRIME[2])
+ end
+ if exp6.tag == "SOME" and exp6.payload[1] == 39 then
+ else
+ goto else18
+ end
+ do
+ local strm_PRIME_PRIME_PRIME_PRIME_PRIME = exp6.payload[2]
+ local tmp61 = implodeRev({39, {39, accum}})
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME_PRIME_PRIME_PRIME
+ s = tmp61
+ goto cont
+ end
+ end
+ ::else18::
+ local tmp61 = implodeRev({39, accum})
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME_PRIME_PRIME
+ s = tmp61
+ goto cont
+ end
+ end
+ ::else17::
+ local tmp61 = implodeRev(accum)
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME_PRIME1
+ s = tmp61
+ goto cont
+ end
+ end
+ ::else16::
+ if exp4.tag == "SOME" then
+ elseif exp4.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ else
+ _raise(_Match, "parse_toml.sml:267:21")
+ end
+ do
+ local c1 = exp4.payload[1]
+ local strm_PRIME_PRIME_PRIME1 = exp4.payload[2]
+ local tmp61 = checkAllowedChar(c1)
+ local tmp62 = {tmp61, {39, {39, accum}}}
+ local strm2 = strm_PRIME_PRIME_PRIME1[1]
+ tmp58 = tmp62
+ tmp59 = strm2
+ tmp60 = strm_PRIME_PRIME_PRIME1[2]
+ goto cont1
+ end
+ end
+ end
+ ::else15::
+ if exp3.tag == "SOME" then
+ elseif exp3.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "closing triple quote"}}}, "parse_toml.sml:16:5")
+ else
+ _raise(_Match, "parse_toml.sml:265:16")
+ end
+ do
+ local c1 = exp3.payload[1]
+ local strm_PRIME_PRIME = exp3.payload[2]
+ local tmp61 = checkAllowedChar(c1)
+ local tmp62 = {tmp61, {39, accum}}
+ local strm2 = strm_PRIME_PRIME[1]
+ tmp58 = tmp62
+ tmp59 = strm2
+ tmp60 = strm_PRIME_PRIME[2]
+ goto cont1
+ end
+ end
+ end
+ ::else14::
+ if exp2.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:262:11")
+ end
+ do
+ local c1 = exp2.payload[1]
+ local strm_PRIME1 = exp2.payload[2]
+ local tmp61 = checkAllowedChar(c1)
+ local tmp62 = {tmp61, accum}
+ local strm1 = strm_PRIME1[1]
+ tmp58 = tmp62
+ tmp59 = strm1
+ tmp60 = strm_PRIME1[2]
+ goto cont1
+ end
+ end
+ end
+ end
+ ::cont::
+ return {{tag = "STRING", payload = s}, strm_PRIME_PRIME_PRIME}
+ end
+ end
+ end
+ ::else13::
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = go2(nil, strm1, strm[2])
+ end
+ local s = exp[1]
+ local strm_PRIME = exp[2]
+ return {{tag = "STRING", payload = s}, strm_PRIME}
+ end
+ ::else2::
+ if c == 91 then
+ else
+ goto else3
+ end
+ do
+ return readArray({"[]", revPath}, nil, strm)
+ end
+ ::else3::
+ if c == 123 then
+ else
+ goto else4
+ end
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = skipWhiteSpaceAndGetc(strm1, strm[2])
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 125 then
+ local strm_PRIME = exp.payload[2]
+ return {{tag = "TABLE", payload = nil}, strm_PRIME}
+ else
+ return readInlineTable(revPath, nil, exp)
+ end
+ end
+ ::else4::
+ if c == 116 then
+ else
+ goto else5
+ end
+ do
+ local tmp57 = {tag = "BOOL", payload = true}
+ local tmp58
+ do
+ local strm1 = strm[1]
+ tmp58 = expect(114, strm1, strm[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(117, strm1, tmp58[2])
+ end
+ local tmp60
+ do
+ local strm1 = tmp59[1]
+ tmp60 = expect(101, strm1, tmp59[2])
+ end
+ return {tmp57, tmp60}
+ end
+ ::else5::
+ if c == 102 then
+ else
+ goto else6
+ end
+ do
+ local tmp57 = {tag = "BOOL", payload = false}
+ local tmp58
+ do
+ local strm1 = strm[1]
+ tmp58 = expect(97, strm1, strm[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(108, strm1, tmp58[2])
+ end
+ local tmp60
+ do
+ local strm1 = tmp59[1]
+ tmp60 = expect(115, strm1, tmp59[2])
+ end
+ local tmp61
+ do
+ local strm1 = tmp60[1]
+ tmp61 = expect(101, strm1, tmp60[2])
+ end
+ return {tmp57, tmp61}
+ end
+ ::else6::
+ if c == 105 then
+ else
+ goto else7
+ end
+ do
+ local tmp57 = _L[188]("inf")
+ local tmp58
+ do
+ local strm1 = strm[1]
+ tmp58 = expect(110, strm1, strm[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(102, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else7::
+ if c == 110 then
+ else
+ goto else8
+ end
+ do
+ local tmp57 = _L[188]("nan")
+ local tmp58
+ do
+ local strm1 = strm[1]
+ tmp58 = expect(97, strm1, strm[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(110, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else8::
+ if c == 43 then
+ else
+ goto else9
+ end
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "digit or 'inf' or 'nan'"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 105 then
+ else
+ goto else13
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[188]("+inf")
+ local tmp58
+ do
+ local strm1 = strm_PRIME[1]
+ tmp58 = expect(110, strm1, strm_PRIME[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(102, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else13::
+ if exp.tag == "SOME" and exp.payload[1] == 110 then
+ else
+ goto else14
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[188]("+nan")
+ local tmp58
+ do
+ local strm1 = strm_PRIME[1]
+ tmp58 = expect(97, strm1, strm_PRIME[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(110, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else14::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:845:18")
+ end
+ do
+ local c_PRIME
+ do
+ c_PRIME = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c_PRIME and c_PRIME <= 57 then
+ else
+ goto else15
+ end
+ do
+ return readSigned(43, c_PRIME, strm_PRIME)
+ end
+ end
+ ::else15::
+ local tmp57 = toString(c_PRIME)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp57, expected = "digit or 'inf' or 'nan'"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ ::else9::
+ if c == 45 then
+ else
+ goto else10
+ end
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = "end of input", expected = "digit or 'inf' or 'nan'"}}}, "parse_toml.sml:16:5")
+ end
+ if exp.tag == "SOME" and exp.payload[1] == 105 then
+ else
+ goto else13
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[188]("-inf")
+ local tmp58
+ do
+ local strm1 = strm_PRIME[1]
+ tmp58 = expect(110, strm1, strm_PRIME[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(102, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else13::
+ if exp.tag == "SOME" and exp.payload[1] == 110 then
+ else
+ goto else14
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[188]("-nan")
+ local tmp58
+ do
+ local strm1 = strm_PRIME[1]
+ tmp58 = expect(97, strm1, strm_PRIME[2])
+ end
+ local tmp59
+ do
+ local strm1 = tmp58[1]
+ tmp59 = expect(110, strm1, tmp58[2])
+ end
+ return {tmp57, tmp59}
+ end
+ ::else14::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:857:18")
+ end
+ do
+ local c_PRIME
+ do
+ c_PRIME = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c_PRIME and c_PRIME <= 57 then
+ else
+ goto else15
+ end
+ do
+ return readSigned(45, c_PRIME, strm_PRIME)
+ end
+ end
+ ::else15::
+ local tmp57 = toString(c_PRIME)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp57, expected = "digit or 'inf' or 'nan'"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ ::else10::
+ if c == 48 then
+ else
+ goto else11
+ end
+ do
+ local exp
+ do
+ local strm1 = strm[1]
+ exp = tmp55(strm1, strm[2])
+ end
+ if exp.tag == "NONE" then
+ else
+ goto else13
+ end
+ do
+ local tmp57 = _L[22](0)
+ return {{tag = "INTEGER", payload = tmp57}, strm}
+ end
+ ::else13::
+ if exp.tag == "SOME" and exp.payload[1] == 120 then
+ else
+ goto else14
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[22](0)
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = readHexInt(tmp57, strm1, strm_PRIME[2])
+ end
+ local x = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ return {{tag = "INTEGER", payload = x}, strm_PRIME_PRIME}
+ end
+ ::else14::
+ if exp.tag == "SOME" and exp.payload[1] == 111 then
+ else
+ goto else15
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[22](0)
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = readOctInt(tmp57, strm1, strm_PRIME[2])
+ end
+ local x = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ return {{tag = "INTEGER", payload = x}, strm_PRIME_PRIME}
+ end
+ ::else15::
+ if exp.tag == "SOME" and exp.payload[1] == 98 then
+ else
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "parse_toml.sml:869:18")
+ end
+ do
+ return readUnsigned(48, strm)
+ end
+ end
+ do
+ local strm_PRIME = exp.payload[2]
+ local tmp57 = _L[22](0)
+ local exp1
+ do
+ local strm1 = strm_PRIME[1]
+ exp1 = readBinInt(tmp57, strm1, strm_PRIME[2])
+ end
+ local x = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ return {{tag = "INTEGER", payload = x}, strm_PRIME_PRIME}
+ end
+ end
+ ::else11::
+ if 48 <= c and c <= 57 then
+ else
+ goto else12
+ end
+ do
+ return readUnsigned(c, strm)
+ end
+ ::else12::
+ local tmp57 = toString(c)
+ _raise({tag = _L[186], payload = {tag = "UNEXPECTED", payload = {encountered = tmp57, expected = "value"}}}, "parse_toml.sml:19:5")
+ end
+ end
+ insertKeyval = function(revPath, pt, tmp56, keys, v)
+ if tmp56 == nil then
+ else
+ goto else1
+ end
+ do
+ return insert(revPath, pt, keys, v)
+ end
+ ::else1::
+ if tmp56 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:972:11")
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58 = tmp56[2]
+ local tmp59, tmp60 = nil, pt
+ ::cont::
+ do
+ local accum, tmp61 = tmp59, tmp60
+ if tmp61 == nil then
+ else
+ goto else2
+ end
+ do
+ local tmp62 = insertKeyval({tmp57, revPath}, nil, tmp58, keys, v)
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_TABLE", payload = {IMPLICIT_HEADER, tmp62}}}, nil})
+ end
+ ::else2::
+ if tmp61 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:976:19")
+ end
+ do
+ local tmp62 = tmp61[1]
+ local key = tmp61[1][1]
+ local pv = tmp61[1][2]
+ local tmp63 = tmp61[2]
+ if tmp57 == key then
+ else
+ tmp59 = {tmp62, accum}
+ tmp60 = tmp63
+ goto cont
+ end
+ do
+ local updated
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp64 = revAppend(revPath, {key, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ goto else4
+ end
+ do
+ local definedBy = pv.payload[1]
+ local pt_PRIME = pv.payload[2]
+ local tmp64 = insertKeyval({tmp57, revPath}, pt_PRIME, tmp58, keys, v)
+ updated = {tag = "PARTIAL_TABLE", payload = {definedBy, tmp64}}
+ goto cont1
+ end
+ ::else4::
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:988:27")
+ end
+ do
+ local last = pv.payload[1]
+ local rest = pv.payload[2]
+ local tmp64 = insertKeyval({tmp57, revPath}, last, tmp58, keys, v)
+ updated = {tag = "PARTIAL_ARRAY", payload = {tmp64, rest}}
+ end
+ end
+ ::cont1::
+ return revAppend(accum, {{key, updated}, tmp63})
+ end
+ end
+ end
+ end
+ end
+ insertTable = function(revPath, pt, tmp56)
+ if tmp56 ~= nil and tmp56[2] == nil then
+ else
+ goto else1
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58, tmp59 = nil, pt
+ ::cont::
+ do
+ local accum, tmp60 = tmp58, tmp59
+ if tmp60 == nil then
+ else
+ goto else2
+ end
+ do
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_TABLE", payload = {EXACT_HEADER, nil}}}, nil})
+ end
+ ::else2::
+ if tmp60 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:1010:19")
+ end
+ do
+ local tmp61 = tmp60[1]
+ local key_PRIME = tmp60[1][1]
+ local pv = tmp60[1][2]
+ local tmp62 = tmp60[2]
+ if tmp57 == key_PRIME then
+ else
+ tmp58 = {tmp61, accum}
+ tmp59 = tmp62
+ goto cont
+ end
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp63 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp63}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" and pv.payload[1] == "IMPLICIT_HEADER" then
+ else
+ goto else4
+ end
+ do
+ return revAppend(accum, {{key_PRIME, {tag = "PARTIAL_TABLE", payload = {EXACT_HEADER, pv.payload[2]}}}, tmp62})
+ end
+ ::else4::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ goto else5
+ end
+ do
+ local tmp63 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp63}}, "parse_toml.sml:22:5")
+ end
+ ::else5::
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:1017:23")
+ end
+ do
+ local tmp63 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp63}}, "parse_toml.sml:22:5")
+ end
+ end
+ end
+ end
+ end
+ ::else1::
+ if tmp56 ~= nil then
+ elseif tmp56 == nil then
+ _raise(_Match, "parse_toml.sml:1069:36")
+ else
+ _raise(_Match, "parse_toml.sml:1008:11")
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58 = tmp56[2]
+ local tmp59, tmp60 = nil, pt
+ ::cont::
+ do
+ local accum, tmp61 = tmp59, tmp60
+ if tmp61 == nil then
+ else
+ goto else2
+ end
+ do
+ local tmp62 = insertTable({tmp57, revPath}, nil, tmp58)
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_TABLE", payload = {IMPLICIT_HEADER, tmp62}}}, nil})
+ end
+ ::else2::
+ if tmp61 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:1036:19")
+ end
+ do
+ local tmp62 = tmp61[1]
+ local key_PRIME = tmp61[1][1]
+ local pv = tmp61[1][2]
+ local tmp63 = tmp61[2]
+ if tmp57 == key_PRIME then
+ else
+ tmp59 = {tmp62, accum}
+ tmp60 = tmp63
+ goto cont
+ end
+ do
+ local updated
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp64 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ goto else4
+ end
+ do
+ local definedBy = pv.payload[1]
+ local pt_PRIME = pv.payload[2]
+ local tmp64 = insertTable({tmp57, revPath}, pt_PRIME, tmp58)
+ updated = {tag = "PARTIAL_TABLE", payload = {definedBy, tmp64}}
+ goto cont1
+ end
+ ::else4::
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:1050:27")
+ end
+ do
+ local last = pv.payload[1]
+ local rest = pv.payload[2]
+ local tmp64 = insertTable({tmp57, revPath}, last, tmp58)
+ updated = {tag = "PARTIAL_ARRAY", payload = {tmp64, rest}}
+ end
+ end
+ ::cont1::
+ return revAppend(accum, {{key_PRIME, updated}, tmp63})
+ end
+ end
+ end
+ end
+ end
+ end
+ local table
+ do
+ local function insertArrayTable(revPath, pt, tmp56)
+ if tmp56 ~= nil and tmp56[2] == nil then
+ else
+ goto else1
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58, tmp59 = nil, pt
+ ::cont::
+ do
+ local accum, tmp60 = tmp58, tmp59
+ if tmp60 == nil then
+ else
+ goto else2
+ end
+ do
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_ARRAY", payload = {nil, nil}}}, nil})
+ end
+ ::else2::
+ if tmp60 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:1072:19")
+ end
+ do
+ local tmp61 = tmp60[1]
+ local key_PRIME = tmp60[1][1]
+ local pv = tmp60[1][2]
+ local tmp62 = tmp60[2]
+ if tmp57 == key_PRIME then
+ else
+ tmp58 = {tmp61, accum}
+ tmp59 = tmp62
+ goto cont
+ end
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp63 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp63}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:1079:23")
+ end
+ do
+ local last = pv.payload[1]
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_ARRAY", payload = {nil, {last, pv.payload[2]}}}}, tmp62})
+ end
+ end
+ do
+ local tmp63 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp63}}, "parse_toml.sml:22:5")
+ end
+ end
+ end
+ end
+ end
+ ::else1::
+ if tmp56 ~= nil then
+ elseif tmp56 == nil then
+ _raise(_Match, "parse_toml.sml:1130:41")
+ else
+ _raise(_Match, "parse_toml.sml:1070:11")
+ end
+ do
+ local tmp57 = tmp56[1]
+ local tmp58 = tmp56[2]
+ local tmp59, tmp60 = nil, pt
+ ::cont::
+ do
+ local accum, tmp61 = tmp59, tmp60
+ if tmp61 == nil then
+ else
+ goto else2
+ end
+ do
+ local tmp62 = insertArrayTable({tmp57, revPath}, nil, tmp58)
+ return revAppend(accum, {{tmp57, {tag = "PARTIAL_TABLE", payload = {IMPLICIT_HEADER, tmp62}}}, nil})
+ end
+ ::else2::
+ if tmp61 ~= nil then
+ else
+ _raise(_Match, "parse_toml.sml:1095:19")
+ end
+ do
+ local tmp62 = tmp61[1]
+ local key_PRIME = tmp61[1][1]
+ local pv = tmp61[1][2]
+ local tmp63 = tmp61[2]
+ if tmp57 == key_PRIME then
+ else
+ tmp59 = {tmp62, accum}
+ tmp60 = tmp63
+ goto cont
+ end
+ do
+ local updated
+ do
+ if pv.tag == "LEAF" then
+ else
+ goto else3
+ end
+ do
+ local tmp64 = revAppend(revPath, {tmp57, nil})
+ _raise({tag = _L[186], payload = {tag = "DUPLICATE_KEY", payload = tmp64}}, "parse_toml.sml:22:5")
+ end
+ ::else3::
+ if pv.tag == "PARTIAL_TABLE" then
+ else
+ goto else4
+ end
+ do
+ local definedBy = pv.payload[1]
+ local pt_PRIME = pv.payload[2]
+ local tmp64 = insertArrayTable({tmp57, revPath}, pt_PRIME, tmp58)
+ updated = {tag = "PARTIAL_TABLE", payload = {definedBy, tmp64}}
+ goto cont1
+ end
+ ::else4::
+ if pv.tag == "PARTIAL_ARRAY" then
+ else
+ _raise(_Match, "parse_toml.sml:1109:27")
+ end
+ do
+ local last = pv.payload[1]
+ local rest = pv.payload[2]
+ local tmp64 = insertArrayTable({tmp57, revPath}, last, tmp58)
+ updated = {tag = "PARTIAL_ARRAY", payload = {tmp64, rest}}
+ end
+ end
+ ::cont1::
+ return revAppend(accum, {{tmp57, updated}, tmp63})
+ end
+ end
+ end
+ end
+ end
+ do
+ local tmp56, tmp57, tmp58, tmp59, tmp60 = nil, nil, nil, tmp54, _L[173]
+ ::cont1::
+ do
+ local prefix, revPath, accum, exp
+ do
+ local strm, state
+ accum, revPath, prefix, strm, state = tmp56, tmp57, tmp58, tmp59, tmp60
+ do
+ local tmp61, tmp62, tmp63 = revPath, strm, state
+ ::cont3::
+ do
+ local revPath1, exp1
+ do
+ local strm1, state1
+ revPath1, strm1, state1 = tmp61, tmp62, tmp63
+ exp1 = skipWhiteSpaceAndGetc(strm1, state1)
+ if exp1.tag == "NONE" then
+ exp = NONE
+ goto cont2
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 10 then
+ local strm_PRIME = exp1.payload[2]
+ local strm2 = strm_PRIME[1]
+ tmp61 = revPath1
+ tmp62 = strm2
+ tmp63 = strm_PRIME[2]
+ goto cont3
+ end
+ if exp1.tag == "SOME" and exp1.payload[1] == 13 then
+ else
+ goto else4
+ end
+ do
+ local strm_PRIME = exp1.payload[2]
+ local tmp64
+ do
+ local strm2 = strm_PRIME[1]
+ tmp64 = expect(10, strm2, strm_PRIME[2])
+ end
+ local strm2 = tmp64[1]
+ tmp61 = revPath1
+ tmp62 = strm2
+ tmp63 = tmp64[2]
+ goto cont3
+ end
+ end
+ ::else4::
+ if exp1.tag == "SOME" and exp1.payload[1] == 35 then
+ else
+ goto else5
+ end
+ do
+ local tmp64 = skipUntilNewline(exp1.payload[2])
+ local strm1 = tmp64[1]
+ tmp61 = revPath1
+ tmp62 = strm1
+ tmp63 = tmp64[2]
+ goto cont3
+ end
+ ::else5::
+ if exp1.tag == "SOME" and exp1.payload[1] == 91 then
+ else
+ goto else6
+ end
+ do
+ local strm_PRIME
+ do
+ strm_PRIME = exp1.payload[2]
+ local exp2
+ do
+ local strm1 = strm_PRIME[1]
+ exp2 = tmp55(strm1, strm_PRIME[2])
+ end
+ if exp2.tag == "SOME" and exp2.payload[1] == 91 then
+ else
+ goto else7
+ end
+ do
+ local strm_PRIME_PRIME = exp2.payload[2]
+ local tmp64
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ tmp64 = skipWhiteSpaceAndGetc(strm1, strm_PRIME_PRIME[2])
+ end
+ local exp3 = readKey(tmp64)
+ local key = exp3[1]
+ local strm_PRIME_PRIME_PRIME = exp3[2]
+ local tmp65
+ do
+ local strm1 = strm_PRIME_PRIME_PRIME[1]
+ tmp65 = expect(93, strm1, strm_PRIME_PRIME_PRIME[2])
+ end
+ local strm_PRIME_PRIME_PRIME_PRIME
+ do
+ local strm1 = tmp65[1]
+ strm_PRIME_PRIME_PRIME_PRIME = expect(93, strm1, tmp65[2])
+ end
+ local tmp66 = {tag = "ARRAY_TABLE", payload = key}
+ local tmp67 = skipWhiteSpaceOrComment(strm_PRIME_PRIME_PRIME_PRIME)
+ exp = {tag = "SOME", payload = {tmp66, tmp67}}
+ goto cont2
+ end
+ end
+ ::else7::
+ local tmp64
+ do
+ local strm1 = strm_PRIME[1]
+ tmp64 = skipWhiteSpaceAndGetc(strm1, strm_PRIME[2])
+ end
+ local exp2 = readKey(tmp64)
+ local key = exp2[1]
+ local strm_PRIME_PRIME = exp2[2]
+ local strm_PRIME_PRIME_PRIME
+ do
+ local strm1 = strm_PRIME_PRIME[1]
+ strm_PRIME_PRIME_PRIME = expect(93, strm1, strm_PRIME_PRIME[2])
+ end
+ local tmp65 = {tag = "STD_TABLE", payload = key}
+ local tmp66 = skipWhiteSpaceOrComment(strm_PRIME_PRIME_PRIME)
+ exp = {tag = "SOME", payload = {tmp65, tmp66}}
+ goto cont2
+ end
+ ::else6::
+ local exp2 = readKeyval(revPath1, exp1)
+ local key = exp2[1]
+ local v = exp2[2]
+ local strm_PRIME = exp2[3]
+ local tmp64 = {tag = "KEYVAL", payload = {key, v}}
+ local tmp65 = skipWhiteSpaceOrComment(strm_PRIME)
+ exp = {tag = "SOME", payload = {tmp64, tmp65}}
+ end
+ end
+ end
+ ::cont2::
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ table = finalizeTable(accum)
+ goto cont
+ ::else1::
+ if exp.tag == "SOME" and exp.payload[1].tag == "ARRAY_TABLE" then
+ else
+ goto else2
+ end
+ do
+ local key = exp.payload[1].payload
+ local strm_PRIME = exp.payload[2]
+ local tmp61 = insertArrayTable(nil, accum, key)
+ local tmp62 = revAppend(key, nil)
+ local tmp63 = {"[]", tmp62}
+ local strm = strm_PRIME[1]
+ tmp56 = tmp61
+ tmp57 = tmp63
+ tmp58 = key
+ tmp59 = strm
+ tmp60 = strm_PRIME[2]
+ goto cont1
+ end
+ ::else2::
+ if exp.tag == "SOME" and exp.payload[1].tag == "STD_TABLE" then
+ else
+ goto else3
+ end
+ do
+ local key = exp.payload[1].payload
+ local strm_PRIME = exp.payload[2]
+ local tmp61 = insertTable(nil, accum, key)
+ local tmp62 = revAppend(key, nil)
+ local strm = strm_PRIME[1]
+ tmp56 = tmp61
+ tmp57 = tmp62
+ tmp58 = key
+ tmp59 = strm
+ tmp60 = strm_PRIME[2]
+ goto cont1
+ end
+ ::else3::
+ if exp.tag == "SOME" and exp.payload[1].tag == "KEYVAL" then
+ else
+ _raise(_Match, "parse_toml.sml:1132:9")
+ end
+ do
+ local key = exp.payload[1].payload[1]
+ local v = exp.payload[1].payload[2]
+ local strm_PRIME = exp.payload[2]
+ local tmp61 = insertKeyval(nil, accum, prefix, key, v)
+ local strm = strm_PRIME[1]
+ tmp56 = tmp61
+ tmp57 = revPath
+ tmp58 = prefix
+ tmp59 = strm
+ tmp60 = strm_PRIME[2]
+ goto cont1
+ end
+ end
+ end
+ end
+ ::cont::
+ local tmp56, color, tmp57, tmp58, tmp59, tmp60
+ do
+ local tmp61 = _L[364](table, "temporary-directory")
+ tmp56 = _L[366](tmp61, function(a)
+ if a.tag == "STRING" then
+ return {tag = "SOME", payload = a.payload}
+ end
+ _L[302]("Config entry temporary-directory should be a string.")
+ return NONE
+ end)
+ local tmp62 = _L[364](table, "color")
+ color = _L[366](tmp62, function(a)
+ if a.tag == "TABLE" then
+ return {tag = "SOME", payload = a.payload}
+ end
+ _L[302]("Config entry color should be a table.")
+ return NONE
+ end)
+ local tmp63 = _L[365](color, "type")
+ local tmp64 = _L[369]("color.type")
+ tmp57 = _L[366](tmp63, tmp64)
+ local tmp65 = _L[365](color, "execute")
+ local tmp66 = _L[369]("color.execute")
+ tmp58 = _L[366](tmp65, tmp66)
+ local tmp67 = _L[365](color, "error")
+ local tmp68 = _L[369]("color.error")
+ tmp59 = _L[366](tmp67, tmp68)
+ local tmp69 = _L[365](color, "warning")
+ local tmp70 = _L[369]("color.warning")
+ tmp60 = _L[366](tmp69, tmp70)
+ end
+ local tmp61 = _L[365](color, "diagnostic")
+ local tmp62 = _L[369]("color.diagnostic")
+ local tmp63 = _L[366](tmp61, tmp62)
+ local tmp64 = _L[365](color, "information")
+ local tmp65 = _L[369]("color.information")
+ local tmp66 = _L[366](tmp64, tmp65)
+ return {color = {diagnostic = tmp63, error = tmp59, execute = tmp58, information = tmp66, type_ = tmp57, warning = tmp60}, temporary_directory = tmp56}
+ end)
+ if not _L[552] then
+ if __exn_instanceof(_L[553], _L[9]) then
+ _L[541] = _L[363]
+ goto cont6
+ end
+ if __exn_instanceof(_L[553], _L[171]) then
+ else
+ goto else2
+ end
+ _L[301]("Config file " .. _L[551] .. " is not UTF-8 encoded.")
+ _L[541] = _L[363]
+ goto cont6
+ ::else2::
+ if __exn_instanceof(_L[553], _L[186]) then
+ else
+ _raise(_L[553], nil)
+ end
+ do
+ _L[554] = _L[553].payload
+ _L[555] = "Config file " .. _L[551] .. " is not a valid TOML file: "
+ do
+ if _L[554].tag == "UNEXPECTED" then
+ _L[557] = _L[554].payload.encountered
+ _L[558] = _L[554].payload.expected
+ _L[556] = "unexpected " .. _L[557] .. ", expected " .. _L[558]
+ goto cont19
+ end
+ if _L[554].tag == "PREFIX_ZERO" then
+ _L[556] = "prefix 0 is disallowed"
+ goto cont19
+ end
+ if _L[554].tag == "INVALID_UNICODE_SCALAR" then
+ _L[556] = "invalid Unicode scalar"
+ goto cont19
+ end
+ if _L[554].tag == "INVALID_DATE" then
+ _L[556] = "invalid date"
+ goto cont19
+ end
+ if _L[554].tag == "INVALID_TIME" then
+ _L[556] = "invalid time"
+ goto cont19
+ end
+ if _L[554].tag == "DUPLICATE_KEY" then
+ else
+ _raise(_Match, "error.sml:24:9")
+ end
+ do
+ _L[559] = _L[554].payload
+ _L[560] = map(_L[185])
+ _L[561] = _L[560](_L[559])
+ _L[556] = "duplicate key at " .. table_concat(_VectorOrArray_fromList(_L[561]), ".")
+ end
+ end
+ ::cont19::
+ _L[301](_L[555] .. _L[556])
+ _L[541] = _L[363]
+ end
+ else
+ _L[541] = _L[553]
+ end
+ end
+ end
+ ::cont6::
+ _L[562] = app(_L[294])
+ _L[562](_L[541].color.type_)
+ _L[563] = app(_L[295])
+ _L[563](_L[541].color.execute)
+ _L[564] = app(_L[296])
+ _L[564](_L[541].color.error)
+ _L[565] = app(_L[297])
+ _L[565](_L[541].color.warning)
+ _L[566] = app(_L[298])
+ _L[566](_L[541].color.diagnostic)
+ _L[567] = app(_L[299])
+ _L[567](_L[541].color.information)
+ _L[568] = _L[538].watch
+ do
+ if _L[538].color.tag == "NONE" then
+ else
+ goto cont7
+ end
+ _L[280](_L[277])
+ end
+ ::cont7::
+ do
+ if _L[539] == nil then
+ else
+ goto else2
+ end
+ _L[569] = _L[373]()
+ goto cont8
+ ::else2::
+ if _L[539] ~= nil and _L[539][2] == nil then
+ _L[569] = _L[539][1]
+ goto cont8
+ end
+ _L[301]("Multiple input files are not supported.")
+ tmp15(1, true)
+ end
+ ::cont8::
+ _L[570] = _L[538].engine
+ do
+ if _L[570].tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ _L[577] = _L[570].payload
+ _L[578] = _L[254](_L[577])
+ if _L[578].tag == "SOME" then
+ _L[579] = _L[578].payload
+ _L[580] = _L[579].dvi_extension
+ _L[581] = _L[579].engine_type
+ _L[582] = _L[579].executable
+ _L[583] = _L[579].name
+ _L[584] = _L[579].supports_draftmode
+ _L[576] = _L[579].supports_pdf_generation
+ _L[575] = _L[584]
+ _L[574] = _L[583]
+ _L[573] = _L[582]
+ _L[572] = _L[581]
+ _L[571] = _L[580]
+ goto cont9
+ end
+ if _L[578].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:793:50")
+ end
+ _L[301]("Unknown engine name '" .. _L[577] .. "'.")
+ tmp15(1, true)
+ end
+ ::else2::
+ if _L[570].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:792:32")
+ end
+ do
+ do
+ _L[586] = _L[154][0]
+ if _L[586] == nil then
+ else
+ _L[585] = _L[586]
+ goto cont18
+ end
+ do
+ _L[587] = _Fail("CommandLine.name: arg is not available")
+ _raise(_L[587], "command-line.sml:10:45")
+ end
+ end
+ ::cont18::
+ _L[588] = _L[211](_L[585])
+ _L[589] = _L[213](_L[588])
+ _L[590] = isPrefix("cl")
+ _L[591] = _L[590](_L[589])
+ do
+ if _L[591] then
+ else
+ _L[592] = false
+ goto cont19
+ end
+ do
+ _L[593] = tmp32(isAlphaNum)
+ _L[592] = _L[593](_L[589])
+ end
+ end
+ ::cont19::
+ if _L[592] then
+ else
+ goto else3
+ end
+ do
+ _L[594] = extract(_L[589], 2, NONE)
+ _L[595] = _L[254](_L[594])
+ if _L[595].tag == "NONE" then
+ elseif _L[595].tag == "SOME" then
+ _L[596] = _L[595].payload
+ _L[597] = _L[596].dvi_extension
+ _L[598] = _L[596].engine_type
+ _L[599] = _L[596].executable
+ _L[600] = _L[596].name
+ _L[601] = _L[596].supports_draftmode
+ _L[576] = _L[596].supports_pdf_generation
+ _L[575] = _L[601]
+ _L[574] = _L[600]
+ _L[573] = _L[599]
+ _L[572] = _L[598]
+ _L[571] = _L[597]
+ goto cont9
+ else
+ _raise(_Match, "main.sml:806:51")
+ end
+ _L[301]("Engine not specified.")
+ tmp15(1, true)
+ end
+ ::else3::
+ _L[301]("Engine not specified.")
+ tmp15(1, true)
+ end
+ end
+ ::cont9::
+ _L[602] = getOpt(_L[538].output_format, _L[230])
+ do
+ if _L[602] == "PDF" then
+ else
+ goto else2
+ end
+ do
+ _L[604] = _L[538].check_driver
+ do
+ if _L[604].tag == "NONE" then
+ goto cont18
+ end
+ if _L[604].tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:815:44")
+ end
+ _L[301]("--check-driver can only be used when the output format is DVI.")
+ tmp15(1, true)
+ end
+ ::cont18::
+ if _L[576] then
+ else
+ _L[603] = {tag = "SOME", payload = _L[305]}
+ goto cont10
+ end
+ do
+ _L[605] = _L[237](_L[572], _L[235])
+ if _L[605] then
+ _L[603] = {tag = "SOME", payload = _L[310]}
+ goto cont10
+ end
+ _L[606] = _L[237](_L[572], _L[234])
+ if _L[606] then
+ _L[603] = {tag = "SOME", payload = _L[309]}
+ goto cont10
+ end
+ _L[607] = _L[237](_L[572], _L[233])
+ if _L[607] then
+ _L[603] = {tag = "SOME", payload = _L[308]}
+ goto cont10
+ end
+ _L[302]("Unknown engine: " .. _L[574])
+ _L[302]("Driver check will not work.")
+ _L[603] = NONE
+ goto cont10
+ end
+ end
+ ::else2::
+ if _L[602] == "DVI" then
+ _L[608] = _L[538].check_driver
+ if _L[608].tag == "SOME" and _L[608].payload == "DVIPDFMX" then
+ _L[603] = {tag = "SOME", payload = _L[305]}
+ elseif _L[608].tag == "SOME" and _L[608].payload == "DVIPS" then
+ _L[603] = {tag = "SOME", payload = _L[306]}
+ elseif _L[608].tag == "SOME" and _L[608].payload == "DVISVGM" then
+ _L[603] = {tag = "SOME", payload = _L[307]}
+ elseif _L[608].tag == "NONE" then
+ _L[603] = NONE
+ else
+ _raise(_Match, "main.sml:837:42")
+ end
+ else
+ _raise(_Match, "main.sml:813:38")
+ end
+ end
+ ::cont10::
+ _L[609] = _L[538].jobname
+ do
+ if _L[609].tag == "SOME" then
+ _L[612] = _L[609].payload
+ _L[611] = _L[612]
+ _L[610] = _L[612]
+ goto cont11
+ end
+ if _L[609].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:842:55")
+ end
+ do
+ _L[613] = _L[213](_L[569])
+ _L[614] = _L[211](_L[613])
+ _L[611] = _L[614]
+ _L[610] = tmp21(_L[614], ".", function(a)
+ local tmp54 = tmp19(a)
+ if tmp54 == 32 then
+ return "_"
+ end
+ local tmp55 = isSpace(tmp54)
+ local tmp56
+ tmp56 = tmp55 or (tmp54 == 34 or (tmp54 == 36 or (tmp54 == 37 or (tmp54 == 38 or (tmp54 == 39 or (tmp54 == 40 or (tmp54 == 41 or (tmp54 == 59 or (tmp54 == 60 or (tmp54 == 62 or (tmp54 == 92 or (tmp54 == 94 or (tmp54 == 96 or tmp54 == 124)))))))))))))
+ if tmp56 then
+ local tmp57 = tmp54
+ local s
+ if tmp57 >= 0 then
+ s = string_format("%X", tmp57)
+ else
+ s = string_format("~%X", - tmp57)
+ end
+ if tmp57 <= 15 then
+ return "_0" .. s
+ else
+ return "_" .. s
+ end
+ else
+ return string_char(tmp54)
+ end
+ end)
+ end
+ end
+ ::cont11::
+ if _L[602] == "DVI" then
+ _L[615] = _L[571]
+ elseif _L[602] == "PDF" then
+ _L[615] = "pdf"
+ else
+ _raise(_Match, "main.sml:847:42")
+ end
+ _L[616] = _L[538].output
+ if _L[616].tag == "NONE" then
+ _L[617] = _L[611] .. "." .. _L[615]
+ elseif _L[616].tag == "SOME" then
+ _L[617] = _L[616].payload
+ else
+ _raise(_Match, "main.sml:850:49")
+ end
+ _L[618] = _L[538].output_directory
+ do
+ if _L[618].tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ _L[620] = _L[618].payload
+ if _L[538].fresh then
+ else
+ _L[619] = _L[620]
+ goto cont12
+ end
+ _L[301]("--fresh and --output-directory cannot be used together.")
+ tmp15(1, true)
+ end
+ ::else2::
+ if _L[618].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:854:25")
+ end
+ do
+ _L[621] = _L[215](NONE, _L[569])
+ _L[622] = _L[541].temporary_directory
+ _L[623] = getOpt(_L[538].engine_executable, _L[573])
+ do
+ do
+ _L[626] = _L[191](table_concat({n = 3, _L[621], _L[610], _L[623]}, "\x00"))
+ _L[627] = _L[626][1]
+ _L[628] = _L[626][2]
+ _L[629] = _L[626][3]
+ _L[625] = _L[193](_L[627], _L[628], _L[629], _L[626][4])
+ end
+ do
+ if _L[622].tag == "SOME" then
+ _L[630] = _L[622].payload
+ goto cont18
+ end
+ if _L[622].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:34:24")
+ end
+ do
+ _L[631] = _L[372]({"TMPDIR", {"TMP", {"TEMP", nil}}})
+ if _L[631].tag == "SOME" then
+ _L[630] = _L[631].payload
+ goto cont18
+ end
+ if _L[631].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:36:36")
+ end
+ do
+ _L[632] = _L[372]({"HOME", {"USERPROFILE", nil}})
+ if _L[632].tag == "SOME" then
+ else
+ goto else4
+ end
+ _L[630] = _L[77]({dir = _L[632].payload, file = ".latex-build-temp"})
+ goto cont18
+ ::else4::
+ if _L[632].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:38:48")
+ end
+ do
+ _L[633] = _Fail("environment variable 'TMPDIR' not set!")
+ _raise(_L[633], "main.sml:40:60")
+ end
+ end
+ end
+ end
+ ::cont18::
+ _L[624] = _L[77]({dir = _L[630], file = "cluttex-" .. _L[625]})
+ end
+ _L[634] = _L[219](_L[624])
+ if not _L[634] then
+ else
+ goto else3
+ end
+ do
+ _L[635], _L[636] = _L[217].mkdir_rec(_L[624])
+ if not _L[635] then
+ else
+ _L[619] = _L[624]
+ goto cont12
+ end
+ do
+ _L[637] = _Error(_L[636])
+ _raise(_L[637], "fs-util.sml:16:28")
+ end
+ end
+ ::else3::
+ if _L[538].fresh then
+ else
+ _L[619] = _L[624]
+ goto cont12
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ goto else4
+ end
+ do
+ _L[304]("Cleaning '" .. _L[624] .. "'...")
+ _L[638], _L[639] = _L[217].remove_rec(_L[624])
+ if not _L[638] then
+ else
+ goto else6
+ end
+ do
+ _L[640] = _Error(_L[639])
+ _raise(_L[640], "fs-util.sml:22:29")
+ end
+ ::else6::
+ _L[65](_L[624])
+ _L[619] = _L[624]
+ goto cont12
+ end
+ ::else4::
+ _L[641], _L[642] = _L[217].remove_rec(_L[624])
+ if not _L[641] then
+ else
+ goto else5
+ end
+ do
+ _L[643] = _Error(_L[642])
+ _raise(_L[643], "fs-util.sml:22:29")
+ end
+ ::else5::
+ _L[65](_L[624])
+ _L[619] = _L[624]
+ end
+ end
+ end
+ ::cont12::
+ do
+ if _L[538].print_output_directory then
+ else
+ goto cont13
+ end
+ do
+ _L[644] = _L[619] .. "\n"
+ _L[645] = _L[113].getOutstream(_L[116])
+ if _L[645].tag == "LUA_WRITABLE" then
+ else
+ goto else2
+ end
+ do
+ _L[646] = _L[645].payload.writable
+ _L[101](_L[646], _L[645].payload.name, _L[644])
+ _L[646]:flush()
+ tmp15(0, true)
+ end
+ ::else2::
+ if _L[645].tag == "PRIM_WRITER" then
+ else
+ _raise(_Match, "text-io.sml:392:9")
+ end
+ do
+ _L[647] = _L[645].payload.writer.name
+ _L[648] = _L[645].payload.writer.writeVec
+ _L[649] = _L[645].payload.buffer
+ _L[650] = revAppend({_L[644], _L[649][1]}, nil)
+ _L[651] = table_concat(_VectorOrArray_fromList(_L[650]))
+ if _L[648].tag == "SOME" then
+ elseif _L[648].tag == "NONE" then
+ _raise({tag = _L[9], payload = {cause = _L[10], ["function"] = "output", name = _L[647]}}, "text-io.sml:397:26")
+ else
+ _raise(_Match, "text-io.sml:395:14")
+ end
+ do
+ _L[652] = _L[648].payload
+ _L[653] = tmp28(_L[651])
+ _L[652](_L[653])
+ _L[649][1] = nil
+ tmp15(0, true)
+ end
+ end
+ end
+ end
+ ::cont13::
+ if _L[220] then
+ _L[654] = ";"
+ else
+ _L[654] = ":"
+ end
+ _L[655] = _L[64](nil)
+ _L[656] = getOpt(_L[538].change_directory, false)
+ do
+ if _L[656] then
+ else
+ _L[659] = {tag = "SOME", payload = _L[619]}
+ _L[658] = _L[619]
+ _L[657] = _L[617]
+ goto cont14
+ end
+ do
+ do
+ _L[661] = tmp16("TEXINPUTS")
+ if _L[661] == nil then
+ _L[660] = NONE
+ else
+ _L[660] = {tag = "SOME", payload = _L[661]}
+ end
+ end
+ _L[662] = getOpt(_L[660], "")
+ do
+ _L[664] = tmp16("LUAINPUTS")
+ if _L[664] == nil then
+ _L[663] = NONE
+ else
+ _L[663] = {tag = "SOME", payload = _L[664]}
+ end
+ end
+ _L[665] = getOpt(_L[663], "")
+ _L[63](_L[619])
+ _L[221]("TEXINPUTS", _L[655] .. _L[654] .. _L[662])
+ _L[221]("LUAINPUTS", _L[655] .. _L[654] .. _L[665])
+ _L[666] = _L[215]({tag = "SOME", payload = _L[655]}, _L[617])
+ _L[659] = NONE
+ _L[658] = "."
+ _L[657] = _L[666]
+ end
+ end
+ ::cont14::
+ _L[667] = _L[538].bibtex_or_biber
+ do
+ if _L[667].tag == "SOME" then
+ elseif _L[667].tag == "NONE" then
+ _L[668] = _L[657]
+ goto cont15
+ else
+ _raise(_Match, "main.sml:902:32")
+ end
+ do
+ do
+ _L[670] = tmp16("BIBINPUTS")
+ if _L[670] == nil then
+ _L[669] = NONE
+ else
+ _L[669] = {tag = "SOME", payload = _L[670]}
+ end
+ end
+ _L[671] = getOpt(_L[669], "")
+ _L[221]("BIBINPUTS", _L[655] .. _L[654] .. _L[671])
+ _L[668] = _L[215]({tag = "SOME", payload = _L[655]}, _L[617])
+ end
+ end
+ ::cont15::
+ do
+ _L[673] = tmp16("max_print_line")
+ if _L[673] == nil then
+ _L[672] = NONE
+ else
+ _L[672] = {tag = "SOME", payload = _L[673]}
+ end
+ end
+ if _L[672].tag == "NONE" then
+ _L[221]("max_print_line", "16384")
+ elseif _L[672].tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:919:28")
+ end
+ _L[674] = _L[610] .. "." .. "fls"
+ _L[675] = _L[210].join(_L[658], _L[674])
+ _L[676] = _L[610] .. "." .. "cluttex-fls"
+ _L[677] = _L[210].join(_L[658], _L[676])
+ if _L[602] == "DVI" then
+ _L[678] = _L[231]
+ goto cont16
+ end
+ if _L[602] == "PDF" then
+ if _L[576] then
+ _L[678] = _L[230]
+ else
+ _L[678] = _L[231]
+ end
+ else
+ _raise(_Match, "main.sml:928:43")
+ end
+ ::cont16::
+ _L[679] = _L[237](_L[572], _L[235])
+ if _L[679] then
+ _L[681] = _L[610] .. "." .. "cluttexinit.lua"
+ _L[682] = _L[210].join(_L[658], _L[681])
+ _L[683] = _L[538].file_line_error
+ _L[684] = {file_line_error = _L[683], halt_on_error = _L[538].halt_on_error, jobname = _L[610], output_directory = _L[658]}
+ _L[354].create_initialization_script(_L[682], _L[684])
+ _L[680] = {tag = "SOME", payload = _L[682]}
+ else
+ _L[680] = NONE
+ end
+ _L[685] = _L[538].source_date_epoch
+ _L[686] = _L[685].tag == "SOME" and _L[685].payload.tag == "RAW"
+ do
+ if _L[686] then
+ _L[221]("SOURCE_DATE_EPOCH", _L[685].payload.payload)
+ _L[687] = NONE
+ goto cont17
+ end
+ _L[688] = tmp(_L[348])
+ _L[689] = _L[538].source_date_epoch
+ _L[690] = _L[688]({_L[689], {tag = "SOME", payload = _L[347]}})
+ do
+ if _L[690] then
+ _L[691] = true
+ goto cont18
+ end
+ _L[692] = tmp(eq)
+ _L[693] = tmp16("SOURCE_DATE_EPOCH")
+ if _L[693] == nil then
+ else
+ _L[691] = _L[692]({{tag = "SOME", payload = _L[693]}, NONE})
+ goto cont18
+ end
+ _L[691] = _L[692]({NONE, NONE})
+ end
+ ::cont18::
+ if _L[691] then
+ else
+ _L[687] = NONE
+ goto cont17
+ end
+ do
+ _L[694] = tmp5(tmp18())
+ _L[695] = _L[53](tmp18())
+ _L[687] = {tag = "SOME", payload = {{time = _L[695], time_since_epoch = _L[694]}}}
+ end
+ end
+ ::cont17::
+ _L[696] = _L[538].engine_executable
+ _L[697] = getOpt(_L[538].interaction, _L[223])
+ _L[698] = {tag = "SOME", payload = _L[697]}
+ _L[699] = _L[538].file_line_error
+ _L[700] = _L[538].halt_on_error
+ _L[701] = _L[538].synctex
+ _L[702] = _L[538].shell_escape
+ _L[703] = {tag = "SOME", payload = _L[610]}
+ _L[704] = _L[538].fmt
+ _L[705] = _L[538].tex_extraoptions
+ _L[706] = getOpt(_L[538].max_iterations, 4)
+ _L[707] = _L[538].start_with_draft
+ getOpt(_L[538].change_directory, false)
+ _L[708] = _L[538].includeonly
+ _L[709] = _L[538].make_depends
+ _L[710] = _L[538].package_support
+ _L[711] = _L[538].source_date_epoch
+ _L[712] = _L[538].synctex
+ getOpt(_L[538].interaction, _L[223])
+ _L[713] = _L[538].shell_escape
+ _L[714] = _L[538].dvipdfmx_extraoptions
+ _L[715] = _L[538].makeindex
+ _L[716] = _L[538].bibtex_or_biber
+ _L[717] = _L[538].makeglossaries
+ if _L[568].tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ _L[718], _L[719] = _handle(function()
+ local tmp54 = _L[710].epstopdf
+ local tmp55 = _L[710].minted
+ return _L[529](_L[572], _L[573], _L[575], _L[576], _L[569], _L[716], _L[603], _L[714], _L[708], _L[610], _L[709], _L[717], _L[715], _L[706], _L[668], _L[658], _L[602], tmp54, tmp55, _L[710].pdfx, _L[713], _L[711], _L[707], _L[712], _L[655], _L[615], _L[675], _L[677], _L[687], false, _L[696], _L[705], _L[699], _L[704], _L[700], _L[698], _L[703], _L[680], _L[659], _L[678], _L[702], _L[701])
+ end)
+ if not _L[718] then
+ if __exn_instanceof(_L[719], _L[370]) then
+ tmp15(1, true)
+ else
+ _raise(_L[719], nil)
+ end
+ else
+ goto cont4
+ end
+ end
+ ::else1::
+ if _L[568].tag == "SOME" then
+ else
+ _raise(_Match, "main.sml:1009:18")
+ end
+ do
+ _L[720] = _L[568].payload
+ do
+ if _L[220] then
+ else
+ _L[721] = NONE
+ goto cont18
+ end
+ do
+ _L[722], _L[723] = pcall(tmp3, "texrunner.fswatcher_windows")
+ if not _L[722] then
+ else
+ _L[721] = {tag = "SOME", payload = _L[723]}
+ goto cont18
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 1 then
+ else
+ _L[721] = NONE
+ goto cont18
+ end
+ _L[302]("Failed to load texrunner.fswatcher_windows: " .. _L[723])
+ _L[721] = NONE
+ end
+ end
+ end
+ ::cont18::
+ do
+ if _L[721].tag == "SOME" then
+ else
+ goto else2
+ end
+ do
+ _L[725] = _L[721].payload
+ if _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ _L[724] = function(a)
+ return _L[530](_L[725], a)
+ end
+ goto cont19
+ end
+ _L[304]("Using built-in filesystem watcher for Windows")
+ _L[724] = function(a)
+ return _L[530](_L[725], a)
+ end
+ goto cont19
+ end
+ ::else2::
+ if _L[721].tag == "NONE" then
+ else
+ _raise(_Match, "main.sml:689:25")
+ end
+ do
+ _L[726] = _L[209]("fswatch")
+ do
+ if _L[726] then
+ else
+ _L[727] = false
+ goto cont23
+ end
+ do
+ _L[728] = _L[346](_L[720], _L[345])
+ if _L[728] then
+ _L[727] = true
+ else
+ _L[727] = _L[346](_L[720], _L[345])
+ end
+ end
+ end
+ ::cont23::
+ if _L[727] then
+ else
+ goto else3
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ _L[724] = _L[531]
+ goto cont19
+ end
+ _L[304]("Using `fswatch' command")
+ _L[724] = _L[531]
+ goto cont19
+ end
+ ::else3::
+ _L[729] = _L[209]("inotifywait")
+ do
+ if _L[729] then
+ else
+ _L[730] = false
+ goto cont24
+ end
+ do
+ _L[731] = _L[346](_L[720], _L[345])
+ if _L[731] then
+ _L[730] = true
+ else
+ _L[730] = _L[346](_L[720], _L[344])
+ end
+ end
+ end
+ ::cont24::
+ if _L[730] then
+ else
+ goto else4
+ end
+ do
+ if _ENV.CLUTTEX_VERBOSITY >= 2 then
+ else
+ _L[724] = _L[532]
+ goto cont19
+ end
+ _L[304]("Using `inotifywait' command")
+ _L[724] = _L[532]
+ goto cont19
+ end
+ ::else4::
+ if _L[720] == "AUTO" then
+ else
+ goto else5
+ end
+ _L[301]("Could not watch files because neither `fswatch' nor `inotifywait' was installed.")
+ _L[304]("See ClutTeX's manual for details.")
+ tmp15(1, true)
+ ::else5::
+ if _L[720] == "FSWATCH" then
+ else
+ goto else6
+ end
+ _L[301]("Could not watch files because your selected engine `fswatch' was not installed.")
+ _L[304]("See ClutTeX's manual for details.")
+ tmp15(1, true)
+ ::else6::
+ if _L[720] == "INOTIFYWAIT" then
+ else
+ _raise(_Match, "main.sml:712:43")
+ end
+ _L[301]("Could not watch files because your selected engine `inotifywait' was not installed.")
+ _L[304]("See ClutTeX's manual for details.")
+ tmp15(1, true)
+ end
+ end
+ ::cont19::
+ do
+ _L[732], _L[733] = _handle(function()
+ do
+ local tmp54 = _L[710].epstopdf
+ local tmp55 = _L[710].minted
+ _L[529](_L[572], _L[573], _L[575], _L[576], _L[569], _L[716], _L[603], _L[714], _L[708], _L[610], _L[709], _L[717], _L[715], _L[706], _L[668], _L[658], _L[602], tmp54, tmp55, _L[710].pdfx, _L[713], _L[711], _L[707], _L[712], _L[655], _L[615], _L[675], _L[677], _L[687], false, _L[696], _L[705], _L[699], _L[704], _L[700], _L[698], _L[703], _L[680], _L[659], _L[678], _L[702], _L[701])
+ end
+ return nil
+ end)
+ if not _L[732] then
+ if __exn_instanceof(_L[733], _L[370]) then
+ else
+ _raise(_L[733], nil)
+ end
+ end
+ end
+ _L[734] = _L[360](_L[675], _L[715], nil, _L[203])
+ _L[735] = _L[237](_L[572], _L[235])
+ do
+ if _L[735] then
+ else
+ _L[736] = false
+ goto cont20
+ end
+ _L[736] = _L[218](_L[677])
+ end
+ ::cont20::
+ do
+ if _L[736] then
+ else
+ _L[737] = _L[734]
+ goto cont21
+ end
+ do
+ _L[738] = _L[734][1]
+ _L[737] = _L[360](_L[677], _L[715], _L[738], _L[734][2])
+ end
+ end
+ ::cont21::
+ do
+ _L[740] = _L[737][1]
+ _L[739] = _L[359](_L[740], _L[737][2])
+ end
+ _L[741] = _L[739][1]
+ _L[742] = mapPartial1(function(a)
+ if a.kind == "INPUT" then
+ return {tag = "SOME", payload = a.abspath}
+ else
+ return NONE
+ end
+ end)
+ _L[743] = _L[742](_L[741])
+ _L[744] = _L[743]
+ ::cont22::
+ do
+ local _L1 = {}
+ _L1[1] = _L[744]
+ _L1[2] = _L[724](_L1[1])
+ if _L1[2] then
+ else
+ return
+ end
+ do
+ do
+ _L1[4], _L1[5] = _handle(function()
+ do
+ local tmp54 = _L[710].epstopdf
+ local tmp55 = _L[710].minted
+ _L[529](_L[572], _L[573], _L[575], _L[576], _L[569], _L[716], _L[603], _L[714], _L[708], _L[610], _L[709], _L[717], _L[715], _L[706], _L[668], _L[658], _L[602], tmp54, tmp55, _L[710].pdfx, _L[713], _L[711], _L[707], _L[712], _L[655], _L[615], _L[675], _L[677], _L[687], false, _L[696], _L[705], _L[699], _L[704], _L[700], _L[698], _L[703], _L[680], _L[659], _L[678], _L[702], _L[701])
+ end
+ return true
+ end)
+ if not _L1[4] then
+ if __exn_instanceof(_L1[5], _L[370]) then
+ _L1[3] = false
+ else
+ _raise(_L1[5], nil)
+ end
+ else
+ _L1[3] = _L1[5]
+ end
+ end
+ if _L1[3] then
+ else
+ _L[744] = _L1[1]
+ goto cont22
+ end
+ do
+ _L1[6] = _L[360](_L[675], _L[715], nil, _L[203])
+ _L1[7] = _L[237](_L[572], _L[235])
+ do
+ if _L1[7] then
+ else
+ _L1[8] = false
+ goto cont23
+ end
+ _L1[8] = _L[218](_L[677])
+ end
+ ::cont23::
+ do
+ if _L1[8] then
+ else
+ _L1[9] = _L1[6]
+ goto cont24
+ end
+ do
+ _L1[10] = _L1[6][1]
+ _L1[9] = _L[360](_L[677], _L[715], _L1[10], _L1[6][2])
+ end
+ end
+ ::cont24::
+ do
+ _L1[12] = _L1[9][1]
+ _L1[11] = _L[359](_L1[12], _L1[9][2])
+ end
+ _L1[13] = _L1[11][1]
+ _L1[14] = mapPartial1(function(a)
+ if a.kind == "INPUT" then
+ return {tag = "SOME", payload = a.abspath}
+ else
+ return NONE
+ end
+ end)
+ _L[744] = _L1[14](_L1[13])
+ goto cont22
+ end
+ end
+ end
+ end
+end
+::cont4::
Modified: trunk/Master/bin/windows/cluttex.exe
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/cllualatex.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/cluttex.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/cluttex.1 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/man/man1/cluttex.1 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,4 +1,4 @@
-.Dd November 18, 2023
+.Dd March 16, 2025
.Dt CLUTTEX 1
.Os
.Sh NAME
@@ -41,7 +41,7 @@
Cannot be used with --output-directory.
.It Fl \-max-iterations Ns = Ns Ar N
Maximum number of running TeX to resolve cross-references.
-[default: 3]
+[default: 4]
.It Fl \-start-with-draft
Start with draft mode.
.It Fl \-change-directory , Fl \-no-change-directory
@@ -119,6 +119,17 @@
.Sq dvipdfmx ,
.Sq dvips ,
.Sq dvisvgm .
+.It Fl \-source\-date\-epoch Ns = Ns Ar TIME
+Set
+.Sq SOURCE_DATE_EPOCH
+variable to
+.Ar TIME .
+.Ar TIME
+can be
+.Sq now
+to auto-detect.
+.It Fl \-config-file Ns = Ns Ar FILE
+Use the specified config file.
.It Fl \-shell-escape , Fl \-no-shell-escape
.It Fl \-shell-restricted
.It Fl \-synctex Ns = Ns Ar NUMBER
Modified: trunk/Master/texmf-dist/doc/man/man1/cluttex.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/clxelatex.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/support/cluttex/CHANGELOG.md
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/CHANGELOG.md 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/CHANGELOG.md 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,3 +1,14 @@
+Version 0.7.0 (2025-03-16)
+-----
+
+The main part of ClutTeX is now written in Standard ML, and compiled to Lua by LunarML.
+
+Changes:
+
+* Some behavior of ClutTeX can now be customized with a configuration file: `temporary-directory` and `color` keys are available.
+* The default value for `--max-iterations` is now 4 (previous: 3).
+* Add `--source-date-epoch` option and support `--package-support=pdfx`.
+
Version 0.6 (2023-11-18)
-----
Modified: trunk/Master/texmf-dist/doc/support/cluttex/Makefile
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/Makefile 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/Makefile 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,52 +1,94 @@
-all: bin/cluttex bin/cluttex.bat
+lua = lua
+lunarml = lunarml
+smlfmt = smlfmt
+VERSION = 0.7.0
-.PHONY: all archive check-version
+ml_sources = \
+ src/md5.sml \
+ src/map.sml \
+ src/shell-util.sml \
+ src/path-util.sml \
+ src/fs-util.sml \
+ src/os-util.sml \
+ src/types.sml \
+ src/safe-name.sml \
+ src/tex-engine.sml \
+ src/ansi-color.sml \
+ src/message.sml \
+ src/check-driver.sml \
+ src/app-options.sml \
+ src/auxfile.sml \
+ src/luatexinit.sml \
+ src/handle-options.sml \
+ src/recovery.sml \
+ src/reruncheck.sml \
+ src/config-file.sml \
+ src/main.sml
-sources= \
- src/texrunner/pathutil.lua \
- src/texrunner/pathutil_unix.lua \
- src/texrunner/pathutil_windows.lua \
- src/texrunner/shellutil.lua \
- src/texrunner/shellutil_unix.lua \
- src/texrunner/shellutil_windows.lua \
- src/texrunner/fsutil.lua \
- src/texrunner/option.lua \
- src/texrunner/tex_engine.lua \
- src/texrunner/reruncheck.lua \
- src/texrunner/auxfile.lua \
- src/texrunner/luatexinit.lua \
- src/texrunner/recovery.lua \
- src/texrunner/handleoption.lua \
- src/texrunner/isatty.lua \
- src/texrunner/message.lua \
- src/texrunner/fswatcher_windows.lua \
- src/texrunner/safename.lua \
- src/texrunner/checkdriver.lua \
- src/cluttex.lua
+# smlfmt doesn't support vector expressions #[], record extension { ... = <exp> }, record update { ... where ... }
+non_formatted_sources = \
+ src/shell-util.sml \
+ src/path-util.sml \
+ src/fs-util.sml \
+ src/os-util.sml \
+ src/tex-engine.sml \
+ src/message.sml \
+ src/luatexinit.sml \
+ src/handle-options.sml \
+ src/reruncheck.sml \
+ src/main.sml
-bin/cluttex: $(sources) build.lua
+formatted_sources = $(filter-out $(non_formatted_sources),$(ml_sources))
+
+lua_sources = \
+ src/texrunner/fsutil.lua \
+ src/texrunner/luatexinit.lua \
+ src/texrunner/isatty.lua \
+ src/texrunner/pathutil.lua \
+ src/texrunner/pathutil_unix.lua \
+ src/texrunner/pathutil_windows.lua \
+ src/texrunner/shellutil.lua \
+ src/texrunner/shellutil_unix.lua \
+ src/texrunner/shellutil_windows.lua \
+ src/texrunner/fswatcher_windows.lua
+
+all: bin/cluttex.lua bin/cluttex
+.PHONY: all
+
+src/cluttex-ml.lua: src/cluttex.mlb $(ml_sources)
+ $(lunarml) compile -o "$@" src/cluttex.mlb
+
+bin/cluttex.lua: build.lua src/cluttex-ml.lua $(lua_sources)
@mkdir -p bin
- lua build.lua --unix-shellscript $@
- lua checkglobal.lua $@
- chmod +x $@
+ $(lua) build.lua $@
+ $(lua) checkglobal.lua $@
-bin/cluttex.bat: $(sources) build.lua
+bin/cluttex: build.lua src/cluttex-ml.lua $(lua_sources)
@mkdir -p bin
- lua build.lua --windows-batchfile $@
- lua checkglobal.lua $@
+ $(lua) build.lua --unix-shellscript $@
+ $(lua) checkglobal.lua $@
+ chmod +x $@
-version_file=$(shell bin/cluttex --version 2>&1 | grep --only-matching -E 'v\d+(\.\d+)*' | sed 's/^v/VERSION_/;s/\./_/g')
+.PHONY: format
+format:
+ $(smlfmt) --force $(formatted_sources)
+.PHONY: check-format
+check-format:
+ $(smlfmt) --check $(formatted_sources)
+
+version_file=$(shell bin/cluttex --version 2>&1 | grep --only-matching -E 'v[[:digit:]]+(\.[[:digit:]]+)*' | sed 's/^v/VERSION_/;s/\./_/g')
+
check-version: all
@bin/cluttex --version
- grep VERSION src/cluttex.lua
- grep VERSION bin/cluttex
- grep VERSION bin/cluttex.bat
+ @$(lua) bin/cluttex.lua --version
+ grep VERSION src/main.sml
grep -i VERSION doc/cluttex.tex
grep -i VERSION doc/cluttex-ja.tex
+.PHONY: check-version
archive: all check-version
- @bin/cluttex --version
- git archive --format=tar --prefix=cluttex/ -o cluttex.tar HEAD
- mkdir -p cluttex && touch cluttex/$(version_file) && tar -r -f cluttex.tar cluttex/$(version_file)
- gzip -k9 cluttex.tar
+ bin/cluttex --version 2>&1 | awk '{print $2}' > $(version_file)
+ git archive -o "cluttex-$(VERSION).tar.gz" --prefix=cluttex/bin/ --add-file=bin/cluttex --prefix=cluttex/ --add-file=$(version_file) HEAD
+ git archive -o "cluttex-$(VERSION).zip" --prefix=cluttex/bin/ --add-file=bin/cluttex --prefix=cluttex/ --add-file=$(version_file) HEAD
+.PHONY: archive
Modified: trunk/Master/texmf-dist/doc/support/cluttex/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/README.md 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/README.md 2025-03-16 20:03:47 UTC (rev 74655)
@@ -35,9 +35,10 @@
Install
-----
-Click \[Clone or download\] button on GitHub and \[Download ZIP\].
-Unpack `cluttex-master.zip` and copy `bin/cluttex` (or `bin/cluttex.bat` on Windows) to somewhere in PATH.
+ClutTeX is included in [TeX Live](https://tug.org/texlive/).
+If you want to install it manually, go [Releases](https://github.com/minoki/cluttex/releases) page and download the latest archive (zip or tar.gz). Unpack the archive and copy `bin/cluttex` to somewhere in PATH.
+
Command-line Options
-----
@@ -57,7 +58,7 @@
Cannot be used with `--output-directory`.
* `--max-iterations=N`
Maximum number of running TeX to resolve cross-references.
- \[default: 3\]
+ \[default: 4\]
* `--[no-]change-directory`
Change the current working directory to the output directory when running TeX.
* `--watch[=ENGINE]`
@@ -94,6 +95,8 @@
Check that the correct driver file is loaded.
`DRIVER` is one of `dvipdfmx`, `dvips`, `dvisvgm`.
Can only be used with `--output-format=dvi`.
+* `--config-file=FILE`
+ Use the specified config file.
Options to run auxiliary programs:
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_6
===================================================================
Added: trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_7_0
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_7_0 (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/VERSION_0_7_0 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1 @@
+cluttex v0.7.0
Modified: trunk/Master/texmf-dist/doc/support/cluttex/build.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/build.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/build.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -48,53 +48,17 @@
path = "texrunner/fsutil.lua",
},
{
- name = "texrunner.option",
- path = "texrunner/option.lua",
- },
- {
- name = "texrunner.tex_engine",
- path = "texrunner/tex_engine.lua",
- },
- {
- name = "texrunner.reruncheck",
- path = "texrunner/reruncheck.lua",
- },
- {
- name = "texrunner.auxfile",
- path = "texrunner/auxfile.lua",
- },
- {
name = "texrunner.luatexinit",
path = "texrunner/luatexinit.lua",
},
{
- name = "texrunner.recovery",
- path = "texrunner/recovery.lua",
- },
- {
- name = "texrunner.handleoption",
- path = "texrunner/handleoption.lua",
- },
- {
name = "texrunner.isatty",
path = "texrunner/isatty.lua",
},
{
- name = "texrunner.message",
- path = "texrunner/message.lua",
- },
- {
name = "texrunner.fswatcher_windows",
path = "texrunner/fswatcher_windows.lua",
},
- {
- name = "texrunner.safename",
- path = "texrunner/safename.lua",
- },
- {
- name = "texrunner.checkdriver",
- path = "texrunner/checkdriver.lua",
- },
}
local imported_globals = {"io", "os", "string", "table", "package", "require", "assert", "error", "ipairs", "type", "select", "arg"}
@@ -129,14 +93,16 @@
return strip_test_code(assert(io.open(srcdir .. path, "r")):read("*a"))
end
-assert(loadfile(srcdir .. "cluttex.lua")) -- Check syntax
+assert(loadfile(srcdir .. "cluttex-ml.lua")) -- Check syntax
-local shebang = nil
-local main = assert(io.open(srcdir .. "cluttex.lua", "r")):read("*a")
+local shebang = "#!/usr/bin/env texlua\n"
+local main = assert(io.open(srcdir .. "cluttex-ml.lua", "r")):read("*a")
+--[[
if main:sub(1,2) == "#!" then
-- shebang
shebang,main = main:match("^([^\n]+\n)(.*)$")
end
+]]
local lines = {}
if mode == "batchfile" then
@@ -154,7 +120,6 @@
if not preserve_location_info then
table.insert(lines, string.format("local %s = %s\n", table.concat(imported_globals, ", "), table.concat(imported_globals, ", ")))
- table.insert(lines, "local CLUTTEX_VERBOSITY, CLUTTEX_VERSION\n")
end
if default_os then
@@ -177,7 +142,7 @@
end
end
table.insert(lines, string.format("assert(loadstring(%q, %q))(...)\n", main, "=cluttex.lua"))
-else
+else
for _,m in ipairs(modules) do
if m.path_windows or m.path_unix then
table.insert(lines, 'if os.type == "windows" then\n')
Modified: trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.tex
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.tex 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex-ja.tex 2025-03-16 20:03:47 UTC (rev 74655)
@@ -29,9 +29,9 @@
alxspmode={`\>,postonly},
}
-\title{\ClutTeX{}マニュアル\\（バージョン0.6）}%VERSION
+\title{\ClutTeX{}マニュアル\\（バージョン0.7.0）}%VERSION
\author{ARATA Mizuki}
-\date{2023年11月18日}
+\date{2025年3月16日}
\begin{document}
\maketitle
@@ -89,7 +89,7 @@
\texttt{--output-directory}との併用はできない。
\item[\texttt{--max-iterations=\metavar{N}}]
相互参照の解決等のために最大何回処理を行うかを指定する。
- デフォルト：3
+ デフォルト：4
\item[\texttt{--watch[=\metavar{ENGINE}]}]
入力ファイルを監視する。
別途、\texttt{fswatch}プログラムまたは\texttt{inotifywait}プログラムが必要となる場合がある。
@@ -118,11 +118,16 @@
\texttt{--output-directory}の値を標準出力に出力して、そのまま終了する。
\item[\texttt{--package-support=PKG1[,PKG2,...,PKGn]}]
外部コマンドを実行するパッケージ用の個別の対策を有効にする。
- 現在のところ、\texttt{minted}と\texttt{epstopdf}に対応している。
+ 現在のところ、\texttt{minted}と\texttt{epstopdf}および\texttt{pdfx}に対応している。
\item[\texttt{--check-driver=DRIVER}]
いくつかのパッケージについて、正しいドライバーファイルが読み込まれていることを検査する。
\metavar{DRIVER}は\texttt{dvipdfmx}, \texttt{dvips}, or \texttt{dvisvgm}のいずれかである。
このオプションは\texttt{--output-format=dvi}が指定された場合にのみ指定できる。
+\item[\texttt{--source-date-epoch=TIME}]
+ このオプションを指定すると、環境変数\texttt{SOURCE\_DATE\_EPOCH}を使用してPDFの作成日時を固定する。
+ \metavar{TIME}は文字列\texttt{now}もしくは、符号なし整数（大抵の環境ではUnix時間）を指定する。
+\item[\texttt{--config-file=TOML}]
+ 指定された設定ファイルを使用する。\cref{sec:config-file}も参照。
\end{description}
補助コマンド実行用のオプション：
@@ -159,7 +164,7 @@
\item[\texttt{--output-directory=\metavar{DIR}}]
（\TeX{}処理系にとっての）出力ディレクトリを指定する。
補助ファイルはここで指定されたディレクトリに生成される。
- デフォルト：テンポラリディレクトリのどこか
+ デフォルト：設定項目\texttt{temporary-directory}に基づく。
\item[\texttt{--output-format=\metavar{FORMAT}}]
出力フォーマットを指定する。
\texttt{pdf}または\texttt{dvi}を指定できる。
@@ -298,4 +303,69 @@
PDFモードの場合、ドライバーの検査は常に行われる。
DVIモードで検査を有効にするには、\texttt{--check-driver}オプションを使用する。
+\section{設定ファイルによるカスタマイズ}\label{sec:config-file}
+
+\ClutTeX{}のいくつかの挙動は、設定ファイルによりカスタマイズできる。
+
+\ClutTeX{}の設定ファイルは、以下の順序で探索される：
+\begin{enumerate}
+\item \texttt{--config-file}コマンドラインオプション。
+\item \texttt{CLUTTEX\_CONFIG\_FILE}環境変数。
+\item （Unixのみ）\texttt{\$XDG\_CONFIG\_HOME/cluttex/config.toml}
+\item （Unixのみ）\texttt{\$HOME/.config/cluttex/config.toml}
+\item （Windowsのみ）\texttt{\%APPDATA\%\textbackslash cluttex\textbackslash config.toml}
+\end{enumerate}
+
+\ClutTeX{}の設定ファイルはTOML\footnote{\url{https://toml.io/en/}}形式に従う。
+
+設定可能なキーは以下の通りである：
+\begin{description}
+\item[\texttt{temporary-directory}（文字列）]
+ 補助ファイルの作成先。
+ \texttt{--output-directory}のデフォルト値は\texttt{temporary-directory}以下のどこかとなる。
+ 省略された場合は、テンポラリディレクトリ以下のどこかが使用される。
+\item[\texttt{color.\{type,execute,warning,diagnostic,information\}}（テーブル）]
+ \ClutTeX{}によるメッセージの色を指定する。
+ それぞれのテーブルは以下のキーを持てる：
+ \texttt{fore}（色を表す文字列）、
+ \texttt{back}（色を表す文字列）、
+ \texttt{bold}（真理値）、
+ \texttt{dim}（真理値）、
+ \texttt{underline}（真理値）、
+ \texttt{blink}（真理値）、
+ \texttt{reverse}（真理値）、
+ \texttt{italic}（真理値）、
+ \texttt{strike}（真理値）。
+ 色を表す文字列は以下のいずれかである：
+ \texttt{default}、
+ \texttt{black}、
+ \texttt{red}、
+ \texttt{green}、
+ \texttt{yellow}、
+ \texttt{blue}、
+ \texttt{magenta}、
+ \texttt{cyan}、
+ \texttt{white}、
+ \texttt{brightblack}、
+ \texttt{brightred}、
+ \texttt{brightgreen}、
+ \texttt{brightyellow}、
+ \texttt{brightblue}、
+ \texttt{brightmagenta}、
+ \texttt{brightcyan}、
+ \texttt{brightwhite}。
+\end{description}
+
+設定ファイルの例は以下のようになる：
+\begin{verbatim}
+# 実際の出力ディレクトリは
+# "/home/user/.cache/cluttex/cluttex-<hash>"
+# のようになる
+temporary-directory = "/home/user/.cache/cluttex"
+
+[color]
+type = { reverse = true }
+error = { fore = "brightred", back = "brightwhite" }
+\end{verbatim}
+
\end{document}
Modified: trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.tex
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.tex 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/doc/cluttex.tex 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,4 +1,5 @@
\documentclass[a4paper]{report}
+\usepackage{verbatim}
\usepackage[unicode]{hyperref}
\usepackage{amsmath}
\newcommand\ClutTeX{Clut\TeX}
@@ -8,9 +9,9 @@
\newcommand\texpkg[1]{\texttt{#1}}
\newcommand\metavar[1]{\textnormal{\textsf{#1}}}
-\title{\ClutTeX\ manual\\(Version 0.6)}
+\title{\ClutTeX\ manual\\(Version 0.7.0)}
\author{ARATA Mizuki}
-\date{2023-11-18}
+\date{2025-03-16}
\begin{document}
\maketitle
@@ -65,7 +66,7 @@
Cannot be used in conjunction with \texttt{--output-directory}.
\item[\texttt{--max-iterations=\metavar{N}}]
Set maximum number of run, for resolving cross-references and etc.
- Default: 3
+ Default: 4
\item[\texttt{--watch[=\metavar{ENGINE}]}]
Watch input files for change.
May need an external program to be available.
@@ -95,11 +96,16 @@
Print the output directory and exit.
\item[\texttt{--package-support=PKG1[,PKG2,...,PKGn]}]
Enable special support for shell-escaping packages.
- Currently supported packages are `\texttt{minted}` and `\texttt{epstopdf}`.
+ Currently, supported packages are `\texttt{minted}', `\texttt{epstopdf}' and `\texttt{pdfx}'.
\item[\texttt{--check-driver=DRIVER}]
Check that the correct driver file is loaded for certain packages.
\metavar{DRIVER} is one of \texttt{dvipdfmx}, \texttt{dvips}, or \texttt{dvisvgm}.
Can only be used with \texttt{--output-format=dvi}.
+\item[\texttt{--source-date-epoch=TIME}]
+ Lock the creation time of PDF by setting the environment variable \texttt{SOURCE\_DATE\_EPOCH}.
+ \metavar{TIME} is `\texttt{now}' or an unsigned integer (typically, this value is interpreted as a Unix time).
+\item[\texttt{--config-file=FILE}]
+ Use the specified config file. See \autoref{sec:config-file}.
\end{description}
Options for running auxiliary programs:
@@ -134,7 +140,7 @@
\item[\texttt{--output-directory=\metavar{DIR}}]
Set output directory for \TeX\ engine.
Auxiliary files are produced in this directory.
- Default: somewhere in the temporary directory.
+ Default: Based on the \texttt{temporary-directory} configuration.
\item[\texttt{--output-format=\metavar{FORMAT}}]
Set output format.
Possible values are \texttt{pdf} or \texttt{dvi}.
@@ -271,4 +277,68 @@
The check is always done with PDF mode.
To check the driver with DVI mode, use \texttt{--check-driver} option.
+\section{Customization via a configuration file}\label{sec:config-file}
+
+Some behavior of \ClutTeX\ can be customized via a configuration file.
+
+The configuration file for \ClutTeX\ is looked for in the following order:
+\begin{enumerate}
+\item \texttt{--config-file} command-line option.
+\item \texttt{CLUTTEX\_CONFIG\_FILE} environment variable.
+\item (Unix only) \texttt{\$XDG\_CONFIG\_HOME/cluttex/config.toml}
+\item (Unix only) \texttt{\$HOME/.config/cluttex/config.toml}
+\item (Windows only) \texttt{\%APPDATA\%\textbackslash cluttex\textbackslash config.toml}
+\end{enumerate}
+
+The configuration file for \ClutTeX\ must be written in TOML\footnote{\url{https://toml.io/en/}} format.
+
+Available keys are:
+\begin{description}
+\item[\texttt{temporary-directory} (string)]
+ The location to create auxiliary files.
+ The default value for \texttt{--output-directory} will be somewhere under \texttt{temporary-directory}.
+ If omitted, somewhere in the temporary directory will be used.
+\item[\texttt{color.\{type,execute,warning,diagnostic,information\}} (table)]
+ Set the colors for messages from \ClutTeX.
+ The table may have the following keys:
+ \texttt{fore} (color string),
+ \texttt{back} (color string),
+ \texttt{bold} (boolean),
+ \texttt{dim} (boolean),
+ \texttt{underline} (boolean),
+ \texttt{blink} (boolean),
+ \texttt{reverse} (boolean),
+ \texttt{italic} (boolean),
+ \texttt{strike} (boolean).
+ A color string is one of the following:
+ \texttt{default},
+ \texttt{black},
+ \texttt{red},
+ \texttt{green},
+ \texttt{yellow},
+ \texttt{blue},
+ \texttt{magenta},
+ \texttt{cyan},
+ \texttt{white},
+ \texttt{brightblack},
+ \texttt{brightred},
+ \texttt{brightgreen},
+ \texttt{brightyellow},
+ \texttt{brightblue},
+ \texttt{brightmagenta},
+ \texttt{brightcyan},
+ \texttt{brightwhite}.
+\end{description}
+
+An example configuration file might look like:
+\begin{verbatim}
+# The actual output directory will be something like
+# "/home/user/.cache/cluttex/cluttex-<hash>"
+temporary-directory = "/home/user/.cache/cluttex"
+
+[color]
+type = { reverse = true }
+error = { fore = "brightred", back = "brightwhite" }
+\end{verbatim}
+
\end{document}
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/ansi-color.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/ansi-color.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/ansi-color.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,167 @@
+structure ANSIColor:
+sig
+ datatype color =
+ DEFAULT
+ | BLACK
+ | RED
+ | GREEN
+ | YELLOW
+ | BLUE
+ | MAGENTA
+ | CYAN
+ | WHITE
+ | BRIGHT_BLACK
+ | BRIGHT_RED
+ | BRIGHT_GREEN
+ | BRIGHT_YELLOW
+ | BRIGHT_BLUE
+ | BRIGHT_MAGENTA
+ | BRIGHT_CYAN
+ | BRIGHT_WHITE
+ val fromString: string -> color option
+ val asForeground: color -> string option
+ val asBackground: color -> string option
+end =
+struct
+ datatype color =
+ DEFAULT
+ | BLACK
+ | RED
+ | GREEN
+ | YELLOW
+ | BLUE
+ | MAGENTA
+ | CYAN
+ | WHITE
+ | BRIGHT_BLACK
+ | BRIGHT_RED
+ | BRIGHT_GREEN
+ | BRIGHT_YELLOW
+ | BRIGHT_BLUE
+ | BRIGHT_MAGENTA
+ | BRIGHT_CYAN
+ | BRIGHT_WHITE
+ fun fromString "default" = SOME DEFAULT
+ | fromString "black" = SOME BLACK
+ | fromString "red" = SOME RED
+ | fromString "green" = SOME GREEN
+ | fromString "yellow" = SOME YELLOW
+ | fromString "blue" = SOME BLUE
+ | fromString "magenta" = SOME MAGENTA
+ | fromString "cyan" = SOME CYAN
+ | fromString "white" = SOME WHITE
+ | fromString "brightblack" = SOME BRIGHT_BLACK
+ | fromString "brightred" = SOME BRIGHT_RED
+ | fromString "brightgreen" = SOME BRIGHT_GREEN
+ | fromString "brightyellow" = SOME BRIGHT_YELLOW
+ | fromString "brightblue" = SOME BRIGHT_BLUE
+ | fromString "brightmagenta" = SOME BRIGHT_MAGENTA
+ | fromString "brightcyan" = SOME BRIGHT_CYAN
+ | fromString "brightwhite" = SOME BRIGHT_WHITE
+ | fromString _ = NONE
+ fun asForeground DEFAULT = NONE
+ | asForeground BLACK = SOME "30"
+ | asForeground RED = SOME "31"
+ | asForeground GREEN = SOME "32"
+ | asForeground YELLOW = SOME "33"
+ | asForeground BLUE = SOME "34"
+ | asForeground MAGENTA = SOME "35"
+ | asForeground CYAN = SOME "36"
+ | asForeground WHITE = SOME "37"
+ | asForeground BRIGHT_BLACK = SOME "90"
+ | asForeground BRIGHT_RED = SOME "91"
+ | asForeground BRIGHT_GREEN = SOME "92"
+ | asForeground BRIGHT_YELLOW = SOME "93"
+ | asForeground BRIGHT_BLUE = SOME "94"
+ | asForeground BRIGHT_MAGENTA = SOME "95"
+ | asForeground BRIGHT_CYAN = SOME "96"
+ | asForeground BRIGHT_WHITE = SOME "97"
+ fun asBackground DEFAULT = NONE
+ | asBackground BLACK = SOME "40"
+ | asBackground RED = SOME "41"
+ | asBackground GREEN = SOME "42"
+ | asBackground YELLOW = SOME "43"
+ | asBackground BLUE = SOME "44"
+ | asBackground MAGENTA = SOME "45"
+ | asBackground CYAN = SOME "46"
+ | asBackground WHITE = SOME "47"
+ | asBackground BRIGHT_BLACK = SOME "100"
+ | asBackground BRIGHT_RED = SOME "101"
+ | asBackground BRIGHT_GREEN = SOME "102"
+ | asBackground BRIGHT_YELLOW = SOME "103"
+ | asBackground BRIGHT_BLUE = SOME "104"
+ | asBackground BRIGHT_MAGENTA = SOME "105"
+ | asBackground BRIGHT_CYAN = SOME "106"
+ | asBackground BRIGHT_WHITE = SOME "107"
+end;
+structure ANSIStyle:
+sig
+ type style =
+ { foreground: ANSIColor.color option
+ , background: ANSIColor.color option
+ , bold: bool
+ , dim: bool
+ , underline: bool
+ , blink: bool
+ , reverse: bool
+ , italic: bool
+ , strike: bool
+ }
+ val defaultStyle: style
+ val toString: style -> string
+ val resetAll: string
+end =
+struct
+ type style =
+ { foreground: ANSIColor.color option
+ , background: ANSIColor.color option
+ , bold: bool
+ , dim: bool
+ , underline: bool
+ , blink: bool
+ , reverse: bool
+ , italic: bool
+ , strike: bool
+ }
+ val defaultStyle: style =
+ { foreground = NONE
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ fun prependOption (SOME x, xs) = x :: xs
+ | prependOption (NONE, xs) = xs
+ fun toString
+ ({ foreground
+ , background
+ , bold
+ , dim
+ , underline
+ , blink
+ , reverse
+ , italic
+ , strike
+ }: style) =
+ let
+ val attrs = []
+ val attrs = if strike then "9" :: attrs else attrs
+ val attrs = if reverse then "7" :: attrs else attrs
+ val attrs = if blink then "5" :: attrs else attrs
+ val attrs = if underline then "4" :: attrs else attrs
+ val attrs = if italic then "3" :: attrs else attrs
+ val attrs = if dim then "2" :: attrs else attrs
+ val attrs = if bold then "1" :: attrs else attrs
+ val attrs = prependOption
+ (Option.mapPartial ANSIColor.asBackground background, attrs)
+ val attrs = prependOption
+ (Option.mapPartial ANSIColor.asForeground foreground, attrs)
+ in
+ "\027[" ^ String.concatWith ";" attrs ^ "m"
+ end
+ val resetAll: string = "\027[0m"
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/app-options.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/app-options.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/app-options.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,218 @@
+structure AppOptions:
+sig
+ structure DviDriver:
+ sig
+ datatype driver = DVIPDFMX | DVIPS | DVISVGM
+ val fromString: string -> driver option
+ end
+ datatype bibtex_or_biber = BIBTEX of string | BIBER of string
+ structure WatchEngine:
+ sig
+ datatype engine = FSWATCH | INOTIFYWAIT | AUTO
+ val fromString: string -> engine option
+ end
+ structure ColorMode:
+ sig
+ datatype mode = datatype Message.mode
+ val fromString: string -> mode option
+ end
+ structure SourceDateEpoch:
+ sig
+ datatype time = NOW | RAW of string
+ val fromString: string -> time option
+ end
+ type initial_options =
+ { engine: string option
+ , engine_executable: string option
+ , output: string option
+ , fresh: bool (* default: false *)
+ , max_iterations: int option
+ , start_with_draft: bool
+ , watch: WatchEngine.engine option
+ , color: ColorMode.mode option
+ , change_directory: bool option
+ , includeonly: string option
+ , make_depends: string option
+ , print_output_directory: bool (* default: false *)
+ , package_support: {minted: bool, epstopdf: bool, pdfx: bool}
+ , check_driver: DviDriver.driver option (* dvipdfmx | dvips | dvisvgm *)
+ , source_date_epoch: SourceDateEpoch.time option
+ , synctex: string option (* should be int? *)
+ , file_line_error: bool
+ , interaction: InteractionMode.interaction option (* batchmode | nonstopmode | scrollmode | errorstopmode *)
+ , halt_on_error: bool
+ , shell_escape: ShellEscape.shell_escape option
+ , jobname: string option
+ , fmt: string option
+ , output_directory: string option
+ , output_format: OutputFormat.format option (* pdf | dvi *)
+ , tex_extraoptions: string list
+ , dvipdfmx_extraoptions: string list
+ , makeindex: string option
+ , bibtex_or_biber: bibtex_or_biber option
+ , makeglossaries: string option
+ , config_file: string option
+ }
+ type options =
+ { engine: TeXEngine.engine
+ , engine_executable: string option
+ , output: string
+ , fresh: bool
+ , max_iterations: int
+ , start_with_draft: bool
+ , watch: WatchEngine.engine option
+ , change_directory: bool
+ , includeonly: string option
+ , make_depends: string option
+ , print_output_directory: bool
+ , package_support: {minted: bool, epstopdf: bool, pdfx: bool}
+ , check_driver: CheckDriver.driver option
+ , source_date_epoch: SourceDateEpoch.time option
+ , synctex: string option
+ , file_line_error: bool
+ , interaction: InteractionMode.interaction
+ , halt_on_error: bool
+ , shell_escape: ShellEscape.shell_escape option
+ , jobname: string
+ , fmt: string option
+ , output_directory: string
+ , output_format: OutputFormat.format
+ , tex_extraoptions: string list
+ , dvipdfmx_extraoptions: string list
+ , makeindex: string option
+ , bibtex_or_biber: bibtex_or_biber option
+ , makeglossaries: string option
+ }
+ val init: initial_options
+end =
+struct
+ structure DviDriver =
+ struct
+ datatype driver = DVIPDFMX | DVIPS | DVISVGM
+ fun fromString "dvipdfmx" = SOME DVIPDFMX
+ | fromString "dvips" = SOME DVIPS
+ | fromString "dvisvgm" = SOME DVISVGM
+ | fromString _ = NONE
+ end
+ datatype bibtex_or_biber = BIBTEX of string | BIBER of string
+ structure WatchEngine =
+ struct
+ datatype engine = FSWATCH | INOTIFYWAIT | AUTO
+ fun fromString "fswatch" = SOME FSWATCH
+ | fromString "inotifywait" = SOME INOTIFYWAIT
+ | fromString "auto" = SOME AUTO
+ | fromString _ = NONE
+ end
+ structure ColorMode =
+ struct
+ datatype mode = datatype Message.mode
+ fun fromString "always" = SOME ALWAYS
+ | fromString "auto" = SOME AUTO
+ | fromString "never" = SOME NEVER
+ | fromString _ = NONE
+ end
+ structure SourceDateEpoch =
+ struct
+ datatype time = NOW | RAW of string
+ fun fromString "now" = SOME NOW
+ | fromString s =
+ if String.size s > 0 andalso CharVector.all Char.isDigit s then
+ SOME (RAW s)
+ else
+ NONE
+ end
+ type initial_options =
+ { engine: string option
+ , engine_executable: string option
+ , output: string option
+ , fresh: bool (* default: false *)
+ , max_iterations: int option
+ , start_with_draft: bool
+ , watch: WatchEngine.engine option
+ , color: ColorMode.mode option
+ , change_directory: bool option
+ , includeonly: string option
+ , make_depends: string option
+ , print_output_directory: bool (* default: false *)
+ , package_support: {minted: bool, epstopdf: bool, pdfx: bool}
+ , check_driver: DviDriver.driver option (* dvipdfmx | dvips | dvisvgm *)
+ , source_date_epoch: SourceDateEpoch.time option
+ , synctex: string option (* should be int? *)
+ , file_line_error: bool
+ , interaction: InteractionMode.interaction option (* batchmode | nonstopmode | scrollmode | errorstopmode *)
+ , halt_on_error: bool
+ , shell_escape: ShellEscape.shell_escape option
+ , jobname: string option
+ , fmt: string option
+ , output_directory: string option
+ , output_format: OutputFormat.format option (* pdf | dvi *)
+ , tex_extraoptions: string list
+ , dvipdfmx_extraoptions: string list
+ , makeindex: string option
+ , bibtex_or_biber: bibtex_or_biber option
+ , makeglossaries: string option
+ , config_file: string option
+ }
+ type options =
+ { engine: TeXEngine.engine
+ , engine_executable: string option
+ , output: string
+ , fresh: bool
+ , max_iterations: int
+ , start_with_draft: bool
+ , watch: WatchEngine.engine option
+ , change_directory: bool
+ , includeonly: string option
+ , make_depends: string option
+ , print_output_directory: bool
+ , package_support: {minted: bool, epstopdf: bool, pdfx: bool}
+ , check_driver: CheckDriver.driver option
+ , source_date_epoch: SourceDateEpoch.time option
+ , synctex: string option
+ , file_line_error: bool
+ , interaction: InteractionMode.interaction
+ , halt_on_error: bool
+ , shell_escape: ShellEscape.shell_escape option
+ , jobname: string
+ , fmt: string option
+ , output_directory: string
+ , output_format: OutputFormat.format
+ , tex_extraoptions: string list
+ , dvipdfmx_extraoptions: string list
+ , makeindex: string option
+ , bibtex_or_biber: bibtex_or_biber option
+ , makeglossaries: string option
+ }
+ val init: initial_options =
+ { engine = NONE
+ , engine_executable = NONE
+ , output = NONE
+ , fresh = false
+ , max_iterations = NONE
+ , start_with_draft = false
+ , watch = NONE
+ , color = NONE
+ , change_directory = NONE
+ , includeonly = NONE
+ , make_depends = NONE
+ , print_output_directory = false
+ , package_support = {minted = false, epstopdf = false, pdfx = false}
+ , check_driver = NONE
+ , source_date_epoch = NONE
+ , synctex = NONE
+ , file_line_error = true
+ , interaction = NONE
+ , halt_on_error = true
+ , shell_escape = NONE
+ , jobname = NONE
+ , fmt = NONE
+ , output_directory = NONE
+ , output_format = NONE
+ , tex_extraoptions = []
+ , dvipdfmx_extraoptions = []
+ , makeindex = NONE
+ , bibtex_or_biber = NONE
+ , makeglossaries = NONE
+ , config_file = NONE
+ }
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/auxfile.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/auxfile.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/auxfile.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,116 @@
+structure AuxFile:
+sig
+ val createMissingDirectories:
+ {auxfile: string, outdir: string, seen: StringSet.set}
+ -> bool * StringSet.set
+ val extractBibTeXLines: {auxfile: string, outdir: string} -> string list
+end =
+struct
+ fun stripPrefix prefix s =
+ if String.isPrefix prefix s then
+ SOME (Substring.extract (s, String.size prefix, NONE))
+ else
+ NONE
+ fun isInput (line, outdir) =
+ case stripPrefix "\\@input{" line of
+ NONE => NONE
+ | SOME rest =>
+ let
+ val subauxfile = Substring.string
+ (Substring.takel (fn c => c <> #"}") rest)
+ val subauxfile_abs =
+ PathUtil.abspath {path = subauxfile, cwd = SOME outdir}
+ in
+ SOME {subauxfile = subauxfile, subauxfile_abs = subauxfile_abs}
+ end
+ fun createMissingDirectories {auxfile, outdir, seen} =
+ let
+ val ins = TextIO.openIn auxfile
+ val seen = StringSet.add (seen, auxfile)
+ fun go (did, seen) =
+ case TextIO.inputLine ins of
+ NONE => (TextIO.closeIn ins; (did, seen))
+ | SOME line =>
+ case isInput (line, outdir) of
+ NONE => go (did, seen)
+ | SOME {subauxfile, subauxfile_abs} =>
+ if FSUtil.isFile subauxfile_abs then
+ let
+ val (did', seen) =
+ createMissingDirectories
+ {auxfile = subauxfile_abs, outdir = outdir, seen = seen}
+ in
+ go (did orelse did', seen)
+ end
+ else
+ let
+ val dir =
+ PathUtil.join2 (outdir, PathUtil.dirname subauxfile)
+ in
+ if FSUtil.isDirectory dir then go (did, seen)
+ else (FSUtil.mkDirRec dir; go (true, seen))
+ end
+ in
+ go (false, seen)
+ end
+
+ (* \citation, \bibdata, \bibstyle *)
+ fun extractBibTeXLines' {auxfile, outdir, revLines} =
+ let
+ val ins = TextIO.openIn auxfile
+ fun go revLines =
+ case TextIO.inputLine ins of
+ NONE => (TextIO.closeIn ins; revLines)
+ | SOME line =>
+ case isInput (line, outdir) of
+ SOME {subauxfile, subauxfile_abs} =>
+ if FSUtil.isFile subauxfile_abs then
+ let
+ val revLines =
+ extractBibTeXLines'
+ { auxfile = subauxfile_abs
+ , outdir = outdir
+ , revLines = revLines
+ }
+ in
+ go revLines
+ end
+ else
+ go revLines
+ | NONE =>
+ let
+ val isBibTeXLine =
+ case stripPrefix "\\" line of
+ SOME s =>
+ (case
+ Substring.string
+ (Substring.takel
+ (fn c => Char.isAlpha c orelse c = #"@") s)
+ of
+ "citation" => true
+ | "bibdata" => true
+ | "bibstyle" => true
+ | _ => false)
+ | NONE => false
+ in
+ if isBibTeXLine then
+ ( if Message.getVerbosity () >= 2 then
+ Message.info
+ ("BibTeX line: "
+ ^
+ Substring.string
+ (Substring.dropr Char.isSpace (Substring.full line)))
+ else
+ ()
+ ; go (line :: revLines)
+ )
+ else
+ go revLines
+ end
+ in
+ go revLines
+ end
+ fun extractBibTeXLines {auxfile, outdir} =
+ List.rev
+ (extractBibTeXLines' {auxfile = auxfile, outdir = outdir, revLines = []})
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/check-driver.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/check-driver.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/check-driver.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,298 @@
+structure CheckDriver:
+sig
+ datatype driver = DVIPDFMX | DVIPS | DVISVGM | PDFTEX | XETEX | LUATEX
+ val checkDriver: driver * {kind: string, path: string} list -> unit
+end =
+struct
+ datatype driver = DVIPDFMX | DVIPS | DVISVGM | PDFTEX | XETEX | LUATEX
+ fun toString DVIPDFMX = "dvipdfmx"
+ | toString DVIPS = "dvips"
+ | toString DVISVGM = "dvisvgm"
+ | toString PDFTEX = "pdftex"
+ | toString XETEX = "xetex"
+ | toString LUATEX = "luatex"
+ structure graphics =
+ struct
+ datatype driver =
+ DVIPDFMX
+ | DVIPS
+ | DVISVGM
+ | PDFTEX
+ | XETEX
+ | LUATEX
+ | UNKNOWN
+ fun toString DVIPDFMX = "dvipdfmx"
+ | toString DVIPS = "dvips"
+ | toString DVISVGM = "dvisvgm"
+ | toString PDFTEX = "pdftex"
+ | toString XETEX = "xetex"
+ | toString LUATEX = "luatex"
+ | toString UNKNOWN = "unknown"
+ end
+ structure expl3 =
+ struct
+ datatype driver =
+ PDFMODE
+ | DVISVGM
+ | XDVIPDFMX
+ | DVIPDFMX
+ | DVIPS
+ | PDFTEX
+ | LUATEX
+ | XETEX
+ | UNKNOWN
+ fun toString PDFMODE = "pdfmode"
+ | toString DVISVGM = "dvisvgm"
+ | toString XDVIPDFMX = "xdvipdfmx"
+ | toString DVIPDFMX = "dvipdfmx"
+ | toString DVIPS = "dvips"
+ | toString PDFTEX = "pdftex"
+ | toString LUATEX = "luatex"
+ | toString XETEX = "xetex"
+ | toString UNKNOWN = "unknown"
+ end
+ structure hyperref =
+ struct
+ datatype driver = DVIPDFMX | DVIPS | PDFTEX | LUATEX | XETEX | UNKNOWN
+ fun toString DVIPDFMX = "dvipdfmx"
+ | toString DVIPS = "dvips"
+ | toString PDFTEX = "pdftex"
+ | toString LUATEX = "luatex"
+ | toString XETEX = "xetex"
+ | toString UNKNOWN = "unknown"
+ end
+ structure xypic =
+ struct
+ datatype driver = PDF | DVIPS | UNKNOWN
+ fun toString PDF = "pdf"
+ | toString DVIPS = "dvips"
+ | toString UNKNOWN = "unknown"
+ end
+ (*: val correctDrivers : driver -> { graphics : graphics.driver, expl3_old : expl3.driver, expl3_new : expl3.driver, hyperref : hyperref.driver option, xypic : xypic.driver option } *)
+ fun correctDrivers DVIPS =
+ { graphics = graphics.DVIPS
+ , expl3_old = expl3.DVIPS
+ , expl3_new = expl3.DVIPS
+ , hyperref = SOME hyperref.DVIPS
+ , xypic = SOME xypic.DVIPS
+ }
+ | correctDrivers DVIPDFMX =
+ { graphics = graphics.DVIPDFMX
+ , expl3_old = expl3.DVIPDFMX
+ , expl3_new = expl3.DVIPDFMX
+ , hyperref = SOME hyperref.DVIPDFMX
+ , xypic = SOME xypic.PDF
+ }
+ | correctDrivers DVISVGM =
+ { graphics = graphics.DVISVGM
+ , expl3_old = expl3.DVISVGM
+ , expl3_new = expl3.DVISVGM
+ , hyperref = NONE (* What to do? *)
+ , xypic = NONE (* What to do? *)
+ }
+ | correctDrivers XETEX =
+ { graphics = graphics.XETEX
+ , expl3_old = expl3.XDVIPDFMX
+ , expl3_new = expl3.XETEX
+ , hyperref = SOME hyperref.XETEX
+ , xypic = SOME xypic.PDF
+ }
+ | correctDrivers PDFTEX =
+ { graphics = graphics.PDFTEX
+ , expl3_old = expl3.PDFMODE
+ , expl3_new = expl3.PDFTEX
+ , hyperref = SOME hyperref.PDFTEX
+ , xypic = SOME xypic.PDF
+ }
+ | correctDrivers LUATEX =
+ { graphics = graphics.LUATEX
+ , expl3_old = expl3.PDFMODE
+ , expl3_new = expl3.LUATEX
+ , hyperref = SOME hyperref.LUATEX
+ , xypic = SOME xypic.PDF
+ }
+ fun checkDriver (expected_driver, filelist) =
+ let
+ val () =
+ if Message.getVerbosity () >= 1 then
+ Message.info ("checkdriver: expects " ^ toString expected_driver)
+ else
+ ()
+ val loadedSet =
+ List.foldl
+ (fn ({kind, path}, set) =>
+ if kind = "input" then StringSet.add (set, PathUtil.basename path)
+ else set) StringSet.empty filelist
+ fun loaded name = StringSet.member (loadedSet, name)
+ val graphics_driver =
+ if loaded "graphics.sty" orelse loaded "color.sty" then
+ SOME
+ (if loaded "dvipdfmx.def" then
+ graphics.DVIPDFMX
+ else if loaded "dvips.def" then
+ graphics.DVIPS
+ else if loaded "dvisvgm.def" then
+ graphics.DVISVGM
+ else if loaded "pdftex.def" then
+ graphics.PDFTEX
+ else if loaded "luatex.def" then
+ graphics.LUATEX
+ else if loaded "xetex.def" then
+ graphics.XETEX
+ else
+ (* Not supported: dvipdf, dvipsone, emtex, textures, pctexps, pctexwin, pctexhp, pctex32, truetex, tcidvi, vtex *)
+ graphics.UNKNOWN)
+ else
+ NONE
+ val expl3_driver =
+ if
+ loaded "expl3-code.tex" orelse loaded "expl3.sty"
+ orelse loaded "l3backend-dvips.def"
+ orelse loaded "l3backend-dvipdfmx.def"
+ orelse loaded "l3backend-xdvipdfmx.def"
+ orelse loaded "l3backend-pdfmode.def"
+ orelse loaded "l3backend-pdftex.def"
+ orelse loaded "l3backend-luatex.def"
+ orelse loaded "l3backend-xetex.def"
+ then
+ SOME
+ (if loaded "l3backend-pdfmode.def" then expl3.PDFMODE
+ else if loaded "l3backend-dvisvgm.def" then expl3.DVISVGM
+ else if loaded "l3backend-xdvipdfmx.def" then expl3.XDVIPDFMX
+ else if loaded "l3backend-dvipdfmx.def" then expl3.DVIPDFMX
+ else if loaded "l3backend-dvips.def" then expl3.DVIPS
+ else if loaded "l3backend-pdftex.def" then expl3.PDFTEX
+ else if loaded "l3backend-luatex.def" then expl3.LUATEX
+ else if loaded "l3backend-xetex.def" then expl3.XETEX
+ else expl3.UNKNOWN)
+ else
+ NONE
+ val hyperref_driver =
+ if loaded "hyperref.sty" then
+ SOME
+ (if loaded "hluatex.def" then
+ hyperref.LUATEX
+ else if loaded "hpdftex.def" then
+ hyperref.PDFTEX
+ else if loaded "hxetex.def" then
+ hyperref.XETEX
+ else if loaded "hdvipdfm.def" then
+ hyperref.DVIPDFMX
+ else if loaded "hdvips.def" then
+ hyperref.DVIPS
+ else
+ (* Not supported: dvipson, dviwind, tex4ht, texture, vtex, vtexhtm, xtexmrk, hypertex *)
+ hyperref.UNKNOWN)
+ else
+ NONE
+ val xypic_driver =
+ if loaded "xy.tex" then
+ SOME
+ (if loaded "xypdf.tex" then
+ xypic.PDF (* pdftex, luatex, xetex, dvipdfmx *)
+ else if loaded "xydvips.tex" then
+ xypic.DVIPS
+ else
+ xypic.UNKNOWN)
+ else
+ NONE
+ val () =
+ if Message.getVerbosity () >= 1 then
+ ( Message.info
+ ("checkdriver: graphics="
+ ^
+ (case graphics_driver of
+ NONE => "not loaded"
+ | SOME d => graphics.toString d))
+ ; Message.info
+ ("checkdriver: expl3="
+ ^
+ (case expl3_driver of
+ NONE => "not loaded"
+ | SOME d => expl3.toString d))
+ ; Message.info
+ ("checkdriver: hyperref="
+ ^
+ (case hyperref_driver of
+ NONE => "not loaded"
+ | SOME d => hyperref.toString d))
+ ; Message.info
+ ("checkdriver: xypic="
+ ^
+ (case xypic_driver of
+ NONE => "not loaded"
+ | SOME d => xypic.toString d))
+ )
+ else
+ ()
+ val
+ { graphics = expected_graphics
+ , expl3_old = expected_expl3_old
+ , expl3_new = expected_expl3_new
+ , hyperref = expected_hyperref
+ , xypic = expected_xypic
+ } = correctDrivers expected_driver
+ in
+ case graphics_driver of
+ NONE => ()
+ | SOME d =>
+ if d <> expected_graphics then
+ ( Message.diag
+ "The driver option for grahipcs(x)/color is missing or wrong."
+ ; Message.diag
+ ("Consider setting '" ^ graphics.toString expected_graphics
+ ^ "' option.")
+ )
+ else
+ ();
+ case expl3_driver of
+ NONE => ()
+ | SOME d =>
+ if d <> expected_expl3_old andalso d <> expected_expl3_new then
+ ( Message.diag "The driver option for expl3 is missing or wrong."
+ ; Message.diag
+ ("Consider setting 'driver=" ^ expl3.toString expected_expl3_new
+ ^ "' option when loading expl3.")
+ ; if expected_expl3_old <> expected_expl3_new then
+ Message.diag
+ ("You might need to instead set 'driver="
+ ^ expl3.toString expected_expl3_old
+ ^ "' if you are using an older version of expl3.")
+ else
+ ()
+ )
+ else
+ ();
+ case (hyperref_driver, expected_hyperref) of
+ (SOME actual, SOME expected) =>
+ if actual <> expected then
+ ( Message.diag "The driver option for hyperref is missing or wrong."
+ ; Message.diag
+ ("Consider setting '" ^ hyperref.toString expected ^ "' option.")
+ )
+ else
+ ()
+ | _ => ();
+ case (xypic_driver, expected_xypic) of
+ (SOME actual, SOME expected) =>
+ if actual <> expected then
+ ( Message.diag "The driver option for Xy-pic is missing or wrong."
+ ; case (expected_driver, expected) of
+ (DVIPDFMX, _) =>
+ Message.diag
+ "Consider setting 'dvipdfmx' option or running \\xyoption{pdf}."
+ | (PDFTEX, _) =>
+ Message.diag
+ "Consider setting 'pdftex' option or running \\xyoption{pdf}."
+ | (_, xypic.PDF) =>
+ Message.diag
+ "Consider setting 'pdf' package option or running \\xyoption{pdf}."
+ | (_, xypic.DVIPS) =>
+ Message.diag "Consider setting 'dvips' option."
+ | (_, xypic.UNKNOWN) => ()
+ )
+ else
+ ()
+ | _ => ()
+ end
+end;
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,697 +0,0 @@
-#!/usr/bin/env texlua
---[[
- Copyright 2016-2023 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.6"
-
--- Standard libraries
-local table = table
-local os = os
-local io = io
-local string = string
-local ipairs = ipairs
-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 safename = require "texrunner.safename"
-local extract_bibtex_from_aux_file = require "texrunner.auxfile".extract_bibtex_from_aux_file
-local handle_cluttex_options = require "texrunner.handleoption".handle_cluttex_options
-local checkdriver = require "texrunner.checkdriver".checkdriver
-
-os.setlocale("", "ctype") -- Workaround for recent Universal CRT
-
--- 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_for_output
-if options.jobname == nil then
- local basename = pathutil.basename(pathutil.trimext(inputfile))
- options.jobname = safename.escapejobname(basename)
- jobname_for_output = basename
-else
- jobname_for_output = options.jobname
-end
-local jobname = options.jobname
-assert(jobname ~= "", "jobname cannot be empty")
-
-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_for_output .. "." .. 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_executable or 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
-
--- --print-output-directory
-if options.print_output_directory then
- io.write(options.output_directory, "\n")
- os.exit(0)
-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 ""
- local LUAINPUTS = os.getenv("LUAINPUTS") or ""
- assert(filesys.chdir(options.output_directory))
- options.output = pathutil.abspath(options.output, original_wd)
- os.setenv("TEXINPUTS", original_wd .. pathsep .. TEXINPUTS)
- os.setenv("LUAINPUTS", original_wd .. pathsep .. LUAINPUTS)
- -- after changing the pwd, '.' is always the output_directory (needed for some path generation)
- options.output_directory = "."
-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", "16384")
-end
---[[
- According to texmf.cnf:
- 45 < error_line < 255,
- 30 < half_error_line < error_line - 15,
- 60 <= max_print_line.
-
- On TeX Live 2023, (u)(p)bibtex fails if max_print_line >= 20000.
-]]
-
-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 = {
- engine_executable = options.engine_executable,
- 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
-
--- handle change_directory properly (needs to be after initscript gen)
-if options.change_directory then
- tex_options.output_directory = nil
-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, epstopdf = false, 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
- end
- if string.match(fileinfo.path, "epstopdf%.sty$") then
- epstopdf = true
- 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()
-
- local tex_injection = ""
-
- if options.includeonly then
- tex_injection = string.format("%s\\includeonly{%s}", tex_options.tex_injection or "", options.includeonly)
- end
-
- if minted or options.package_support["minted"] then
- local outdir = options.output_directory
- if os.type == "windows" then
- outdir = string.gsub(outdir, "\\", "/") -- Use forward slashes
- end
- tex_injection = string.format("%s\\PassOptionsToPackage{outputdir=%s}{minted}", tex_injection or "", outdir)
- if not options.package_support["minted"] then
- message.diag("You may want to use --package-support=minted option.")
- end
- end
- if epstopdf or options.package_support["epstopdf"] then
- local outdir = options.output_directory
- if os.type == "windows" then
- outdir = string.gsub(outdir, "\\", "/") -- Use forward slashes
- end
- if string.sub(outdir, -1, -1) ~= "/" then
- outdir = outdir.."/" -- Must end with a directory separator
- end
- tex_injection = string.format("%s\\PassOptionsToPackage{outdir=%s}{epstopdf}", tex_injection or "", outdir)
- if not options.package_support["epstopdf"] then
- message.diag("You may want to use --package-support=epstopdf option.")
- end
- end
-
- local inputline = tex_injection .. safename.safeinput(inputfile, engine)
-
- 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(inputline, 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.check_driver ~= nil then
- checkdriver(options.check_driver, filelist)
- 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(pathutil.abspath(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
- -- usual compilation with biber
- -- tex -> pdflatex tex -> aux,bcf,pdf,run.xml
- -- bcf -> biber bcf -> bbl
- -- tex,bbl -> pdflatex tex -> aux,bcf,pdf,run.xml
- 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")
- local updated_dot_bib = false
- -- get the .bib files, the bcf uses as input
- for l in io.lines(file.abspath) do
- local bib = l:match("<bcf:datasource .*>(.*)</bcf:datasource>") -- might be unstable if biblatex adds e.g. a linebreak
- if bib then
- local bibfile = pathutil.join(original_wd, bib)
- local succ, err = io.open(bibfile, "r") -- check if file is present, don't use touch to avoid triggering a rerun
- if succ then
- succ:close()
- local updated_dot_bib_tmp = not reruncheck.comparefiletime(pathutil.abspath(mainauxfile), bibfile, auxstatus)
- if updated_dot_bib_tmp then
- message.info(bibfile.." is newer than aux")
- end
- updated_dot_bib = updated_dot_bib_tmp or updated_dot_bib
- else
- message.warn(bibfile .. " is not accessible (" .. err .. ")")
- end
- end
- end
- if updated_dot_bib or reruncheck.comparefileinfo({bcffileinfo}, auxstatus) or reruncheck.comparefiletime(file.abspath, output_bbl, auxstatus) then
- 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, " "))
- -- watch for changes in the bbl
- 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
-
- -- Write dependencies file
- if options.make_depends then
- 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 f = assert(io.open(options.make_depends, "w"))
- f:write(options.output, ":")
- for _,fileinfo in ipairs(filelist) do
- if fileinfo.kind == "input" then
- f:write(" ", fileinfo.path)
- end
- end
- f:write("\n")
- f:close()
- 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 fswatcherlib
- if os.type == "windows" then
- -- Windows: Try built-in filesystem watcher
- local succ, result = pcall(require, "texrunner.fswatcher_windows")
- if not succ and CLUTTEX_VERBOSITY >= 1 then
- message.warn("Failed to load texrunner.fswatcher_windows: " .. result)
- end
- fswatcherlib = result
- end
-
- local do_watch
- if fswatcherlib then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using built-in filesystem watcher for Windows")
- end
- do_watch = function(files)
- local watcher = assert(fswatcherlib.new())
- for _,path in ipairs(files) do
- assert(watcher:add_file(path))
- end
- local result = assert(watcher:next())
- if CLUTTEX_VERBOSITY >= 2 then
- message.info(string.format("%s %s", result.action, result.path))
- end
- watcher:close()
- return true
- end
- elseif shellutil.has_command("fswatch") and (options.watch == "auto" or options.watch == "fswatch") then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using `fswatch' command")
- end
- do_watch = function(files)
- local fswatch_command = {"fswatch", "--one-event", "--event=Updated", "--"}
- for _,path in ipairs(files) do
- table.insert(fswatch_command, shellutil.escape(path))
- end
- local fswatch_command_str = table.concat(fswatch_command, " ")
- if CLUTTEX_VERBOSITY >= 1 then
- message.exec(fswatch_command_str)
- end
- local fswatch = assert(io.popen(fswatch_command_str, "r"))
- for l in fswatch:lines() do
- for _,path in ipairs(files) do
- if l == path then
- fswatch:close()
- return true
- end
- end
- end
- return false
- end
- elseif shellutil.has_command("inotifywait") and (options.watch == "auto" or options.watch == "inotifywait") then
- if CLUTTEX_VERBOSITY >= 2 then
- message.info("Using `inotifywait' command")
- end
- do_watch = function(files)
- local inotifywait_command = {"inotifywait", "--event=modify", "--event=attrib", "--format=%w", "--quiet"}
- for _,path in ipairs(files) do
- table.insert(inotifywait_command, shellutil.escape(path))
- end
- local inotifywait_command_str = table.concat(inotifywait_command, " ")
- if CLUTTEX_VERBOSITY >= 1 then
- message.exec(inotifywait_command_str)
- end
- local inotifywait = assert(io.popen(inotifywait_command_str, "r"))
- for l in inotifywait:lines() do
- for _,path in ipairs(files) do
- if l == path then
- inotifywait:close()
- return true
- end
- end
- end
- return false
- end
- else
- if options.watch == "auto" then
- message.error("Could not watch files because neither `fswatch' nor `inotifywait' was installed.")
- elseif options.watch == "fswatch" then
- message.error("Could not watch files because your selected engine `fswatch' was not installed.")
- elseif options.watch == "inotifywait" then
- message.error("Could not watch files because your selected engine `inotifywait' was not installed.")
- end
- message.info("See ClutTeX's manual for details.")
- os.exit(1)
- end
-
- local success, status = do_typeset()
- -- TODO: filenames here can be UTF-8 if command_line_encoding=utf-8
- 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
-
- while do_watch(input_files_to_watch) do
- local success, status = do_typeset()
- if not success then
- -- error
- else
- 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
- 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
- end
- end
-
-else
- -- Not in watch mode
- local success, status = do_typeset()
- if not success then
- os.exit(1)
- end
-end
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.mlb
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.mlb (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/cluttex.mlb 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,27 @@
+$(SML_LIB)/basis/basis.mlb
+$(SML_LIB)/basis/lunarml.mlb
+$(SML_LIB)/basis/lua.mlb
+$(SML_LIB)/smlnj-lib/Util/smlnj-lib.mlb
+../lib/sml-toml/toml.mlb
+ann "sequenceNonUnit warn" "valDescInComments warn" in
+md5.sml
+map.sml
+shell-util.sml
+path-util.sml
+fs-util.sml
+os-util.sml
+types.sml
+safe-name.sml
+tex-engine.sml
+ansi-color.sml
+message.sml
+check-driver.sml
+app-options.sml
+auxfile.sml
+luatexinit.sml
+handle-options.sml
+recovery.sml
+reruncheck.sml
+config-file.sml
+main.sml
+end
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/config-file.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/config-file.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/config-file.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,134 @@
+structure ConfigFile:
+sig
+ type config =
+ { temporary_directory: string option
+ , color: { type_: ANSIStyle.style option
+ , execute: ANSIStyle.style option
+ , error: ANSIStyle.style option
+ , warning: ANSIStyle.style option
+ , diagnostic: ANSIStyle.style option
+ , information: ANSIStyle.style option
+ }
+ }
+ val defaultConfig: config
+ val loadConfig: string -> config
+end =
+struct
+
+ type config =
+ { temporary_directory: string option
+ , color: { type_: ANSIStyle.style option
+ , execute: ANSIStyle.style option
+ , error: ANSIStyle.style option
+ , warning: ANSIStyle.style option
+ , diagnostic: ANSIStyle.style option
+ , information: ANSIStyle.style option
+ }
+ }
+
+ val defaultConfig: config =
+ { temporary_directory = NONE
+ , color =
+ { type_ = NONE
+ , execute = NONE
+ , error = NONE
+ , warning = NONE
+ , diagnostic = NONE
+ , information = NONE
+ }
+ }
+
+ fun get (table: TomlValue.table, key) =
+ case List.find (fn (key', _) => key' = key) table of
+ NONE => NONE
+ | SOME (_, value) => SOME value
+
+ fun weakGet (SOME table : TomlValue.table option, key) =
+ (case List.find (fn (key', _) => key' = key) table of
+ NONE => NONE
+ | SOME (_, value) => SOME value)
+ | weakGet (NONE, _) = NONE
+
+ infix ?|> ??
+ (* Option.mapPartial, flipped *)
+ fun (SOME x) ?|> f = f x
+ | NONE ?|> _ = NONE
+
+ val op?? = Option.getOpt
+
+ (*: val checkBool : string -> TomlValue.value -> bool option *)
+ fun checkBool _ (TomlValue.BOOL x) = SOME x
+ | checkBool path _ =
+ (Message.warn ("Config entry " ^ path ^ " should be a boolean."); NONE)
+
+ (*: val checkString : string -> TomlValue.value -> string option *)
+ fun checkString _ (TomlValue.STRING x) = SOME x
+ | checkString path _ =
+ (Message.warn ("Config entry " ^ path ^ " should be a string."); NONE)
+
+ (*: val checkTable : string -> TomlValue.value -> TomlValue.table option *)
+ fun checkTable _ (TomlValue.TABLE x) = SOME x
+ | checkTable path _ =
+ (Message.warn ("Config entry " ^ path ^ " should be a table."); NONE)
+
+ (*: val checkColor : string -> TomlValue.value -> ANSIColor.color option *)
+ fun checkColor path (TomlValue.STRING x) =
+ (case ANSIColor.fromString x of
+ SOME c => SOME c
+ | NONE =>
+ ( Message.warn
+ ("Config entry " ^ path ^ " should be a valid color.")
+ ; NONE
+ ))
+ | checkColor path _ =
+ (Message.warn ("Config entry " ^ path ^ " should be a string."); NONE)
+
+ (*: val parseStyle : string -> TomlValue.value -> ANSIStyle.style option *)
+ fun parseStyle path (TomlValue.TABLE t) =
+ SOME
+ { foreground = get (t, "fore") ?|> checkColor (path ^ ".fore")
+ , background = get (t, "back") ?|> checkColor (path ^ ".back")
+ , bold = get (t, "bold") ?|> checkBool (path ^ ".bold") ?? false
+ , dim = get (t, "dim") ?|> checkBool (path ^ ".dim") ?? false
+ , underline =
+ get (t, "underline") ?|> checkBool (path ^ ".underline") ?? false
+ , blink = get (t, "blink") ?|> checkBool (path ^ ".blink") ?? false
+ , reverse =
+ get (t, "reverse") ?|> checkBool (path ^ ".reverse") ?? false
+ , italic = get (t, "italic") ?|> checkBool (path ^ ".italic") ?? false
+ , strike = get (t, "strike") ?|> checkBool (path ^ ".strike") ?? false
+ }
+ | parseStyle path _ =
+ (Message.warn ("Config entry " ^ path ^ " should be a table."); NONE)
+
+ fun loadConfig path =
+ let
+ val ins = TextIO.openIn path
+ val ins' = ValidateUtf8.mkValidatingStream (TextIO.getInstream ins)
+ val table =
+ ParseToml.parse (ValidateUtf8.validatingReader TextIO.StreamIO.input1)
+ ins'
+ in
+ { temporary_directory =
+ get (table, "temporary-directory")
+ ?|> checkString "temporary-directory"
+ , color =
+ let
+ val color = get (table, "color") ?|> checkTable "color"
+ in
+ { type_ = weakGet (color, "type") ?|> parseStyle "color.type"
+ , execute =
+ weakGet (color, "execute") ?|> parseStyle "color.execute"
+ , error = weakGet (color, "error") ?|> parseStyle "color.error"
+ , warning =
+ weakGet (color, "warning") ?|> parseStyle "color.warning"
+ , diagnostic =
+ weakGet (color, "diagnostic") ?|> parseStyle "color.diagnostic"
+ , information =
+ weakGet (color, "information")
+ ?|> parseStyle "color.information"
+ }
+ end
+ }
+ end
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/fs-util.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/fs-util.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/fs-util.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,32 @@
+structure FSUtil : sig
+ val copyCommand : { from : string, to : string } -> string
+ val isFile : string -> bool
+ val isDirectory : string -> bool
+ val mkDirRec : string -> unit
+ val removeRec : string -> unit
+ val touch : string -> unit
+ end = struct
+val lfs = LunarML.assumeDiscardable (fn () => Lua.call1 Lua.Lib.require #[Lua.fromString "lfs"]) ()
+val luamod = LunarML.assumeDiscardable (fn () => Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.fsutil"]) ()
+fun copyCommand { from, to } : string = Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "copy_command")) #[Lua.fromString from, Lua.fromString to])
+val isFile : string -> bool = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "isfile"))) ()
+val isDirectory : string -> bool = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "isdir"))) ()
+fun mkDirRec path = let val (succ, err) = Lua.call2 (Lua.field (luamod, "mkdir_rec")) #[Lua.fromString path]
+ in if Lua.isFalsy succ then
+ raise Lua.Error err
+ else
+ ()
+ end
+fun removeRec path = let val (succ, err) = Lua.call2 (Lua.field (luamod, "remove_rec")) #[Lua.fromString path]
+ in if Lua.isFalsy succ then
+ raise Lua.Error err
+ else
+ ()
+ end
+fun touch path = let val (succ, err) = Lua.call2 (Lua.field (lfs, "touch")) #[Lua.fromString path]
+ in if Lua.isFalsy succ then
+ raise Lua.Error err
+ else
+ ()
+ end
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/handle-options.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/handle-options.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/handle-options.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,332 @@
+functor HandleOptions (val showMessageAndFail : string -> 'a
+ val showUsage : unit -> 'a
+ val showVersion : unit -> 'a
+ ) : sig
+ val parse : AppOptions.initial_options * string list -> AppOptions.initial_options * string list
+ end = struct
+open AppOptions
+datatype 'a option_action = SIMPLE of 'a
+ | WITH_ARG of string -> 'a
+ | WITH_OPTIONAL_ARG of { default : string, action : string -> 'a }
+datatype option_desc = SHORT of string
+ | LONG of string
+fun testOption (_, []) = NONE
+ | testOption ((SHORT s, SIMPLE v), arg :: args) = if arg = s then
+ SOME (v, args)
+ else
+ NONE
+ | testOption ((SHORT s, WITH_ARG f), arg :: args)
+ = if arg = s then
+ case args of
+ [] => raise Fail ("argument missing after " ^ s)
+ | arg' :: args' => SOME (f arg', args') (* -x foo *)
+ else if String.isPrefix s arg then (* -xfoo *)
+ let val arg' = String.extract (arg, String.size s, NONE)
+ in SOME (f arg', args)
+ end
+ else
+ NONE
+ | testOption ((SHORT s, WITH_OPTIONAL_ARG { default, action }), arg :: args)
+ = if arg = s then
+ SOME (action default, args)
+ else if String.isPrefix s arg then (* -xfoo *)
+ let val arg' = String.extract (arg, String.size s, NONE)
+ in SOME (action arg', args)
+ end
+ else
+ NONE
+ | testOption ((LONG s, SIMPLE v), arg :: args) = if arg = s then
+ SOME (v, args)
+ else
+ NONE
+ | testOption ((LONG s, WITH_ARG f), arg :: args)
+ = if arg = s then
+ case args of
+ [] => raise Fail ("argument missing after " ^ s)
+ | arg' :: args' => SOME (f arg', args') (* -option foo *)
+ else if String.isPrefix (s ^ "=") arg then (* -option=foo *)
+ let val arg' = String.extract (arg, String.size s + 1, NONE)
+ in SOME (f arg', args)
+ end
+ else
+ NONE
+ | testOption ((LONG s, WITH_OPTIONAL_ARG { default, action }), arg :: args)
+ = if arg = s then
+ SOME (action default, args)
+ else if String.isPrefix (s ^ "=") arg then (* -option=foo *)
+ let val arg' = String.extract (arg, String.size s + 1, NONE)
+ in SOME (action arg', args)
+ end
+ else
+ NONE
+fun parseOption (descs, []) = NONE
+ | parseOption (descs, args) = let fun go [] = NONE
+ | go (desc :: descs) = case testOption (desc, args) of
+ SOME r => SOME r
+ | NONE => go descs
+ in go descs
+ end
+datatype option = OPT_ENGINE of string (* -e,--engine=ENGINE *)
+ | OPT_ENGINE_EXECUTABLE of string (* --engine-executable=EXECUTABLE *)
+ | OPT_OUTPUT of string (* -o,--output=OUTPUT *)
+ | OPT_FRESH (* --fresh *)
+ | OPT_MAX_ITERATIONS of string (* --max-iterations=N *)
+ | OPT_START_WITH_DRAFT (* --start-with-draft *)
+ | OPT_CHANGE_DIRECTORY of bool (* --change-directory,--no-change-directory *)
+ | OPT_WATCH of string (* --watch[=auto] *)
+ | OPT_HELP (* -h,-help,--help *)
+ | OPT_VERSION
+ | OPT_VERBOSE
+ | OPT_COLOR of string (* --color[=always] *)
+ | OPT_INCLUDEONLY of string
+ | OPT_MAKE_DEPENDS of string
+ | OPT_PRINT_OUTPUT_DIRECTORY
+ | OPT_PACKAGE_SUPPORT of string
+ | OPT_CHECK_DRIVER of string
+ | OPT_SOURCE_DATE_EPOCH of string
+ | OPT_SYNCTEX of string
+ | OPT_FILE_LINE_ERROR of bool
+ | OPT_INTERACTION of string
+ | OPT_HALT_ON_ERROR of bool
+ | OPT_SHELL_ESCAPE of ShellEscape.shell_escape
+ | OPT_JOBNAME of string
+ | OPT_FMT of string
+ | OPT_OUTPUT_DIRECTORY of string
+ | OPT_OUTPUT_FORMAT of string
+ | OPT_TEX_OPTION of string
+ | OPT_TEX_OPTIONS of string
+ | OPT_DVIPDFMX_OPTION of string
+ | OPT_DVIPDFMX_OPTIONS of string
+ | OPT_MAKEINDEX of string
+ | OPT_BIBTEX of string
+ | OPT_BIBER of string
+ | OPT_MAKEGLOSSARIES of string
+ | OPT_CONFIG_FILE of string
+val optionDescs = [(SHORT "-e", WITH_ARG OPT_ENGINE)
+ ,(LONG "--engine", WITH_ARG OPT_ENGINE)
+ ,(LONG "--engine-executable", WITH_ARG OPT_ENGINE_EXECUTABLE)
+ ,(SHORT "-o", WITH_ARG OPT_OUTPUT)
+ ,(LONG "--output", WITH_ARG OPT_OUTPUT)
+ ,(LONG "--fresh", SIMPLE OPT_FRESH)
+ ,(LONG "--max-iterations", WITH_ARG OPT_MAX_ITERATIONS)
+ ,(LONG "--start-with-draft", SIMPLE OPT_START_WITH_DRAFT)
+ ,(LONG "--change-directory", SIMPLE (OPT_CHANGE_DIRECTORY true))
+ ,(LONG "--no-change-directory", SIMPLE (OPT_CHANGE_DIRECTORY false))
+ ,(LONG "--watch", WITH_OPTIONAL_ARG { action = OPT_WATCH, default = "auto" })
+ ,(SHORT "-h", SIMPLE OPT_HELP)
+ ,(LONG "-help", SIMPLE OPT_HELP)
+ ,(LONG "--help", SIMPLE OPT_HELP)
+ ,(SHORT "-v", SIMPLE OPT_VERSION)
+ ,(LONG "--version", SIMPLE OPT_VERSION)
+ ,(SHORT "-V", SIMPLE OPT_VERBOSE)
+ ,(LONG "--verbose", SIMPLE OPT_VERBOSE)
+ ,(LONG "--color", WITH_OPTIONAL_ARG { action = OPT_COLOR, default = "always" })
+ ,(LONG "--includeonly", WITH_ARG OPT_INCLUDEONLY)
+ ,(LONG "--make-depends", WITH_ARG OPT_MAKE_DEPENDS)
+ ,(LONG "--print-output-directory", SIMPLE OPT_PRINT_OUTPUT_DIRECTORY)
+ ,(LONG "--package-support", WITH_ARG OPT_PACKAGE_SUPPORT)
+ ,(LONG "--check-driver", WITH_ARG OPT_CHECK_DRIVER)
+ ,(LONG "--source-date-epoch", WITH_ARG OPT_SOURCE_DATE_EPOCH)
+ ,(LONG "-synctex", WITH_ARG OPT_SYNCTEX)
+ ,(LONG "--synctex", WITH_ARG OPT_SYNCTEX)
+ ,(LONG "-file-line-error", SIMPLE (OPT_FILE_LINE_ERROR true))
+ ,(LONG "--file-line-error", SIMPLE (OPT_FILE_LINE_ERROR true))
+ ,(LONG "-no-file-line-error", SIMPLE (OPT_FILE_LINE_ERROR false))
+ ,(LONG "--no-file-line-error", SIMPLE (OPT_FILE_LINE_ERROR false))
+ ,(LONG "-interaction", WITH_ARG OPT_INTERACTION)
+ ,(LONG "--interaction", WITH_ARG OPT_INTERACTION)
+ ,(LONG "-halt-on-error", SIMPLE (OPT_HALT_ON_ERROR true))
+ ,(LONG "--halt-on-error", SIMPLE (OPT_HALT_ON_ERROR true))
+ ,(LONG "-no-halt-on-error", SIMPLE (OPT_HALT_ON_ERROR false))
+ ,(LONG "--no-halt-on-error", SIMPLE (OPT_HALT_ON_ERROR false))
+ ,(LONG "-shell-escape", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.ALLOWED))
+ ,(LONG "--shell-escape", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.ALLOWED))
+ ,(LONG "-no-shell-escape", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.FORBIDDEN))
+ ,(LONG "--no-shell-escape", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.FORBIDDEN))
+ ,(LONG "-shell-restricted", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.RESTRICTED))
+ ,(LONG "--shell-restricted", SIMPLE (OPT_SHELL_ESCAPE ShellEscape.RESTRICTED))
+ ,(LONG "-jobname", WITH_ARG OPT_JOBNAME)
+ ,(LONG "--jobname", WITH_ARG OPT_JOBNAME)
+ ,(LONG "-fmt", WITH_ARG OPT_FMT)
+ ,(LONG "--fmt", WITH_ARG OPT_FMT)
+ ,(LONG "-output-directory", WITH_ARG OPT_OUTPUT_DIRECTORY)
+ ,(LONG "--output-directory", WITH_ARG OPT_OUTPUT_DIRECTORY)
+ ,(LONG "-output-format", WITH_ARG OPT_OUTPUT_FORMAT)
+ ,(LONG "--output-format", WITH_ARG OPT_OUTPUT_FORMAT)
+ ,(LONG "--tex-option", WITH_ARG OPT_TEX_OPTION)
+ ,(LONG "--tex-options", WITH_ARG OPT_TEX_OPTIONS)
+ ,(LONG "--dvipdfmx-option", WITH_ARG OPT_DVIPDFMX_OPTION)
+ ,(LONG "--dvipdfmx-options", WITH_ARG OPT_DVIPDFMX_OPTIONS)
+ ,(LONG "--makeindex", WITH_ARG OPT_MAKEINDEX)
+ ,(LONG "--bibtex", WITH_ARG OPT_BIBTEX)
+ ,(LONG "--biber", WITH_OPTIONAL_ARG { action = OPT_BIBER, default = "biber" })
+ ,(LONG "--makeglossaries", WITH_OPTIONAL_ARG { action = OPT_MAKEGLOSSARIES, default = "makeglossaries" })
+ ,(LONG "--config-file", WITH_ARG OPT_CONFIG_FILE)
+ ]
+fun parse (opts : initial_options, args)
+ = case parseOption (optionDescs, args) of
+ SOME (OPT_ENGINE engine, args) => (case #engine opts of
+ NONE => parse ({ opts where engine = SOME engine }, args)
+ | SOME _ => showMessageAndFail "multiple --engine options"
+ )
+ | SOME (OPT_ENGINE_EXECUTABLE executable, args) => (case #engine_executable opts of
+ NONE => parse ({ opts where engine_executable = SOME executable }, args)
+ | SOME _ => showMessageAndFail "multiple --engine-executable options"
+ )
+ | SOME (OPT_OUTPUT output, args) => (case #output opts of
+ NONE => parse ({ opts where output = SOME output }, args)
+ | SOME _ => showMessageAndFail "multiple --output options"
+ )
+ | SOME (OPT_FRESH, args) => (case #fresh opts of
+ false => parse ({ opts where fresh = true }, args)
+ | true => showMessageAndFail "multiple --fresh options"
+ )
+ | SOME (OPT_MAX_ITERATIONS n, args) => (case #max_iterations opts of
+ NONE => (case Int.fromString n of
+ SOME n => parse ({ opts where max_iterations = SOME n }, args)
+ | NONE => showMessageAndFail "invalid value for --max-iterations option"
+ )
+ | SOME _ => showMessageAndFail "multiple --max-iterations options"
+ )
+ | SOME (OPT_START_WITH_DRAFT, args) => (case #start_with_draft opts of
+ false => parse ({ opts where start_with_draft = true }, args)
+ | true => showMessageAndFail "multiple --start-with-draft options"
+ )
+ | SOME (OPT_WATCH engine, args) => (case #watch opts of
+ NONE => (case WatchEngine.fromString engine of
+ SOME engine => parse ({ opts where watch = SOME engine }, args)
+ | NONE => showMessageAndFail "invalid value for --watch option"
+ )
+ | SOME _ => showMessageAndFail "multiple --watch options"
+ )
+ | SOME (OPT_HELP, args) => showUsage ()
+ | SOME (OPT_VERSION, args) => showVersion ()
+ | SOME (OPT_VERBOSE, args) => ( Message.beMoreVerbose ()
+ ; parse (opts, args)
+ )
+ | SOME (OPT_COLOR mode, args) => (case #color opts of
+ NONE => (case ColorMode.fromString mode of
+ SOME mode => ( Message.setColors mode
+ ; parse ({ opts where color = SOME mode }, args)
+ )
+ | NONE => showMessageAndFail "invalid value for --color option"
+ )
+ | SOME _ => showMessageAndFail "multiple --color options"
+ )
+ | SOME (OPT_CHANGE_DIRECTORY x, args) => (case #change_directory opts of
+ NONE => parse ({ opts where change_directory = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --change-directory options"
+ )
+ | SOME (OPT_INCLUDEONLY x, args) => (case #includeonly opts of
+ NONE => parse ({ opts where includeonly = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --includeonly options"
+ )
+ | SOME (OPT_MAKE_DEPENDS x, args) => (case #make_depends opts of
+ NONE => parse ({ opts where make_depends = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --make-depends options"
+ )
+ | SOME (OPT_PRINT_OUTPUT_DIRECTORY, args) => (case #print_output_directory opts of
+ false => parse ({ opts where print_output_directory = true }, args)
+ | true => showMessageAndFail "multiple --print-output-directory options"
+ )
+ | SOME (OPT_PACKAGE_SUPPORT s, args) => let val packages = String.tokens (fn c => c = #"," orelse Char.isSpace c) s
+ val ps = List.foldl (fn ("minted", ps) => { ps where minted = true }
+ | ("epstopdf", ps) => { ps where epstopdf = true }
+ | ("pdfx", ps) => { ps where pdfx = true }
+ | (pkg, ps) => ( if Message.getVerbosity () >= 1 then
+ Message.warn ("ClutTeX provides no special support for '" ^ pkg ^ "'.")
+ else
+ ()
+ ; ps
+ )
+ ) (#package_support opts) packages
+ in parse ({ opts where package_support = ps }, args)
+ end
+ | SOME (OPT_CHECK_DRIVER driver, args) => (case #check_driver opts of
+ NONE => (case DviDriver.fromString driver of
+ SOME driver => parse ({ opts where check_driver = SOME driver }, args)
+ | NONE => showMessageAndFail "invalid value for --check-driver option"
+ )
+ | SOME _ => showMessageAndFail "multiple --check-driver options"
+ )
+ | SOME (OPT_SOURCE_DATE_EPOCH time, args) => (case #source_date_epoch opts of
+ NONE => (case SourceDateEpoch.fromString time of
+ SOME time => parse ({ opts where source_date_epoch = SOME time }, args)
+ | NONE => showMessageAndFail "invalid value for --source-date-epoch option"
+ )
+ | SOME _ => showMessageAndFail "multiple --source-date-epoch options"
+ )
+ | SOME (OPT_SYNCTEX x, args) => (case #synctex opts of
+ NONE => parse ({ opts where synctex = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --synctex options"
+ )
+ | SOME (OPT_FILE_LINE_ERROR x, args) => parse ({ opts where file_line_error = x }, args)
+ | SOME (OPT_INTERACTION x, args) => (case #interaction opts of
+ NONE => (case InteractionMode.fromString x of
+ SOME interaction => parse ({ opts where interaction = SOME interaction }, args)
+ | NONE => showMessageAndFail "invalid argument for --interaction"
+ )
+ | SOME _ => showMessageAndFail "multiple --interaction options"
+ )
+ | SOME (OPT_HALT_ON_ERROR x, args) => parse ({ opts where halt_on_error = x }, args)
+ | SOME (OPT_SHELL_ESCAPE se, args) => (case #shell_escape opts of
+ NONE => parse ({ opts where shell_escape = SOME se }, args)
+ | SOME _ => showMessageAndFail "multiple --(no-)shell-escape / --shell-restricted options"
+ )
+ | SOME (OPT_JOBNAME x, args) => (case #jobname opts of
+ NONE => parse ({ opts where jobname = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --jobname options"
+ )
+ | SOME (OPT_FMT x, args) => (case #fmt opts of
+ NONE => parse ({ opts where fmt = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --fmt options"
+ )
+ | SOME (OPT_OUTPUT_DIRECTORY x, args) => (case #output_directory opts of
+ NONE => parse ({ opts where output_directory = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --output-directory options"
+ )
+ | SOME (OPT_OUTPUT_FORMAT format, args) => (case #output_format opts of
+ NONE => (case OutputFormat.fromString format of
+ SOME format => parse ({ opts where output_format = SOME format }, args)
+ | NONE => showMessageAndFail "invalid value for --output-format option"
+ )
+ | SOME _ => showMessageAndFail "multiple --output-format options"
+ )
+ | SOME (OPT_TEX_OPTION x, args) => let val x = ShellUtil.escape x
+ in parse ({ opts where tex_extraoptions = x :: #tex_extraoptions opts }, args)
+ end
+ | SOME (OPT_TEX_OPTIONS x, args) => parse ({ opts where tex_extraoptions = x :: #tex_extraoptions opts }, args)
+ | SOME (OPT_DVIPDFMX_OPTION x, args) => let val x = ShellUtil.escape x
+ in parse ({ opts where dvipdfmx_extraoptions = x :: #dvipdfmx_extraoptions opts }, args)
+ end
+ | SOME (OPT_DVIPDFMX_OPTIONS x, args) => parse ({ opts where tex_extraoptions = x :: #dvipdfmx_extraoptions opts }, args)
+ | SOME (OPT_MAKEINDEX x, args) => (case #makeindex opts of
+ NONE => parse ({ opts where makeindex = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --makeindex options"
+ )
+ | SOME (OPT_BIBTEX x, args) => (case #bibtex_or_biber opts of
+ NONE => parse ({ opts where bibtex_or_biber = SOME (BIBTEX x) }, args)
+ | SOME _ => showMessageAndFail "multiple --bibtex / --biber options"
+ )
+ | SOME (OPT_BIBER x, args) => (case #bibtex_or_biber opts of
+ NONE => parse ({ opts where bibtex_or_biber = SOME (BIBER x) }, args)
+ | SOME _ => showMessageAndFail "multiple --bibtex / --biber options"
+ )
+ | SOME (OPT_MAKEGLOSSARIES x, args) => (case #makeglossaries opts of
+ NONE => parse ({ opts where makeglossaries = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --makeglossaries options"
+ )
+ | SOME (OPT_CONFIG_FILE x, args) => (case #config_file opts of
+ NONE => parse ({ opts where config_file = SOME x }, args)
+ | SOME _ => showMessageAndFail "multiple --config-file options"
+ )
+ | NONE => (case args of
+ "--" :: args => (opts, args)
+ | arg :: args' =>
+ if String.isPrefix "-" arg then
+ showMessageAndFail ("Unrecognized option: " ^ arg ^ ".\n")
+ else
+ (opts, args)
+ | [] => showUsage () (* showMessageAndFail "No input given. Try --help.\n" *)
+ )
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/luatexinit.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/luatexinit.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/luatexinit.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,7 @@
+structure LuaTeXInit : sig
+ val createInitializationScript : string * { file_line_error : bool, halt_on_error : bool, output_directory : string, jobname : string } -> unit
+ end = struct
+val luamod = LunarML.assumeDiscardable (fn () => Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.luatexinit"]) ()
+fun createInitializationScript (filename, options : { file_line_error : bool, halt_on_error : bool, output_directory : string, jobname : string })
+ = Lua.call0 (Lua.field (luamod, "create_initialization_script")) #[Lua.fromString filename, Lua.unsafeToValue options]
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/main.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/main.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/main.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,1014 @@
+(* This file is part of ClutTeX. *)
+structure Main = struct
+val CLUTTEX_VERSION = "v0.7.0"
+
+val COPYRIGHT_NOTICE =
+"Copyright (C) 2016-2024 ARATA Mizuki\n\
+\\n\
+\This program is free software: you can redistribute it and/or modify\n\
+\it under the terms of the GNU General Public License as published by\n\
+\the Free Software Foundation, either version 3 of the License, or\n\
+\(at your option) any later version.\n\
+\\n\
+\This program is distributed in the hope that it will be useful,\n\
+\but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+\MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\
+\GNU General Public License for more details.\n\
+\\n\
+\You should have received a copy of the GNU General Public License\n\
+\along with this program. If not, see <http://www.gnu.org/licenses/>.\n";
+
+exception Abort
+
+(* Workaround for recent Universal CRT *)
+val () = Lua.call0 Lua.Lib.os.setlocale #[Lua.fromString "", Lua.fromString "ctype"]
+
+fun getEnvMulti [] = NONE
+ | getEnvMulti (name :: xs) = case OS.Process.getEnv name of
+ SOME x => SOME x
+ | NONE => getEnvMulti xs
+
+fun genOutputDirectory (temporary_directory : string option, xs : string list)
+ = let val message = String.concatWith "\000" xs
+ val hash = MD5.md5AsLowerHex (Byte.stringToBytes message)
+ val tmpdir = case temporary_directory of
+ SOME tmpdir => tmpdir
+ | NONE => case getEnvMulti ["TMPDIR", "TMP", "TEMP"] of
+ SOME tmpdir => tmpdir
+ | NONE => case getEnvMulti ["HOME", "USERPROFILE"] of
+ SOME home => OS.Path.joinDirFile { dir = home, file = ".latex-build-temp" } (* $XDG_CACHE_HOME/cluttex, $HOME/.cache/cluttex *)
+ | NONE => raise Fail "environment variable 'TMPDIR' not set!"
+ in OS.Path.joinDirFile { dir = tmpdir, file = "cluttex-" ^ hash }
+ end
+
+fun showUsage () = let val progName = CommandLine.name ()
+ in TextIO.output (TextIO.stdErr,
+"ClutTeX: Process TeX files without cluttering your working directory\n\
+\\n\
+\Usage:\n\
+\ " ^ progName ^ " [options] [--] FILE.tex\n\
+\\n\
+\Options:\n\
+\ -e, --engine=ENGINE Specify which TeX engine to use.\n\
+\ ENGINE is one of the following:\n\
+\ pdflatex, pdftex,\n\
+\ lualatex, luatex, luajittex,\n\
+\ xelatex, xetex, latex, etex, tex,\n\
+\ platex, eptex, ptex,\n\
+\ uplatex, euptex, uptex,\n\
+\ --engine-executable=COMMAND+OPTIONs\n\
+\ The actual TeX command to use.\n\
+\ [default: ENGINE]\n\
+\ -o, --output=FILE The name of output file.\n\
+\ [default: JOBNAME.pdf or JOBNAME.dvi]\n\
+\ --fresh Clean intermediate files before running TeX.\n\
+\ Cannot be used with --output-directory.\n\
+\ --max-iterations=N Maximum number of running TeX to resolve\n\
+\ cross-references. [default: 3]\n\
+\ --start-with-draft Start with draft mode.\n\
+\ --[no-]change-directory Change directory before running TeX.\n\
+\ --watch[=ENGINE] Watch input files for change. Requires fswatch\n\
+\ or inotifywait to be installed. ENGINE is one of\n\
+\ `fswatch', `inotifywait' or `auto' [default: `auto']\n\
+\ --tex-option=OPTION Pass OPTION to TeX as a single option.\n\
+\ --tex-options=OPTIONs Pass OPTIONs to TeX as multiple options.\n\
+\ --dvipdfmx-option[s]=OPTION[s] Same for dvipdfmx.\n\
+\ --makeindex=COMMAND+OPTIONs Command to generate index, such as\n\
+\ `makeindex' or `mendex'.\n\
+\ --bibtex=COMMAND+OPTIONs Command for BibTeX, such as\n\
+\ `bibtex' or `pbibtex'.\n\
+\ --biber[=COMMAND+OPTIONs] Command for Biber.\n\
+\ --makeglossaries[=COMMAND+OPTIONs] Command for makeglossaries.\n\
+\ -h, --help Print this message and exit.\n\
+\ -v, --version Print version information and exit.\n\
+\ -V, --verbose Be more verbose.\n\
+\ --color[=WHEN] Make ClutTeX's message colorful. WHEN is one of\n\
+\ `always', `auto', or `never'.\n\
+\ [default: `auto' if --color is omitted,\n\
+\ `always' if WHEN is omitted]\n\
+\ --includeonly=NAMEs Insert '\\includeonly{NAMEs}'.\n\
+\ --make-depends=FILE Write dependencies as a Makefile rule.\n\
+\ --print-output-directory Print the output directory and exit.\n\
+\ --package-support=PKG1[,PKG2,...]\n\
+\ Enable special support for some shell-escaping\n\
+\ packages.\n\
+\ Currently supported: minted, epstopdf\n\
+\ --check-driver=DRIVER Check that the correct driver file is loaded.\n\
+\ DRIVER is one of `dvipdfmx', `dvips', `dvisvgm'.\n\
+\ --source-date-epoch=TIME\n\
+\ Set SOURCE_DATE_EPOCH variable.\n\
+\ TIME is `now' or an integer.\n\
+\\n\
+\ --[no-]shell-escape\n\
+\ --shell-restricted\n\
+\ --synctex=NUMBER\n\
+\ --fmt=FMTNAME\n\
+\ --[no-]file-line-error [default: yes]\n\
+\ --[no-]halt-on-error [default: yes]\n\
+\ --interaction=STRING [default: nonstopmode]\n\
+\ --jobname=STRING\n\
+\ --output-directory=DIR [default: somewhere in the temporary directory]\n\
+\ --output-format=FORMAT FORMAT is `pdf' or `dvi'. [default: pdf]\n\
+\\n" ^ COPYRIGHT_NOTICE)
+ ; OS.Process.exit OS.Process.success
+ end
+
+structure HandleOptions = HandleOptions (fun showMessageAndFail message = (TextIO.output (TextIO.stdErr, message ^ "\n"); OS.Process.exit OS.Process.failure)
+ val showUsage = showUsage
+ fun showVersion () = (TextIO.output (TextIO.stdErr, "cluttex " ^ CLUTTEX_VERSION ^ "\n"); OS.Process.exit OS.Process.success)
+ )
+
+(*: val pathInOutputDirectory : AppOptions.options * string -> string *)
+fun pathInOutputDirectory (options : AppOptions.options, ext) = PathUtil.join2 (#output_directory options, #jobname options ^ "." ^ ext)
+(*: val executeCommand : string * (unit -> bool) option -> unit *)
+(*
+fun executeCommand (command, recover)
+ = let val () = Message.exec command
+ val status = OS.Process.system command
+ val success_or_recoverd = if OS.Process.isSuccess status then
+ true
+ else
+ case recover of
+ SOME f => f ()
+ | NONE => false
+ in if success_or_recoverd then
+ ()
+ else
+ ( Message.error "Command exited abnormally" (* TODO: show status code: Unix.fromStatus *)
+ ; raise Abort
+ )
+ end
+*)
+fun executeCommand (command, recover)
+ = let val () = Message.exec command
+ val (success, termination, status_or_signal) = Lua.call3 Lua.Lib.os.execute #[Lua.fromString command]
+ val (success, termination, status_or_signal) : bool * string option * Lua.value
+ = if Lua.typeof success = "number" then (* Lua 5.1 or LuaTeX *)
+ (Lua.== (success, Lua.fromInt 0), NONE, success)
+ else
+ (Lua.unsafeFromValue success, SOME (Lua.unsafeFromValue termination), status_or_signal)
+ val success_or_recovered = success orelse (case recover of
+ SOME f => f ()
+ | NONE => false
+ )
+ in if success_or_recovered then
+ ()
+ else
+ ( case termination of
+ SOME "exit" => Message.error ("Command exited abnormally: exit status " ^ Lua.unsafeFromValue (Lua.call1 Lua.Lib.tostring #[status_or_signal]))
+ | SOME "signal" => Message.error ("Command exited abnormally: signal " ^ Lua.unsafeFromValue (Lua.call1 Lua.Lib.tostring #[status_or_signal]))
+ | _ => Message.error ("Command exited abnormally: " ^ Lua.unsafeFromValue (Lua.call1 Lua.Lib.tostring #[status_or_signal]))
+ ; raise Abort
+ )
+ end
+
+(* The value to be used for SOURCE_DATE_EPOCH *)
+fun getTimeSinceEpoch () : string
+ = Lua.unsafeFromValue (Lua.call1 Lua.Lib.tostring #[Lua.call1 Lua.Lib.os.time #[]])
+
+type run_params = { options : AppOptions.options
+ , inputfile : string
+ , engine : TeXEngine.engine
+ , tex_options : TeXEngine.run_options
+ , recorderfile : string
+ , recorderfile2 : string
+ , original_wd : string
+ , output_extension : string
+ , source_date_epoch_info : { time_since_epoch : string, time : Time.time } ref option
+ }
+datatype single_run_result = SHOULD_RERUN of Reruncheck.aux_status StringMap.map
+ | NO_NEED_TO_RERUN
+ | NO_PAGES_OF_OUTPUT
+
+(* Run TeX command ( *tex, *latex) *)
+(*: val singleRun : run_params * Reruncheck.aux_status StringMap.map * int -> single_run_result *)
+fun singleRun ({ options, inputfile, engine, tex_options, recorderfile, recorderfile2, original_wd, source_date_epoch_info, ... } : run_params, auxstatus, iteration)
+ = let val mainauxfile = pathInOutputDirectory (options, "aux")
+ val { filelist, auxstatus, minted, epstopdf, pdfx, bibtex_aux_hash }
+ = if FSUtil.isFile recorderfile then
+ (* Recorder file already exists *)
+ let val recorded = Reruncheck.parseRecorderFile { file = recorderfile, options = options }
+ val recorded = if TeXEngine.isLuaTeX engine andalso FSUtil.isFile recorderfile2 then
+ Reruncheck.parseRecorderFileContinued { file = recorderfile2, options = options, previousResult = recorded }
+ else
+ recorded
+ val (filelist, filemap) = Reruncheck.getFileInfo recorded
+ val auxstatus = Reruncheck.collectFileInfo (filelist, auxstatus)
+ val { minted, epstopdf, pdfx } =
+ List.foldl (fn ({ path, ... }, { minted, epstopdf, pdfx }) =>
+ { minted = minted orelse String.isSuffix "minted/minted.sty" path
+ , epstopdf = epstopdf orelse String.isSuffix "epstopdf.sty" path
+ , pdfx = pdfx orelse String.isSuffix "pdfx.sty" path
+ }
+ ) { minted = false, epstopdf = false, pdfx = false } filelist
+ val bibtex_aux_hash = case #bibtex_or_biber options of
+ SOME (AppOptions.BIBTEX _) =>
+ let val biblines = AuxFile.extractBibTeXLines { auxfile = mainauxfile, outdir = #output_directory options }
+ in SOME (MD5.compute (Byte.stringToBytes (String.concatWith "\n" biblines)))
+ end
+ | _ => NONE
+ in { filelist, auxstatus, minted, epstopdf, pdfx, bibtex_aux_hash }
+ end
+ else
+ (* This is the first execution *)
+ if StringMap.isEmpty auxstatus then
+ { filelist = [], auxstatus = StringMap.empty, minted = false, epstopdf = false, pdfx = false, bibtex_aux_hash = NONE }
+ else
+ ( Message.error "Recorder file was not generated during the execution!"
+ ; raise Abort
+ )
+
+ (*
+ * Set SOURCE_DATE_EPOCH if
+ * * --source-date-epoch=now is set, or
+ * * --source-date-epoch is not set but `pdfx' package is used and SOURCE_DATE_EPOCH is not already set.
+ * The value will be the newer of these:
+ * * The time when the program started (see main()).
+ * * The time we are processing after one of the input files was modified.
+ *)
+ val () = case source_date_epoch_info of
+ NONE => () (* already set in main () *)
+ | SOME r =>
+ let val should_set_source_date_epoch = case #source_date_epoch options of
+ SOME AppOptions.SourceDateEpoch.NOW => true
+ | SOME (AppOptions.SourceDateEpoch.RAW _) => false (* should not occur *)
+ | NONE => pdfx orelse #pdfx (#package_support options)
+ in if should_set_source_date_epoch then
+ let val input_time = List.foldl (fn ({ abspath, kind = Reruncheck.INPUT, ... }, acc) =>
+ (case StringMap.find (auxstatus, abspath) of
+ SOME { mtime, ... } =>
+ (case (mtime, acc) of
+ (SOME mtime', SOME t) =>
+ if Time.< (t, mtime') then
+ mtime
+ else
+ acc
+ | (NONE, _) => acc
+ | (_, NONE) => mtime
+ )
+ | NONE => acc
+ )
+ | (_, acc) => acc
+ ) NONE filelist
+ val info = case input_time of
+ SOME input_time => if Time.< (#time (!r), input_time) then (* input file was changed since the last run *)
+ let val new_info = { time_since_epoch = getTimeSinceEpoch (), time = input_time }
+ in if Message.getVerbosity () >= 1 then
+ Message.info "Input file was modified; Updating SOURCE_DATE_EPOCH..."
+ else
+ ()
+ ; r := new_info
+ ; new_info
+ end
+ else
+ !r
+ | NONE => !r
+ in if Message.getVerbosity () >= 1 then
+ Message.info ("Setting SOURCE_DATE_EPOCH to " ^ #time_since_epoch info)
+ else
+ ()
+ ; OSUtil.setEnv ("SOURCE_DATE_EPOCH", #time_since_epoch info)
+ end
+ else
+ ()
+ end
+
+ val tex_injection = case #includeonly options of
+ SOME io => "\\includeonly{" ^ io ^ "}"
+ | NONE => ""
+ val tex_injection = if minted orelse #minted (#package_support options) then
+ let val () = if not (#minted (#package_support options)) then
+ Message.diag "You may want to use --package-support=minted option."
+ else
+ ()
+ val outdir = #output_directory options
+ val outdir = if OSUtil.isWindows then
+ String.map (fn #"\\" => #"/" | c => c) outdir (* Use forward slashes *)
+ else
+ outdir
+ in tex_injection ^ "\\PassOptionsToPackage{outputdir=" ^ outdir ^ "}{minted}"
+ end
+ else
+ tex_injection
+ val tex_injection = if epstopdf orelse #epstopdf (#package_support options) then
+ let val () = if not (#epstopdf (#package_support options)) then
+ Message.diag "You may want to use --package-support=epstopdf option."
+ else
+ ()
+ val outdir = #output_directory options
+ val outdir = if OSUtil.isWindows then
+ String.map (fn #"\\" => #"/" | c => c) outdir (* Use forward slashes *)
+ else
+ outdir
+ val outdir = if String.isSuffix "/" outdir then
+ outdir
+ else
+ outdir ^ "/" (* Must end with a directory separator *)
+ in tex_injection ^ "\\PassOptionsToPackage{outdir=" ^ outdir ^ "}{epstopdf}"
+ end
+ else
+ tex_injection
+ val inputline = tex_injection ^ SafeName.safeInput { name = inputfile, isPdfTeX = TeXEngine.isPdfTeX engine }
+ val (current_tex_options, lightweight_mode)
+ = if iteration = 1 andalso #start_with_draft options then
+ if #supports_draftmode engine then
+ ({ tex_options where draftmode = true, interaction = SOME InteractionMode.BATCHMODE }, true)
+ else
+ ({ tex_options where interaction = SOME InteractionMode.BATCHMODE }, true)
+ else
+ ({ tex_options where draftmode = false }, false)
+ val command = TeXEngine.buildCommand (engine, inputline, current_tex_options)
+ val execlogCache = ref NONE
+ fun getExecLog () = case !execlogCache of
+ NONE => let val ins = TextIO.openIn (pathInOutputDirectory (options, "log"))
+ val log = TextIO.inputAll ins
+ val () = TextIO.closeIn ins
+ in execlogCache := SOME log
+ ; log
+ end
+ | SOME log => log
+ val recovered = ref false
+ fun recover () = let val execlog = getExecLog ()
+ val r = Recovery.tryRecovery { options = options, execlog = execlog, auxfile = pathInOutputDirectory (options, "aux"), originalWorkingDirectory = original_wd }
+ in recovered := true
+ ; r
+ end
+ val () = executeCommand (command, SOME recover)
+ in if !recovered then
+ SHOULD_RERUN StringMap.empty
+ else
+ let val recorded = Reruncheck.parseRecorderFile { file = recorderfile, options = options }
+ val recorded = if TeXEngine.isLuaTeX engine andalso FSUtil.isFile recorderfile2 then
+ Reruncheck.parseRecorderFileContinued { file = recorderfile2, options = options, previousResult = recorded }
+ else
+ recorded
+ val (filelist, filemap) = Reruncheck.getFileInfo recorded
+ val execlog = getExecLog ()
+
+ (* Check driver *)
+ val () = case #check_driver options of
+ NONE => ()
+ | SOME driver => CheckDriver.checkDriver (driver, List.map (fn { path, abspath, kind } => { path = path, kind = case kind of Reruncheck.INPUT => "input" | Reruncheck.OUTPUT => "output" | Reruncheck.AUXILIARY => "auxiliary"}) filelist)
+
+ (* makeindex *)
+ val filelist = case #makeindex options of
+ NONE => (* Check log file *)
+ ( if Lua.isFalsy (Lua.call1 Lua.Lib.string.find #[Lua.fromString execlog, Lua.fromString "No file [^\n]+%.ind%."]) then
+ ()
+ else
+ Message.diag "You may want to use --makeindex option."
+ ; filelist
+ )
+ | SOME makeindex =>
+ let fun go (file, filelist_acc) (* Look for .idx files and run MakeIndex *)
+ = if PathUtil.ext (#path file) = "idx" then
+ (* Run makeindex if the .idx file is new or updated *)
+ let val idxfileinfo = { path = #path file, abspath = #abspath file, kind = Reruncheck.AUXILIARY }
+ val output_ind = PathUtil.replaceext { path = #abspath file, newext = "ind" }
+ in if #1 (Reruncheck.compareFileInfo ([idxfileinfo], auxstatus)) orelse Reruncheck.compareFileTime { srcAbs = #abspath file, dst = output_ind, auxstatus = auxstatus } then
+ let val idx_dir = PathUtil.dirname (#abspath file)
+ val makeindex_command = [
+ "cd", ShellUtil.escape idx_dir, "&&",
+ makeindex, (* Do not escape `makeindex` to allow additional options *)
+ "-o", PathUtil.basename output_ind,
+ PathUtil.basename (#abspath file)
+ ]
+ in executeCommand (String.concatWith " " makeindex_command, NONE)
+ ; { path = output_ind, abspath = output_ind, kind = Reruncheck.AUXILIARY } :: filelist_acc
+ end
+ else
+ ( FSUtil.touch output_ind handle Lua.Error err => Message.warn ("Failed to touch " ^ output_ind ^ " (" ^ Lua.unsafeFromValue err ^ ")")
+ ; filelist_acc
+ )
+ end
+ else
+ filelist_acc
+ in List.foldl go filelist filelist
+ end
+
+ (* makeglossaries *)
+ val filelist = case #makeglossaries options of
+ NONE => (* Check log file *)
+ ( if Lua.isFalsy (Lua.call1 Lua.Lib.string.find #[Lua.fromString execlog, Lua.fromString "No file [^\n]+%.gls%."]) then
+ ()
+ else
+ Message.diag "You may want to use --makeglossaries option."
+ ; filelist
+ )
+ | SOME makeglossaries =>
+ let fun go (file, filelist_acc) (* Look for .glo files and run makeglossaries *)
+ = if PathUtil.ext (#path file) = "glo" then
+ (* Run makeglossaries if the .glo file is new or updated *)
+ let val glofileinfo = { path = #path file, abspath = #abspath file, kind = Reruncheck.AUXILIARY }
+ val output_gls = PathUtil.replaceext { path = #abspath file, newext = "gls" }
+ in if #1 (Reruncheck.compareFileInfo ([glofileinfo], auxstatus)) orelse Reruncheck.compareFileTime { srcAbs = #abspath file, dst = output_gls, auxstatus = auxstatus } then
+ let val makeglossaries_command = [
+ makeglossaries,
+ "-d", ShellUtil.escape (#output_directory options),
+ PathUtil.trimext (PathUtil.basename (#path file))
+ ]
+ in executeCommand (String.concatWith " " makeglossaries_command, NONE)
+ ; { path = output_gls, abspath = output_gls, kind = Reruncheck.AUXILIARY } :: filelist_acc
+ end
+ else
+ ( FSUtil.touch output_gls handle Lua.Error err => Message.warn ("Failed to touch " ^ output_gls ^ " (" ^ Lua.unsafeFromValue err ^ ")")
+ ; filelist_acc
+ )
+ end
+ else
+ filelist_acc
+ in List.foldl go filelist filelist
+ end
+
+ (* bibtex/biber *)
+ val filelist = case #bibtex_or_biber options of
+ NONE => ( if Lua.isFalsy (Lua.call1 Lua.Lib.string.find #[Lua.fromString execlog, Lua.fromString "No file [^\n]+%.bbl%."]) then
+ ()
+ else
+ Message.diag "You may want to use --bibtex or biber option."
+ ; filelist
+ )
+ | SOME (AppOptions.BIBTEX bibtex) =>
+ let val biblines2 = AuxFile.extractBibTeXLines { auxfile = mainauxfile, outdir = #output_directory options }
+ val bibtex_aux_hash2 = if List.null biblines2 then
+ NONE
+ else
+ SOME (MD5.compute (Byte.stringToBytes (String.concatWith "\n" biblines2)))
+ val output_bbl = pathInOutputDirectory (options, "bbl")
+ in if bibtex_aux_hash <> bibtex_aux_hash2 orelse Reruncheck.compareFileTime { srcAbs = PathUtil.abspath { path = mainauxfile, cwd = NONE }, dst = output_bbl, auxstatus = auxstatus } then
+ (* The input for BibTeX command has changed... *)
+ let val bibtex_command = [
+ "cd", ShellUtil.escape (#output_directory options), "&&",
+ bibtex,
+ PathUtil.basename mainauxfile
+ ]
+ in executeCommand (String.concatWith " " bibtex_command, NONE)
+ end
+ else
+ ( if Message.getVerbosity () >= 1 then
+ Message.info "No need to run BibTeX."
+ else
+ ()
+ ; FSUtil.touch output_bbl handle Lua.Error err => Message.warn ("Failed to touch " ^ output_bbl ^ " (" ^ Lua.unsafeFromValue err ^ ")")
+ )
+ ; filelist
+ end
+ | SOME (AppOptions.BIBER biber) =>
+ let fun go (file, filelist_acc)
+ (* Usual compilation with biber
+ * tex -> pdflatex tex -> aux,bcf,pdf,run.xml
+ * bcf -> biber bcf -> bbl
+ * tex,bbl -> pdflatex tex -> aux,bcf,pdf,run.xml
+ *)
+ = if PathUtil.ext (#path file) = "bcf" then
+ (* Run biber if the .bcf file is new or updated *)
+ let val bcffileinfo = { path = #path file, abspath = #abspath file, kind = Reruncheck.AUXILIARY }
+ val output_bbl = PathUtil.replaceext { path = #abspath file, newext = "bbl" }
+ fun check_bib_update abspath
+ = let val ins = TextIO.openIn abspath
+ fun go updated_dot_bib
+ = case TextIO.inputLine ins of
+ NONE => updated_dot_bib
+ | SOME l =>
+ let val bib = Lua.call1 Lua.Lib.string.match #[Lua.fromString l, Lua.fromString "<bcf:datasource .*>(.*)</bcf:datasource>"]
+ in if Lua.isFalsy bib then
+ go updated_dot_bib (* continue *)
+ else
+ let val bib = Lua.unsafeFromValue bib : string
+ val bibfile = PathUtil.join2 (original_wd, bib)
+ val updated_dot_bib = if FSUtil.isFile bibfile then
+ let val updated_dot_bib_tmp = not (Reruncheck.compareFileTime { srcAbs = PathUtil.abspath { path = mainauxfile, cwd = NONE }, dst = bibfile, auxstatus = auxstatus })
+ in if updated_dot_bib_tmp then
+ Message.info (bibfile ^ " is newer than aux")
+ else
+ ()
+ ; updated_dot_bib orelse updated_dot_bib_tmp
+ end
+ else
+ ( Message.warn (bibfile ^ " is not accessible")
+ ; updated_dot_bib
+ )
+ in go updated_dot_bib
+ end
+ end
+ in go false before TextIO.closeIn ins
+ end
+ val updated_dot_bib = check_bib_update (#abspath file)
+ in if updated_dot_bib orelse #1 (Reruncheck.compareFileInfo ([bcffileinfo], auxstatus)) orelse Reruncheck.compareFileTime { srcAbs = #abspath file, dst = output_bbl, auxstatus = auxstatus } then
+ let val biber_command = [
+ biber, (* Do not escape `biber` to allow additional options *)
+ "--output-directory", ShellUtil.escape (#output_directory options),
+ PathUtil.basename (#abspath file)
+ ]
+ in executeCommand (String.concatWith " " biber_command, NONE)
+ ; { path = output_bbl, abspath = output_bbl, kind = Reruncheck.AUXILIARY } :: filelist
+ end
+ else
+ ( FSUtil.touch output_bbl handle Lua.Error err => Message.warn ("Failed to touch " ^ output_bbl ^ " (" ^ Lua.unsafeFromValue err ^ ")")
+ ; filelist_acc
+ )
+ end
+ else
+ filelist_acc
+ in List.foldl go filelist filelist
+ end
+
+ in if String.isSubstring "No pages of output." execlog then
+ NO_PAGES_OF_OUTPUT
+ else
+ let val (should_rerun, auxstatus) = Reruncheck.compareFileInfo (filelist, auxstatus)
+ in if should_rerun orelse lightweight_mode then
+ SHOULD_RERUN auxstatus
+ else
+ NO_NEED_TO_RERUN
+ end
+ end
+ end
+
+(* Run (La)TeX (possibly multiple times) and produce a PDF/DVI file. *)
+(*: val doTypeset : run_params -> unit *)
+fun doTypeset (run_params as { options, engine, output_extension, recorderfile, recorderfile2, source_date_epoch_info, ... } : run_params)
+ = let fun loop (iteration, auxstatus)
+ = let val iteration = iteration + 1
+ in case singleRun (run_params, auxstatus, iteration) of
+ NO_PAGES_OF_OUTPUT => ( Message.warn "No pages of output."
+ ; false
+ )
+ | NO_NEED_TO_RERUN => true
+ | SHOULD_RERUN auxstatus => if iteration >= #max_iterations options then
+ ( Message.warn "LaTeX should be run once more."
+ ; true
+ )
+ else
+ loop (iteration, auxstatus)
+ end
+ in if loop (0, StringMap.empty) then
+ (* Successful *)
+ ( if #output_format options = OutputFormat.DVI orelse #supports_pdf_generation engine then
+ (* Output file (DVI/PDF) is generated in the output directory *)
+ let val outfile = pathInOutputDirectory (options, output_extension)
+ val onCopyError = if OSUtil.isWindows then
+ SOME (fn () => let val output_format = case #output_format options of
+ OutputFormat.DVI => "DVI"
+ | OutputFormat.PDF => "PDF"
+ in Message.error ("Failed to copy file. Some applications may be locking the " ^ output_format ^ " file.")
+ ; false
+ end
+ )
+ else
+ NONE
+ in executeCommand (FSUtil.copyCommand { from = outfile, to = #output options }, onCopyError)
+ ; if List.null (#dvipdfmx_extraoptions options) then
+ ()
+ else
+ Message.warn "--dvipdfmx-option[s] are ignored."
+ end
+ else
+ (* DVI file is generated, but PDF file is wanted *)
+ let val dvifile = pathInOutputDirectory (options, "dvi")
+ val dvipdfmx_command = "dvipdfmx" :: "-o" :: ShellUtil.escape (#output options) :: #dvipdfmx_extraoptions options @ [ShellUtil.escape dvifile]
+ in executeCommand (String.concatWith " " dvipdfmx_command, NONE)
+ end
+ ; (* Copy SyncTeX file if necessary *)
+ if #output_format options = OutputFormat.PDF then
+ let val synctex = Lua.unsafeFromValue (Lua.call1 Lua.Lib.tonumber #[Lua.fromString (Option.getOpt (#synctex options, "0"))]) : int
+ val synctex_ext = if synctex > 0 then
+ (* Compressed SyncTeX file (.synctex.gz) *)
+ SOME "synctex.gz"
+ else if synctex < 0 then
+ (* Uncompressed SyncTeX file (.synctex) *)
+ SOME "synctex"
+ else
+ NONE
+ in case synctex_ext of
+ SOME ext => executeCommand (FSUtil.copyCommand { from = pathInOutputDirectory (options, ext), to = PathUtil.replaceext { path = #output options, newext = ext } }, NONE)
+ | NONE => ()
+ end
+ else
+ ()
+ ; (* Write dependencies file *)
+ case #make_depends options of
+ SOME make_depends =>
+ let val recorded = Reruncheck.parseRecorderFile { file = recorderfile, options = options }
+ val recorded = if TeXEngine.isLuaTeX engine andalso FSUtil.isFile recorderfile2 then
+ Reruncheck.parseRecorderFileContinued { file = recorderfile2, options = options, previousResult = recorded }
+ else
+ recorded
+ val (filelist, _) = Reruncheck.getFileInfo recorded
+ val outs = TextIO.openOut make_depends
+ in TextIO.output (outs, #output options ^ ":") (* TODO: quote *)
+ ; List.app (fn { path, abspath = _, kind = Reruncheck.INPUT } => TextIO.output (outs, " " ^ path) (* TODO: quote *)
+ | _ => ()) filelist
+ ; TextIO.output (outs, "\n")
+ ; TextIO.closeOut outs
+ end
+ | NONE => ()
+ ; (* Successful *)
+ if Message.getVerbosity () >= 1 then
+ Message.info "Command exited successfully"
+ else
+ ()
+ )
+ else
+ (* No pages of output. *)
+ ()
+ end
+
+(*: val doWatchWindows : Lua.value -> string list -> bool *)
+fun doWatchWindows fswatcherlib files
+ = let val watcher = Lua.call1 Lua.Lib.assert (Lua.call (Lua.field (fswatcherlib, "new")) #[])
+ val () = List.app (fn file => Lua.call0 Lua.Lib.assert (Lua.method (watcher, "add") #[Lua.fromString file])) files
+ val result = Lua.call1 Lua.Lib.assert (Lua.method (watcher, "next") #[])
+ val () = if Message.getVerbosity () >= 2 then
+ Message.info (Lua.unsafeFromValue (Lua.field (result, "action")) ^ " " ^ Lua.unsafeFromValue (Lua.field (result, "path")))
+ else
+ ()
+ val () = Lua.method0 (watcher, "close") #[]
+ in true
+ end
+
+(*: val doWatchFswatch : string list -> bool *)
+fun doWatchFswatch files
+ = let val fswatch_command = "fswatch" :: "--one-event" :: "--event=Updated" :: "--" :: List.map ShellUtil.escape files
+ val fswatch_command_str = String.concatWith " " fswatch_command
+ val () = if Message.getVerbosity () >= 1 then
+ Message.exec fswatch_command_str
+ else
+ ()
+ val fswatch = Lua.call1 Lua.Lib.assert (Lua.call Lua.Lib.io.popen #[Lua.fromString fswatch_command_str, Lua.fromString "r"])
+ val readLine = Lua.method1 (fswatch, "lines") #[]
+ fun go () = let val l = Lua.call1 readLine #[]
+ in if Lua.isFalsy l then
+ false
+ else if List.exists (fn path => Lua.unsafeFromValue l = path) files then
+ true
+ else
+ go ()
+ end
+ in go () before Lua.method0 (fswatch, "close") #[]
+ end
+
+(*: val doWatchInotifywait : string list -> bool *)
+fun doWatchInotifywait files
+ = let val inotifywait_command = "inotifywait" :: "--event=modify" :: "--event=attrib" :: "--format=%w" :: "--quiet" :: List.map ShellUtil.escape files
+ val inotifywait_command_str = String.concatWith " " inotifywait_command
+ val () = if Message.getVerbosity () >= 1 then
+ Message.exec inotifywait_command_str
+ else
+ ()
+ val inotifywait = Lua.call1 Lua.Lib.assert (Lua.call Lua.Lib.io.popen #[Lua.fromString inotifywait_command_str, Lua.fromString "r"])
+ val readLine = Lua.method1 (inotifywait, "lines") #[]
+ fun go () = let val l = Lua.call1 readLine #[]
+ in if Lua.isFalsy l then
+ false
+ else if List.exists (fn path => Lua.unsafeFromValue l = path) files then
+ true
+ else
+ go ()
+ end
+ in go () before Lua.method0 (inotifywait, "close") #[]
+ end
+
+(*: val runWatchMode : AppOptions.WatchEngine.engine * run_params -> unit *)
+fun runWatchMode (watch_engine, run_params as { options, engine, recorderfile, recorderfile2, ... } : run_params)
+ = let val fswatcherlib = if OSUtil.isWindows then
+ (* Windows: Try built-in filesystem watcher *)
+ let val (succ, result) = Lua.call2 Lua.Lib.pcall #[Lua.Lib.require, Lua.fromString "texrunner.fswatcher_windows"]
+ in if Lua.isFalsy succ then
+ ( if Message.getVerbosity () >= 1 then
+ Message.warn ("Failed to load texrunner.fswatcher_windows: " ^ Lua.unsafeFromValue result)
+ else
+ ()
+ ; NONE
+ )
+ else
+ SOME result
+ end
+ else
+ NONE
+ val doWatch = case fswatcherlib of
+ SOME fswatcherlib =>
+ ( if Message.getVerbosity () >= 2 then
+ Message.info "Using built-in filesystem watcher for Windows"
+ else
+ ()
+ ; doWatchWindows fswatcherlib
+ )
+ | NONE => if ShellUtil.hasCommand "fswatch" andalso (watch_engine = AppOptions.WatchEngine.AUTO orelse watch_engine = AppOptions.WatchEngine.AUTO) then
+ ( if Message.getVerbosity () >= 2 then
+ Message.info "Using `fswatch' command"
+ else
+ ()
+ ; doWatchFswatch
+ )
+ else if ShellUtil.hasCommand "inotifywait" andalso (watch_engine = AppOptions.WatchEngine.AUTO orelse watch_engine = AppOptions.WatchEngine.INOTIFYWAIT) then
+ ( if Message.getVerbosity () >= 2 then
+ Message.info "Using `inotifywait' command"
+ else
+ ()
+ ; doWatchInotifywait
+ )
+ else
+ ( case watch_engine of
+ AppOptions.WatchEngine.AUTO => Message.error "Could not watch files because neither `fswatch' nor `inotifywait' was installed."
+ | AppOptions.WatchEngine.FSWATCH => Message.error "Could not watch files because your selected engine `fswatch' was not installed."
+ | AppOptions.WatchEngine.INOTIFYWAIT => Message.error "Could not watch files because your selected engine `inotifywait' was not installed."
+ ; Message.info "See ClutTeX's manual for details."
+ ; OS.Process.exit OS.Process.failure
+ )
+
+ val _ = (doTypeset run_params; true) handle Abort => false
+ (* TODO: filenames here can be UTF-8 if command_line_encoding=utf-8 *)
+ val recorded = Reruncheck.parseRecorderFile { file = recorderfile, options = options }
+ val recorded = if TeXEngine.isLuaTeX engine andalso FSUtil.isFile recorderfile2 then
+ Reruncheck.parseRecorderFileContinued { file = recorderfile2, options = options, previousResult = recorded }
+ else
+ recorded
+ val (filelist, _) = Reruncheck.getFileInfo recorded
+ val inputFilesToWatch = List.mapPartial (fn { path = _, abspath, kind = Reruncheck.INPUT } => SOME abspath | _ => NONE) filelist
+ fun loop inputFilesToWatch
+ = if doWatch inputFilesToWatch then
+ let val success = (doTypeset run_params; true) handle Abort => false
+ in if success then
+ let val recorded = Reruncheck.parseRecorderFile { file = recorderfile, options = options }
+ val recorded = if TeXEngine.isLuaTeX engine andalso FSUtil.isFile recorderfile2 then
+ Reruncheck.parseRecorderFileContinued { file = recorderfile2, options = options, previousResult = recorded }
+ else
+ recorded
+ val (filelist, _) = Reruncheck.getFileInfo recorded
+ val inputFilesToWatch = List.mapPartial (fn { path = _, abspath, kind = Reruncheck.INPUT } => SOME abspath | _ => NONE) filelist
+ in loop inputFilesToWatch
+ end
+ else
+ loop inputFilesToWatch (* error; watch the same files again *)
+ end
+ else
+ () (* exit *)
+ in loop inputFilesToWatch
+ end
+
+fun getConfigFilePath (SOME configFilePath) = SOME configFilePath
+ | getConfigFilePath NONE = case OS.Process.getEnv "CLUTTEX_CONFIG_FILE" of
+ SOME f => SOME f
+ | NONE => if OSUtil.isWindows then
+ case OS.Process.getEnv "APPDATA" of
+ SOME appData => SOME (appData ^ "\\cluttex\\config.toml")
+ | NONE => NONE
+ else
+ case OS.Process.getEnv "XDG_CONFIG_HOME" of
+ SOME xdgConfigHome => SOME (xdgConfigHome ^ "/cluttex/config.toml")
+ | NONE => case OS.Process.getEnv "HOME" of
+ SOME home => SOME (home ^ "/.config/cluttex/config.toml")
+ | NONE => NONE
+
+fun loadConfig configFileOpt = case getConfigFilePath configFileOpt of
+ NONE => ConfigFile.defaultConfig
+ | SOME path => (ConfigFile.loadConfig path handle IO.Io _ => ConfigFile.defaultConfig
+ | ValidateUtf8.InvalidUtf8 => (Message.error ("Config file " ^ path ^ " is not UTF-8 encoded."); ConfigFile.defaultConfig)
+ | TomlParseError.ParseError e => (Message.error ("Config file " ^ path ^ " is not a valid TOML file: " ^ TomlParseError.toString e); ConfigFile.defaultConfig)
+ )
+
+fun main () = let val (options, rest) = HandleOptions.parse (AppOptions.init, CommandLine.arguments ())
+ val config = loadConfig (#config_file options)
+
+ (* Apply colors *)
+ val () = Option.app Message.setTypeStyle (#type_ (#color config))
+ val () = Option.app Message.setExecuteStyle (#execute (#color config))
+ val () = Option.app Message.setErrorStyle (#error (#color config))
+ val () = Option.app Message.setWarningStyle (#warning (#color config))
+ val () = Option.app Message.setDiagnosticStyle (#diagnostic (#color config))
+ val () = Option.app Message.setInformationStyle (#information (#color config))
+
+ val watch = #watch options
+ val () = case #color options of
+ NONE => Message.setColors Message.AUTO
+ | _ => ()
+ val inputfile = case rest of
+ [] => showUsage () (* No input file given *)
+ | [input] => input
+ | _ => ( Message.error "Multiple input files are not supported."
+ ; OS.Process.exit OS.Process.failure
+ )
+ val engine = case #engine options of
+ SOME name => (case TeXEngine.get name of
+ SOME engine => engine
+ | NONE => ( Message.error ("Unknown engine name '" ^ name ^ "'.")
+ ; OS.Process.exit OS.Process.failure
+ )
+ )
+ | NONE => let val name = CommandLine.name ()
+ val basename = PathUtil.trimext (PathUtil.basename name)
+ (* If run as 'cl<engine name>' (e.g. 'cllualatex'), then the default engine is <engine name>. *)
+ fun notSpecified () = ( Message.error "Engine not specified."
+ ; OS.Process.exit OS.Process.failure
+ )
+ in if String.isPrefix "cl" basename andalso CharVector.all Char.isAlphaNum basename then
+ case TeXEngine.get (String.extract (basename, 2, NONE)) of
+ NONE => notSpecified ()
+ | SOME engine => engine
+ else
+ notSpecified ()
+ end
+ val output_format = Option.getOpt (#output_format options, OutputFormat.PDF)
+ val check_driver = case output_format of
+ OutputFormat.PDF =>
+ ( case #check_driver options of
+ NONE => ()
+ | SOME _ => ( Message.error ("--check-driver can only be used when the output format is DVI.")
+ ; OS.Process.exit OS.Process.failure
+ )
+ ; if #supports_pdf_generation engine then
+ if TeXEngine.isLuaTeX engine then
+ SOME CheckDriver.LUATEX
+ else if TeXEngine.isXeTeX engine then
+ SOME CheckDriver.XETEX
+ else if TeXEngine.isPdfTeX engine then
+ SOME CheckDriver.PDFTEX
+ else
+ ( Message.warn ("Unknown engine: " ^ #name engine)
+ ; Message.warn "Driver check will not work."
+ ; NONE
+ )
+ else
+ (* ClutTeX uses dvipdfmx to generate PDF from DVI output *)
+ SOME CheckDriver.DVIPDFMX
+ )
+ | OutputFormat.DVI =>
+ case #check_driver options of
+ SOME AppOptions.DviDriver.DVIPDFMX => SOME CheckDriver.DVIPDFMX
+ | SOME AppOptions.DviDriver.DVIPS => SOME CheckDriver.DVIPS
+ | SOME AppOptions.DviDriver.DVISVGM => SOME CheckDriver.DVISVGM
+ | NONE => NONE
+ val (jobname, jobname_for_output) = case #jobname options of
+ SOME jobname => (jobname, jobname)
+ | NONE => let val basename = PathUtil.basename (PathUtil.trimext inputfile)
+ in (SafeName.escapeJobname basename, basename)
+ end
+ val output_extension = case output_format of
+ OutputFormat.DVI => #dvi_extension engine (* "dvi" or "xdv" *)
+ | OutputFormat.PDF => "pdf"
+ val output_from_original_wd = case #output options of
+ NONE => jobname_for_output ^ "." ^ output_extension
+ | SOME output => output
+ val output_directory_from_original_wd
+ = case #output_directory options of
+ SOME dir => if #fresh options then
+ ( Message.error "--fresh and --output-directory cannot be used together."
+ ; OS.Process.exit OS.Process.failure
+ )
+ else
+ dir
+ | NONE => let val inputfile_abs = PathUtil.abspath { path = inputfile, cwd = NONE }
+ val output_directory = genOutputDirectory (#temporary_directory config, [inputfile_abs, jobname, Option.getOpt (#engine_executable options, #executable engine)])
+ in if not (FSUtil.isDirectory output_directory) then
+ FSUtil.mkDirRec output_directory
+ else if #fresh options then
+ ( if Message.getVerbosity () >= 1 then
+ Message.info ("Cleaning '" ^ output_directory ^ "'...")
+ else
+ ()
+ ; FSUtil.removeRec output_directory
+ ; OS.FileSys.mkDir output_directory
+ )
+ else
+ ()
+ ; output_directory
+ end
+
+ val () = if #print_output_directory options then
+ ( print (output_directory_from_original_wd ^ "\n")
+ ; OS.Process.exit OS.Process.success
+ )
+ else
+ ()
+
+ val pathsep = if OSUtil.isWindows then
+ ";"
+ else
+ ":"
+
+ val original_wd = OS.FileSys.getDir ()
+ val (output, output_directory, tex_output_directory)
+ = if Option.getOpt (#change_directory options, false) then
+ let val TEXINPUTS = Option.getOpt (OS.Process.getEnv "TEXINPUTS", "")
+ val LUAINPUTS = Option.getOpt (OS.Process.getEnv "LUAINPUTS", "")
+ val () = OS.FileSys.chDir output_directory_from_original_wd
+ val () = OSUtil.setEnv ("TEXINPUTS", original_wd ^ pathsep ^ TEXINPUTS)
+ val () = OSUtil.setEnv ("LUAINPUTS", original_wd ^ pathsep ^ LUAINPUTS)
+ in (PathUtil.abspath { path = output_from_original_wd, cwd = SOME original_wd }, ".", NONE)
+ end
+ else
+ (output_from_original_wd, output_directory_from_original_wd, SOME output_directory_from_original_wd)
+ val output = case #bibtex_or_biber options of
+ SOME _ => let val BIBINPUTS = Option.getOpt (OS.Process.getEnv "BIBINPUTS", "")
+ val () = OSUtil.setEnv ("BIBINPUTS", original_wd ^ pathsep ^ BIBINPUTS)
+ in PathUtil.abspath { path = output_from_original_wd, cwd = SOME original_wd } (* Is this needed? *)
+ end
+ | NONE => output
+
+ (*
+ * Set `max_print_line' environment variable if not already set.
+ *
+ * According to texmf.cnf:
+ * 45 < error_line < 255,
+ * 30 < half_error_line < error_line - 15,
+ * 60 <= max_print_line.
+ *
+ * On TeX Live 2023, (u)(p)bibtex fails if max_print_line >= 20000.
+ *)
+ val () = case OS.Process.getEnv "max_print_line" of
+ NONE => OSUtil.setEnv ("max_print_line", "16384")
+ | SOME _ => ()
+
+ fun pathInOutputDirectory ext = PathUtil.join2 (output_directory, jobname ^ "." ^ ext)
+
+ val recorderfile = pathInOutputDirectory "fls"
+ val recorderfile2 = pathInOutputDirectory "cluttex-fls"
+
+ val tex_output_format = case output_format of
+ OutputFormat.DVI => OutputFormat.DVI
+ | OutputFormat.PDF => if #supports_pdf_generation engine then
+ OutputFormat.PDF
+ else
+ OutputFormat.DVI
+
+ (* Setup LuaTeX initialization script *)
+ val lua_initialization_script
+ = if TeXEngine.isLuaTeX engine then
+ let val initscriptfile = pathInOutputDirectory "cluttexinit.lua"
+ in LuaTeXInit.createInitializationScript (initscriptfile, { file_line_error = #file_line_error options, halt_on_error = #halt_on_error options, output_directory = output_directory, jobname = jobname })
+ ; SOME initscriptfile
+ end
+ else
+ NONE
+
+ (* Set SOURCE_DATE_EPOCH if --source-date-epoch=<timestamp> is set *)
+ val source_date_epoch_info = case #source_date_epoch options of
+ SOME (AppOptions.SourceDateEpoch.RAW raw) =>
+ (OSUtil.setEnv ("SOURCE_DATE_EPOCH", raw); NONE)
+ | _ => if #source_date_epoch options = SOME AppOptions.SourceDateEpoch.NOW orelse OS.Process.getEnv "SOURCE_DATE_EPOCH" = NONE then
+ SOME (ref { time_since_epoch = getTimeSinceEpoch (), time = Time.now () })
+ else
+ NONE
+
+ val tex_options : TeXEngine.run_options
+ = { engine_executable = #engine_executable options
+ , interaction = SOME (Option.getOpt (#interaction options, InteractionMode.NONSTOPMODE))
+ , file_line_error = #file_line_error options
+ , halt_on_error = #halt_on_error options
+ , synctex = #synctex options
+ , output_directory = tex_output_directory
+ , shell_escape = #shell_escape options
+ , jobname = SOME jobname
+ , fmt = #fmt options
+ , extra_options = #tex_extraoptions options
+ , output_format = tex_output_format
+ , draftmode = false
+ , lua_initialization_script = lua_initialization_script
+ }
+ val options : AppOptions.options
+ = { engine = engine
+ , engine_executable = #engine_executable options
+ , output = output
+ , fresh = #fresh options
+ , max_iterations = Option.getOpt (#max_iterations options, 4)
+ , start_with_draft = #start_with_draft options
+ , watch = #watch options
+ , change_directory = Option.getOpt (#change_directory options, false)
+ , includeonly = #includeonly options
+ , make_depends = #make_depends options
+ , print_output_directory = #print_output_directory options
+ , package_support = #package_support options
+ , check_driver = check_driver
+ , source_date_epoch = #source_date_epoch options
+ , synctex = #synctex options
+ , file_line_error = #file_line_error options
+ , interaction = Option.getOpt (#interaction options, InteractionMode.NONSTOPMODE)
+ , halt_on_error = #halt_on_error options
+ , shell_escape = #shell_escape options
+ , jobname = jobname
+ , fmt = #fmt options
+ , output_directory = output_directory
+ , output_format = output_format
+ , tex_extraoptions = #tex_extraoptions options
+ , dvipdfmx_extraoptions = #dvipdfmx_extraoptions options
+ , makeindex = #makeindex options
+ , bibtex_or_biber = #bibtex_or_biber options
+ , makeglossaries = #makeglossaries options
+ }
+ val run_params = { options = options
+ , inputfile = inputfile
+ , engine = engine
+ , tex_options = tex_options
+ , recorderfile = recorderfile
+ , recorderfile2 = recorderfile2
+ , original_wd = original_wd
+ , output_extension = output_extension
+ , source_date_epoch_info = source_date_epoch_info
+ }
+ in case watch of
+ NONE => (doTypeset run_params handle Abort => OS.Process.exit OS.Process.failure)
+ | SOME watch_engine => runWatchMode (watch_engine, run_params)
+ end
+end;
+val () = Main.main ();
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/map.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/map.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/map.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,4 @@
+structure StringSet =
+ RedBlackSetFn (type ord_key = string val compare = String.compare);
+structure StringMap =
+ RedBlackMapFn (type ord_key = string val compare = String.compare);
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/md5.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/md5.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/md5.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,260 @@
+signature MD5 =
+sig
+ type hash = Word32.word * Word32.word * Word32.word * Word32.word
+ val compute: Word8Vector.vector -> hash
+ val hashToLowerHexString: hash -> string
+ val hashToUpperHexString: hash -> string
+ val md5AsLowerHex: Word8Vector.vector -> string
+ val md5AsUpperHex: Word8Vector.vector -> string
+end
+structure MD5: MD5 =
+struct
+ type hash = Word32.word * Word32.word * Word32.word * Word32.word
+ infix |>
+ fun x |> f = f x
+ val << = Word32.<<
+ val >> = Word32.>>
+ val andb = Word32.andb
+ val orb = Word32.orb
+ val xorb = Word32.xorb
+ infix << >> andb orb xorb <<<
+ fun x <<< y =
+ (x << y) orb (x >> (0w32 - y))
+ fun F (X, Y, Z) =
+ (X andb Y) orb (Word32.notb X andb Z)
+ fun G (X, Y, Z) =
+ (X andb Z) orb (Y andb Word32.notb Z)
+ fun H (X, Y, Z) =
+ X xorb (Y xorb Z)
+ fun I (X, Y, Z) =
+ Y xorb (X orb Word32.notb Z)
+ fun Round1 X y =
+ let
+ fun ABCD (k, t) (a, b, c, d) =
+ let
+ val a =
+ b + ((a + F (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w7)
+ in
+ (a, b, c, d)
+ end
+ fun DABC (k, t) (b, c, d, a) =
+ let
+ val a =
+ b + ((a + F (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w12)
+ in
+ (b, c, d, a)
+ end
+ fun CDAB (k, t) (c, d, a, b) =
+ let
+ val a =
+ b + ((a + F (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w17)
+ in
+ (c, d, a, b)
+ end
+ fun BCDA (k, t) (d, a, b, c) =
+ let
+ val a =
+ b + ((a + F (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w22)
+ in
+ (d, a, b, c)
+ end
+ in
+ y |> ABCD (0, 0wxd76aa478) |> DABC (1, 0wxe8c7b756)
+ |> CDAB (2, 0wx242070db) |> BCDA (3, 0wxc1bdceee) |> ABCD (4, 0wxf57c0faf)
+ |> DABC (5, 0wx4787c62a) |> CDAB (6, 0wxa8304613) |> BCDA (7, 0wxfd469501)
+ |> ABCD (8, 0wx698098d8) |> DABC (9, 0wx8b44f7af)
+ |> CDAB (10, 0wxffff5bb1) |> BCDA (11, 0wx895cd7be)
+ |> ABCD (12, 0wx6b901122) |> DABC (13, 0wxfd987193)
+ |> CDAB (14, 0wxa679438e) |> BCDA (15, 0wx49b40821)
+ end
+ fun Round2 X y =
+ let
+ fun ABCD (k, t) (a, b, c, d) =
+ let
+ val a =
+ b + ((a + G (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w5)
+ in
+ (a, b, c, d)
+ end
+ fun DABC (k, t) (b, c, d, a) =
+ let
+ val a =
+ b + ((a + G (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w9)
+ in
+ (b, c, d, a)
+ end
+ fun CDAB (k, t) (c, d, a, b) =
+ let
+ val a =
+ b + ((a + G (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w14)
+ in
+ (c, d, a, b)
+ end
+ fun BCDA (k, t) (d, a, b, c) =
+ let
+ val a =
+ b + ((a + G (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w20)
+ in
+ (d, a, b, c)
+ end
+ in
+ y |> ABCD (1, 0wxf61e2562) |> DABC (6, 0wxc040b340)
+ |> CDAB (11, 0wx265e5a51) |> BCDA (0, 0wxe9b6c7aa)
+ |> ABCD (5, 0wxd62f105d) |> DABC (10, 0wx02441453)
+ |> CDAB (15, 0wxd8a1e681) |> BCDA (4, 0wxe7d3fbc8)
+ |> ABCD (9, 0wx21e1cde6) |> DABC (14, 0wxc33707d6)
+ |> CDAB (3, 0wxf4d50d87) |> BCDA (8, 0wx455a14ed)
+ |> ABCD (13, 0wxa9e3e905) |> DABC (2, 0wxfcefa3f8)
+ |> CDAB (7, 0wx676f02d9) |> BCDA (12, 0wx8d2a4c8a)
+ end
+ fun Round3 X y =
+ let
+ fun ABCD (k, t) (a, b, c, d) =
+ let
+ val a =
+ b + ((a + H (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w4)
+ in
+ (a, b, c, d)
+ end
+ fun DABC (k, t) (b, c, d, a) =
+ let
+ val a =
+ b + ((a + H (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w11)
+ in
+ (b, c, d, a)
+ end
+ fun CDAB (k, t) (c, d, a, b) =
+ let
+ val a =
+ b + ((a + H (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w16)
+ in
+ (c, d, a, b)
+ end
+ fun BCDA (k, t) (d, a, b, c) =
+ let
+ val a =
+ b + ((a + H (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w23)
+ in
+ (d, a, b, c)
+ end
+ in
+ y |> ABCD (5, 0wxfffa3942) |> DABC (8, 0wx8771f681)
+ |> CDAB (11, 0wx6d9d6122) |> BCDA (14, 0wxfde5380c)
+ |> ABCD (1, 0wxa4beea44) |> DABC (4, 0wx4bdecfa9) |> CDAB (7, 0wxf6bb4b60)
+ |> BCDA (10, 0wxbebfbc70) |> ABCD (13, 0wx289b7ec6)
+ |> DABC (0, 0wxeaa127fa) |> CDAB (3, 0wxd4ef3085) |> BCDA (6, 0wx04881d05)
+ |> ABCD (9, 0wxd9d4d039) |> DABC (12, 0wxe6db99e5)
+ |> CDAB (15, 0wx1fa27cf8) |> BCDA (2, 0wxc4ac5665)
+ end
+ fun Round4 X y =
+ let
+ fun ABCD (k, t) (a, b, c, d) =
+ let
+ val a =
+ b + ((a + I (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w6)
+ in
+ (a, b, c, d)
+ end
+ fun DABC (k, t) (b, c, d, a) =
+ let
+ val a =
+ b + ((a + I (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w10)
+ in
+ (b, c, d, a)
+ end
+ fun CDAB (k, t) (c, d, a, b) =
+ let
+ val a =
+ b + ((a + I (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w15)
+ in
+ (c, d, a, b)
+ end
+ fun BCDA (k, t) (d, a, b, c) =
+ let
+ val a =
+ b + ((a + I (b, c, d) + Word32VectorSlice.sub (X, k) + t) <<< 0w21)
+ in
+ (d, a, b, c)
+ end
+ in
+ y |> ABCD (0, 0wxf4292244) |> DABC (7, 0wx432aff97)
+ |> CDAB (14, 0wxab9423a7) |> BCDA (5, 0wxfc93a039)
+ |> ABCD (12, 0wx655b59c3) |> DABC (3, 0wx8f0ccc92)
+ |> CDAB (10, 0wxffeff47d) |> BCDA (1, 0wx85845dd1)
+ |> ABCD (8, 0wx6fa87e4f) |> DABC (15, 0wxfe2ce6e0)
+ |> CDAB (6, 0wxa3014314) |> BCDA (13, 0wx4e0811a1)
+ |> ABCD (4, 0wxf7537e82) |> DABC (11, 0wxbd3af235)
+ |> CDAB (2, 0wx2ad7d2bb) |> BCDA (9, 0wxeb86d391)
+ end
+ fun c x =
+ String.sub ("0123456789abcdef", Word32.toInt x)
+ fun cc x =
+ String.implode [c (x >> 0w4), c (x andb 0wxf)]
+ fun compute (content: Word8Vector.vector) :
+ Word32.word * Word32.word * Word32.word * Word32.word =
+ let
+ val content32: Word32Vector.vector =
+ let
+ val origLen = Word8Vector.length content
+ val r = Word8Vector.length content mod 64
+ val padded = Word8Vector.concat
+ [ content
+ , Word8Vector.fromList [0wx80]
+ , Word8Vector.tabulate (if r < 56 then 63 - r else 127 - r, fn _ =>
+ 0w0)
+ ]
+ val paddedLen = Word8Vector.length padded
+ (* val (* assert *) true = paddedLen mod 64 = 0 *)
+ val content8 = Word8Array.tabulate (paddedLen, fn i =>
+ Word8Vector.sub (padded, i))
+ val () = PackWord64Little.update
+ (content8, paddedLen div 8 - 1, LargeWord.fromInt (8 * origLen))
+ in
+ Word32Vector.tabulate (Word8Array.length content8 div 4, fn i =>
+ Word32.fromLarge (PackWord32Little.subArr (content8, i)))
+ end
+ (* val (* assert *) true = Word32Vector.length content32 mod 16 = 0 *)
+ val max = Word32Vector.length content32 div 16
+ fun loop (i, a, b, c, d) =
+ if i >= max then
+ (a, b, c, d)
+ else
+ let
+ val X = Word32VectorSlice.slice (content32, i * 16, SOME 16)
+ val (a', b', c', d') =
+ (a, b, c, d) |> Round1 X |> Round2 X |> Round3 X |> Round4 X
+ in
+ loop (i + 1, a + a', b + b', c + c', d + d')
+ end
+ in
+ loop (0, 0wx67452301, 0wxefcdab89, 0wx98badcfe, 0wx10325476)
+ end
+ fun word32ToHexString (x: Word32.word) =
+ String.concat
+ [ cc (x andb 0wxff)
+ , cc ((x >> 0w8) andb 0wxff)
+ , cc ((x >> 0w16) andb 0wxff)
+ , cc (x >> 0w24)
+ ]
+ fun hashToLowerHexString (a, b, c, d) =
+ word32ToHexString a ^ word32ToHexString b ^ word32ToHexString c
+ ^ word32ToHexString d
+ fun hashToUpperHexString h =
+ String.map Char.toUpper (hashToLowerHexString h)
+ fun md5AsLowerHex content =
+ hashToLowerHexString (compute content)
+ fun md5AsUpperHex content =
+ hashToUpperHexString (compute content)
+end;
+ (*
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "") ^ "\n"); (* d41d8cd98f00b204e9800998ecf8427e *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "a") ^ "\n"); (* 0cc175b9c0f1b6a831c399e269772661 *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "abc") ^ "\n"); (* 900150983cd24fb0d6963f7d28e17f72 *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "message digest") ^ "\n"); (* f96b697d7cb7938d525a2f31aaf161d0 *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "abcdefghijklmnopqrstuvwxyz") ^ "\n"); (* c3fcd3d76192e4007dfb496cca67e13b *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz012") ^ "\n"); (* b76972fe0dff4baac395b531646f738e *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123") ^ "\n"); (* 27eca74a76daae63f472b250b5bcff9d *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234") ^ "\n"); (* 7b704b4e3d241d250fd327d433c27250 *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789") ^ "\n"); (* d174ab98d277d9f5a5611c2c9f419d9f *)
+ print (MD5.md5AsLowerHex (Byte.stringToBytes "12345678901234567890123456789012345678901234567890123456789012345678901234567890") ^ "\n"); (* 57edf4a22be3c955ac49da2e2107b67a *)
+ *)
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/message.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/message.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/message.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,198 @@
+structure Message : sig
+ datatype mode = ALWAYS | AUTO | NEVER
+ val setColors : mode -> unit
+ val exec : string -> unit
+ val error : string -> unit
+ val warn : string -> unit
+ val diag : string -> unit
+ val info : string -> unit
+ val getVerbosity : unit -> int
+ val beMoreVerbose : unit -> unit
+ val setTypeStyle : ANSIStyle.style -> unit
+ val setExecuteStyle : ANSIStyle.style -> unit
+ val setErrorStyle : ANSIStyle.style -> unit
+ val setWarningStyle : ANSIStyle.style -> unit
+ val setDiagnosticStyle : ANSIStyle.style -> unit
+ val setInformationStyle : ANSIStyle.style -> unit
+ end = struct
+val () = Lua.setGlobal ("CLUTTEX_VERBOSITY", Lua.fromInt 0)
+fun getVerbosity () : int = Lua.unsafeFromValue (Lua.global "CLUTTEX_VERBOSITY")
+fun beMoreVerbose () = let val verbosity = Lua.global "CLUTTEX_VERBOSITY"
+ in Lua.setGlobal ("CLUTTEX_VERBOSITY", Lua.+ (verbosity, Lua.fromInt 1))
+ end
+
+datatype mode = ALWAYS | AUTO | NEVER
+val useColors = ref false
+fun setColors ALWAYS = let val isatty = Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.isatty"]
+ val enableVirtualTerminal = Lua.field (isatty, "enable_virtual_terminal")
+ val stderr = Lua.field (Lua.global "io", "stderr")
+ in useColors := true
+ ; if not (Lua.isFalsy enableVirtualTerminal) then
+ let val succ = Lua.call1 enableVirtualTerminal #[stderr]
+ in if Lua.isFalsy succ andalso getVerbosity () >= 2 then
+ TextIO.output (TextIO.stdErr, "ClutTeX: Failed to enable virtual terminal\n")
+ else
+ ()
+ end
+ else
+ ()
+ end
+ | setColors AUTO = let val isatty = Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.isatty"]
+ val enableVirtualTerminal = Lua.field (isatty, "enable_virtual_terminal")
+ val stderr = Lua.field (Lua.global "io", "stderr")
+ val u = not (Lua.isFalsy (Lua.call1 (Lua.field (isatty, "isatty")) #[stderr]))
+ in useColors := u
+ ; if u andalso not (Lua.isFalsy enableVirtualTerminal) then
+ let val succ : bool = Lua.unsafeFromValue (Lua.call1 enableVirtualTerminal #[stderr])
+ in useColors := succ
+ ; if not succ andalso getVerbosity () >= 2 then
+ TextIO.output (TextIO.stdErr, "ClutTeX: Failed to enable virtual terminal\n")
+ else
+ ()
+ end
+ else
+ ()
+ end
+ | setColors NEVER = useColors := false
+
+structure CMD = struct
+(* ESCAPE: hex 1B = dec 27 = oct 33 *)
+val reset = "\027[0m"
+val underline = "\027[4m"
+val fg_black = "\027[30m"
+val fg_red = "\027[31m"
+val fg_green = "\027[32m"
+val fg_yellow = "\027[33m"
+val fg_blue = "\027[34m"
+val fg_magenta = "\027[35m"
+val fg_cyan = "\027[36m"
+val fg_white = "\027[37m"
+val fg_reset = "\027[39m"
+val bg_black = "\027[40m"
+val bg_red = "\027[41m"
+val bg_green = "\027[42m"
+val bg_yellow = "\027[43m"
+val bg_blue = "\027[44m"
+val bg_magenta = "\027[45m"
+val bg_cyan = "\027[46m"
+val bg_white = "\027[47m"
+val bg_reset = "\027[49m"
+val fg_x_black = "\027[90m"
+val fg_x_red = "\027[91m"
+val fg_x_green = "\027[92m"
+val fg_x_yellow = "\027[93m"
+val fg_x_blue = "\027[94m"
+val fg_x_magenta = "\027[95m"
+val fg_x_cyan = "\027[96m"
+val fg_x_white = "\027[97m"
+val bg_x_black = "\027[100m"
+val bg_x_red = "\027[101m"
+val bg_x_green = "\027[102m"
+val bg_x_yellow = "\027[103m"
+val bg_x_blue = "\027[104m"
+val bg_x_magenta = "\027[105m"
+val bg_x_cyan = "\027[106m"
+val bg_x_white = "\027[107m"
+end
+
+val typeStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.BRIGHT_WHITE
+ , background = SOME ANSIColor.RED
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+val executeStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.CYAN
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+val errorStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.RED
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+val warningStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.BLUE
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+val diagnosticStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.BLUE
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+val informationStyle : string ref
+ = ref (ANSIStyle.toString { foreground = SOME ANSIColor.MAGENTA
+ , background = NONE
+ , bold = false
+ , dim = false
+ , underline = false
+ , blink = false
+ , reverse = false
+ , italic = false
+ , strike = false
+ }
+ )
+
+fun setTypeStyle style = typeStyle := ANSIStyle.toString style
+fun setExecuteStyle style = executeStyle := ANSIStyle.toString style
+fun setErrorStyle style = errorStyle := ANSIStyle.toString style
+fun setWarningStyle style = warningStyle := ANSIStyle.toString style
+fun setDiagnosticStyle style = diagnosticStyle := ANSIStyle.toString style
+fun setInformationStyle style = informationStyle := ANSIStyle.toString style
+
+fun exec commandline = if !useColors then
+ TextIO.output (TextIO.stdErr, !typeStyle ^ "[EXEC]" ^ ANSIStyle.resetAll ^ " " ^ !executeStyle ^ commandline ^ ANSIStyle.resetAll ^ "\n")
+ else
+ TextIO.output (TextIO.stdErr, "[EXEC] " ^ commandline ^ "\n")
+fun error message = if !useColors then
+ TextIO.output (TextIO.stdErr, !typeStyle ^ "[ERROR]" ^ ANSIStyle.resetAll ^ " " ^ !errorStyle ^ message ^ ANSIStyle.resetAll ^ "\n")
+ else
+ TextIO.output (TextIO.stdErr, "[ERROR] " ^ message ^ "\n")
+fun warn message = if !useColors then
+ TextIO.output (TextIO.stdErr, !typeStyle ^ "[WARN]" ^ ANSIStyle.resetAll ^ " " ^ !warningStyle ^ message ^ ANSIStyle.resetAll ^ "\n")
+ else
+ TextIO.output (TextIO.stdErr, "[WARN] " ^ message ^ "\n")
+fun diag message = if !useColors then
+ TextIO.output (TextIO.stdErr, !typeStyle ^ "[DIAG]" ^ ANSIStyle.resetAll ^ " " ^ !diagnosticStyle ^ message ^ ANSIStyle.resetAll ^ "\n")
+ else
+ TextIO.output (TextIO.stdErr, "[DIAG] " ^ message ^ "\n")
+fun info message = if !useColors then
+ TextIO.output (TextIO.stdErr, !typeStyle ^ "[INFO]" ^ ANSIStyle.resetAll ^ " " ^ !informationStyle ^ message ^ ANSIStyle.resetAll ^ "\n")
+ else
+ TextIO.output (TextIO.stdErr, "[INFO] " ^ message ^ "\n")
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/os-util.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/os-util.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/os-util.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,8 @@
+structure OSUtil : sig
+ val isWindows : bool
+ val setEnv : string * string -> unit
+ end = struct
+val isWindows = LunarML.assumeDiscardable (fn () => Lua.== (Lua.field (Lua.Lib.os, "type"), Lua.fromString "windows")) ()
+val os_setenv = LunarML.assumeDiscardable Lua.field (Lua.Lib.os, "setenv")
+fun setEnv (name, value) = Lua.call0 os_setenv #[Lua.fromString name, Lua.fromString value]
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/path-util.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/path-util.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/path-util.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,25 @@
+structure PathUtil : sig
+ val basename : string -> string
+ val dirname : string -> string
+ val parentdir : string -> string
+ val trimext : string -> string
+ val ext : string -> string
+ val replaceext : { path : string, newext : string } -> string
+ val join2 : string * string -> string
+ val join : string list -> string
+ val abspath : { path : string, cwd : string option } -> string
+ end = struct
+val luamod = LunarML.assumeDiscardable (fn () => Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.pathutil"]) ()
+val basename : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "basename"))) ()
+val dirname : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "dirname"))) ()
+val parentdir : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "parentdir"))) ()
+val trimext : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "trimext"))) ()
+val ext : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "ext"))) ()
+fun replaceext { path : string, newext : string } : string = Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "replaceext")) #[Lua.fromString path, Lua.fromString newext])
+fun join2 (x : string, y : string) : string = Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "join")) #[Lua.fromString x, Lua.fromString y])
+fun join (xs : string list) : string = Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "join")) (Vector.map Lua.fromString (Vector.fromList xs)))
+fun abspath { path : string, cwd : string option } : string
+ = case cwd of
+ SOME cwd => Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "abspath")) #[Lua.fromString path, Lua.fromString cwd])
+ | NONE => Lua.unsafeFromValue (Lua.call1 (Lua.field (luamod, "abspath")) #[Lua.fromString path])
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/recovery.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/recovery.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/recovery.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,125 @@
+structure Recovery:
+sig
+ val createMissingDirectories:
+ {execlog: string, auxfile: string, outdir: string}
+ -> bool
+ val runEpstopdf:
+ { options: AppOptions.options
+ , execlog: string
+ , originalWorkingDirectory: string
+ }
+ -> bool
+ val tryRecovery:
+ { options: AppOptions.options
+ , execlog: string
+ , auxfile: string
+ , originalWorkingDirectory: string
+ }
+ -> bool
+end =
+struct
+ fun createMissingDirectories {execlog, auxfile, outdir} =
+ if String.isSubstring "I can't write on file" execlog 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. *)
+ let
+ val (madeNewDirectory, _) =
+ AuxFile.createMissingDirectories
+ {auxfile = auxfile, outdir = outdir, seen = StringSet.empty}
+ in
+ if madeNewDirectory andalso Message.getVerbosity () >= 1 then
+ Message.info "Created missing directories."
+ else
+ ();
+ madeNewDirectory
+ end
+ else
+ false
+
+ fun runEpstopdf
+ { options: AppOptions.options
+ , execlog: string
+ , originalWorkingDirectory: string
+ } =
+ if #shell_escape options <> SOME ShellEscape.FORBIDDEN then (* (possibly restricted) \write18 enabled *)
+ let
+ val lines =
+ Substring.tokens (fn c => c = #"\n") (Substring.full execlog)
+ fun doLine (line, run) =
+ case List.map Substring.string (Substring.tokens Char.isSpace line) of
+ ["(epstopdf)", "Command:", command, outfile', infile'] =>
+ if
+ command = "<epstopdf"
+ orelse
+ command = "<repstopdf"
+ andalso String.isPrefix "--outfile=" outfile'
+ andalso String.isSuffix ">" infile'
+ then
+ let
+ val outfile = String.extract (outfile', 10, NONE)
+ val infile = String.substring
+ (infile', 0, String.size infile' - 1)
+ val infileAbs =
+ PathUtil.abspath
+ {path = infile, cwd = SOME originalWorkingDirectory}
+ in
+ if FSUtil.isFile infileAbs then (* input file exists *)
+ let
+ val outfileAbs = PathUtil.abspath
+ {path = outfile, cwd = SOME (#output_directory options)}
+ val () =
+ if Message.getVerbosity () >= 1 then
+ Message.info ("Running epstopdf on " ^ infile ^ ".")
+ else
+ ()
+ val outdir = PathUtil.dirname outfileAbs
+ val () =
+ if not (FSUtil.isDirectory outdir) then
+ FSUtil.mkDirRec outdir
+ else
+ ()
+ val command =
+ "epstopdf --outfile=" ^ ShellUtil.escape outfileAbs
+ ^ " " ^ ShellUtil.escape infileAbs
+ val () = Message.exec command
+ val success =
+ OS.Process.isSuccess (OS.Process.system command)
+ in
+ run orelse success
+ end
+ else
+ run
+ end
+ else
+ run
+ | _ => run
+ in
+ List.foldl doLine false lines
+ end
+ else
+ false
+
+ (* The next time we will able to set \PassOptionsToPackage{outputdir=}{minted} *)
+ fun checkMinted {execlog} =
+ String.isSubstring
+ "Package minted Error: Missing Pygments output; \\inputminted was" execlog
+
+ fun tryRecovery {options, execlog, auxfile, originalWorkingDirectory} =
+ let
+ val recovered =
+ createMissingDirectories
+ { execlog = execlog
+ , auxfile = auxfile
+ , outdir = #output_directory options
+ }
+ val recovered =
+ runEpstopdf
+ { options = options
+ , execlog = execlog
+ , originalWorkingDirectory = originalWorkingDirectory
+ } orelse recovered
+ val recovered = recovered orelse checkMinted {execlog = execlog}
+ in
+ recovered
+ end
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/reruncheck.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/reruncheck.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/reruncheck.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,260 @@
+structure Reruncheck :> sig
+ datatype file_kind = INPUT | OUTPUT | AUXILIARY
+ type file_info = { path : string
+ , abspath : string
+ , kind : file_kind
+ }
+ type recorded
+ val parseRecorderFile : { file : string, options : AppOptions.options } -> recorded
+ val parseRecorderFileContinued : { file : string, options : AppOptions.options, previousResult : recorded } -> recorded
+ val getFileInfo : recorded -> file_info list * file_info StringMap.map
+ type aux_status = { mtime : Time.time option
+ , size : Position.int option
+ , md5sum : MD5.hash option
+ }
+ val collectFileInfo : file_info list * aux_status StringMap.map -> aux_status StringMap.map
+ val compareFileInfo : file_info list * aux_status StringMap.map -> bool * aux_status StringMap.map
+ val compareFileTime : { srcAbs : string, dst : string, auxstatus : aux_status StringMap.map } -> bool
+ end = struct
+datatype file_kind = INPUT | OUTPUT | AUXILIARY
+type file_info = { path : string
+ , abspath : string
+ , kind : file_kind
+ }
+type recorded = file_info ref list * file_info ref StringMap.map
+fun getFileInfo ((fileInfo, fileMap) : recorded) = (List.foldl (fn (x, xs) => !x :: xs) [] fileInfo, StringMap.map ! fileMap)
+fun parseRecorderFileContinued { file, options : AppOptions.options, previousResult = (fileList, fileMap) }
+ = let val ins = TextIO.openIn file
+ fun go (fileList, fileMap)
+ = case TextIO.inputLine ins of
+ NONE => (TextIO.closeIn ins; (fileList, fileMap))
+ | SOME line =>
+ let val (t, rest) = Substring.splitl Char.isAlphaNum (Substring.full line)
+ val path = Substring.string (Substring.dropl Char.isSpace (Substring.dropr Char.isSpace rest))
+ in case Substring.string t of
+ "PWD" => go (fileList, fileMap) (* ignore *)
+ | "INPUT" =>
+ let val abspath = PathUtil.abspath { path = path, cwd = NONE }
+ in case StringMap.find (fileMap, abspath) of
+ SOME (r as ref { path = path', abspath = abspath', kind }) =>
+ ( r := { path = if String.size path < String.size path' then
+ path
+ else
+ path'
+ , abspath = abspath'
+ , kind = if kind = OUTPUT then
+ (* The files listed in both INPUT and OUTPUT are considered to be auxiliary files. *)
+ AUXILIARY
+ else
+ kind
+ }
+ ; go (fileList, fileMap)
+ )
+ | NONE =>
+ if FSUtil.isFile path then
+ let val r = ref { path = path
+ , abspath = abspath
+ , kind = if PathUtil.ext path = "bbl" then
+ AUXILIARY
+ else
+ INPUT
+ }
+ in go (r :: fileList, StringMap.insert (fileMap, abspath, r))
+ end
+ else
+ (* Maybe a command execution *)
+ go (fileList, fileMap)
+ end
+ | "OUTPUT" =>
+ let val abspath = PathUtil.abspath { path = path, cwd = NONE }
+ in case StringMap.find (fileMap, abspath) of
+ SOME (r as ref { path = path', abspath = abspath', kind }) =>
+ ( r := { path = if String.size path < String.size path' then
+ path
+ else
+ path'
+ , abspath = abspath'
+ , kind = if kind = INPUT then
+ (* The files listed in both INPUT and OUTPUT are considered to be auxiliary files. *)
+ AUXILIARY
+ else
+ kind
+ }
+ ; go (fileList, fileMap)
+ )
+ | NONE =>
+ let val ext = PathUtil.ext path
+ val r = ref { path = path
+ , abspath = abspath
+ , kind = if ext = "out" orelse (#makeindex options <> NONE andalso ext = "idx") orelse ext = "bcf" orelse ext = "glo" then
+ (* .out: hyperref bookmarks file
+ * .idx: input for makeindex
+ * .bcf: biber
+ * .glo: makeglossaries
+ *)
+ AUXILIARY
+ else
+ OUTPUT
+ }
+ in go (r :: fileList, StringMap.insert (fileMap, abspath, r))
+ end
+ end
+ | t => ( Message.warn ("Unrecognized line in recorder file '" ^ file ^ "': " ^ t)
+ ; go (fileList, fileMap)
+ )
+ end
+ in go (fileList, fileMap)
+ end
+fun parseRecorderFile { file, options } = parseRecorderFileContinued { file = file, options = options, previousResult = ([], StringMap.empty) }
+
+type aux_status = { mtime : Time.time option
+ , size : Position.int option
+ , md5sum : MD5.hash option
+ }
+
+fun md5sumOfFile (path : string) : MD5.hash
+ = let val ins = BinIO.openIn path
+ val data = BinIO.inputAll ins before BinIO.closeIn ins
+ in MD5.compute data
+ end
+
+fun collectFileInfo (fileList : file_info list, auxstatus : aux_status StringMap.map) : aux_status StringMap.map
+ = let fun go ({ abspath, kind, ... } : file_info, auxstatus) : aux_status ref StringMap.map
+ = if FSUtil.isFile abspath then
+ let val (status, auxstatus) = case StringMap.find (auxstatus, abspath) of
+ NONE => let val s = ref { mtime = NONE, size = NONE, md5sum = NONE }
+ in (s, StringMap.insert (auxstatus, abspath, s))
+ end
+ | SOME status => (status, auxstatus)
+ in case kind of
+ INPUT => (case status of
+ ref (s as { mtime = NONE, ... }) => status := { s where mtime = SOME (OS.FileSys.modTime abspath) }
+ | _ => ()
+ )
+ | AUXILIARY => let val s = !status
+ val s = case s of
+ { mtime = NONE, ... } => { s where mtime = SOME (OS.FileSys.modTime abspath) }
+ | _ => s
+ val s = case s of
+ { size = NONE, ... } => { s where size = SOME (OS.FileSys.fileSize abspath) }
+ | _ => s
+ val s = case s of
+ { md5sum = NONE, ... } => { s where md5sum = SOME (md5sumOfFile abspath) }
+ | _ => s
+ in status := s
+ end
+ | OUTPUT => ()
+ ; auxstatus
+ end
+ else
+ auxstatus
+ in StringMap.map ! (List.foldl go (StringMap.map ref auxstatus) fileList)
+ end
+
+fun compareFileInfo (fileList : file_info list, auxstatus : aux_status StringMap.map) : bool * aux_status StringMap.map
+ = let fun go ([], newauxstatus) = (false, newauxstatus)
+ | go ({ path = shortPath, abspath, kind } :: fileList, newauxstatus)
+ = if FSUtil.isFile abspath then
+ let val (shouldRerun, newauxstatus)
+ = case kind of
+ INPUT => (* Input file: User might have modified while running TeX. *)
+ let val mtime = OS.FileSys.modTime abspath
+ in case StringMap.find (auxstatus, abspath) of
+ SOME { mtime = SOME mtime', ... } =>
+ if Time.< (mtime', mtime) then
+ (* Input file was updated during execution *)
+ ( Message.info ("Input file '" ^ shortPath ^ "' was modified (by user, or some external commands).")
+ ; (true, StringMap.insert (newauxstatus, abspath, ref { mtime = SOME mtime, size = NONE, md5sum = NONE }))
+ )
+ else
+ (false, newauxstatus)
+ | _ => (* New input file *)
+ (false, newauxstatus)
+ end
+ | AUXILIARY => (* Auxiliary file: Compare file contents. *)
+ (case StringMap.find (auxstatus, abspath) of
+ SOME s =>
+ let val size = OS.FileSys.fileSize abspath
+ val sizeIsDifferent = case #size s of
+ SOME z => z <> size
+ | NONE => true
+ val (modifiedBecause, newauxstatus)
+ = if sizeIsDifferent then
+ let val previousSize = case #size s of
+ SOME z => Position.toString z
+ | NONE => "(N/A)"
+ in (SOME ("size: " ^ previousSize ^ " -> " ^ Position.toString size), StringMap.insert (newauxstatus, abspath, ref { mtime = NONE, size = SOME size, md5sum = NONE }))
+ end
+ else
+ let val md5sum = md5sumOfFile abspath
+ val md5sumIsDifferent = case #md5sum s of
+ SOME h => h <> md5sum
+ | NONE => true
+ in if md5sumIsDifferent then
+ let val previousMd5sum = case #md5sum s of
+ SOME h => MD5.hashToLowerHexString h
+ | NONE => "(N/A)"
+ in (SOME ("md5: " ^ previousMd5sum ^ " -> " ^ MD5.hashToLowerHexString md5sum), StringMap.insert (newauxstatus, abspath, ref { mtime = NONE, size = SOME size, md5sum = SOME md5sum }))
+ end
+ else
+ (NONE, newauxstatus)
+ end
+ in case modifiedBecause of
+ SOME reason => ( Message.info ("File '" ^ shortPath ^ "' was modified (" ^ reason ^ ").")
+ ; (true, newauxstatus)
+ )
+ | NONE => ( if Message.getVerbosity () >= 1 then
+ Message.info ("File '" ^ shortPath ^ "' unmodified (size and md5sum).")
+ else
+ ()
+ ; (false, newauxstatus)
+ )
+ end
+ | NONE => (* New file *)
+ let val (shouldRerun, newauxstatus)
+ = if String.isSuffix ".aux" abspath then
+ let val size = OS.FileSys.fileSize abspath
+ in if size = 8 then
+ let val ins = BinIO.openIn abspath
+ val contents = BinIO.inputAll ins before BinIO.closeIn ins
+ val isTrivial = Byte.bytesToString contents = "\\relax \n"
+ val newauxstatus = StringMap.insert (newauxstatus, abspath, ref { mtime = NONE, size = SOME size, md5sum = SOME (MD5.compute contents) })
+ in (not isTrivial, newauxstatus)
+ end
+ else
+ let val newauxstatus = StringMap.insert (newauxstatus, abspath, ref { mtime = NONE, size = SOME size, md5sum = NONE })
+ in (true, newauxstatus)
+ end
+ end
+ else
+ (true, newauxstatus)
+ in if shouldRerun then
+ Message.info ("New auxiliary file '" ^ shortPath ^ "'.")
+ else if Message.getVerbosity () >= 1 then
+ Message.info ("Ignoring almost-empty auxiliary file '" ^ shortPath ^ "'.")
+ else
+ ()
+ ; (shouldRerun, newauxstatus)
+ end
+ )
+ | OUTPUT => (false, newauxstatus)
+ in if shouldRerun then
+ (true, newauxstatus)
+ else
+ go (fileList, newauxstatus)
+ end
+ else
+ go (fileList, newauxstatus)
+ val (shouldRerun, auxstatus) = go (fileList, StringMap.empty)
+ in (shouldRerun, StringMap.map ! auxstatus)
+ end
+
+(* true if src is newer than dst *)
+fun compareFileTime { srcAbs, dst, auxstatus : aux_status StringMap.map }
+ = if not (FSUtil.isFile dst) then
+ true
+ else
+ case StringMap.find (auxstatus, srcAbs) of
+ SOME { mtime = SOME mtime, ... } => Time.> (mtime, OS.FileSys.modTime dst)
+ | _ => false
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/safe-name.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/safe-name.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/safe-name.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,85 @@
+structure SafeName:
+sig
+ val escapeJobname: string -> string
+ val safeInput: {name: string, isPdfTeX: bool} -> string
+end =
+struct
+ local
+ fun escapeChar #" " = "_"
+ | escapeChar c =
+ if
+ Char.isSpace c orelse c = #"\"" orelse c = #"$" orelse c = #"%"
+ orelse c = #"&" orelse c = #"'" orelse c = #"(" orelse c = #")"
+ orelse c = #";" orelse c = #"<" orelse c = #">" orelse c = #"\\"
+ orelse c = #"^" orelse c = #"`" orelse c = #"|"
+ then
+ let
+ val x = Char.ord c
+ val s = Int.fmt StringCvt.HEX x
+ in
+ if x <= 0xf then "_0" ^ s else "_" ^ s
+ end
+ else
+ String.str c
+ in
+ fun escapeJobname name = String.translate escapeChar name
+ end
+
+ local
+ fun handleSpecialChar #"\\" = "~\\\\"
+ | handleSpecialChar #"%" = "~\\%"
+ | handleSpecialChar #"^" = "~\\^"
+ | handleSpecialChar #"{" = "~\\{"
+ | handleSpecialChar #"}" = "~\\}"
+ | handleSpecialChar #"~" = "~\\~"
+ | handleSpecialChar #"#" = "~\\#"
+ | handleSpecialChar c = String.str c
+ fun handleSpaces s =
+ let
+ fun go (s, acc) =
+ if Substring.isEmpty s then
+ Substring.concat (List.rev acc)
+ else
+ let
+ val (a, b) = Substring.splitl (fn c => c <> #" ") s
+ val (c, d) = Substring.splitl (fn c => c = #" ") b
+ val c' = Substring.full (String.concatWith "~"
+ (List.map String.str (Substring.explode c)))
+ in
+ go (d, c' :: a :: acc)
+ end
+ in
+ go (Substring.full s, [])
+ end
+ fun handleNonAscii s =
+ let
+ fun go (s, acc) =
+ if Substring.isEmpty s then
+ Substring.concat (List.rev acc)
+ else
+ let
+ val (a, b) = Substring.splitl Char.isAscii s
+ val (c, d) = Substring.splitl (Bool.not o Char.isAscii) b
+ val c' =
+ if Substring.isEmpty c then c
+ else Substring.full ("\\detokenize{" ^ Substring.string c ^ "}")
+ in
+ go (d, c' :: a :: acc)
+ end
+ in
+ go (Substring.full s, [])
+ end
+ in
+ fun safeInput {name, isPdfTeX} =
+ let
+ val escaped = handleSpaces (String.translate handleSpecialChar name)
+ val escaped = if isPdfTeX then handleNonAscii escaped else escaped
+ in
+ if name = escaped then
+ "\\input\"" ^ name ^ "\""
+ else
+ "\\begingroup\\escapechar-1\\let~\\string\\edef\\x{\"" ^ escaped
+ ^ "\" }\\expandafter\\endgroup\\expandafter\\input\\x"
+ end
+ end
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/shell-util.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/shell-util.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/shell-util.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,8 @@
+structure ShellUtil : sig
+ val escape : string -> string
+ val hasCommand : string -> bool
+ end = struct
+val luamod = LunarML.assumeDiscardable (fn () => Lua.call1 Lua.Lib.require #[Lua.fromString "texrunner.shellutil"]) ()
+val escape : string -> string = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "escape"))) ()
+val hasCommand : string -> bool = LunarML.assumeDiscardable (fn () => Lua.unsafeFromValue (Lua.field (luamod, "has_command"))) ()
+end;
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/tex-engine.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/tex-engine.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/tex-engine.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,166 @@
+structure TeXEngine : sig
+ type engine_type
+ type run_options = { engine_executable : string option
+ , halt_on_error : bool
+ , interaction : InteractionMode.interaction option
+ , file_line_error : bool
+ , synctex : string option
+ , shell_escape : ShellEscape.shell_escape option
+ , jobname : string option
+ , output_directory : string option
+ , extra_options : string list
+ , output_format : OutputFormat.format
+ , draftmode : bool (* pdfTeX / XeTeX / LuaTeX *)
+ , fmt : string option
+ , lua_initialization_script : string option (* LuaTeX only *)
+ }
+ type engine = { name : string
+ , executable : string
+ , supports_pdf_generation : bool
+ , dvi_extension : string
+ , supports_draftmode : bool
+ , engine_type : engine_type
+ }
+ val isLuaTeX : engine -> bool
+ val isPdfTeX : engine -> bool
+ val isXeTeX : engine -> bool
+ val buildCommand : engine * string * run_options -> string
+ val get : string -> engine option
+ end = struct
+datatype engine_type = PDFTEX | XETEX | LUATEX | OTHER
+type run_options = { engine_executable : string option
+ , halt_on_error : bool
+ , interaction : InteractionMode.interaction option
+ , file_line_error : bool
+ , synctex : string option
+ , shell_escape : ShellEscape.shell_escape option
+ , jobname : string option
+ , output_directory : string option
+ , extra_options : string list
+ , output_format : OutputFormat.format
+ , draftmode : bool (* pdfTeX / XeTeX / LuaTeX *)
+ , fmt : string option
+ , lua_initialization_script : string option (* LuaTeX only *)
+ }
+type engine = { name : string
+ , executable : string
+ , dvi_extension : string
+ , supports_pdf_generation : bool
+ , supports_draftmode : bool
+ , engine_type : engine_type
+ }
+fun isLuaTeX ({ engine_type, ... } : engine) = engine_type = LUATEX
+fun isPdfTeX ({ engine_type, ... } : engine) = engine_type = PDFTEX
+fun isXeTeX ({ engine_type, ... } : engine) = engine_type = XETEX
+fun buildCommand (engine : engine, inputline, options : run_options)
+ = let val executable = Option.getOpt (#engine_executable options, #executable engine)
+ val revCommand = ["-recorder", executable]
+ val revCommand = case #fmt options of
+ NONE => revCommand
+ | SOME fmt => "-fmt=" ^ fmt :: revCommand
+ val revCommand = case #halt_on_error options of
+ false => revCommand
+ | true => "-halt-on-error" :: revCommand
+ val revCommand = case #interaction options of
+ NONE => revCommand
+ | SOME mode => "-interaction=" ^ InteractionMode.toString mode :: revCommand
+ val revCommand = case #file_line_error options of
+ false => revCommand
+ | true => "-file-line-error" :: revCommand
+ val revCommand = case #synctex options of
+ NONE => revCommand
+ | SOME synctex => "-synctex=" ^ ShellUtil.escape synctex :: revCommand
+ val revCommand = case #shell_escape options of
+ NONE => revCommand
+ | SOME ShellEscape.FORBIDDEN => "-no-shell-escape" :: revCommand
+ | SOME ShellEscape.RESTRICTED => "-shell-restricted" :: revCommand
+ | SOME ShellEscape.ALLOWED => "-shell-escape" :: revCommand
+ val revCommand = case #jobname options of
+ NONE => revCommand
+ | SOME jobname => "-jobname=" ^ ShellUtil.escape jobname :: revCommand
+ val revCommand = case #output_directory options of
+ NONE => revCommand
+ | SOME dir => "-output-directory=" ^ ShellUtil.escape dir :: revCommand
+ val revCommand = case #engine_type engine of
+ OTHER => revCommand
+ | PDFTEX => let val revCommand = if #draftmode options then
+ "-draftmode" :: revCommand
+ else
+ revCommand
+ in case #output_format options of
+ OutputFormat.DVI => "-output-format=dvi" :: revCommand
+ | OutputFormat.PDF => revCommand
+ end
+ | XETEX => if #draftmode options orelse #output_format options = OutputFormat.DVI then
+ "-no-pdf" :: revCommand
+ else
+ revCommand
+ | LUATEX => let val revCommand = case #lua_initialization_script options of
+ NONE => revCommand
+ | SOME script => "--lua=" ^ ShellUtil.escape script :: revCommand
+ val revCommand = if #draftmode options then
+ "--draftmode" :: revCommand
+ else
+ revCommand
+ in case #output_format options of
+ OutputFormat.DVI => "--output-format=dvi" :: revCommand
+ | OutputFormat.PDF => revCommand
+ end
+ val revCommand = List.revAppend (#extra_options options, revCommand)
+ val revCommand = ShellUtil.escape inputline :: revCommand
+ in String.concatWith " " (List.rev revCommand)
+ end
+val pdftex_or_pdflatex = { supports_pdf_generation = true
+ , dvi_extension = "dvi"
+ , supports_draftmode = true
+ , engine_type = PDFTEX
+ }
+val pdftex : engine = { name = "pdftex", executable = "pdftex", ... = pdftex_or_pdflatex }
+val pdflatex : engine = { name = "pdflatex", executable = "pdflatex", ... = pdftex_or_pdflatex }
+val luatex_or_lualatex = { supports_pdf_generation = true
+ , dvi_extension = "dvi"
+ , supports_draftmode = true
+ , engine_type = LUATEX
+ }
+val luatex : engine = { name = "luatex", executable = "luatex", ... = luatex_or_lualatex }
+val lualatex : engine = { name = "lualatex", executable = "lualatex", ... = luatex_or_lualatex }
+val luajittex : engine = { name = "luajittex", executable = "luajittex", ... = luatex_or_lualatex }
+val xetex_or_xelatex = { supports_pdf_generation = true
+ , dvi_extension = "xdv"
+ , supports_draftmode = true
+ , engine_type = XETEX
+ }
+val xetex : engine = { name = "xetex", executable = "xetex", ... = xetex_or_xelatex }
+val xelatex : engine = { name = "xelatex", executable = "xelatex", ... = xetex_or_xelatex }
+val other_engine = { supports_pdf_generation = false
+ , dvi_extension = "dvi"
+ , supports_draftmode = false
+ , engine_type = OTHER
+ }
+val tex : engine = { name = "tex", executable = "tex", ... = other_engine }
+val etex : engine = { name = "etex", executable = "etex", ... = other_engine }
+val latex : engine = { name = "latex", executable = "latex", ... = other_engine }
+val ptex : engine = { name = "ptex", executable = "ptex", ... = other_engine }
+val eptex : engine = { name = "eptex", executable = "eptex", ... = other_engine }
+val platex : engine = { name = "platex", executable = "platex", ... = other_engine }
+val uptex : engine = { name = "uptex", executable = "uptex", ... = other_engine }
+val euptex : engine = { name = "euptex", executable = "euptex", ... = other_engine }
+val uplatex : engine = { name = "uplatex", executable = "uplatex", ... = other_engine }
+fun get "pdftex" = SOME pdftex
+ | get "pdflatex" = SOME pdflatex
+ | get "luatex" = SOME luatex
+ | get "lualatex" = SOME lualatex
+ | get "luajittex" = SOME luajittex
+ | get "xetex" = SOME xetex
+ | get "xelatex" = SOME xelatex
+ | get "tex" = SOME tex
+ | get "etex" = SOME etex
+ | get "latex" = SOME latex
+ | get "ptex" = SOME ptex
+ | get "eptex" = SOME eptex
+ | get "platex" = SOME platex
+ | get "uptex" = SOME uptex
+ | get "euptex" = SOME euptex
+ | get "uplatex" = SOME uplatex
+ | get _ = NONE
+end;
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/auxfile.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/auxfile.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/auxfile.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,75 +0,0 @@
---[[
- 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
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- parse_aux_file(subauxfile_abs, 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 then
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- extract_bibtex_from_aux_file(subauxfile_abs, outdir, biblines)
- end
- end
- end
- end
- return biblines
-end
-
-return {
- parse_aux_file = parse_aux_file,
- extract_bibtex_from_aux_file = extract_bibtex_from_aux_file,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/checkdriver.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/checkdriver.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/checkdriver.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,211 +0,0 @@
---[[
- Copyright 2020 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 ipairs = ipairs
-local error = error
-local string = string
-local pathutil = require "texrunner.pathutil"
-local message = require "texrunner.message"
-
-local right_values = {
- dvips = {
- graphics = "dvips",
- expl3 = {
- old = "dvips",
- new = "dvips",
- },
- hyperref = "dvips",
- xypic = "dvips",
- },
- dvipdfmx = {
- graphics = "dvipdfmx",
- expl3 = {
- old = "dvipdfmx",
- new = "dvipdfmx",
- },
- hyperref = "dvipdfmx",
- xypic = "pdf",
- },
- dvisvgm = {
- graphics = "dvisvgm",
- expl3 = {
- old = "dvisvgm",
- new = "dvisvgm",
- },
- },
- xetex = {
- graphics = "xetex",
- expl3 = {
- old = "xdvipdfmx",
- new = "xetex",
- },
- hyperref = "xetex",
- xypic = "pdf",
- },
- pdftex = {
- graphics = "pdftex",
- expl3 = {
- old = "pdfmode",
- new = "pdftex",
- },
- hyperref = "pdftex",
- xypic = "pdf",
- },
- luatex = {
- graphics = "luatex",
- expl3 = {
- old = "pdfmode",
- new = "luatex",
- },
- hyperref = "luatex",
- xypic = "pdf",
- },
-}
-
--- expected_driver: one of "dvips", "dvipdfmx", "dvisvgm", "pdftex", "xetex", "luatex"
-local function checkdriver(expected_driver, filelist)
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: expects ", expected_driver)
- end
-
- local loaded = {}
- for i,t in ipairs(filelist) do
- if t.kind == "input" then
- local basename = pathutil.basename(t.path)
- loaded[basename] = true
- end
- end
-
- local graphics_driver = nil -- "dvipdfmx" | "dvips" | "dvisvgm" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["graphics.sty"] or loaded["color.sty"] then
- if loaded["dvipdfmx.def"] then
- graphics_driver = "dvipdfmx"
- elseif loaded["dvips.def"] then
- graphics_driver = "dvips"
- elseif loaded["dvisvgm.def"] then
- graphics_driver = "dvisvgm"
- elseif loaded["pdftex.def"] then
- graphics_driver = "pdftex"
- elseif loaded["luatex.def"] then
- graphics_driver = "luatex"
- elseif loaded["xetex.def"] then
- graphics_driver = "xetex"
- else
- -- Not supported: dvipdf, dvipsone, emtex, textures, pctexps, pctexwin, pctexhp, pctex32, truetex, tcidvi, vtex
- graphics_driver = "unknown"
- end
- end
- local expl3_driver = nil -- "pdfmode" | "dvisvgm" | "xdvipdfmx" | "dvipdfmx" | "dvips" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["expl3-code.tex"] or loaded["expl3.sty"] or loaded["l3backend-dvips.def"] or loaded["l3backend-dvipdfmx.def"] or loaded["l3backend-xdvipdfmx.def"] or loaded["l3backend-pdfmode.def"] or loaded["l3backend-pdftex.def"] or loaded["l3backend-luatex.def"] or loaded["l3backend-xetex.def"] then
- if loaded["l3backend-pdfmode.def"] then
- expl3_driver = "pdfmode" -- pdftex, luatex in older l3backend
- elseif loaded["l3backend-dvisvgm.def"] then
- expl3_driver = "dvisvgm"
- elseif loaded["l3backend-xdvipdfmx.def"] then
- expl3_driver = "xdvipdfmx" -- xetex in older l3backend
- elseif loaded["l3backend-dvipdfmx.def"] then
- expl3_driver = "dvipdfmx"
- elseif loaded["l3backend-dvips.def"] then
- expl3_driver = "dvips"
- elseif loaded["l3backend-pdftex.def"] then
- expl3_driver = "pdftex"
- elseif loaded["l3backend-luatex.def"] then
- expl3_driver = "luatex"
- elseif loaded["l3backend-xetex.def"] then
- expl3_driver = "xetex"
- else
- -- TODO: driver=latex2e?
- expl3_driver = "unknown"
- end
- end
- local hyperref_driver = nil -- "luatex" | "pdftex" | "xetex" | "dvipdfmx" | "dvips" | "unknown"
- if loaded["hyperref.sty"] then
- if loaded["hluatex.def"] then
- hyperref_driver = "luatex"
- elseif loaded["hpdftex.def"] then
- hyperref_driver = "pdftex"
- elseif loaded["hxetex.def"] then
- hyperref_driver = "xetex"
- elseif loaded["hdvipdfm.def"] then
- hyperref_driver = "dvipdfmx"
- elseif loaded["hdvips.def"] then
- hyperref_driver = "dvips"
- else
- -- Not supported: dvipson, dviwind, tex4ht, texture, vtex, vtexhtm, xtexmrk, hypertex
- hyperref_driver = "unknown"
- end
- -- TODO: dvisvgm?
- end
- local xypic_driver = nil -- "pdf" | "dvips" | "unknown"
- if loaded["xy.tex"] then
- if loaded["xypdf.tex"] then
- xypic_driver = "pdf" -- pdftex, luatex, xetex, dvipdfmx
- elseif loaded["xydvips.tex"] then
- xypic_driver = "dvips"
- else
- -- Not supported: dvidrv, dvitops, oztex, 17oztex, textures, 16textures, xdvi
- xypic_driver = "unknown"
- end
- -- TODO: dvisvgm?
- end
-
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: graphics=", tostring(graphics_driver))
- message.info("checkdriver: expl3=", tostring(expl3_driver))
- message.info("checkdriver: hyperref=", tostring(hyperref_driver))
- message.info("checkdriver: xypic=", tostring(xypic_driver))
- end
-
- local expected = assert(right_values[expected_driver], "invalid value for expected_driver")
- if graphics_driver ~= nil and expected.graphics ~= nil and graphics_driver ~= expected.graphics then
- message.diag("The driver option for graphics(x)/color is missing or wrong.")
- message.diag("Consider setting '", expected.graphics, "' option.")
- end
- if expl3_driver ~= nil and expected.expl3 ~= nil and expl3_driver ~= expected.expl3.old and expl3_driver ~= expected.expl3.new then
- message.diag("The driver option for expl3 is missing or wrong.")
- message.diag("Consider setting 'driver=", expected.expl3.new, "' option when loading expl3.")
- if expected.expl3.old ~= expected.expl3.new then
- message.diag("You might need to instead set 'driver=", expected.expl3.old, "' if you are using an older version of expl3.")
- end
- end
- if hyperref_driver ~= nil and expected.hyperref ~= nil and hyperref_driver ~= expected.hyperref then
- message.diag("The driver option for hyperref is missing or wrong.")
- message.diag("Consider setting '", expected.hyperref, "' option.")
- end
- if xypic_driver ~= nil and expected.xypic ~= nil and xypic_driver ~= expected.xypic then
- message.diag("The driver option for Xy-pic is missing or wrong.")
- if expected_driver == "dvipdfmx" then
- message.diag("Consider setting 'dvipdfmx' option or running \\xyoption{pdf}.")
- elseif expected_driver == "pdftex" then
- message.diag("Consider setting 'pdftex' option or running \\xyoption{pdf}.")
- elseif expected.xypic == "pdf" then
- message.diag("Consider setting 'pdf' package option or running \\xyoption{pdf}.")
- elseif expected.xypic == "dvips" then
- message.diag("Consider setting 'dvips' option.")
- end
- end
-end
-
---[[
-filelist[i] = {path = ""}
-]]
-
-return {
- checkdriver = checkdriver,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/handleoption.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/handleoption.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/handleoption.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,512 +0,0 @@
-local COPYRIGHT_NOTICE = [[
-Copyright (C) 2016-2023 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,
- --engine-executable=COMMAND+OPTIONs
- The actual TeX command to use.
- [default: ENGINE]
- -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[=ENGINE] Watch input files for change. Requires fswatch
- or inotifywait to be installed. ENGINE is one of
- `fswatch', `inotifywait' or `auto' [default: `auto']
- --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' if --color is omitted,
- `always' if WHEN is omitted]
- --includeonly=NAMEs Insert '\includeonly{NAMEs}'.
- --make-depends=FILE Write dependencies as a Makefile rule.
- --print-output-directory Print the output directory and exit.
- --package-support=PKG1[,PKG2,...]
- Enable special support for some shell-escaping
- packages.
- Currently supported: minted, epstopdf
- --check-driver=DRIVER Check that the correct driver file is loaded.
- DRIVER is one of `dvipdfmx', `dvips', `dvisvgm'.
-
- --[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,
- },
- {
- long = "engine-executable",
- 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",
- param = true,
- default = "auto",
- },
- {
- 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,
- },
- {
- long = "make-depends",
- param = true
- },
- {
- long = "print-output-directory",
- },
- {
- long = "package-support",
- param = true
- },
- {
- long = "check-driver",
- 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
-
- if options.output_format == nil then
- options.output_format = "pdf"
- 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 = {},
- package_support = {},
- }
- 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 == "engine-executable" then
- assert(options.engine_executable == nil, "multiple --engine-executable options")
- options.engine_executable = 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 = param
-
- 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
-
- elseif name == "make-depends" then
- assert(options.make_depends == nil, "multiple --make-depends options")
- options.make_depends = param
-
- elseif name == "print-output-directory" then
- assert(options.print_output_directory == nil, "multiple --print-output-directory options")
- options.print_output_directory = true
-
- elseif name == "package-support" then
- local known_packages = {["minted"] = true, ["epstopdf"] = true}
- for pkg in string.gmatch(param, "[^,%s]+") do
- options.package_support[pkg] = true
- if not known_packages[pkg] and CLUTTEX_VERBOSITY >= 1 then
- message.warn("ClutTeX provides no special support for '"..pkg.."'.")
- end
- end
-
- elseif name == "check-driver" then
- assert(options.check_driver == nil, "multiple --check-driver options")
- assert(param == "dvipdfmx" or param == "dvips" or param == "dvisvgm", "wrong value for --check-driver option")
- options.check_driver = 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)
-
- -- parameter validy check TODO should this be organized as function like
- -- set_default_values and with a key in the option spec (list or function)?
- if options.watch then
- if options.watch ~= "fswatch" and options.watch ~= "inotifywait" then
- message.error("Unknown wait engine '", options.watch, "'.")
- os.exit(1)
- end
- end
-
- if options.output_format == "pdf" then
- if options.check_driver ~= nil then
- error("--check-driver can only be used when the output format is DVI.")
- end
- if engine.supports_pdf_generation then
- if engine.is_luatex then
- options.check_driver = "luatex"
- elseif engine.name == "xetex" or engine.name == "xelatex" then
- options.check_driver = "xetex"
- elseif engine.name == "pdftex" or engine.name == "pdflatex" then
- options.check_driver = "pdftex"
- else
- message.warning("Unknown engine: "..engine.name)
- message.warning("Driver check will not work.")
- end
- else
- -- ClutTeX uses dvipdfmx to generate PDF from DVI output.
- options.check_driver = "dvipdfmx"
- end
- end
-
- return inputfile, engine, options
-end
-
-return {
- usage = usage,
- handle_cluttex_options = handle_cluttex_options,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/message.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/message.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/message.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,141 +0,0 @@
---[[
- 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
- M = require "texrunner.isatty"
- use_colors = true
- if use_colors and M.enable_virtual_terminal then
- local succ = M.enable_virtual_terminal(io.stderr)
- if not succ and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "auto" then
- M = require "texrunner.isatty"
- use_colors = M.isatty(io.stderr)
- if use_colors and M.enable_virtual_terminal then
- use_colors = M.enable_virtual_terminal(io.stderr)
- if not use_colors and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "never" then
- use_colors = false
- else
- error "The value of --color option must be one of 'auto', 'always', or 'never'."
- 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_cyan, 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,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/option.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/option.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/option.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,152 +0,0 @@
---[[
- 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]}
--- options_and_params[j] = {"option", "value"}
--- 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
- param = false
- 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
- param = false
- 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;
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/recovery.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/recovery.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/recovery.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,86 +0,0 @@
---[[
- 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,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/reruncheck.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/reruncheck.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/reruncheck.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,250 +0,0 @@
---[[
- 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;
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/safename.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/safename.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/safename.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,62 +0,0 @@
---[[
- Copyright 2019 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 = string
-local table = table
-
-local function dounsafechar(c)
- if c == " " then
- return "_"
- else
- return string.format("_%02x", c:byte(1))
- end
-end
-
-local function escapejobname(name)
- return (string.gsub(name, "[%s\"$%%&'();<>\\^`|]", dounsafechar))
-end
-
-local function handlespecialchar(s)
- return (string.gsub(s, "[%\\%%^%{%}%~%#]", "~\\%1"))
-end
-
-local function handlespaces(s)
- return (string.gsub(s, " +", function(s) return string.rep(" ", #s, "~") end))
-end
-
-local function handlenonascii(s)
- return (string.gsub(s, "[\x80-\xFF]+", "\\detokenize{%1}"))
-end
-
-local function safeinput(name, engine)
- local escaped = handlespaces(handlespecialchar(name))
- if engine.name == "pdftex" or engine.name == "pdflatex" then
- escaped = handlenonascii(escaped)
- end
- if name == escaped then
- return string.format("\\input\"%s\"", name)
- else
- return string.format("\\begingroup\\escapechar-1\\let~\\string\\edef\\x{\"%s\" }\\expandafter\\endgroup\\expandafter\\input\\x", escaped)
- end
-end
-
-return {
- escapejobname = escapejobname,
- safeinput = safeinput,
-}
Deleted: trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/tex_engine.lua
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/tex_engine.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/texrunner/tex_engine.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,155 +0,0 @@
---[[
- Copyright 2016,2019 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(inputline, 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
- 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(inputline, options)
- local executable = options.engine_executable or self.executable
- local command = {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
- table.insert(command, shellutil.escape(inputline))
- 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
Added: trunk/Master/texmf-dist/doc/support/cluttex/src/types.sml
===================================================================
--- trunk/Master/texmf-dist/doc/support/cluttex/src/types.sml (rev 0)
+++ trunk/Master/texmf-dist/doc/support/cluttex/src/types.sml 2025-03-16 20:03:47 UTC (rev 74655)
@@ -0,0 +1,36 @@
+structure InteractionMode:
+sig
+ datatype interaction = BATCHMODE | NONSTOPMODE | SCROLLMODE | ERRORSTOPMODE
+ val fromString: string -> interaction option
+ val toString: interaction -> string
+end =
+struct
+ datatype interaction = BATCHMODE | NONSTOPMODE | SCROLLMODE | ERRORSTOPMODE
+ fun fromString "batchmode" = SOME BATCHMODE
+ | fromString "nonstopmode" = SOME NONSTOPMODE
+ | fromString "scrollmode" = SOME SCROLLMODE
+ | fromString "errorstopmode" = SOME ERRORSTOPMODE
+ | fromString _ = NONE
+ fun toString BATCHMODE = "batchmode"
+ | toString NONSTOPMODE = "nonstopmode"
+ | toString SCROLLMODE = "scrollmode"
+ | toString ERRORSTOPMODE = "errorstopmode"
+end;
+
+structure ShellEscape:
+sig
+ datatype shell_escape = ALLOWED | RESTRICTED | FORBIDDEN
+end =
+struct datatype shell_escape = ALLOWED | RESTRICTED | FORBIDDEN end;
+
+structure OutputFormat:
+sig
+ datatype format = PDF | DVI
+ val fromString: string -> format option
+end =
+struct
+ datatype format = PDF | DVI
+ fun fromString "pdf" = SOME PDF
+ | fromString "dvi" = SOME DVI
+ | fromString _ = NONE
+end;
Modified: trunk/Master/texmf-dist/scripts/cluttex/cluttex.lua
===================================================================
--- trunk/Master/texmf-dist/scripts/cluttex/cluttex.lua 2025-03-16 19:58:57 UTC (rev 74654)
+++ trunk/Master/texmf-dist/scripts/cluttex/cluttex.lua 2025-03-16 20:03:47 UTC (rev 74655)
@@ -1,6 +1,5 @@
#!/usr/bin/env texlua
local io, os, string, table, package, require, assert, error, ipairs, type, select, arg = io, os, string, table, package, require, assert, error, ipairs, type, select, arg
-local CLUTTEX_VERBOSITY, CLUTTEX_VERSION
os.type = os.type or "unix"
if lfs and not package.loaded['lfs'] then package.loaded['lfs'] = lfs end
if os.type == "windows" then
@@ -536,646 +535,6 @@
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]}
--- options_and_params[j] = {"option", "value"}
--- 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
- param = false
- 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
- param = false
- 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,2019 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(inputline, 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
- 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(inputline, options)
- local executable = options.engine_executable or self.executable
- local command = {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
- table.insert(command, shellutil.escape(inputline))
- 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
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- parse_aux_file(subauxfile_abs, 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 then
- local subauxfile_abs = pathutil.abspath(subauxfile, outdir)
- if fsutil.isfile(subauxfile_abs) then
- extract_bibtex_from_aux_file(subauxfile_abs, outdir, biblines)
- end
- 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"))
@@ -1294,608 +653,6 @@
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-2023 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,
- --engine-executable=COMMAND+OPTIONs
- The actual TeX command to use.
- [default: ENGINE]
- -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[=ENGINE] Watch input files for change. Requires fswatch
- or inotifywait to be installed. ENGINE is one of
- `fswatch', `inotifywait' or `auto' [default: `auto']
- --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' if --color is omitted,
- `always' if WHEN is omitted]
- --includeonly=NAMEs Insert '\includeonly{NAMEs}'.
- --make-depends=FILE Write dependencies as a Makefile rule.
- --print-output-directory Print the output directory and exit.
- --package-support=PKG1[,PKG2,...]
- Enable special support for some shell-escaping
- packages.
- Currently supported: minted, epstopdf
- --check-driver=DRIVER Check that the correct driver file is loaded.
- DRIVER is one of `dvipdfmx', `dvips', `dvisvgm'.
-
- --[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,
- },
- {
- long = "engine-executable",
- 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",
- param = true,
- default = "auto",
- },
- {
- 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,
- },
- {
- long = "make-depends",
- param = true
- },
- {
- long = "print-output-directory",
- },
- {
- long = "package-support",
- param = true
- },
- {
- long = "check-driver",
- 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
-
- if options.output_format == nil then
- options.output_format = "pdf"
- 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 = {},
- package_support = {},
- }
- 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 == "engine-executable" then
- assert(options.engine_executable == nil, "multiple --engine-executable options")
- options.engine_executable = 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 = param
-
- 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
-
- elseif name == "make-depends" then
- assert(options.make_depends == nil, "multiple --make-depends options")
- options.make_depends = param
-
- elseif name == "print-output-directory" then
- assert(options.print_output_directory == nil, "multiple --print-output-directory options")
- options.print_output_directory = true
-
- elseif name == "package-support" then
- local known_packages = {["minted"] = true, ["epstopdf"] = true}
- for pkg in string.gmatch(param, "[^,%s]+") do
- options.package_support[pkg] = true
- if not known_packages[pkg] and CLUTTEX_VERBOSITY >= 1 then
- message.warn("ClutTeX provides no special support for '"..pkg.."'.")
- end
- end
-
- elseif name == "check-driver" then
- assert(options.check_driver == nil, "multiple --check-driver options")
- assert(param == "dvipdfmx" or param == "dvips" or param == "dvisvgm", "wrong value for --check-driver option")
- options.check_driver = 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)
-
- -- parameter validy check TODO should this be organized as function like
- -- set_default_values and with a key in the option spec (list or function)?
- if options.watch then
- if options.watch ~= "fswatch" and options.watch ~= "inotifywait" then
- message.error("Unknown wait engine '", options.watch, "'.")
- os.exit(1)
- end
- end
-
- if options.output_format == "pdf" then
- if options.check_driver ~= nil then
- error("--check-driver can only be used when the output format is DVI.")
- end
- if engine.supports_pdf_generation then
- if engine.is_luatex then
- options.check_driver = "luatex"
- elseif engine.name == "xetex" or engine.name == "xelatex" then
- options.check_driver = "xetex"
- elseif engine.name == "pdftex" or engine.name == "pdflatex" then
- options.check_driver = "pdftex"
- else
- message.warning("Unknown engine: "..engine.name)
- message.warning("Driver check will not work.")
- end
- else
- -- ClutTeX uses dvipdfmx to generate PDF from DVI output.
- options.check_driver = "dvipdfmx"
- end
- end
-
- return inputfile, engine, options
-end
-
-return {
- usage = usage,
- handle_cluttex_options = handle_cluttex_options,
-}
-end
package.preload["texrunner.isatty"] = function(...)
--[[
Copyright 2018 ARATA Mizuki
@@ -2122,149 +879,6 @@
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
- M = require "texrunner.isatty"
- use_colors = true
- if use_colors and M.enable_virtual_terminal then
- local succ = M.enable_virtual_terminal(io.stderr)
- if not succ and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "auto" then
- M = require "texrunner.isatty"
- use_colors = M.isatty(io.stderr)
- if use_colors and M.enable_virtual_terminal then
- use_colors = M.enable_virtual_terminal(io.stderr)
- if not use_colors and CLUTTEX_VERBOSITY >= 2 then
- io.stderr:write("ClutTeX: Failed to enable virtual terminal\n")
- end
- end
- elseif mode == "never" then
- use_colors = false
- else
- error "The value of --color option must be one of 'auto', 'always', or 'never'."
- 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_cyan, 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
package.preload["texrunner.fswatcher_windows"] = function(...)
--[[
Copyright 2019 ARATA Mizuki
@@ -2682,971 +1296,21082 @@
new = new_watcher,
}
end
-package.preload["texrunner.safename"] = function(...)
---[[
- Copyright 2019 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 = string
-local table = table
-
-local function dounsafechar(c)
- if c == " " then
- return "_"
+local getmetatable = getmetatable
+local pcall = pcall
+local setmetatable = setmetatable
+local math = math
+local math_type = math.type
+local math_maxinteger = math.maxinteger
+local math_mininteger = math.mininteger
+local math_ult = math.ult
+local string_char = string.char
+local string_format = string.format
+local table_concat = table.concat
+local function _id(x)
+ return x
+end
+local _exn_meta = {}
+function _exn_meta:__tostring()
+ local traceback = self.traceback
+ if traceback then
+ traceback = "\n" .. traceback
else
- return string.format("_%02x", c:byte(1))
+ traceback = ""
end
+ return string_format("%s: %s%s", self.location or "<no location info>", self.tag[1], traceback)
end
-
-local function escapejobname(name)
- return (string.gsub(name, "[%s\"$%%&'();<>\\^`|]", dounsafechar))
+local _Match_tag = { "Match" }
+local _Match = setmetatable({ tag = _Match_tag }, _exn_meta)
+local _Bind_tag = { "Bind" }
+local _Bind = setmetatable({ tag = _Bind_tag }, _exn_meta)
+local _Overflow_tag = { "Overflow" }
+local _Overflow = setmetatable({ tag = _Overflow_tag }, _exn_meta)
+local _Div_tag = { "Div" }
+local _Div = setmetatable({ tag = _Div_tag }, _exn_meta)
+local _Size_tag = { "Size" }
+local _Size = setmetatable({ tag = _Size_tag }, _exn_meta)
+local _Subscript_tag = { "Subscript" }
+local _Subscript = setmetatable({ tag = _Subscript_tag }, _exn_meta)
+local _Fail_tag = { "Fail" }
+local function _Fail(message)
+ return setmetatable({ tag = _Fail_tag, payload = message }, _exn_meta)
end
-
-local function handlespecialchar(s)
- return (string.gsub(s, "[%\\%%^%{%}%~%#]", "~\\%1"))
+local _Error_tag = { "Error" }
+local function _Error(x)
+ return setmetatable({ tag = _Error_tag, payload = x }, _exn_meta)
end
-
-local function handlespaces(s)
- return (string.gsub(s, " +", function(s) return string.rep(" ", #s, "~") end))
+local function _handle(f)
+ local success, result = pcall(f)
+ if not success and getmetatable(result) ~= _exn_meta then
+ result = _Error(result)
+ end
+ return success, result
end
-
-local function handlenonascii(s)
- return (string.gsub(s, "[\x80-\xFF]+", "\\detokenize{%1}"))
+local function __exn_instanceof(e, tag)
+ return e.tag == tag
end
-
-local function safeinput(name, engine)
- local escaped = handlespaces(handlespecialchar(name))
- if engine.name == "pdftex" or engine.name == "pdflatex" then
- escaped = handlenonascii(escaped)
+local function _raise(x, location)
+ local e
+ if x.tag == _Error_tag then
+ e = x.payload
+ elseif location ~= nil then
+ local traceback = debug.traceback(nil, 2)
+ e = setmetatable({ tag = x.tag, payload = x.payload, location = location, traceback = traceback }, _exn_meta)
+ else
+ e = x
end
- if name == escaped then
- return string.format("\\input\"%s\"", name)
+ error(e, 1)
+end
+local function _Int_add(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x + y
+ if y > 0 and z < x then
+ _raise(_Overflow, "Int.+")
+ elseif y < 0 and z > x then
+ _raise(_Overflow, "Int.+")
else
- return string.format("\\begingroup\\escapechar-1\\let~\\string\\edef\\x{\"%s\" }\\expandafter\\endgroup\\expandafter\\input\\x", escaped)
+ return z
end
end
-
-return {
- escapejobname = escapejobname,
- safeinput = safeinput,
-}
+local function _Int_sub(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x - y
+ if y < 0 and z < x then
+ _raise(_Overflow, "Int.-")
+ elseif y > 0 and x < z then
+ _raise(_Overflow, "Int.-")
+ else
+ return z
+ end
end
-package.preload["texrunner.checkdriver"] = function(...)
---[[
- Copyright 2020 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 ipairs = ipairs
-local error = error
-local string = string
-local pathutil = require "texrunner.pathutil"
-local message = require "texrunner.message"
-
-local right_values = {
- dvips = {
- graphics = "dvips",
- expl3 = {
- old = "dvips",
- new = "dvips",
- },
- hyperref = "dvips",
- xypic = "dvips",
- },
- dvipdfmx = {
- graphics = "dvipdfmx",
- expl3 = {
- old = "dvipdfmx",
- new = "dvipdfmx",
- },
- hyperref = "dvipdfmx",
- xypic = "pdf",
- },
- dvisvgm = {
- graphics = "dvisvgm",
- expl3 = {
- old = "dvisvgm",
- new = "dvisvgm",
- },
- },
- xetex = {
- graphics = "xetex",
- expl3 = {
- old = "xdvipdfmx",
- new = "xetex",
- },
- hyperref = "xetex",
- xypic = "pdf",
- },
- pdftex = {
- graphics = "pdftex",
- expl3 = {
- old = "pdfmode",
- new = "pdftex",
- },
- hyperref = "pdftex",
- xypic = "pdf",
- },
- luatex = {
- graphics = "luatex",
- expl3 = {
- old = "pdfmode",
- new = "luatex",
- },
- hyperref = "luatex",
- xypic = "pdf",
- },
-}
-
--- expected_driver: one of "dvips", "dvipdfmx", "dvisvgm", "pdftex", "xetex", "luatex"
-local function checkdriver(expected_driver, filelist)
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: expects ", expected_driver)
+local function _Int_mul(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ local z = x * y
+ if (x ~= 0 and z // x ~= y) or (y ~= 0 and z // y ~= x) then
+ _raise(_Overflow, "Int.*")
+ else
+ return z
end
-
- local loaded = {}
- for i,t in ipairs(filelist) do
- if t.kind == "input" then
- local basename = pathutil.basename(t.path)
- loaded[basename] = true
+end
+local function _Int_div(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Int.div")
+ elseif x == math_mininteger and y == -1 then
+ _raise(_Overflow, "Int.div")
+ end
+ return x // y
+end
+local function _Int_mod(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Int.mod")
+ end
+ return x % y
+end
+local function _Int_negate(x)
+ -- assert(math_type(x) == "integer")
+ if x == math_mininteger then
+ _raise(_Overflow, "Int.~")
+ end
+ return - x
+end
+local function _Word_div(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Word.div")
+ elseif y > 0 then
+ if x >= 0 then
+ return x // y
+ else -- x < 0
+ -- Algorithm from Programming in Lua, 4th ed.
+ local q = ((x >> 1) // y) << 1
+ local r = x - q * y
+ if math_ult(r, y) then
+ return q
+ else
+ return q + 1
+ end
end
+ else -- y < 0
+ if math_ult(x, y) then
+ return 0
+ else
+ return 1
+ end
end
-
- local graphics_driver = nil -- "dvipdfmx" | "dvips" | "dvisvgm" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["graphics.sty"] or loaded["color.sty"] then
- if loaded["dvipdfmx.def"] then
- graphics_driver = "dvipdfmx"
- elseif loaded["dvips.def"] then
- graphics_driver = "dvips"
- elseif loaded["dvisvgm.def"] then
- graphics_driver = "dvisvgm"
- elseif loaded["pdftex.def"] then
- graphics_driver = "pdftex"
- elseif loaded["luatex.def"] then
- graphics_driver = "luatex"
- elseif loaded["xetex.def"] then
- graphics_driver = "xetex"
+end
+local function _Word_mod(x, y)
+ -- assert(math_type(x) == "integer")
+ -- assert(math_type(y) == "integer")
+ if y == 0 then
+ _raise(_Div, "Word.mod")
+ elseif y > 0 then
+ if x >= 0 then
+ return x % y
+ else -- x < 0
+ local q = ((x >> 1) // y) << 1
+ local r = x - q * y
+ if math_ult(r, y) then
+ return r
+ else
+ return r - y
+ end
+ end
+ else -- y < 0
+ if math_ult(x, y) then
+ return x
else
- -- Not supported: dvipdf, dvipsone, emtex, textures, pctexps, pctexwin, pctexhp, pctex32, truetex, tcidvi, vtex
- graphics_driver = "unknown"
+ return x - y
end
end
- local expl3_driver = nil -- "pdfmode" | "dvisvgm" | "xdvipdfmx" | "dvipdfmx" | "dvips" | "pdftex" | "luatex" | "xetex" | "unknown"
- if loaded["expl3-code.tex"] or loaded["expl3.sty"] or loaded["l3backend-dvips.def"] or loaded["l3backend-dvipdfmx.def"] or loaded["l3backend-xdvipdfmx.def"] or loaded["l3backend-pdfmode.def"] or loaded["l3backend-pdftex.def"] or loaded["l3backend-luatex.def"] or loaded["l3backend-xetex.def"] then
- if loaded["l3backend-pdfmode.def"] then
- expl3_driver = "pdfmode" -- pdftex, luatex in older l3backend
- elseif loaded["l3backend-dvisvgm.def"] then
- expl3_driver = "dvisvgm"
- elseif loaded["l3backend-xdvipdfmx.def"] then
- expl3_driver = "xdvipdfmx" -- xetex in older l3backend
- elseif loaded["l3backend-dvipdfmx.def"] then
- expl3_driver = "dvipdfmx"
- elseif loaded["l3backend-dvips.def"] then
- expl3_driver = "dvips"
- elseif loaded["l3backend-pdftex.def"] then
- expl3_driver = "pdftex"
- elseif loaded["l3backend-luatex.def"] then
- expl3_driver = "luatex"
- elseif loaded["l3backend-xetex.def"] then
- expl3_driver = "xetex"
+end
+local function _list(t)
+ local xs = nil
+ for i = t.n, 1, -1 do
+ xs = { t[i], xs }
+ end
+ return xs
+end
+local function _Array_array(n, init)
+ if n < 0 then -- or maxLen < n
+ _raise(_Size, "Array.array")
+ end
+ local t = { n = n }
+ for i = 1, n do
+ t[i] = init
+ end
+ return t
+end
+local function _VectorOrArray_fromList(xs)
+ local t = {}
+ local n = 0
+ while xs ~= nil do
+ n = n + 1
+ t[n] = xs[1]
+ xs = xs[2]
+ end
+ t.n = n
+ return t
+end
+local function _VectorOrArray_tabulate(t)
+ local n, f = t[1], t[2]
+ if n < 0 then -- or maxLen < n
+ _raise(_Size, "(Vector|Array).tabulate")
+ end
+ local t = { n = n }
+ for i = 1, n do
+ t[i] = f(i - 1)
+ end
+ return t
+end
+local ref, _COLON_COLON, Chr, Domain, LESS, EQUAL, GREATER, _EXCLAM, _COLON_EQ, NONE, Option, getOpt, app, mapPartial, tmp, revAppend, app1, map, mapPartial1, find, foldl, exists, all, tabulate, sub, update, foldr, length, array, size, str, eq, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7, tmp8, tmp9, tmp10, tmp11, tmp12, tmp13, tmp14, tmp15, tmp16, tmp17, tmp18, tmp19, tmp20, tmp21, tmp22, tmp23, TypeError_tag, DEC, quot, rem, compare, tmp24, tmp25, fromManExp, sub1, substring, extract, concat, implode, implodeRev, fields, isPrefix, isSuffix, isAscii, isDigit, isAlphaNum, isHexDigit, isPrint, isSpace, toUpper, toString, scanString
+do
+ ref = function(x)
+ return {x}
+ end
+ _COLON_COLON = function(a)
+ local x = a[1]
+ return {x, a[2]}
+ end
+ Chr = {tag = {"Chr"}}
+ Domain = {tag = {"Domain"}}
+ LESS = "LESS"
+ EQUAL = "EQUAL"
+ GREATER = "GREATER"
+ _EXCLAM = function(a)
+ return a[1]
+ end
+ _COLON_EQ = function(a)
+ local x = a[1]
+ x[1] = a[2]
+ return nil
+ end
+ NONE = {tag = "NONE"}
+ Option = {tag = {"Option"}}
+ getOpt = function(tmp26, default)
+ if tmp26.tag == "NONE" then
+ return default
+ elseif tmp26.tag == "SOME" then
+ return tmp26.payload
else
- -- TODO: driver=latex2e?
- expl3_driver = "unknown"
+ _raise(_Match, "option.sml:19:5")
end
end
- local hyperref_driver = nil -- "luatex" | "pdftex" | "xetex" | "dvipdfmx" | "dvips" | "unknown"
- if loaded["hyperref.sty"] then
- if loaded["hluatex.def"] then
- hyperref_driver = "luatex"
- elseif loaded["hpdftex.def"] then
- hyperref_driver = "pdftex"
- elseif loaded["hxetex.def"] then
- hyperref_driver = "xetex"
- elseif loaded["hdvipdfm.def"] then
- hyperref_driver = "dvipdfmx"
- elseif loaded["hdvips.def"] then
- hyperref_driver = "dvips"
+ app = function(a)
+ return function(a1)
+ if a1.tag == "SOME" then
+ elseif a1.tag == "NONE" then
+ return nil
+ else
+ _raise(_Match, "option.sml:31:5")
+ end
+ do
+ return a(a1.payload)
+ end
+ end
+ end
+ mapPartial = function(a)
+ return function(a1)
+ if a1.tag == "SOME" then
+ elseif a1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "option.sml:35:5")
+ end
+ do
+ return a(a1.payload)
+ end
+ end
+ end
+ tmp = function(eq1)
+ return function(p)
+ if p[1].tag == "NONE" and p[2].tag == "NONE" then
+ return true
+ else
+ if p[1].tag == "SOME" and p[2].tag == "SOME" then
+ else
+ return false
+ end
+ do
+ return eq1({p[1].payload, p[2].payload})
+ end
+ end
+ end
+ end
+ revAppend = function(tmp26, ys)
+ local tmp27, tmp28 = tmp26, ys
+ ::cont::
+ do
+ local tmp29, ys1 = tmp27, tmp28
+ if tmp29 == nil then
+ return ys1
+ elseif tmp29 ~= nil then
+ local tmp30 = tmp29[1]
+ local tmp31 = tmp29[2]
+ tmp27 = tmp31
+ tmp28 = {tmp30, ys1}
+ goto cont
+ else
+ _raise(_Match, "list.sml:60:5")
+ end
+ end
+ end
+ app1 = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:64:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ a(tmp26)
+ local tmp28 = app1(a)
+ return tmp28(tmp27)
+ end
+ end
+ end
+ map = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:66:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ local tmp29 = map(a)
+ local tmp30 = tmp29(tmp27)
+ return {tmp28, tmp30}
+ end
+ end
+ end
+ mapPartial1 = function(a)
+ return function(a1)
+ if a1 == nil then
+ return nil
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:68:5")
+ end
+ do
+ local tmp26, exp
+ do
+ local tmp27 = a1[1]
+ tmp26 = a1[2]
+ exp = a(tmp27)
+ if exp.tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local tmp28 = mapPartial1(a)
+ return tmp28(tmp26)
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "list.sml:69:30")
+ end
+ do
+ local y = exp.payload
+ local tmp27 = mapPartial1(a)
+ local tmp28 = tmp27(tmp26)
+ return {y, tmp28}
+ end
+ end
+ end
+ end
+ find = function(a)
+ return function(a1)
+ if a1 == nil then
+ return NONE
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:72:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ return {tag = "SOME", payload = tmp26}
+ end
+ local tmp29 = find(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ foldl = function(a)
+ return function(a1)
+ return function(a2)
+ if a2 == nil then
+ return a1
+ end
+ if a2 ~= nil then
+ else
+ _raise(_Match, "list.sml:91:5")
+ end
+ do
+ local tmp26 = a2[1]
+ local tmp27 = a2[2]
+ local tmp28 = foldl(a)
+ local tmp29 = a({tmp26, a1})
+ local tmp30 = tmp28(tmp29)
+ return tmp30(tmp27)
+ end
+ end
+ end
+ end
+ exists = function(a)
+ return function(a1)
+ if a1 == nil then
+ return false
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:96:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ return true
+ end
+ local tmp29 = exists(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ all = function(a)
+ return function(a1)
+ if a1 == nil then
+ return true
+ end
+ if a1 ~= nil then
+ else
+ _raise(_Match, "list.sml:98:5")
+ end
+ do
+ local tmp26 = a1[1]
+ local tmp27 = a1[2]
+ local tmp28 = a(tmp26)
+ if tmp28 then
+ else
+ return false
+ end
+ do
+ local tmp29 = all(a)
+ return tmp29(tmp27)
+ end
+ end
+ end
+ end
+ tabulate = function(n, f)
+ if n < 0 then
+ _raise(_Size, "list.sml:101:27")
+ end
+ if n < 10 then
else
- -- Not supported: dvipson, dviwind, tex4ht, texture, vtex, vtexhtm, xtexmrk, hypertex
- hyperref_driver = "unknown"
+ goto else1
end
- -- TODO: dvisvgm?
+ do
+ local function go(a)
+ if a >= n then
+ return nil
+ end
+ local tmp26 = f(a)
+ local tmp27 = go(_Int_add(a, 1))
+ return {tmp26, tmp27}
+ end
+ return go(0)
+ end
+ ::else1::
+ local tmp26, tmp27 = 0, nil
+ ::cont::
+ do
+ local i, acc = tmp26, tmp27
+ if i >= n then
+ else
+ goto else2
+ end
+ do
+ return revAppend(acc, nil)
+ end
+ ::else2::
+ local tmp28 = _Int_add(i, 1)
+ local tmp29 = f(i)
+ tmp26 = tmp28
+ tmp27 = {tmp29, acc}
+ goto cont
+ end
end
- local xypic_driver = nil -- "pdf" | "dvips" | "unknown"
- if loaded["xy.tex"] then
- if loaded["xypdf.tex"] then
- xypic_driver = "pdf" -- pdftex, luatex, xetex, dvipdfmx
- elseif loaded["xydvips.tex"] then
- xypic_driver = "dvips"
+ sub = function(a)
+ local arr = a[1]
+ return arr[a[2] + 1]
+ end
+ update = function(a)
+ local arr = a[1]
+ local i = a[2]
+ arr[i + 1] = a[3]
+ return nil
+ end
+ foldr = function(a, a1)
+ return function(a2)
+ local tmp26, tmp27, tmp28, tmp29 = a, a1, a2, _Int_sub(a2.n, 1)
+ ::cont::
+ do
+ local f, acc, vec, i = tmp26, tmp27, tmp28, tmp29
+ if i < 0 then
+ return acc
+ end
+ local tmp30 = f({vec[i + 1], acc})
+ tmp26 = f
+ tmp27 = tmp30
+ tmp28 = vec
+ tmp29 = _Int_sub(i, 1)
+ goto cont
+ end
+ end
+ end
+ length = function(a)
+ return a.n
+ end
+ array = function(a)
+ local n = a[1]
+ return _Array_array(n, a[2])
+ end
+ size = function(a)
+ return #a
+ end
+ str = function(a)
+ return string_char(a)
+ end
+ eq = function(a)
+ local x = a[1]
+ return x == a[2]
+ end
+ local tmp26 = _ENV.io
+ tmp1 = _ENV.os
+ tmp2 = _ENV.package
+ tmp3 = _ENV.require
+ tmp4 = _ENV.tonumber
+ tmp5 = _ENV.tostring
+ tmp6 = _ENV.type
+ tmp7 = tmp26.open
+ tmp8 = tmp26.popen
+ tmp9 = tmp26.stderr
+ tmp10 = tmp26.stdout
+ tmp11 = math.huge
+ tmp12 = math.modf
+ tmp13 = tmp1.difftime
+ tmp14 = tmp1.execute
+ tmp15 = tmp1.exit
+ tmp16 = tmp1.getenv
+ tmp17 = tmp1.setlocale
+ tmp18 = tmp1.time
+ tmp19 = string.byte
+ tmp20 = string.find
+ tmp21 = string.gsub
+ tmp22 = string.match
+ local tmp27 = string.sub
+ do
+ local tmp28, tmp29 = pcall(tmp3, "lfs")
+ if tmp28 then
+ tmp23 = {tag = "SOME", payload = tmp29}
else
- -- Not supported: dvidrv, dvitops, oztex, 17oztex, textures, 16textures, xdvi
- xypic_driver = "unknown"
+ tmp23 = NONE
end
- -- TODO: dvisvgm?
end
-
- if CLUTTEX_VERBOSITY >= 1 then
- message.info("checkdriver: graphics=", tostring(graphics_driver))
- message.info("checkdriver: expl3=", tostring(expl3_driver))
- message.info("checkdriver: hyperref=", tostring(hyperref_driver))
- message.info("checkdriver: xypic=", tostring(xypic_driver))
+ TypeError_tag = {"TypeError"}
+ DEC = "DEC"
+ quot = function(x, y)
+ do
+ local tmp28 = x >= 0 and y >= 0
+ local tmp29
+ tmp29 = tmp28 or x <= 0 and y <= 0
+ if tmp29 then
+ return _Int_div(x, y)
+ end
+ if x == math_mininteger then
+ else
+ goto else1
+ end
+ do
+ if y == 1 then
+ return x
+ end
+ local tmp30 = _Int_negate(y)
+ return _Int_negate(_Int_div(x, tmp30))
+ end
+ end
+ ::else1::
+ local tmp28 = _Int_negate(x)
+ return _Int_negate(_Int_div(tmp28, y))
end
-
- local expected = assert(right_values[expected_driver], "invalid value for expected_driver")
- if graphics_driver ~= nil and expected.graphics ~= nil and graphics_driver ~= expected.graphics then
- message.diag("The driver option for graphics(x)/color is missing or wrong.")
- message.diag("Consider setting '", expected.graphics, "' option.")
+ rem = function(x, y)
+ if y == -1 then
+ return 0
+ end
+ local tmp28 = quot(x, y)
+ return _Int_sub(x, _Int_mul(tmp28, y))
end
- if expl3_driver ~= nil and expected.expl3 ~= nil and expl3_driver ~= expected.expl3.old and expl3_driver ~= expected.expl3.new then
- message.diag("The driver option for expl3 is missing or wrong.")
- message.diag("Consider setting 'driver=", expected.expl3.new, "' option when loading expl3.")
- if expected.expl3.old ~= expected.expl3.new then
- message.diag("You might need to instead set 'driver=", expected.expl3.old, "' if you are using an older version of expl3.")
+ compare = function(a)
+ local x = a[1]
+ local y = a[2]
+ if x == y then
+ return EQUAL
+ elseif x < y then
+ return LESS
+ else
+ return GREATER
end
end
- if hyperref_driver ~= nil and expected.hyperref ~= nil and hyperref_driver ~= expected.hyperref then
- message.diag("The driver option for hyperref is missing or wrong.")
- message.diag("Consider setting '", expected.hyperref, "' option.")
+ do
+ local tmp28, tmp29 = math_maxinteger, 1
+ ::cont5::
+ do
+ local x, n = tmp28, tmp29
+ if x == 0 then
+ tmp24 = n
+ else
+ local tmp30 = x >> 1
+ tmp28 = tmp30
+ tmp29 = _Int_add(n, 1)
+ goto cont5
+ end
+ end
end
- if xypic_driver ~= nil and expected.xypic ~= nil and xypic_driver ~= expected.xypic then
- message.diag("The driver option for Xy-pic is missing or wrong.")
- if expected_driver == "dvipdfmx" then
- message.diag("Consider setting 'dvipdfmx' option or running \\xyoption{pdf}.")
- elseif expected_driver == "pdftex" then
- message.diag("Consider setting 'pdftex' option or running \\xyoption{pdf}.")
- elseif expected.xypic == "pdf" then
- message.diag("Consider setting 'pdf' package option or running \\xyoption{pdf}.")
- elseif expected.xypic == "dvips" then
- message.diag("Consider setting 'dvips' option.")
+ tmp25 = - tmp11
+ fromManExp = function(exp, man)
+ local tmp28, tmp29 = exp, man
+ ::cont::
+ do
+ local exp1, man1 = tmp28, tmp29
+ if -1022 <= exp1 then
+ if exp1 < 1024 then
+ return man1 * 2.0 ^ exp1
+ end
+ local exp_PRIME
+ if exp1 > 2098 then
+ exp_PRIME = 2098
+ else
+ exp_PRIME = exp1
+ end
+ local tmp30 = man1 * 0x1p1023
+ tmp28 = _Int_sub(exp_PRIME, 1023)
+ tmp29 = tmp30
+ goto cont
+ end
+ local exp_PRIME
+ if exp1 < -2099 then
+ exp_PRIME = -2099
+ else
+ exp_PRIME = exp1
+ end
+ local tmp30 = exp_PRIME % -1022
+ if tmp30 ~= 0 then
+ local tmp31 = man1 * 2.0 ^ tmp30
+ tmp28 = _Int_sub(exp_PRIME, tmp30)
+ tmp29 = tmp31
+ goto cont
+ else
+ local tmp31 = man1 * 0x1p-1022
+ tmp28 = _Int_add(exp_PRIME, 1022)
+ tmp29 = tmp31
+ goto cont
+ end
end
end
+ sub1 = function(a)
+ local s = a[1]
+ local i = a[2]
+ if i < 0 or #s <= i then
+ _raise(_Subscript, "string-1.sml:33:44")
+ else
+ return tmp19(s, _Int_add(i, 1))
+ end
+ end
+ substring = function(s, i, j)
+ local tmp28
+ if i < 0 then
+ tmp28 = true
+ elseif j < 0 then
+ tmp28 = true
+ else
+ local tmp29 = #s
+ tmp28 = tmp29 < _Int_add(i, j)
+ end
+ if tmp28 then
+ _raise(_Subscript, "string-1.sml:40:59")
+ else
+ local tmp29 = _Int_add(i, 1)
+ return tmp27(s, tmp29, _Int_add(i, j))
+ end
+ end
+ extract = function(s, i, tmp28)
+ if tmp28.tag == "NONE" then
+ if i < 0 or #s < i then
+ _raise(_Subscript, "string-1.sml:46:69")
+ else
+ return tmp27(s, _Int_add(i, 1))
+ end
+ else
+ if tmp28.tag == "SOME" then
+ else
+ _raise(_Match, "string-1.sml:45:5")
+ end
+ do
+ return substring(s, i, tmp28.payload)
+ end
+ end
+ end
+ concat = function(a)
+ return table_concat(_VectorOrArray_fromList(a))
+ end
+ implode = function(a)
+ local v = _VectorOrArray_fromList(a)
+ local tmp28
+ do
+ local tmp29 = v.n
+ tmp28 = _VectorOrArray_tabulate({tmp29, function(i)
+ return string_char(v[i + 1])
+ end})
+ end
+ return table_concat(tmp28)
+ end
+ implodeRev = function(a)
+ local tmp28 = revAppend(a, nil)
+ local v = _VectorOrArray_fromList(tmp28)
+ local tmp29
+ do
+ local tmp30 = v.n
+ tmp29 = _VectorOrArray_tabulate({tmp30, function(i)
+ return string_char(v[i + 1])
+ end})
+ end
+ return table_concat(tmp29)
+ end
+ fields = function(a)
+ return function(a1)
+ local tmp28, tmp29, tmp30
+ do
+ local tmp31
+ do
+ local tmp32 = foldr(_COLON_COLON, nil)
+ local tmp33 = _VectorOrArray_tabulate({#a1, function(i)
+ return sub1({a1, i})
+ end})
+ tmp31 = tmp32(tmp33)
+ end
+ tmp30, tmp29, tmp28 = nil, nil, tmp31
+ end
+ ::cont::
+ do
+ local revFields, acc, tmp31 = tmp30, tmp29, tmp28
+ if tmp31 == nil then
+ else
+ goto else1
+ end
+ do
+ local tmp32 = implodeRev(acc)
+ return revAppend({tmp32, revFields}, nil)
+ end
+ ::else1::
+ if tmp31 ~= nil then
+ else
+ _raise(_Match, "string-1.sml:80:26")
+ end
+ do
+ local tmp32 = tmp31[1]
+ local tmp33 = tmp31[2]
+ local tmp34 = a(tmp32)
+ if tmp34 then
+ else
+ tmp30 = revFields
+ tmp29 = {tmp32, acc}
+ tmp28 = tmp33
+ goto cont
+ end
+ do
+ local tmp35 = implodeRev(acc)
+ tmp30 = {tmp35, revFields}
+ tmp29 = nil
+ tmp28 = tmp33
+ goto cont
+ end
+ end
+ end
+ end
+ end
+ isPrefix = function(a)
+ return function(a1)
+ local tmp28 = #a
+ if tmp28 > #a1 then
+ return false
+ end
+ local tmp29 = substring(a1, 0, tmp28)
+ return tmp29 == a
+ end
+ end
+ isSuffix = function(a)
+ return function(a1)
+ local tmp28 = #a
+ local tmp29 = #a1
+ if tmp28 > tmp29 then
+ return false
+ end
+ local tmp30 = substring(a1, _Int_sub(tmp29, tmp28), tmp28)
+ return tmp30 == a
+ end
+ end
+ isAscii = function(a)
+ return a <= 127
+ end
+ isDigit = function(a)
+ return 48 <= a and a <= 57
+ end
+ isAlphaNum = function(a)
+ local tmp28
+ if 65 <= a and a <= 90 then
+ return true
+ else
+ tmp28 = 97 <= a and a <= 122
+ end
+ return tmp28 or 48 <= a and a <= 57
+ end
+ isHexDigit = function(a)
+ return 48 <= a and a <= 57 or (97 <= a and a <= 102 or 65 <= a and a <= 70)
+ end
+ isPrint = function(a)
+ return 33 <= a and a <= 126 or a == 32
+ end
+ isSpace = function(a)
+ return 9 <= a and a <= 13 or a == 32
+ end
+ toUpper = function(a)
+ if 97 <= a and a <= 122 then
+ local tmp28 = _Int_sub(a, 32)
+ if tmp28 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp28 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return tmp28
+ end
+ else
+ return a
+ end
+ end
+ toString = function(a)
+ if a == 92 then
+ return "\\\\"
+ end
+ if a == 34 then
+ return "\\\""
+ end
+ local tmp28 = isPrint(a)
+ if tmp28 then
+ return string_char(a)
+ end
+ if a == 7 then
+ return "\\a"
+ end
+ if a == 8 then
+ return "\\b"
+ end
+ if a == 9 then
+ return "\\t"
+ end
+ if a == 10 then
+ return "\\n"
+ end
+ if a == 11 then
+ return "\\v"
+ end
+ if a == 12 then
+ return "\\f"
+ end
+ if a == 13 then
+ return "\\r"
+ end
+ local tmp29 = a
+ if tmp29 < 32 then
+ local tmp30 = _Int_add(tmp29, 64)
+ if tmp30 < 0 then
+ _raise(Chr, "char-1.sml:47:37")
+ elseif tmp30 > 255 then
+ _raise(Chr, "char-1.sml:47:37")
+ else
+ return "\\^" .. string_char(tmp30)
+ end
+ elseif tmp29 < 100 then
+ return "\\0" .. tmp21(tmp5(tmp29), "-", "~")
+ else
+ return "\\" .. tmp21(tmp5(tmp29), "-", "~")
+ end
+ end
+ scanString = function(a)
+ return function(a1)
+ local tmp28 = a(function(a2)
+ local s = a2[1]
+ local i = a2[2]
+ if i < #s then
+ else
+ return NONE
+ end
+ do
+ local tmp29 = sub1({s, i})
+ return {tag = "SOME", payload = {tmp29, {s, _Int_add(i, 1)}}}
+ end
+ end)
+ local exp = tmp28({a1, 0})
+ if exp.tag == "SOME" then
+ return {tag = "SOME", payload = exp.payload[1]}
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "string-cvt-1.sml:33:25")
+ end
+ end
+ end
+ do
+ if tmp24 ~= 64 then
+ else
+ goto cont
+ end
+ do
+ local tmp28 = _Fail("Word64 is not available")
+ _raise(tmp28, "word.sml:333:18")
+ end
+ end
end
-
---[[
-filelist[i] = {path = ""}
-]]
-
-return {
- checkdriver = checkdriver,
-}
+::cont::
+local MonoSequence, CharArray, extract1, full, string1, isEmpty, getc, concat1, splitl, splitr, tokens, tmp26, tmp27, tmp28, tmp29, tmp30, tmp31, tmp32, tmp33, tmp34, tmp35, tmp36, tmp37, tmp38, tmp39, tmp40, tmp41, tmp42
+do
+ MonoSequence = function(fromList, length1, maxLen, tmp43, create, tmp44, tmp45, tmp46, tmp47, fromList1, length2, maxLen1, tmp48, vector, tmp49, tmp50, tmp51)
+ local tabulate1, sub2, update1, appi, app2, mapi, map1, foldli, foldri, foldl1, foldr1, findi, find1, exists1, all1, collate, toList, append, prepend, array1, tabulate2, sub3, update2, copy, copyVec, appi1, app3, modifyi, modify, foldli1, foldri1, foldl2, foldr2, findi1, find2, exists2, all2, collate1, toList1, vector1, fromVector, length3, sub4, update3, full1, slice, subslice, base, copy1, copyVec1, isEmpty1, getItem, appi2, app4, modifyi1, modify1, foldli2, foldri2, foldl3, foldr3, findi2, find3, exists3, all3, collate2, vector2, UnsafeMonoVector, UnsafeMonoArray, MonoVectorSlice
+ do
+ tabulate1 = function(a)
+ local n = a[1]
+ local tmp52 = tabulate(n, a[2])
+ return tmp49({n, tmp52})
+ end
+ sub2 = function(a)
+ local v = a[1]
+ local i = a[2]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length2(v)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:221:22")
+ end
+ do
+ return tmp51({v, i})
+ end
+ end
+ update1 = function(a)
+ local v = a[1]
+ local i = a[2]
+ local x = a[3]
+ local tmp52 = tmp48({base = v, length = i, start = 0})
+ local tmp53 = fromList1({x, nil})
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = length2(v)
+ local tmp56 = tmp48({base = v, length = _Int_sub(_Int_sub(tmp55, i), 1), start = tmp54})
+ return tmp47({tmp52, {tmp53, {tmp56, nil}}})
+ end
+ appi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp51({a1, a2})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app2 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp51({a1, a2})
+ a(tmp53)
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ mapi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = tabulate(n, function(i)
+ local tmp53 = tmp51({a1, i})
+ return a({i, tmp53})
+ end)
+ return tmp49({n, tmp52})
+ end
+ end
+ map1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = tabulate(n, function(i)
+ local tmp53 = tmp51({a1, i})
+ return a(tmp53)
+ end)
+ return tmp49({n, tmp52})
+ end
+ end
+ foldli = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length2(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length2(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl1 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length2(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldr1 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length2(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp51({a1, a2})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp51({a1, a2})
+ local tmp53 = a(x)
+ if tmp53 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return false
+ end
+ local tmp53 = tmp51({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ return true
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all1 = function(a)
+ return function(a1)
+ local n = length2(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return true
+ end
+ local tmp53 = tmp51({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate = function(a)
+ return function(a1)
+ local xs = a1[1]
+ local ys = a1[2]
+ local xl = length2(xs)
+ local yl = length2(ys)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ local tmp53 = xl <= a2
+ local tmp54 = yl <= a2
+ local tmp55
+ tmp55 = tmp53 and tmp54
+ if tmp55 then
+ return EQUAL
+ end
+ local tmp56
+ tmp56 = tmp53 and not tmp54
+ if tmp56 then
+ return LESS
+ end
+ if not tmp53 and tmp54 then
+ return GREATER
+ end
+ if not tmp53 and not tmp54 then
+ else
+ _raise(_Match, "mono-sequence.sml:310:49")
+ end
+ do
+ local tmp57 = tmp51({xs, a2})
+ local tmp58 = tmp51({ys, a2})
+ local exp = a({tmp57, tmp58})
+ if exp == "EQUAL" then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ toList = function(a)
+ local tmp52 = foldr1(_COLON_COLON)
+ local tmp53 = tmp52(nil)
+ return tmp53(a)
+ end
+ append = function(a)
+ local v = a[1]
+ local tmp52 = fromList1({a[2], nil})
+ return tmp47({v, {tmp52, nil}})
+ end
+ prepend = function(a)
+ local x = a[1]
+ local v = a[2]
+ local tmp52 = fromList1({x, nil})
+ return tmp47({tmp52, {v, nil}})
+ end
+ local length4 = function(tmp52)
+ return tmp52.length
+ end
+ local sub5 = function(a)
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:331:44")
+ end
+ do
+ return tmp51({base1, _Int_add(start, i)})
+ end
+ end
+ local full2 = function(a)
+ local tmp52 = length2(a)
+ return {base = a, length = tmp52, start = 0}
+ end
+ local slice1 = function(a)
+ if a[3].tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = length2(v)
+ if 0 <= i and i <= n then
+ return {base = v, length = _Int_sub(n, i), start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:337:33")
+ end
+ end
+ ::else1::
+ if a[3].tag == "SOME" then
+ else
+ _raise(_Match, "mono-sequence.sml:333:5")
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = a[3].payload
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ if 0 <= n then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(i, n)
+ local tmp54 = length2(v)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ end
+ ::cont::
+ if tmp52 then
+ return {base = v, length = n, start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:342:32")
+ end
+ end
+ end
+ local subslice1 = function(a)
+ if a[3].tag == "NONE" then
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i <= length5 then
+ local tmp52 = _Int_add(start, i)
+ return {base = base1, length = _Int_sub(length5, i), start = tmp52}
+ else
+ _raise(_Subscript, "mono-sequence.sml:346:55")
+ end
+ end
+ if a[3].tag == "SOME" then
+ local base1 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local n = a[3].payload
+ if 0 <= i and (0 <= n and _Int_add(i, n) <= length5) then
+ return {base = base1, length = n, start = _Int_add(start, i)}
+ else
+ _raise(_Subscript, "mono-sequence.sml:350:57")
+ end
+ else
+ _raise(_Match, "mono-sequence.sml:343:5")
+ end
+ end
+ local base1 = function(a)
+ local b = a.base
+ local start = a.start
+ return {b, start, a.length}
+ end
+ local concat2 = function(a)
+ local tmp52 = map(tmp48)
+ local tmp53 = tmp52(a)
+ return tmp47(tmp53)
+ end
+ local isEmpty2 = function(a)
+ return a.length == 0
+ end
+ local getItem1 = function(a)
+ local base2 = a.base
+ local start = a.start
+ local length5 = a.length
+ if length5 > 0 then
+ else
+ return NONE
+ end
+ do
+ local tmp52 = tmp51({base2, start})
+ local tmp53 = _Int_add(start, 1)
+ return {tag = "SOME", payload = {tmp52, {base = base2, length = _Int_sub(length5, 1), start = tmp53}}}
+ end
+ end
+ local appi3 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = tmp51({base2, _Int_add(start, a2)})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ local app5 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local tmp54 = tmp51({base2, a2})
+ a(tmp54)
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ local mapi1 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52, tmp53 = 0, nil
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ else
+ goto else1
+ end
+ do
+ return tmp50({length5, acc})
+ end
+ ::else1::
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55})
+ tmp52 = tmp54
+ tmp53 = {tmp56, acc}
+ goto cont
+ end
+ end
+ end
+ local map2 = function(a)
+ return function(a1)
+ local base2, length5, tmp52, tmp53, tmp54
+ do
+ base2 = a1.base
+ local start = a1.start
+ length5 = a1.length
+ tmp52 = _Int_add(start, length5)
+ tmp54, tmp53 = start, nil
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ else
+ goto else1
+ end
+ do
+ return tmp50({length5, acc})
+ end
+ ::else1::
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp51({base2, i})
+ local tmp57 = a(tmp56)
+ tmp54 = tmp55
+ tmp53 = {tmp57, acc}
+ goto cont
+ end
+ end
+ end
+ local foldli3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local length5 = a2.length
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local foldri3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(a2.length, 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local foldl4 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2, tmp52, tmp53, tmp54
+ do
+ base2 = a2.base
+ local start = a2.start
+ tmp52 = _Int_add(start, a2.length)
+ tmp54, tmp53 = start, a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ return acc
+ end
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp51({base2, i})
+ local tmp57 = a({tmp56, acc})
+ tmp54 = tmp55
+ tmp53 = tmp57
+ goto cont
+ end
+ end
+ end
+ end
+ local foldr4 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(_Int_add(start, a2.length), 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < start then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp51({base2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ local findi3 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return NONE
+ end
+ local x = tmp51({base2, _Int_add(start, a2)})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local find4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return NONE
+ end
+ local x = tmp51({base2, a2})
+ local tmp54 = a(x)
+ if tmp54 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local exists4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return false
+ end
+ local tmp54 = tmp51({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ return true
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ local all4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return true
+ end
+ local tmp54 = tmp51({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ local collate3 = function(a)
+ return function(a1)
+ local base2, base_PRIME, tmp52, tmp53, tmp54, tmp55
+ do
+ base2 = a1[1].base
+ local start = a1[1].start
+ local length5 = a1[1].length
+ base_PRIME = a1[2].base
+ local start_PRIME = a1[2].start
+ local length_PRIME = a1[2].length
+ tmp52 = _Int_add(start, length5)
+ tmp53 = _Int_add(start_PRIME, length_PRIME)
+ tmp55, tmp54 = start, start_PRIME
+ end
+ ::cont::
+ do
+ local i, j = tmp55, tmp54
+ local tmp56 = tmp52 <= i
+ local tmp57 = tmp53 <= j
+ local tmp58
+ tmp58 = tmp56 and tmp57
+ if tmp58 then
+ return EQUAL
+ end
+ local tmp59
+ tmp59 = tmp56 and not tmp57
+ if tmp59 then
+ return LESS
+ end
+ if not tmp56 and tmp57 then
+ return GREATER
+ end
+ if not tmp56 and not tmp57 then
+ else
+ _raise(_Match, "mono-sequence.sml:454:29")
+ end
+ do
+ local tmp60 = tmp51({base2, i})
+ local tmp61 = tmp51({base_PRIME, j})
+ local exp = a({tmp60, tmp61})
+ if exp == "EQUAL" then
+ tmp55 = _Int_add(i, 1)
+ tmp54 = _Int_add(j, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ array1 = function(a)
+ local n = a[1]
+ local init = a[2]
+ if n < 0 or maxLen < n then
+ _raise(_Size, "mono-sequence.sml:470:27")
+ else
+ return tmp43({n, init})
+ end
+ end
+ tabulate2 = function(a)
+ local n = a[1]
+ local f = a[2]
+ if maxLen < n then
+ _raise(_Size, "mono-sequence.sml:475:27")
+ end
+ local tmp52 = tabulate(n, f)
+ return tmp44({n, tmp52})
+ end
+ sub3 = function(a)
+ local a1 = a[1]
+ local i = a[2]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length1(a1)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:482:22")
+ end
+ do
+ return tmp45({a1, i})
+ end
+ end
+ update2 = function(a)
+ local a1 = a[1]
+ local i = a[2]
+ local x = a[3]
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = length1(a1)
+ tmp52 = i < tmp53
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:486:28")
+ end
+ do
+ return tmp46({a1, i, x})
+ end
+ end
+ copy = function(a)
+ local src = a.src
+ local dst = a.dst
+ local di = a.di
+ local srcLen = length1(src)
+ local tmp52
+ do
+ if 0 <= di then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(di, srcLen)
+ local tmp54 = length1(dst)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:499:36")
+ end
+ do
+ local tmp53 = 0
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 >= srcLen then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({src, a1})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont1
+ end
+ end
+ end
+ copyVec = function(a)
+ local src = a.src
+ local dst = a.dst
+ local di = a.di
+ local srcLen = length2(src)
+ local tmp52
+ do
+ if 0 <= di then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(di, srcLen)
+ local tmp54 = length1(dst)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ ::cont::
+ if tmp52 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:513:39")
+ end
+ do
+ local tmp53 = 0
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 >= srcLen then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp51({src, a1})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont1
+ end
+ end
+ end
+ appi1 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp45({a1, a2})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app3 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local tmp53 = tmp45({a1, a2})
+ a(tmp53)
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modifyi = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local x = tmp45({a1, a2})
+ local y = a({a2, x})
+ tmp46({a1, a2, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modify = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return nil
+ end
+ local x = tmp45({a1, a2})
+ local y = a(x)
+ tmp46({a1, a2, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ foldli1 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length1(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri1 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length1(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({i, tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl2 = function(a)
+ return function(a1)
+ return function(a2)
+ local n = length1(a2)
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= n then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldr2 = function(a)
+ return function(a1)
+ return function(a2)
+ local tmp52, tmp53
+ do
+ local tmp54 = length1(a2)
+ tmp53, tmp52 = _Int_sub(tmp54, 1), a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp53, tmp52
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({a2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp53 = tmp54
+ tmp52 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi1 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp45({a1, a2})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return NONE
+ end
+ local x = tmp45({a1, a2})
+ local tmp53 = a(x)
+ if tmp53 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return false
+ end
+ local tmp53 = tmp45({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ return true
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all2 = function(a)
+ return function(a1)
+ local n = length1(a1)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= n then
+ return true
+ end
+ local tmp53 = tmp45({a1, a2})
+ local tmp54 = a(tmp53)
+ if tmp54 then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate1 = function(a)
+ return function(a1)
+ local xs = a1[1]
+ local ys = a1[2]
+ local xl = length1(xs)
+ local yl = length1(ys)
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ local tmp53 = xl <= a2
+ local tmp54 = yl <= a2
+ local tmp55
+ tmp55 = tmp53 and tmp54
+ if tmp55 then
+ return EQUAL
+ end
+ local tmp56
+ tmp56 = tmp53 and not tmp54
+ if tmp56 then
+ return LESS
+ end
+ if not tmp53 and tmp54 then
+ return GREATER
+ end
+ if not tmp53 and not tmp54 then
+ else
+ _raise(_Match, "mono-sequence.sml:621:49")
+ end
+ do
+ local tmp57 = tmp45({xs, a2})
+ local tmp58 = tmp45({ys, a2})
+ local exp = a({tmp57, tmp58})
+ if exp == "EQUAL" then
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ toList1 = function(a)
+ local tmp52 = foldr2(_COLON_COLON)
+ local tmp53 = tmp52(nil)
+ return tmp53(a)
+ end
+ vector1 = function(a)
+ local tmp52 = length1(a)
+ local tmp53
+ do
+ local tmp54 = foldr2(_COLON_COLON)
+ local tmp55 = tmp54(nil)
+ tmp53 = tmp55(a)
+ end
+ return tmp49({tmp52, tmp53})
+ end
+ fromVector = function(a)
+ local tmp52 = length2(a)
+ local tmp53
+ do
+ local tmp54 = foldr1(_COLON_COLON)
+ local tmp55 = tmp54(nil)
+ tmp53 = tmp55(a)
+ end
+ return tmp44({tmp52, tmp53})
+ end
+ length3 = function(tmp52)
+ return tmp52.length
+ end
+ sub4 = function(a)
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:645:44")
+ end
+ do
+ return tmp45({base2, _Int_add(start, i)})
+ end
+ end
+ update3 = function(a)
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local x = a[3]
+ if 0 <= i and i < length5 then
+ else
+ _raise(_Subscript, "mono-sequence.sml:649:50")
+ end
+ do
+ return tmp46({base2, _Int_add(start, i), x})
+ end
+ end
+ full1 = function(a)
+ local tmp52 = length1(a)
+ return {base = a, length = tmp52, start = 0}
+ end
+ slice = function(a)
+ if a[3].tag == "NONE" then
+ else
+ goto else1
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = length1(v)
+ if 0 <= i and i <= n then
+ return {base = v, length = _Int_sub(n, i), start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:655:33")
+ end
+ end
+ ::else1::
+ if a[3].tag == "SOME" then
+ else
+ _raise(_Match, "mono-sequence.sml:651:5")
+ end
+ do
+ local v = a[1]
+ local i = a[2]
+ local n = a[3].payload
+ local tmp52
+ do
+ if 0 <= i then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ if 0 <= n then
+ else
+ tmp52 = false
+ goto cont
+ end
+ do
+ local tmp53 = _Int_add(i, n)
+ local tmp54 = length1(v)
+ tmp52 = tmp53 <= tmp54
+ end
+ end
+ end
+ ::cont::
+ if tmp52 then
+ return {base = v, length = n, start = i}
+ else
+ _raise(_Subscript, "mono-sequence.sml:660:32")
+ end
+ end
+ end
+ subslice = function(a)
+ if a[3].tag == "NONE" then
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ if 0 <= i and i <= length5 then
+ local tmp52 = _Int_add(start, i)
+ return {base = base2, length = _Int_sub(length5, i), start = tmp52}
+ else
+ _raise(_Subscript, "mono-sequence.sml:664:55")
+ end
+ end
+ if a[3].tag == "SOME" then
+ local base2 = a[1].base
+ local start = a[1].start
+ local length5 = a[1].length
+ local i = a[2]
+ local n = a[3].payload
+ if 0 <= i and (0 <= n and _Int_add(i, n) <= length5) then
+ return {base = base2, length = n, start = _Int_add(start, i)}
+ else
+ _raise(_Subscript, "mono-sequence.sml:668:57")
+ end
+ else
+ _raise(_Match, "mono-sequence.sml:661:5")
+ end
+ end
+ base = function(a)
+ local b = a.base
+ local start = a.start
+ return {b, start, a.length}
+ end
+ copy1 = function(a)
+ local base2 = a.src.base
+ local start = a.src.start
+ local length5 = a.src.length
+ local dst = a.dst
+ local di = a.di
+ local tmp52
+ do
+ if di < 0 then
+ tmp52 = true
+ goto cont
+ end
+ local tmp53 = length1(dst)
+ tmp52 = tmp53 < _Int_add(di, length5)
+ end
+ ::cont::
+ if tmp52 then
+ _raise(_Subscript, "mono-sequence.sml:684:14")
+ end
+ if start >= di then
+ else
+ goto else1
+ end
+ do
+ local tmp53 = 0
+ ::cont2::
+ do
+ local a1 = tmp53
+ if a1 >= length5 then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_add(a1, 1)
+ goto cont2
+ end
+ end
+ ::else1::
+ local tmp53 = _Int_sub(length5, 1)
+ ::cont1::
+ do
+ local a1 = tmp53
+ if a1 < 0 then
+ return nil
+ end
+ local tmp54 = _Int_add(di, a1)
+ local tmp55 = tmp45({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp54, tmp55})
+ tmp53 = _Int_sub(a1, 1)
+ goto cont1
+ end
+ end
+ copyVec1 = function(a)
+ local base2, start, length5, dst, di, tmp52
+ do
+ base2 = a.src.base
+ start = a.src.start
+ length5 = a.src.length
+ dst = a.dst
+ di = a.di
+ if di < 0 then
+ _raise(_Subscript, "mono-sequence.sml:699:14")
+ end
+ local tmp53 = length1(dst)
+ if tmp53 < _Int_add(di, length5) then
+ _raise(_Subscript, "mono-sequence.sml:699:14")
+ end
+ tmp52 = 0
+ end
+ ::cont::
+ do
+ local a1 = tmp52
+ if a1 >= length5 then
+ return nil
+ end
+ local tmp53 = _Int_add(di, a1)
+ local tmp54 = tmp51({base2, _Int_add(start, a1)})
+ tmp46({dst, tmp53, tmp54})
+ tmp52 = _Int_add(a1, 1)
+ goto cont
+ end
+ end
+ isEmpty1 = function(a)
+ return a.length == 0
+ end
+ getItem = function(a)
+ local base2 = a.base
+ local start = a.start
+ local length5 = a.length
+ if length5 > 0 then
+ else
+ return NONE
+ end
+ do
+ local tmp52 = tmp45({base2, start})
+ local tmp53 = _Int_add(start, 1)
+ return {tag = "SOME", payload = {tmp52, {base = base2, length = _Int_sub(length5, 1), start = tmp53}}}
+ end
+ end
+ appi2 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = tmp45({base2, _Int_add(start, a2)})
+ a({a2, tmp53})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ app4 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local tmp54 = tmp45({base2, a2})
+ a(tmp54)
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modifyi1 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return nil
+ end
+ local tmp53 = _Int_add(start, a2)
+ local x = tmp45({base2, tmp53})
+ local y = a({a2, x})
+ tmp46({base2, tmp53, y})
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ modify1 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return nil
+ end
+ local x = tmp45({base2, a2})
+ local y = a(x)
+ tmp46({base2, a2, y})
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ foldli2 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local length5 = a2.length
+ local tmp52, tmp53 = 0, a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i >= length5 then
+ return acc
+ end
+ local tmp54 = _Int_add(i, 1)
+ local tmp55 = tmp45({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldri2 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(a2.length, 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < 0 then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({base2, _Int_add(start, i)})
+ local tmp56 = a({i, tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ foldl3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2, tmp52, tmp53, tmp54
+ do
+ base2 = a2.base
+ local start = a2.start
+ tmp52 = _Int_add(start, a2.length)
+ tmp54, tmp53 = start, a1
+ end
+ ::cont::
+ do
+ local i, acc = tmp54, tmp53
+ if i >= tmp52 then
+ return acc
+ end
+ local tmp55 = _Int_add(i, 1)
+ local tmp56 = tmp45({base2, i})
+ local tmp57 = a({tmp56, acc})
+ tmp54 = tmp55
+ tmp53 = tmp57
+ goto cont
+ end
+ end
+ end
+ end
+ foldr3 = function(a)
+ return function(a1)
+ return function(a2)
+ local base2 = a2.base
+ local start = a2.start
+ local tmp52, tmp53 = _Int_sub(_Int_add(start, a2.length), 1), a1
+ ::cont::
+ do
+ local i, acc = tmp52, tmp53
+ if i < start then
+ return acc
+ end
+ local tmp54 = _Int_sub(i, 1)
+ local tmp55 = tmp45({base2, i})
+ local tmp56 = a({tmp55, acc})
+ tmp52 = tmp54
+ tmp53 = tmp56
+ goto cont
+ end
+ end
+ end
+ end
+ findi2 = function(a)
+ return function(a1)
+ local base2 = a1.base
+ local start = a1.start
+ local length5 = a1.length
+ local tmp52 = 0
+ ::cont::
+ do
+ local a2 = tmp52
+ if a2 >= length5 then
+ return NONE
+ end
+ local x = tmp45({base2, _Int_add(start, a2)})
+ local tmp53 = a({a2, x})
+ if tmp53 then
+ return {tag = "SOME", payload = {a2, x}}
+ else
+ tmp52 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ find3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return NONE
+ end
+ local x = tmp45({base2, a2})
+ local tmp54 = a(x)
+ if tmp54 then
+ return {tag = "SOME", payload = x}
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ exists3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return false
+ end
+ local tmp54 = tmp45({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ return true
+ else
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ all3 = function(a)
+ return function(a1)
+ local base2, tmp52, tmp53
+ do
+ base2 = a1.base
+ local start = a1.start
+ tmp52 = _Int_add(start, a1.length)
+ tmp53 = start
+ end
+ ::cont::
+ do
+ local a2 = tmp53
+ if a2 >= tmp52 then
+ return true
+ end
+ local tmp54 = tmp45({base2, a2})
+ local tmp55 = a(tmp54)
+ if tmp55 then
+ tmp53 = _Int_add(a2, 1)
+ goto cont
+ else
+ return false
+ end
+ end
+ end
+ end
+ collate2 = function(a)
+ return function(a1)
+ local base2, base_PRIME, tmp52, tmp53, tmp54, tmp55
+ do
+ base2 = a1[1].base
+ local start = a1[1].start
+ local length5 = a1[1].length
+ base_PRIME = a1[2].base
+ local start_PRIME = a1[2].start
+ local length_PRIME = a1[2].length
+ tmp52 = _Int_add(start, length5)
+ tmp53 = _Int_add(start_PRIME, length_PRIME)
+ tmp55, tmp54 = start, start_PRIME
+ end
+ ::cont::
+ do
+ local i, j = tmp55, tmp54
+ local tmp56 = tmp52 <= i
+ local tmp57 = tmp53 <= j
+ local tmp58
+ tmp58 = tmp56 and tmp57
+ if tmp58 then
+ return EQUAL
+ end
+ local tmp59
+ tmp59 = tmp56 and not tmp57
+ if tmp59 then
+ return LESS
+ end
+ if not tmp56 and tmp57 then
+ return GREATER
+ end
+ if not tmp56 and not tmp57 then
+ else
+ _raise(_Match, "mono-sequence.sml:812:29")
+ end
+ do
+ local tmp60 = tmp45({base2, i})
+ local tmp61 = tmp45({base_PRIME, j})
+ local exp = a({tmp60, tmp61})
+ if exp == "EQUAL" then
+ tmp55 = _Int_add(i, 1)
+ tmp54 = _Int_add(j, 1)
+ goto cont
+ else
+ return exp
+ end
+ end
+ end
+ end
+ end
+ vector2 = function(a)
+ local tmp52 = a.length
+ local tmp53 = foldr3(_COLON_COLON)
+ local tmp54 = tmp53(nil)
+ local tmp55 = tmp54(a)
+ return tmp49({tmp52, tmp55})
+ end
+ UnsafeMonoVector = {sub = tmp51}
+ UnsafeMonoArray = {create = create, sub = tmp45, update = tmp46}
+ MonoVectorSlice = {all = all4, app = app5, appi = appi3, base = base1, collate = collate3, concat = concat2, exists = exists4, find = find4, findi = findi3, foldl = foldl4, foldli = foldli3, foldr = foldr4, foldri = foldri3, full = full2, getItem = getItem1, isEmpty = isEmpty2, length = length4, map = map2, mapi = mapi1, slice = slice1, sub = sub5, subslice = subslice1, vector = vector}
+ end
+ local MonoVector = {all = all1, app = app2, append = append, appi = appi, collate = collate, concat = tmp47, exists = exists1, find = find1, findi = findi, foldl = foldl1, foldli = foldli, foldr = foldr1, foldri = foldri, fromList = fromList1, length = length2, map = map1, mapi = mapi, maxLen = maxLen1, prepend = prepend, sub = sub2, tabulate = tabulate1, toList = toList, update = update1}
+ local MonoArraySlice = {all = all3, app = app4, appi = appi2, base = base, collate = collate2, copy = copy1, copyVec = copyVec1, exists = exists3, find = find3, findi = findi2, foldl = foldl3, foldli = foldli2, foldr = foldr3, foldri = foldri2, full = full1, getItem = getItem, isEmpty = isEmpty1, length = length3, modify = modify1, modifyi = modifyi1, slice = slice, sub = sub4, subslice = subslice, update = update3, vector = vector2}
+ return {_MonoArray = {all = all2, app = app3, appi = appi1, array = array1, collate = collate1, copy = copy, copyVec = copyVec, exists = exists2, find = find2, findi = findi1, foldl = foldl2, foldli = foldli1, foldr = foldr2, foldri = foldri1, fromList = fromList, fromVector = fromVector, length = length1, maxLen = maxLen, modify = modify, modifyi = modifyi, sub = sub3, tabulate = tabulate2, toList = toList1, toVector = vector1, update = update2, vector = vector1}, _MonoArraySlice = MonoArraySlice, _MonoVector = MonoVector, _MonoVectorSlice = MonoVectorSlice, _UnsafeMonoArray = UnsafeMonoArray, _UnsafeMonoVector = UnsafeMonoVector}
+ end
+ local unsafeFromListN = function(a)
+ return implode(a[2])
+ end
+ local unsafeFromListRevN = function(a)
+ return implodeRev(a[2])
+ end
+ local sliceToVector = function(a)
+ local base = a.base
+ local start = a.start
+ return substring(base, start, a.length)
+ end
+ local unsafeCreateWithZero = function(a)
+ return _Array_array(a, 0)
+ end
+ local Base = MonoSequence(_VectorOrArray_fromList, length, math_maxinteger, array, unsafeCreateWithZero, function(a)
+ return _VectorOrArray_fromList(a[2])
+ end, sub, update, concat, implode, size, math_maxinteger, sliceToVector, sliceToVector, unsafeFromListN, unsafeFromListRevN, sub1)
+ local CharVector = Base._MonoVector
+ local CharVectorSlice = Base._MonoVectorSlice
+ CharArray = Base._MonoArray
+ local CharArraySlice = Base._MonoArraySlice
+ local UnsafeCharVector = Base._UnsafeMonoVector
+ local sub2 = CharVectorSlice.sub
+ extract1 = CharVectorSlice.slice
+ full = CharVectorSlice.full
+ string1 = CharVectorSlice.vector
+ isEmpty = CharVectorSlice.isEmpty
+ getc = CharVectorSlice.getItem
+ concat1 = CharVectorSlice.concat
+ splitl = function(a)
+ return function(a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = 0
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 >= length1 then
+ return {a1, {base = base, length = 0, start = _Int_add(start, a2)}}
+ end
+ local tmp44 = sub2({a1, a2})
+ local tmp45 = a(tmp44)
+ if tmp45 then
+ tmp43 = _Int_add(a2, 1)
+ goto cont
+ else
+ local tmp46 = {base = base, length = a2, start = start}
+ return {tmp46, {base = base, length = _Int_sub(length1, a2), start = _Int_add(start, a2)}}
+ end
+ end
+ end
+ end
+ splitr = function(a, a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = _Int_sub(length1, 1)
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 < 0 then
+ return {{base = base, length = 0, start = start}, a1}
+ end
+ local tmp44 = sub2({a1, a2})
+ local tmp45 = a(tmp44)
+ if tmp45 then
+ tmp43 = _Int_sub(a2, 1)
+ goto cont
+ else
+ local tmp46 = _Int_add(a2, 1)
+ local tmp47 = {base = base, length = tmp46, start = start}
+ local tmp48 = _Int_add(start, tmp46)
+ return {tmp47, {base = base, length = _Int_sub(length1, tmp46), start = tmp48}}
+ end
+ end
+ end
+ tokens = function(a)
+ return function(a1)
+ local base, tmp43, tmp44, tmp45, tmp46
+ do
+ base = a1.base
+ local start = a1.start
+ tmp43 = _Int_add(start, a1.length)
+ tmp46, tmp45, tmp44 = nil, start, start
+ end
+ ::cont::
+ do
+ local revTokens, s, i = tmp46, tmp45, tmp44
+ if i >= tmp43 then
+ else
+ goto else1
+ end
+ do
+ if s == i then
+ else
+ return revAppend({{base = base, length = _Int_sub(i, s), start = s}, revTokens}, nil)
+ end
+ do
+ return revAppend(revTokens, nil)
+ end
+ end
+ ::else1::
+ local tmp47 = sub1({base, i})
+ local tmp48 = a(tmp47)
+ if tmp48 then
+ local tmp49 = _Int_add(i, 1)
+ if s == i then
+ tmp46 = revTokens
+ tmp45 = tmp49
+ tmp44 = tmp49
+ goto cont
+ else
+ tmp46 = {{base = base, length = _Int_sub(i, s), start = s}, revTokens}
+ tmp45 = tmp49
+ tmp44 = tmp49
+ goto cont
+ end
+ else
+ tmp46 = revTokens
+ tmp45 = s
+ tmp44 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ tmp26 = UnsafeCharVector.sub
+ tmp27 = CharVectorSlice.concat
+ tmp28 = CharVectorSlice.full
+ tmp29 = CharVectorSlice.length
+ tmp30 = CharVectorSlice.slice
+ tmp31 = CharVectorSlice.vector
+ tmp32 = CharVector.all
+ tmp33 = CharVector.appi
+ tmp34 = CharVector.exists
+ tmp35 = CharVector.fromList
+ tmp36 = CharVector.length
+ tmp37 = CharArraySlice.base
+ tmp38 = CharArraySlice.copyVec
+ tmp39 = CharArraySlice.full
+ tmp40 = CharArraySlice.length
+ tmp41 = CharArraySlice.slice
+ tmp42 = CharArraySlice.vector
end
---[[
- Copyright 2016-2023 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.6"
-
--- 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 safename = require "texrunner.safename"
-local extract_bibtex_from_aux_file = require "texrunner.auxfile".extract_bibtex_from_aux_file
-local handle_cluttex_options = require "texrunner.handleoption".handle_cluttex_options
-local checkdriver = require "texrunner.checkdriver".checkdriver
-
-os.setlocale("", "ctype") -- Workaround for recent Universal CRT
-
--- 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")
+local _L = {}
+do
+ _L[1] = CharArray.array
+ _L[2] = CharArray.copyVec
+ _L[3] = function(getc1, strm)
+ local tmp43, tmp44 = getc1, strm
+ ::cont::
+ do
+ local getc2, strm1 = tmp43, tmp44
+ local exp = getc2(strm1)
+ if exp.tag == "NONE" then
+ return strm1
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "scan-num-utils.sml:2:42")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ local tmp45 = isSpace(c)
+ if tmp45 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ goto cont
+ else
+ return strm1
+ end
+ end
+ end
end
- return pathutil.join(tmpdir, 'latex-build-' .. hash)
+ _L[4] = function(a)
+ return a == 48 or a == 49
+ end
+ _L[5] = function(a)
+ return 48 <= a and a <= 55
+ end
+ _L[6] = function(a)
+ if 48 <= a and a <= 57 then
+ return _Int_sub(a, 48)
+ elseif 97 <= a and a <= 102 then
+ return _Int_add(_Int_sub(a, 97), 10)
+ else
+ return _Int_add(_Int_sub(a, 65), 10)
+ end
+ end
+ _L[7] = function(getc1, strm)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" and exp.payload[1] == 43 then
+ return {false, exp.payload[2]}
+ elseif exp.tag == "SOME" and exp.payload[1] == 126 then
+ return {true, exp.payload[2]}
+ elseif exp.tag == "SOME" and exp.payload[1] == 45 then
+ return {true, exp.payload[2]}
+ else
+ return {false, strm}
+ end
+ end
+ local scanSubstring = function(getc1, strm, s)
+ local tmp43, tmp44, tmp45 = getc1, strm, s
+ ::cont::
+ do
+ local getc2, strm1, s1 = tmp43, tmp44, tmp45
+ local exp = getc(s1)
+ if exp.tag == "NONE" then
+ return {tag = "SOME", payload = strm1}
+ end
+ if exp.tag == "SOME" then
+ else
+ _raise(_Match, "scan-num.sml:341:37")
+ end
+ do
+ local c = exp.payload[1]
+ local s_PRIME = exp.payload[2]
+ local exp1 = getc2(strm1)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:343:57")
+ end
+ do
+ local strm_PRIME, tmp46
+ do
+ local c_PRIME = exp1.payload[1]
+ strm_PRIME = exp1.payload[2]
+ do
+ if c == c_PRIME then
+ tmp46 = true
+ goto cont1
+ end
+ local tmp47
+ tmp47 = 65 <= c and c <= 90 or 97 <= c and c <= 122
+ if tmp47 then
+ else
+ tmp46 = false
+ goto cont1
+ end
+ do
+ local tmp48
+ tmp48 = 65 <= c_PRIME and c_PRIME <= 90 or 97 <= c_PRIME and c_PRIME <= 122
+ if tmp48 then
+ else
+ tmp46 = false
+ goto cont1
+ end
+ do
+ local tmp49 = toUpper(c)
+ local tmp50 = toUpper(c_PRIME)
+ tmp46 = tmp49 == tmp50
+ end
+ end
+ end
+ end
+ ::cont1::
+ if tmp46 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ tmp45 = s_PRIME
+ goto cont
+ else
+ return NONE
+ end
+ end
+ end
+ end
+ end
+ local scanZeroOrMoreDigits = function(getc1, strm, revAcc)
+ local tmp43, tmp44, tmp45 = getc1, strm, revAcc
+ ::cont::
+ do
+ local getc2, strm1, revAcc1 = tmp43, tmp44, tmp45
+ local exp = getc2(strm1)
+ if exp.tag == "SOME" then
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ tmp43 = getc2
+ tmp44 = strm_PRIME
+ tmp45 = {c, revAcc1}
+ goto cont
+ else
+ return {revAcc1, strm1}
+ end
+ elseif exp.tag == "NONE" then
+ return {revAcc1, strm1}
+ else
+ _raise(_Match, "scan-num.sml:349:49")
+ end
+ end
+ end
+ local scanOneOrMoreDigits = function(getc1, strm, revAcc)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:355:48")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local tmp43 = scanZeroOrMoreDigits(getc1, strm_PRIME, {c, revAcc})
+ return {tag = "SOME", payload = tmp43}
+ end
+ end
+ end
+ local scanOptExpPart = function(getc1, strm, revAcc)
+ local exp = getc1(strm)
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return {revAcc, strm}
+ else
+ _raise(_Match, "scan-num.sml:367:43")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 101 or c == 69 then
+ else
+ return {revAcc, strm}
+ end
+ do
+ local exp1 = _L[7](getc1, strm_PRIME)
+ local isNegative = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ local tmp43
+ if isNegative then
+ tmp43 = {45, {101, revAcc}}
+ else
+ tmp43 = {101, revAcc}
+ end
+ local exp2 = scanOneOrMoreDigits(getc1, strm_PRIME_PRIME, tmp43)
+ if exp2.tag == "SOME" then
+ local revAcc1 = exp2.payload[1]
+ return {revAcc1, exp2.payload[2]}
+ elseif exp2.tag == "NONE" then
+ return {revAcc, strm}
+ else
+ _raise(_Match, "scan-num.sml:370:73")
+ end
+ end
+ end
+ end
+ _L[8] = function(a)
+ return function(a1)
+ local isNegative, signPart, exp
+ do
+ local strm = _L[3](a, a1)
+ local exp1 = _L[7](a, strm)
+ isNegative = exp1[1]
+ local strm1 = exp1[2]
+ if isNegative then
+ signPart = {45, nil}
+ else
+ signPart = nil
+ end
+ exp = a(strm1)
+ if exp.tag == "SOME" and exp.payload[1] == 46 then
+ else
+ goto else1
+ end
+ do
+ local exp2 = scanOneOrMoreDigits(a, exp.payload[2], {46, {48, signPart}})
+ if exp2.tag == "SOME" then
+ elseif exp2.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:385:52")
+ end
+ do
+ local exp3 = scanOptExpPart(a, exp2.payload[2], exp2.payload[1])
+ local revAcc = exp3[1]
+ local strm_PRIME_PRIME_PRIME = exp3[2]
+ local tmp43 = implodeRev(revAcc)
+ return {tag = "SOME", payload = {tmp4(tmp43) * 1.0, strm_PRIME_PRIME_PRIME}}
+ end
+ end
+ end
+ ::else1::
+ if exp.tag == "SOME" then
+ elseif exp.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:384:25")
+ end
+ do
+ local c = exp.payload[1]
+ local strm_PRIME = exp.payload[2]
+ if c == 105 or c == 73 then
+ else
+ goto else2
+ end
+ do
+ local tmp43 = full("nf")
+ local exp1 = scanSubstring(a, strm_PRIME, tmp43)
+ if exp1.tag == "SOME" then
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:393:52")
+ end
+ do
+ local strm_PRIME_PRIME = exp1.payload
+ local inf
+ if isNegative then
+ inf = tmp25
+ else
+ inf = tmp11
+ end
+ local tmp44 = full("inity")
+ local exp2 = scanSubstring(a, strm_PRIME_PRIME, tmp44)
+ if exp2.tag == "SOME" then
+ return {tag = "SOME", payload = {inf, exp2.payload}}
+ elseif exp2.tag == "NONE" then
+ return {tag = "SOME", payload = {inf, strm_PRIME_PRIME}}
+ else
+ _raise(_Match, "scan-num.sml:395:74")
+ end
+ end
+ end
+ ::else2::
+ if c == 110 or c == 78 then
+ else
+ goto else3
+ end
+ do
+ local tmp43 = full("an")
+ local exp1 = scanSubstring(a, strm_PRIME, tmp43)
+ if exp1.tag == "SOME" then
+ local strm_PRIME_PRIME = exp1.payload
+ return {tag = "SOME", payload = {0.0 / 0.0, strm_PRIME_PRIME}}
+ elseif exp1.tag == "NONE" then
+ return NONE
+ else
+ _raise(_Match, "scan-num.sml:402:52")
+ end
+ end
+ ::else3::
+ if 48 <= c and c <= 57 then
+ else
+ return NONE
+ end
+ do
+ local strm_PRIME_PRIME_PRIME, revAcc
+ do
+ local exp1 = scanZeroOrMoreDigits(a, strm_PRIME, {c, signPart})
+ local revAcc1 = exp1[1]
+ local strm_PRIME_PRIME = exp1[2]
+ do
+ local exp2 = a(strm_PRIME_PRIME)
+ if exp2.tag == "SOME" and exp2.payload[1] == 46 then
+ else
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME
+ revAcc = revAcc1
+ goto cont
+ end
+ do
+ local exp3 = scanOneOrMoreDigits(a, exp2.payload[2], {46, revAcc1})
+ if exp3.tag == "SOME" then
+ strm_PRIME_PRIME_PRIME = exp3.payload[2]
+ revAcc = exp3.payload[1]
+ elseif exp3.tag == "NONE" then
+ strm_PRIME_PRIME_PRIME = strm_PRIME_PRIME
+ revAcc = revAcc1
+ else
+ _raise(_Match, "scan-num.sml:362:71")
+ end
+ end
+ end
+ end
+ ::cont::
+ local exp1 = scanOptExpPart(a, strm_PRIME_PRIME_PRIME, revAcc)
+ local revAcc1 = exp1[1]
+ local strm_PRIME_PRIME_PRIME_PRIME = exp1[2]
+ local tmp43 = implodeRev(revAcc1)
+ return {tag = "SOME", payload = {tmp4(tmp43) * 1.0, strm_PRIME_PRIME_PRIME_PRIME}}
+ end
+ end
+ end
+ end
+ _L[9] = {"Io"}
+ _L[10] = {tag = {"BlockingNotSupported"}}
+ _L[11] = {tag = {"NonblockingNotSupported"}}
+ _L[12] = {tag = {"RandomAccessNotSupported"}}
+ _L[13] = {tag = {"ClosedStream"}}
+ _L[14] = "NO_BUF"
+ _L[15] = "LINE_BUF"
+ _L[16] = "BLOCK_BUF"
+ _L[17] = function(tmp43, tmp44)
+ return tmp43 == "NO_BUF" and tmp44 == "NO_BUF" or (tmp43 == "LINE_BUF" and tmp44 == "LINE_BUF" or tmp43 == "BLOCK_BUF" and tmp44 == "BLOCK_BUF")
+ end
+ _L[18] = function(base, length1, start, i)
+ if 0 <= i and i < length1 then
+ return base[_Int_add(start, i) + 1]
+ else
+ _raise(_Subscript, "vector-slice.sml:39:44")
+ end
+ end
+ _L[19] = function(a, i, tmp43)
+ if tmp43.tag == "NONE" then
+ if 0 <= i and i <= a.n then
+ return {base = a, length = _Int_sub(a.n, i), start = i}
+ else
+ _raise(_Subscript, "vector-slice.sml:44:30")
+ end
+ end
+ if tmp43.tag == "SOME" then
+ local n = tmp43.payload
+ local tmp44
+ if 0 <= i then
+ if 0 <= n then
+ local tmp45 = _Int_add(i, n)
+ tmp44 = tmp45 <= a.n
+ else
+ tmp44 = false
+ end
+ else
+ tmp44 = false
+ end
+ if tmp44 then
+ return {base = a, length = n, start = i}
+ else
+ _raise(_Subscript, "vector-slice.sml:48:32")
+ end
+ else
+ _raise(_Match, "vector-slice.sml:41:5")
+ end
+ end
+ _L[20] = function(a)
+ return function(a1)
+ local base = a1.base
+ local start = a1.start
+ local length1 = a1.length
+ local tmp43 = 0
+ ::cont::
+ do
+ local a2 = tmp43
+ if a2 >= length1 then
+ return false
+ end
+ local tmp44 = a(base[_Int_add(start, a2) + 1])
+ if tmp44 then
+ return true
+ else
+ tmp43 = _Int_add(a2, 1)
+ goto cont
+ end
+ end
+ end
+ end
+ _L[21] = {tag = "ZERO"}
+ local tmp43 = 0x1 << tmp24 // 2
+ local tmp44
+ if tmp43 < 0x0 then
+ _raise(_Overflow, "word-1.sml:52:39")
+ else
+ tmp44 = tmp43
+ end
+ _L[22] = function(a)
+ if a == 0 then
+ return _L[21]
+ end
+ if a > 0 then
+ else
+ goto else1
+ end
+ do
+ local function go(a1)
+ if a1 == 0 then
+ return nil
+ end
+ local tmp45 = _Int_div(a1, tmp44)
+ local tmp46 = _Int_mod(a1, tmp44)
+ local tmp47 = _Int_div(tmp45, tmp44)
+ local tmp48 = tmp46 + _Int_mod(tmp45, tmp44) * tmp43
+ local tmp49 = go(tmp47)
+ return {tmp48, tmp49}
+ end
+ local tmp45 = go(a)
+ return {tag = "POSITIVE", payload = _VectorOrArray_fromList(tmp45)}
+ end
+ ::else1::
+ local function go(a1)
+ if a1 == 0 then
+ return nil
+ end
+ local q1 = quot(a1, tmp44)
+ local r1 = rem(a1, tmp44)
+ local q2 = quot(q1, tmp44)
+ local r2 = rem(q1, tmp44)
+ local tmp45 = _Int_negate(r1)
+ local tmp46 = _Int_negate(r2)
+ local tmp47 = tmp45 + tmp46 * tmp43
+ local tmp48 = go(q2)
+ return {tmp47, tmp48}
+ end
+ local tmp45 = go(a)
+ return {tag = "NEGATIVE", payload = _VectorOrArray_fromList(tmp45)}
+ end
+ local add2 = function(x, y)
+ local tmp45 = x + y
+ if math_ult(tmp45, x) then
+ return {hi = 0x1, lo = tmp45}
+ else
+ return {hi = 0x0, lo = tmp45}
+ end
+ end
+ local add3 = function(x, y, z)
+ local exp = add2(x, y)
+ local lo1 = exp.lo
+ local hi1 = exp.hi
+ local exp1 = add2(lo1, z)
+ local lo2 = exp1.lo
+ return {hi = hi1 + exp1.hi, lo = lo2}
+ end
+ local tmp45 = tmp24 >> 1
+ local tmp46 = (0x1 << tmp45) - 0x1
+ _L[23] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local exp = compare({tmp47, words_PRIME.n})
+ if exp == "EQUAL" then
+ local tmp48 = _Int_sub(tmp47, 1)
+ ::cont::
+ do
+ local a = tmp48
+ if a < 0 then
+ return EQUAL
+ end
+ local tmp49 = words[a + 1]
+ local tmp50 = words_PRIME[a + 1]
+ local exp1
+ if tmp49 == tmp50 then
+ exp1 = EQUAL
+ elseif math_ult(tmp49, tmp50) then
+ exp1 = LESS
+ else
+ exp1 = GREATER
+ end
+ if exp1 == "EQUAL" then
+ tmp48 = _Int_sub(a, 1)
+ goto cont
+ else
+ return exp1
+ end
+ end
+ else
+ return exp
+ end
+ end
+ _L[24] = function(a)
+ local length1
+ do
+ local tmp47 = a.n
+ ::cont::
+ do
+ local a1 = tmp47
+ local tmp48 = _Int_sub(a1, 1)
+ if tmp48 < 0 then
+ length1 = a1
+ elseif a[tmp48 + 1] ~= 0x0 then
+ length1 = a1
+ else
+ tmp47 = tmp48
+ goto cont
+ end
+ end
+ end
+ if 0 <= length1 and length1 <= a.n then
+ else
+ _raise(_Subscript, "array-slice.sml:52:32")
+ end
+ do
+ return _VectorOrArray_tabulate({length1, function(i)
+ return a[i + 1]
+ end})
+ end
+ end
+ _L[25] = function(words, words_PRIME)
+ local tmp47, tmp48, tmp49, tmp50, tmp51, tmp52
+ do
+ tmp47 = words.n
+ tmp48 = words_PRIME.n
+ local tmp53
+ if tmp47 < tmp48 then
+ tmp53 = tmp48
+ else
+ tmp53 = tmp47
+ end
+ tmp49 = _Int_add(tmp53, 1)
+ tmp50 = _Array_array(tmp49, 0x0)
+ tmp52, tmp51 = 0x0, 0
+ end
+ ::cont::
+ do
+ local carry, i = tmp52, tmp51
+ if i == tmp49 then
+ else
+ goto else1
+ end
+ do
+ return _L[24](tmp50)
+ end
+ ::else1::
+ local w
+ if i < tmp47 then
+ w = words[i + 1]
+ else
+ w = 0x0
+ end
+ local w_PRIME
+ if i < tmp48 then
+ w_PRIME = words_PRIME[i + 1]
+ else
+ w_PRIME = 0x0
+ end
+ local exp = add3(w, w_PRIME, carry)
+ local x = exp.lo
+ local carry1 = exp.hi
+ tmp50[i + 1] = x
+ tmp52 = carry1
+ tmp51 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ _L[26] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local tmp48 = words_PRIME.n
+ local tmp49 = _Array_array(tmp47, 0x0)
+ local tmp50, tmp51 = 0x0, 0
+ ::cont::
+ do
+ local carry, i = tmp50, tmp51
+ if i == tmp47 then
+ else
+ goto else1
+ end
+ do
+ if carry == 0x0 then
+ else
+ goto else2
+ end
+ do
+ return _L[24](tmp49)
+ end
+ ::else2::
+ local tmp52 = _Fail("subAbs: carry not zero")
+ _raise(tmp52, "int-inf.sml:276:77")
+ end
+ ::else1::
+ local tmp52 = words[i + 1]
+ local w_PRIME
+ if i < tmp48 then
+ w_PRIME = words_PRIME[i + 1]
+ else
+ w_PRIME = 0x0
+ end
+ local carry1, lo
+ if math_ult(tmp52, w_PRIME) then
+ lo = tmp52 - w_PRIME - carry
+ carry1 = 0x1
+ elseif math_ult(w_PRIME, tmp52) then
+ lo = tmp52 - w_PRIME - carry
+ carry1 = 0x0
+ elseif carry == 0x0 then
+ lo = 0x0
+ carry1 = 0x0
+ else
+ lo = - carry
+ carry1 = 0x1
+ end
+ tmp49[i + 1] = lo
+ tmp50 = carry1
+ tmp51 = _Int_add(i, 1)
+ goto cont
+ end
+ end
+ _L[27] = function(words, words_PRIME)
+ local tmp47 = words.n
+ local tmp48 = words_PRIME.n
+ local tmp49 = _Array_array(_Int_add(tmp47, tmp48), 0x0)
+ local tmp50 = 0
+ ::cont::
+ do
+ local a = tmp50
+ if a >= tmp48 then
+ else
+ goto else1
+ end
+ do
+ return _L[24](tmp49)
+ end
+ ::else1::
+ local tmp51 = words_PRIME[a + 1]
+ local tmp52, tmp53 = 0, 0x0
+ ::cont1::
+ do
+ local k, i, lo, hi
+ do
+ i, k = tmp52, tmp53
+ if i >= tmp47 then
+ tmp49[_Int_add(i, a) + 1] = k
+ tmp50 = _Int_add(a, 1)
+ goto cont
+ end
+ local tmp54 = words[i + 1]
+ do
+ if tmp54 == 0x0 then
+ lo = 0x0
+ hi = 0x0
+ goto cont2
+ end
+ if tmp51 == 0x0 then
+ lo = 0x0
+ hi = 0x0
+ goto cont2
+ end
+ local tmp55 = tmp54 >> tmp45
+ local tmp56 = tmp54 & tmp46
+ local tmp57 = tmp51 >> tmp45
+ local tmp58 = tmp51 & tmp46
+ local tmp59 = tmp56 * tmp58
+ local tmp60 = tmp55 * tmp58
+ local tmp61 = tmp60 << tmp45
+ local tmp62 = tmp60 >> tmp45
+ local tmp63 = tmp56 * tmp57
+ local tmp64 = tmp63 << tmp45
+ local tmp65 = tmp63 >> tmp45
+ local tmp66 = tmp55 * tmp57
+ local exp = add3(tmp59, tmp61, tmp64)
+ local lo1 = exp.lo
+ local hi4 = exp.hi
+ lo = lo1
+ hi = tmp62 + tmp65 + tmp66 + hi4
+ end
+ end
+ ::cont2::
+ local exp = add3(lo, tmp49[_Int_add(i, a) + 1], k)
+ local lo1 = exp.lo
+ local hi_PRIME = exp.hi
+ tmp49[_Int_add(i, a) + 1] = lo1
+ local tmp54 = _Int_add(i, 1)
+ tmp52 = tmp54
+ tmp53 = hi + hi_PRIME
+ goto cont1
+ end
+ end
+ end
end
-
-local inputfile, engine, options = handle_cluttex_options(arg)
-
-local jobname_for_output
-if options.jobname == nil then
- local basename = pathutil.basename(pathutil.trimext(inputfile))
- options.jobname = safename.escapejobname(basename)
- jobname_for_output = basename
-else
- jobname_for_output = options.jobname
+local add, mul, log2Word, LShiftAbs, scan, tmp43
+do
+ add = function(tmp44, y)
+ if tmp44.tag == "ZERO" then
+ return y
+ end
+ if y.tag == "ZERO" then
+ return tmp44
+ end
+ if tmp44.tag == "POSITIVE" and y.tag == "POSITIVE" then
+ else
+ goto else1
+ end
+ do
+ local words = tmp44.payload
+ local tmp45 = _L[25](words, y.payload)
+ return {tag = "POSITIVE", payload = tmp45}
+ end
+ ::else1::
+ if tmp44.tag == "POSITIVE" and y.tag == "NEGATIVE" then
+ else
+ goto else2
+ end
+ do
+ local words = tmp44.payload
+ local words_PRIME = y.payload
+ local exp = _L[23](words, words_PRIME)
+ if exp == "LESS" then
+ else
+ goto else4
+ end
+ do
+ local tmp45 = _L[26](words_PRIME, words)
+ return {tag = "NEGATIVE", payload = tmp45}
+ end
+ ::else4::
+ if exp == "GREATER" then
+ elseif exp == "EQUAL" then
+ return _L[21]
+ else
+ _raise(_Match, "int-inf.sml:347:46")
@@ Diff output truncated at 1234567 characters. @@
More information about the tex-live-commits
mailing list.