File EngineLog.mesa
Copyright (C) Xerox Corporation 1985, 1986. All rights reserved.
Last edited by Strickberger 8-Aug-85 22:46:42
Tim Diebert: December 2, 1986 12:17:37 pm PST
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];
Returns a pointer to the mapped log a new log file size words is created none exists or if engineType and version do not match the current log
ForceOut: PROCEDURE[];
Forces the log out to the file
END.
LOG
When / Who / What
8-Aug-85 22:46:42 / Strickberger / Created for Euclid.