From 5833bdb286cd1a35b6fd7660bc41f185108bd5ad Mon Sep 17 00:00:00 2001 From: Taco Hoekwater Date: Fri, 3 Jun 2011 07:55:34 +0000 Subject: Fix ConTeXt's writable TEXMFCACHE discovery git-svn-id: svn://tug.org/texlive/trunk@22753 c570f23f-e606-0410-a88d-b1316a301751 --- Master/bin/i386-freebsd/mtxrun | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) (limited to 'Master/bin/i386-freebsd') diff --git a/Master/bin/i386-freebsd/mtxrun b/Master/bin/i386-freebsd/mtxrun index cc5ebb478ac..049033a727f 100755 --- a/Master/bin/i386-freebsd/mtxrun +++ b/Master/bin/i386-freebsd/mtxrun @@ -2524,8 +2524,28 @@ end function file.is_writable(name) - local a = attributes(name) or attributes(dirname(name,".")) - return a and sub(a.permissions,2,2) == "w" + if os.type == "windows" then + local a = attributes(name) or attributes(dirname(name,".")) + return a and sub(a.permissions,2,2) == "w" + end + local f + local isnew = true + if lfs.isdir(name) then + name = name .. "/mtxtest.txt" + else + f = io.open(name, "rb"); + if f then + f:close() + isnew = false + end + end + f = io.open(name, "wb"); + if f then + f:close() + if isnew then os.remove(name) end + return true + end + return false end function file.is_readable(name) -- cgit v1.2.3