From 7eed65970869ede47697d448e88fa4722418b7f3 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Tue, 5 Jun 2012 23:00:15 +0300
Subject: beta 2012.06.05 21:45

---
 scripts/context/lua/mtx-context.lua    |  8 ++------
 scripts/context/lua/mtxrun.lua         | 13 +++++++++++--
 scripts/context/stubs/mswin/mtxrun.lua | 13 +++++++++++--
 scripts/context/stubs/unix/mtxrun      | 13 +++++++++++--
 4 files changed, 35 insertions(+), 12 deletions(-)

(limited to 'scripts')

diff --git a/scripts/context/lua/mtx-context.lua b/scripts/context/lua/mtx-context.lua
index fdca3c89a..be492f5b9 100644
--- a/scripts/context/lua/mtx-context.lua
+++ b/scripts/context/lua/mtx-context.lua
@@ -10,7 +10,7 @@ if not modules then modules = { } end modules ['mtx-context'] = {
 -- todo: pass jobticket/ctxdata table around
 
 local format, gmatch, match, gsub, find = string.format, string.gmatch, string.match, string.gsub, string.find
-local quote = string.quote
+local quote, validstring = string.quote, string.valid
 local concat = table.concat
 local settings_to_array = utilities.parsers.settings_to_array
 local appendtable = table.append
@@ -464,10 +464,6 @@ end
 
 --
 
-local function validstring(s)
-    return type(s) == "string" and s ~= "" and s or nil
-end
-
 function scripts.context.run(ctxdata,filename)
     --
     local a_nofile = getargument("nofile")
@@ -616,7 +612,7 @@ function scripts.context.run(ctxdata,filename)
                     ["synctex"]             = a_synctex and 1 or nil,
                     ["no-parse-first-line"] = true,
                  -- ["no-mktex"]            = true,
-                 -- ["file-line-error"]     = true,
+                 -- ["file-line-error-style"]     = true,
                     ["fmt"]                 = formatfile,
                     ["lua"]                 = scriptfile,
                     ["jobname"]             = jobname,
diff --git a/scripts/context/lua/mtxrun.lua b/scripts/context/lua/mtxrun.lua
index cc29845b5..8bd243b54 100644
--- a/scripts/context/lua/mtxrun.lua
+++ b/scripts/context/lua/mtxrun.lua
@@ -150,6 +150,11 @@ function string.topattern(str,lowercase,strict)
     end
 end
 
+
+function string.valid(str,default)
+    return (type(str) == "string" and str ~= "" and str) or default or nil
+end
+
 -- obsolete names:
 
 string.quote   = string.quoted
@@ -3266,8 +3271,12 @@ end
 local isscheme = schemestr * colon * slash * slash -- this test also assumes authority
 
 local function hasscheme(str)
-    local scheme = lpegmatch(isscheme,str) -- at least one character
-    return scheme ~= "" and scheme or false
+    if str then
+        local scheme = lpegmatch(isscheme,str) -- at least one character
+        return scheme ~= "" and scheme or false
+    else
+        return false
+    end
 end
 
 
diff --git a/scripts/context/stubs/mswin/mtxrun.lua b/scripts/context/stubs/mswin/mtxrun.lua
index cc29845b5..8bd243b54 100644
--- a/scripts/context/stubs/mswin/mtxrun.lua
+++ b/scripts/context/stubs/mswin/mtxrun.lua
@@ -150,6 +150,11 @@ function string.topattern(str,lowercase,strict)
     end
 end
 
+
+function string.valid(str,default)
+    return (type(str) == "string" and str ~= "" and str) or default or nil
+end
+
 -- obsolete names:
 
 string.quote   = string.quoted
@@ -3266,8 +3271,12 @@ end
 local isscheme = schemestr * colon * slash * slash -- this test also assumes authority
 
 local function hasscheme(str)
-    local scheme = lpegmatch(isscheme,str) -- at least one character
-    return scheme ~= "" and scheme or false
+    if str then
+        local scheme = lpegmatch(isscheme,str) -- at least one character
+        return scheme ~= "" and scheme or false
+    else
+        return false
+    end
 end
 
 
diff --git a/scripts/context/stubs/unix/mtxrun b/scripts/context/stubs/unix/mtxrun
index cc29845b5..8bd243b54 100644
--- a/scripts/context/stubs/unix/mtxrun
+++ b/scripts/context/stubs/unix/mtxrun
@@ -150,6 +150,11 @@ function string.topattern(str,lowercase,strict)
     end
 end
 
+
+function string.valid(str,default)
+    return (type(str) == "string" and str ~= "" and str) or default or nil
+end
+
 -- obsolete names:
 
 string.quote   = string.quoted
@@ -3266,8 +3271,12 @@ end
 local isscheme = schemestr * colon * slash * slash -- this test also assumes authority
 
 local function hasscheme(str)
-    local scheme = lpegmatch(isscheme,str) -- at least one character
-    return scheme ~= "" and scheme or false
+    if str then
+        local scheme = lpegmatch(isscheme,str) -- at least one character
+        return scheme ~= "" and scheme or false
+    else
+        return false
+    end
 end
 
 
-- 
cgit v1.2.3