/usr/share/lmod/6.6/libexec/CTimer.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 100 101 102 103 104 105 106 107 108 | --------------------------------------------------------------------------
-- This class is a singleton to act as a timer.
-- @classmod CTimer
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.
--
--------------------------------------------------------------------------
require("utils")
local M = {}
local dbg = require("Dbg"):dbg()
s_cTimer = false
local function new(self, msg, threshold, active, timeout)
local o = {}
setmetatable(o,self)
self.__index = self
timeout = tonumber(timeout or -1.0)
o.state = active and "init" or "dead"
o.start = epoch()
o.msg = msg
o.threshold = threshold
o.timeout = (timeout > 1.0e-8) and timeout or -1.0
return o
end
--------------------------------------------------------------------------
-- Singleton Class builder
-- @param self A CTimer object
-- @param msg stored message
-- @param threshold Threshold before message is printed.
-- @param active Active state
-- @param timeout A timeout (if positive) when an error will be reported.
-- @return A CTimer singleton object.
function M.cTimer(self, msg, threshold, active, timeout)
if (not s_cTimer) then
s_cTimer = new(self, msg, threshold, active, timeout)
end
return s_cTimer
end
--------------------------------------------------------------------------
-- Check the time. Print message if change from start passes the threshold.
-- @param self A CTimer object
function M.test(self)
local delta = epoch() - self.start
local timeout = self.timeout
if (timeout > 0 and delta > timeout) then
error()
end
if (self.state == "init") then
dbg.start{"CTimer:test()", level=2}
dbg.print{"delta: ",delta,"\n"}
if (delta > self.threshold) then
io.stderr:write(self.msg)
self.state = "activeMsg"
end
dbg.fini("CTimer:test")
end
end
--------------------------------------------------------------------------
-- Quit timer
-- @param self A CTimer object.
-- @param endMsg ending message.
function M.done(self,endMsg)
if (self.state == "activeMsg") then
io.stderr:write(endMsg,"\n")
self.state = "done"
end
end
return M
|