Commit fba696a6 authored by Aggelos Giantsios's avatar Aggelos Giantsios

Rename OrbitUtils to WorkerAux for better context

parent eda5fcc6
......@@ -21,7 +21,9 @@ import Table
, new
, to_list
)
import OrbitUtils (now)
import WorkerAux
( now
)
import Types
( Generator
, Freq
......
--
-- orbit-int types
--
module Types ( Generator
module Types ( Ct(..)
, Generator
, Freq
, Host
, MaybeHosts(..)
......@@ -24,3 +25,15 @@ type Generator = Vertex -> Vertex
type Host = (NodeId, Int, Int, Int) -- Node, Procs, TableSize, IdleTimeout
data MaybeHosts = Seq Int
| Par [Host]
-- counters/timers record
data Ct = Ct {
verts_recvd :: Int -- #vertices received by this server so far
, credit_retd :: Int -- #times server has returned credit to master
, min_atomic_credit :: Int -- minimal atomic credit received so far
, last_event :: Int -- time stamp [ms] of most recent event
, init_idle :: Int -- idle time [ms] between init recv first vertex
, tail_idle :: Int -- idle time [ms] between send last vertex and dump
, max_idle :: Int -- max idle [ms] time between vertices
}
--
-- orbit-int orbitutils
-- orbit-int workeraux
--
module OrbitUtils (now) where
module WorkerAux (now) where
import Types
( Ct(..)
)
defaultCt = Ct {
verts_recvd = 0
, credit_retd = 0
, min_atomic_credit = 0
, last_event = 0 --master:now()
, init_idle = -1
, tail_idle = -1
, max_idle = -1
}
-- current wall clock time (in milliseconds since start of RTS)
-- FIXME get current wall clock time
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment