mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-10-29 16:58:06 +00:00
96 lines
2.6 KiB
Lua
96 lines
2.6 KiB
Lua
--- Models time events calling event handing functions.
|
|
-- @module TimeTrigger
|
|
-- @author FlightControl
|
|
|
|
Include.File( "Routines" )
|
|
Include.File( "Base" )
|
|
Include.File( "Cargo" )
|
|
Include.File( "Message" )
|
|
|
|
|
|
--- The TIMETRIGGER class
|
|
-- @type TIMETRIGGER
|
|
-- @extends Base#BASE
|
|
TIMETRIGGER = {
|
|
ClassName = "TIMETRIGGER",
|
|
}
|
|
|
|
|
|
--- TIMETRIGGER constructor.
|
|
-- @param #TIMETRIGGER self
|
|
-- @param #function TimeEventFunction
|
|
-- @param #table TimeEventFunctionArguments
|
|
-- @param #number StartSeconds
|
|
-- @param #number RepeatSecondsInterval
|
|
-- @param #number RandomizationFactor
|
|
-- @param #number StopSeconds
|
|
-- @return #TIMETRIGGER
|
|
function TIMETRIGGER:New( TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds )
|
|
local self = BASE:Inherit( self, BASE:New() )
|
|
self:F( { TimeEventObject, TimeEventFunction, TimeEventFunctionArguments, StartSeconds, RepeatSecondsInterval, RandomizationFactor, StopSeconds } )
|
|
|
|
self.TimeEventObject = TimeEventObject
|
|
self.TimeEventFunction = TimeEventFunction
|
|
self.TimeEventFunctionArguments = TimeEventFunctionArguments
|
|
self.StartSeconds = StartSeconds
|
|
|
|
if RepeatSecondsInterval then
|
|
self.RepeatSecondsInterval = RepeatSecondsInterval
|
|
else
|
|
self.RepeatSecondsInterval = 0
|
|
end
|
|
|
|
if RandomizationFactor then
|
|
self.RandomizationFactor = RandomizationFactor
|
|
else
|
|
self.RandomizationFactor = 0
|
|
end
|
|
|
|
if StopSeconds then
|
|
self.StopSeconds = StopSeconds
|
|
end
|
|
|
|
self.StartTime = timer.getTime()
|
|
|
|
self:T("Calling function " .. timer.getTime() + self.StartSeconds )
|
|
|
|
timer.scheduleFunction( self.Scheduler, self, timer.getTime() + self.StartSeconds + .01 )
|
|
|
|
|
|
return self
|
|
end
|
|
|
|
function TIMETRIGGER:Scheduler()
|
|
self:F( self.TimeEventFunctionArguments )
|
|
|
|
local ErrorHandler = function( errmsg )
|
|
|
|
env.info( "Error in TIMETRIGGER function:" .. errmsg )
|
|
env.info( debug.traceback() )
|
|
|
|
return errmsg
|
|
end
|
|
|
|
local err, Result = xpcall( function() self.TimeEventFunction( self.TimeEventObject, unpack( self.TimeEventFunctionArguments, 1, table.maxn( self.TimeEventFunctionArguments ) ) ) end, ErrorHandler )
|
|
if not err then
|
|
--env.info('routines.scheduleFunction, error in scheduled function: ' .. errmsg)
|
|
end
|
|
|
|
if Result and Result == true then
|
|
if not self.StopSeconds or ( self.StopSeconds and timer.getTime() <= self.StartTime + self.StopSeconds ) then
|
|
timer.scheduleFunction(
|
|
self.Scheduler,
|
|
self,
|
|
timer.getTime() + self.RepeatSecondsInterval * math.random( self.RandomizationFactor * self.RepeatSecondsInterval ) + 0.01
|
|
)
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|