DIRECTORY BasicTime, Rope; ComputeServerStatistics: CEDAR DEFINITIONS = BEGIN TimeUpThisIncarnation: INT; RequestesThisIncarnation: INT; TimeBusyThisIncarnation: INT; TotalTimeUp: INT; TotalRequestes: INT; TotalTimeBusy: INT; ServerEventType: TYPE = {startService, doneService, serverEnabled, serverDisabled}; ServerEvent: TYPE = RECORD [ type: ServerEventType, -- type of event command: Rope.ROPE, -- command name started startTime: BasicTime.GMT, -- command start time endTime: BasicTime.GMT, -- command end time (meaningful for done events only) remoteMachineName: Rope.ROPE, -- name of user's machine remoteUser: Rope.ROPE, -- name of user chain: REF ServerEvent -- used internally to chain events together ]; NextServerEvent: PROC [REF READONLY ServerEvent _ NIL] RETURNS [REF READONLY ServerEvent]; END. 8ComputeServerStatistics.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bob Hagmann April 24, 1986 1:09:44 pm PST This interface consists solely of procedures and variables that provide statistics on the historical state and behavior of the Compute Server "server". This is an 'on server' interface, not an RPC interface. Server Statistics Since Last Enable The time in seconds elasped since the last time the server was turned on. Zero when is the server is off. The total number of requests since this machine started being a server. Sum of time that any request was active. Server Statistics Totals Event Notification the next five fields only have meaning for startService and doneService Server events are the start or finish of a request. NextServerEvent returns the next event that occurs after the event passed as an argument. An argument of NIL returns the next event that occurs after the call. NextServerEvent will WAIT if another event has not occurred yet. Bob Hagmann April 24, 1986 1:09:44 pm PST changes to: ServerEvent Κη˜headšœ™Icodešœ Οmœ1™˜SL™šœ žœžœ˜šœΟc˜'LšœG™G—Lšœžœ ˜+Lšœžœ ˜/Lšœžœ 5˜MLšœžœ ˜7Lšœžœ ˜&Lšœžœ  +˜BLšœ˜L˜L™—šΟnœžœžœžœžœžœžœžœ˜[Lšœ—™—L™——L™Lšžœ˜L™L™L™™)Lšœ Οr ™—L™—…—0 O