add convenience functions for DateTime scheduling

Author: BenLauwens

src/SimJulia.jl

@@ -6,6 +6,7 @@ Main module for SimJulia.jl – a combined continuous time / discrete event proc
 module SimJulia
 
   using DataStructures
+  using Base.Dates
 
   import Base.run, Base.now, Base.isless, Base.show, Base.interrupt, Base.yield
   import Base.(&), Base.(|)
@@ -30,6 +31,7 @@ module SimJulia
   include("operators.jl")
   include("tasks/base.jl")
   include("simulations.jl")
+  include("utils/time.jl")
   include("processes.jl")
   include("finitestatemachines/utils.jl")
   include("finitestatemachines/transforms.jl")

src/utils/time.jl

@@ -0,0 +1,13 @@
+function Simulation(initial_time::DateTime)
+  Simulation(Base.Dates.datetime2epochms(initial_time))
+end
+
+function run(env::Environment, until::DateTime)
+  run(env, Base.Dates.datetime2epochms(until)-now(env))
+end
+
+function Timeout(env::Environment, delay::Period; priority::Int8=zero(Int8), value::Any=nothing)
+  time = now(env)
+  del = Base.Dates.datetime2epochms(Base.Dates.epochms2datetime(time)+delay)-time
+  Timeout(env, del;priority=priority, value=value)
+end