/usr/share/lmod/6.6/settarg/utils.lua is in lmod 6.6-0.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | --------------------------------------------------------------------------
-- Lmod License
--------------------------------------------------------------------------
--
-- Lmod is licensed under the terms of the MIT license reproduced below.
-- This means that Lmod is free software and can be used for both academic
-- and commercial purposes at absolutely no cost.
--
-- ----------------------------------------------------------------------
--
-- Copyright (C) 2008-2014 Robert McLay
--
-- Permission is hereby granted, free of charge, to any person obtaining
-- a copy of this software and associated documentation files (the
-- "Software"), to deal in the Software without restriction, including
-- without limitation the rights to use, copy, modify, merge, publish,
-- distribute, sublicense, and/or sell copies of the Software, and to
-- permit persons to whom the Software is furnished to do so, subject
-- to the following conditions:
--
-- The above copyright notice and this permission notice shall be
-- included in all copies or substantial portions of the Software.
--
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-- OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
-- BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
-- ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-- CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-- THE SOFTWARE.
--
--------------------------------------------------------------------------
require("strict")
require("fileOps")
_G._DEBUG = false -- Required by the new lua posix
local dbg = require("Dbg"):dbg()
local base64 = require("base64")
local concatTbl = table.concat
local decode64 = base64.decode64
local format = string.format
local getenv = os.getenv
local huge = math.huge
local posix = require("posix")
function argsPack(...)
local arg = { n = select("#", ...), ...}
return arg
end
local pack = (_VERSION == "Lua 5.1") and argsPack or table.pack
function findFileInTree(fn)
local cwd = posix.getcwd()
local wd = cwd
local prev = ""
while (wd ~= "/" and wd ~= prev and not posix.access(fn,"r")) do
posix.chdir("..")
prev = wd
wd = posix.getcwd()
end
posix.chdir(cwd)
if (wd == "/") then
return nil
else
return pathJoin(wd,fn)
end
end
function STError(...)
io.stderr:write("\n","Settarg has detected the following error: ")
local arg = pack(...)
for i = 1, arg.n do
io.stderr:write(arg[i])
end
io.stderr:write("\n")
end
function getSTT()
local a = {}
local sz = getenv("_SettargTable_Sz_") or huge
local s = nil
for i = 1, sz do
local name = format("_SettargTable%03d_",i)
local v = getenv(name)
if (v == nil) then break end
a[#a+1] = v
end
if (#a > 0) then
s = decode64(concatTbl(a,""))
end
return s
end
|