#!/usr/bin/env texlua

-----------------------------------------------------------------------
--         FILE:  runtexfile.lua
--  DESCRIPTION:  run a latex document with special steps
-- REQUIREMENTS:  texlua
--       AUTHOR:  Herbert Voß
--      LICENSE:  LPPL 1.3
--
-- %% $Id: runtexfile.lua 8 2025-10-08 07:43:47Z herbert $
-----------------------------------------------------------------------
        runtexfile = runtexfile or { }
 local version = 0.06
runtexfile.version = version

--[[doc--

runtexfile(1)

This file is provided under the terms of the LPPL v1.3 or
later as printed in full text in the manual (runtexfile.pdf).

\url{https://ctan.org/license/lppl1.3}.

Report bugs to

    \url{https://gitlab.com/hvoss49/runtexfile}.

--doc]]--

kpse.set_program_name("texlua")

local f = kpse.find_file("lualibs.lua")
--print ("filename "..f)

require("lualibs")  -- all part of LuaTeX


local function isInArray(value,array)
  for _,v in pairs(array) do
    if v == value then
      return true
    end
  end
  return false
end

args = {}
for i=1, #arg do
   args[#args+1] = arg[i]
--   print(arg[i])
end

local verbose = isInArray("-V",args) or isInArray("--verbose",args)
local usefilename = isInArray("-f",args) or isInArray("--usefilename",args)

local function flog(s)
  if verbose then tmpfile:write(s.."\n") end
end

if verbose then
  tmpfile = io.open("runtexfile.log","w")
  tmpfile:write("Start logfile (verbose)\n")
end

if isInArray("-v",args) or isInArray("--version",args) then
  print("runtexfile version "..runtexfile.version)
  os.exit()
end

if isInArray("-h",args) or isInArray("--help",args) then
  print([[
  parameter handling
    -h,--help
    -V,--verbose
    -v,--version
    <file> (string)  tex file name with or without extension]])
  os.exit()
end

local luaVersion = _VERSION
if verbose then
  flog("Check Lua version: "..luaVersion)
end
if (luaVersion < "Lua 5.3") then
  print("=========================================")
  print("Sorry. but we need at least LuaTeX 1.09")
  print("Leaving program runtexfile")
  print("=========================================")
  os.exit()
end

print("runtexfile version "..runtexfile.version)
local current_dir = "."

--[[
current_dir = os.getenv("pwd") or io.popen("cd"):read()
print("Run wrapperscript in directory "..current_dir)
flog("Run wrapperscript in directory "..current_dir)
]]

local commands = {"lualatex", "luatex", "luahbtex", "latex", "pdflatex", "xelatex", "xetex" }

local function removeTeXFileExtension(fname) -- -- from the lines in the TeX file
    return fname:gsub("%.tex", "")
end

local function getFileName(s) -- from the commands in the TeX file
--   get different file name: <command< ... <filename>
    local r = s:match "(%b<>)$"
    return r and r:sub(2,-2)
--    return string.match(s, "<([^<>]-)>%s*$")
end

local LTXfile = removeTeXFileExtension(args[#args])
local mainLTXfile = LTXfile
print("Main file: "..mainLTXfile)
flog("Main file: "..mainLTXfile)

local specialFileName

file = io.open(LTXfile,"r")
if not file then
  file = io.open(LTXfile..".tex","r")
  if not file then
    print("Fatal error: no file "..LTXfile.." or "..LTXfile..".tex")
    print("I will exit ...")
    flog("Fatal error: no file "..LTXfile.." or "..LTXfile..".tex")
    if verbose then
      tmpfile:close()
      os.exit()
    end
  end
end


local step = 1
local saveLTXfile = LTXfile
local commandLineFound = false
local para = ""

for line in file:lines() do
  if line ~= "" then
    words = {}
    flog(step..": "..line)
    for word in line:gmatch("%S+") do table.insert(words, word) end
    if words[1] == "%!" and words[2] == "HV" then
      commandLineFound = true
      specialFileName = getFileName(line)
--      print(step..": Zeile:"..line)
      if specialFileName then
         flog("Use special filename: "..specialFileName)
         specialFileName = specialFileName:gsub("!!file!!",mainLTXfile)
         flog("geändert zu filename: "..specialFileName)
      else
         flog("Kein specialFileName")
      end
      command = words[3]
      if isInArray(command,commands) then 
        para = "--interaction=nonstopmode"   -- kind of TeX run
      else
        para = ""                            -- something else
      end
      flog("Initial parameter: "..para)
      if #words > 3 then
        if specialFileName then
          noPara = #words - 1
        else 
          noPara = #words
        end
        for i = 4,noPara do para = para .. " " .. words[i] end
      end
      flog("Scanned parameter: "..para)
      if specialFileName then LTXfile = specialFileName end
      flog("Real filename: "..LTXfile)
      flog("Will run: ".. command.." "..para.." "..LTXfile)
      flog("and log into file "..current_dir.."/runtexfile-"..step..".log")
      print("running: " .. command.." "..para.." "..LTXfile)
      --os.execute(command.." "..para.." "..LTXfile.." > "..current_dir.."/runtexfile-"..step..".log") 
      local handle = io.popen(command.." "..para.." "..LTXfile.." > "..current_dir.."/runtexfile-"..step..".log")
      local result = handle:read("*a")
      handle:close()
      if result ~= "" then print("cmd output: " .. result) end
      logfile = io.open(current_dir.."/runtexfile-"..step..".log","r")
      if not logfile then
        for line in logfile:lines() do
          if string.find(line, "! LaTeX Error:") > 0 then
            print("There is at least one error!")
          end
        end 
      end    
    else
      break
    end
    LTXfile = saveLTXfile
    step = step + 1
  end
end
    
if commandLineFound == false then
  print("No command line with %! HV <command> defined! running: " .. commands[1])
--  os.execute(commands[1].." "..para.." "..LTXfile.." > "..current_dir.."/runtexfile-"..step..".log") 
  local handle = io.popen(commands[1].." "..para.." "..LTXfile.." > "..current_dir.."/runtexfile-"..step..".log")
  local result = handle:read("*a")
  handle:close()
  if result ~= "" then print("cmd output: " .. result) end
  logfile = io.open(current_dir.."/runtexfile-"..step..".log","r")
  if not logfile then
    for line in logfile:lines() do
      if string.find(line, "! LaTeX Error:") > 0 then
        print("There is at least one error!")
      end
    end 
  end    
end
file:close()
if verbose then 
  tmpfile:write("Close logfile (verbose)\n")
  tmpfile:close() 
end