<> <> <> <> DIRECTORY BasicTime USING [GMT]; EngineLog: CEDAR DEFINITIONS = BEGIN EngineType: TYPE = MACHINE DEPENDENT {raven(0), banshee, fax, fx3500, d1, (LAST[CARDINAL])}; Object: TYPE = RECORD [engineType: EngineType, resetTime: BasicTime.GMT, counter: ARRAY Item OF LONG CARDINAL]; Item: TYPE = [0 .. 64); Map: PROCEDURE [engineType: EngineType, version: CARDINAL] RETURNS [pointer: REF Object]; <> ForceOut: PROCEDURE[]; <> END. LOG When / Who / What 8-Aug-85 22:46:42 / Strickberger / Created for Euclid.