1 files changed, 166 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/l-file.lua b/Master/texmf-dist/tex/context/base/l-file.lua
new file mode 100644
index 00000000000..f49add5456b
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/l-file.lua
@@ -0,0 +1,166 @@
+-- filename : l-file.lua
+-- comment  : split off from luat-lib
+-- author   : Hans Hagen, PRAGMA-ADE, Hasselt NL
+-- copyright: PRAGMA ADE / ConTeXt Development Team
+-- license  : see context related readme files
+
+if not versions then versions = { } end versions['l-file'] = 1.001
+
+if not file then file = { } end
+
+function file.removesuffix(filename)
+    return filename:gsub("%.[%a%d]+$", "")
+end
+
+function file.addsuffix(filename, suffix)
+    if not filename:find("%.[%a%d]+$") then
+        return filename .. "." .. suffix
+    else
+        return filename
+    end
+end
+
+function file.replacesuffix(filename, suffix)
+    if not filename:find("%.[%a%d]+$") then
+        return filename .. "." .. suffix
+    else
+        return (filename:gsub("%.[%a%d]+$","."..suffix))
+    end
+end
+
+function file.dirname(name)
+    return name:match("^(.+)[/\\].-$") or ""
+end
+
+function file.basename(name)
+    return name:match("^.+[/\\](.-)$") or name
+end
+
+function file.nameonly(name)
+    return ((name:match("^.+[/\\](.-)$") or name):gsub("%..*$",""))
+end
+
+function file.extname(name)
+    return name:match("^.+%.([^/\\]-)$") or  ""
+end
+
+file.suffix = file.extname
+
+function file.stripsuffix(name)
+    return (name:gsub("%.[%a%d]+$",""))
+end
+
+--~ function file.join(...)
+--~     local t = { ... }
+--~     for i=1,#t do
+--~         t[i] = (t[i]:gsub("\\","/")):gsub("/+$","")
+--~     end
+--~     return table.concat(t,"/")
+--~ end
+
+--~ print(file.join("x/","/y"))
+--~ print(file.join("http://","/y"))
+--~ print(file.join("http://a","/y"))
+--~ print(file.join("http:///a","/y"))
+--~ print(file.join("//nas-1","/y"))
+
+function file.join(...)
+    local pth = table.concat({...},"/")
+    pth = pth:gsub("\\","/")
+    local a, b = pth:match("^(.*://)(.*)$")
+    if a and b then
+        return a .. b:gsub("//+","/")
+    end
+    a, b = pth:match("^(//)(.*)$")
+    if a and b then
+        return a .. b:gsub("//+","/")
+    end
+    return (pth:gsub("//+","/"))
+end
+
+function file.is_writable(name)
+    local f = io.open(name, 'w')
+    if f then
+        f:close()
+        return true
+    else
+        return false
+    end
+end
+
+function file.is_readable(name)
+    local f = io.open(name,'r')
+    if f then
+        f:close()
+        return true
+    else
+        return false
+    end
+end
+
+--~ function file.split_path(str)
+--~     if str:find(';') then
+--~         return str:splitchr(";")
+--~     else
+--~         return str:splitchr(io.pathseparator)
+--~     end
+--~ end
+
+-- todo: lpeg
+
+function file.split_path(str)
+    local t = { }
+    str = str:gsub("\\", "/")
+    str = str:gsub("(%a):([;/])", "%1\001%2")
+    for name in str:gmatch("([^;:]+)") do
+        if name ~= "" then
+            name = name:gsub("\001",":")
+            t[#t+1] = name
+        end
+    end
+    return t
+end
+
+function file.join_path(tab)
+    return table.concat(tab,io.pathseparator) -- can have trailing //
+end
+
+--~ print('test'           .. " == " .. file.collapse_path("test"))
+--~ print("test/test"      .. " == " .. file.collapse_path("test/test"))
+--~ print("test/test/test" .. " == " .. file.collapse_path("test/test/test"))
+--~ print("test/test"      .. " == " .. file.collapse_path("test/../test/test"))
+--~ print("test"           .. " == " .. file.collapse_path("test/../test"))
+--~ print("../test"        .. " == " .. file.collapse_path("../test"))
+--~ print("../test/"       .. " == " .. file.collapse_path("../test/"))
+--~ print("a/a"            .. " == " .. file.collapse_path("a/b/c/../../a"))
+
+--~ function file.collapse_path(str)
+--~     local ok, n = false, 0
+--~     while not ok do
+--~         ok = true
+--~         str, n = str:gsub("[^%./]+/%.%./", function(s)
+--~             ok = false
+--~             return ""
+--~         end)
+--~     end
+--~     return (str:gsub("/%./","/"))
+--~ end
+
+function file.collapse_path(str)
+    local n = 1
+    while n > 0 do
+        str, n = str:gsub("([^/%.]+/%.%./)","")
+    end
+    return (str:gsub("/%./","/"))
+end
+
+function file.robustname(str)
+    return (str:gsub("[^%a%d%/%-%.\\]+","-"))
+end
+
+file.readdata = io.loaddata
+file.savedata = io.savedata
+
+function file.copy(oldname,newname)
+    file.savedata(newname,io.loaddata(oldname))
+end