GGScriptStats.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last edited by Bier on September 21, 1987 3:10:05 pm PDT
Contents: Routines for processing one or more SessionLog scripts to determine the frequency of user events. Some of these routines are tailored for Gargoyle scripts in particular. Others are more general.
DIRECTORY
FeedbackTypes, GGCoreTypes, IO, RefTab, Rope;
GGScriptStats: CEDAR DEFINITIONS =
BEGIN
MsgRouter: TYPE = FeedbackTypes.MsgRouter;
RopeListt: TYPE = GGCoreTypes.RopeListt;
AtomListt: TYPE = REF AtomListtObj;
AtomListtObj:
TYPE =
RECORD [
list: LIST OF ATOM,
tail: LIST OF ATOM
];
Database: TYPE = REF DatabaseObj;
DatabaseObj:
TYPE =
RECORD [
table: RefTab.Ref,
atomOrder: AtomListt,
lastAtom: ATOM,
atomCount: CARD,
sectionTable: RefTab.Ref,
sectionOrder: AtomListt
];
ProcessOneScript: PROC [scriptName: Rope.ROPE, resultName: Rope.ROPE, workingDirectory: Rope.ROPE];
ProcessScript:
PROC [scriptName: Rope.
ROPE, resultStream:
IO.
STREAM, database: Database, workingDirectory: Rope.
ROPE ←
NIL, router: MsgRouter ←
NIL]
RETURNS [printTime:
INT];
printTime results from a call to BasicTime.Period.
ProcessOneSummary: PROC [summaryName: Rope.ROPE, totalsName: Rope.ROPE, workingDirectory: Rope.ROPE];
ProcessSummary: PROC [summaryName: Rope.ROPE, totalsStream: IO.STREAM, database: Database, workingDirectory: Rope.ROPE ← NIL, router: MsgRouter ← NIL] RETURNS [printTime: INT];
CreateDatabase: PROC [] RETURNS [database: Database];
END.