From f60666a724022ac23394f336e0f9190349e689de Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Sat, 6 Sep 2014 16:15:03 +0200
Subject: 2014-09-06 15:43:00

---
 scripts/context/lua/mtx-context.lua | 51 +++++++++++++++++++++++++------------
 1 file changed, 35 insertions(+), 16 deletions(-)

(limited to 'scripts/context/lua/mtx-context.lua')

diff --git a/scripts/context/lua/mtx-context.lua b/scripts/context/lua/mtx-context.lua
index caf7e2f2a..2e60a629b 100644
--- a/scripts/context/lua/mtx-context.lua
+++ b/scripts/context/lua/mtx-context.lua
@@ -30,6 +30,7 @@ local removesuffix  = file.removesuffix
 local validfile     = lfs.isfile
 local removefile    = os.remove
 local renamefile    = os.rename
+local formatters    = string.formatters
 
 local application = logs.application {
     name     = "mtx-context",
@@ -281,26 +282,32 @@ local function multipass_changed(oldhash, newhash)
     return false
 end
 
+local f_tempfile = formatters["%s-%s-%02d.tmp"]
+
+local function backup(run,kind,filename)
+    if run == 1 then
+        for i=1,10 do
+            local tmpname = f_tempfile(jobname,kind,i)
+            if validfile(tmpname) then
+                removefile(tmpname)
+                report("removing %a",tmpname)
+            end
+        end
+    end
+    if validfile(filename) then
+        local tmpname = f_tempfile(jobname,kind,run or 1)
+        report("copying %a into %a",filename,tmpname)
+        file.copy(filename,tmpname)
+    else
+        report("no file %a, nothing kept",filename)
+    end
+end
+
 local function multipass_copyluafile(jobname,run)
     local tuaname, tucname = jobname..".tua", jobname..".tuc"
     if validfile(tuaname) then
         if run then
-            if run == 1 then
-                for i=1,10 do
-                    local tmpname = format("%s-tuc-%02d.tmp",jobname,i)
-                    if validfile(tmpname) then
-                        removefile(tmpname)
-                        report("removing %a",tmpname)
-                    end
-                end
-            end
-            if validfile(tucname) then
-                local tmpname = format("%s-tuc-%02d.tmp",jobname,run or 1)
-                report("copying %a into %a",tucname,tmpname)
-                file.copy(tucname,tmpname)
-            else
-                report("no file %a, nothing kept",filename)
-            end
+            backup(run,"tuc",tucname)
             report("copying %a into %a",tuaname,tucname)
             report()
         end
@@ -309,6 +316,16 @@ local function multipass_copyluafile(jobname,run)
     end
 end
 
+local function multipass_copylogfile(jobname,run)
+    local logname = jobname..".log"
+    if validfile(logname) then
+        if run then
+            backup(run,"log",logname)
+            report()
+        end
+    end
+end
+
 --
 
 local pattern = lpegpatterns.utfbom^-1 * (P("%% ") + P("% ")) * Cs((1-lpegpatterns.newline)^1)
@@ -572,6 +589,7 @@ function scripts.context.run(ctxdata,filename)
     local a_jithash     = getargument("jithash")
     local a_texformat   = getargument("texformat")
     local a_keeptuc     = getargument("keeptuc")
+    local a_keeplog     = getargument("keeplog")
     --
     a_batchmode = (a_batchmode and "batchmode") or (a_nonstopmode and "nonstopmode") or (a_scrollmode and "scrollmode") or nil
     a_synctex   = check_synctex(a_synctex)
@@ -739,6 +757,7 @@ function scripts.context.run(ctxdata,filename)
                         break
                     elseif returncode == 0 then
                         multipass_copyluafile(jobname,a_keeptuc and currentrun)
+                        multipass_copylogfile(jobname,a_keeplog and currentrun)
                         if not multipass_forcedruns then
                             newhash = multipass_hashfiles(jobname)
                             if multipass_changed(oldhash,newhash) then
-- 
cgit v1.2.3