/usr/share/lmod/5.8/libexec/Pkg.lua is in lmod 5.8-1.
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 | --------------------------------------------------------------------------
-- Fixme
-- @classmod Pkg
require("strict")
--------------------------------------------------------------------------
-- 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.
--
--------------------------------------------------------------------------
Pkg = inheritsFrom(PkgBase)
local dbg = require("Dbg"):dbg()
local M = Pkg
s_MdirA = { [0] = "Compiler",
[1] = "MPI",
}
function M.name(self)
return "Pkg"
end
function M._build_pkgBase(self,level)
dbg.start{"Pkg:_build_pkgBase()"}
local pkgNameVer = self._pkgNameVer
local pkgRoot = self._pkgRoot
local a = {}
a[#a+1] = pkgRoot
if (level > 0) then
local hierA = hierarchyA(pkgNameVer,level)
for i = level,1,-1 do
a[#a+1] = hierA[i]:gsub("/","-"):gsub("%.","_")
end
end
a[#a+1] = pkgNameVer
dbg.fini("Pkg:_build_pkgBase")
return pathJoin(unpack(a))
end
function M.moduleDir(self)
dbg.start{"Pkg:moduleDir()"}
local level = self.level or 0
local a = {}
a[#a+1] = os.getenv("MODULEPATH_ROOT")
a[#a+1] = s_MdirA[level]
if (level > 0) then
local hierA = hierarchyA(self._pkgNameVer, level)
for i = level, 1, -1 do
a[#a+1] = hierA[i]
end
end
local pkgV = self._pkgVersion:match("(%d+%.%d+)%.?")
a[#a+1] = pathJoin(self._pkgName,pkgV)
local mdir = pathJoin(unpack(a))
dbg.fini("Pkg:moduleDir")
return mdir
end
return M
|