Rename OrbitUtils to WorkerAux for better context

Sequential.hs

@@ -21,7 +21,9 @@ import Table
   , new
   , to_list
   )
-import OrbitUtils (now)
+import WorkerAux
+  ( now
+  )
 import Types
   ( Generator
   , Freq

Types.hs

 --
 -- 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
+}
+

OrbitUtils.hs → WorkerAux.hs

 --
--- 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