DIRECTORYAMTypes USING [ TV ],Basics USING [ BITAND ],Commander USING [ Handle ],IO USING [ STREAM, Value ],Rope USING [ ROPE ];Log: CEDAR DEFINITIONS IMPORTS Basics = {PD: TYPE = RECORD [attended: BOOLEAN_FALSE,sysIn: IO.STREAM,sysOut: IO.STREAM, -- IOs for error and system status reporting ch: Commander.Handle_NIL];pd: REF PD;ROPE: TYPE=Rope.ROPE;Text: TYPE = RECORD [t: SEQUENCE maxLength: CARDINAL OF CHAR];LogInfo: TYPE = RECORD[logCode: ATOM_NIL,logD1: LONG CARDINAL_0,logD2: LONG CARDINAL_0];loggingGroups: CARDINAL;LOG: PROC[group: CARDINAL_1, info: LogInfo_[]] = TRUSTED INLINE {IF Basics.BITAND[group, loggingGroups]#0 THEN {WriteData[info]; Here[]; }; };SLOG: PROC[group: CARDINAL_1] = TRUSTED INLINE {IF Basics.BITAND[group, Log.loggingGroups]#0 THEN {Noop[]; Here[]; }; };WriteData: PROC[info: LogInfo];Noop: PROC;Here: PROC;DoLog: PROC[groups: CARDINAL_177777B];WhereToReport: TYPE=ATOM;ThHandle: TYPE = LONG CARDINAL -- Thrush.ThHandle --;nullHandle: ThHandle = 0;WhereProc: TYPE = PROC[fixedWhereData: REF, whereData: REF] RETURNS[s: IO.STREAM_NIL];DNFProc: TYPE = PROC[fixedWhereData: REF, whereData: REF] RETURNS[default: BOOL];RegisterWhereToReport: PROC[proc: WhereProc_NIL, where: WhereToReport, fixedWhereData: REF_NIL, defaultIfNotFound: DNFProc_NIL];FindWhere: PROC[where: WhereToReport, whereData: REF] RETURNS [s: IO.STREAM_NIL];Report: PROC[remark: ROPE, where: WhereToReport_NIL, whereData: REF _NIL];ReportFR: PROC[remark: ROPE, where: WhereToReport_NIL, whereData: REF _NIL,a1, a2: IO.Value _ [rope[NIL]]];Problem: PROC[remark: ROPE_NIL, where: WhereToReport_NIL, whereData: REF _NIL];ProblemFR: PROC[remark: ROPE_NIL, where: WhereToReport_NIL, whereData: REF _NIL,a1, a2: IO.Value _  [rope[NIL]]];ProblemBool: PROC[remark: ROPE_NIL, where: WhereToReport_NIL, bool: BOOL_FALSE, whereData: REF_NIL]RETURNS[sameBool: BOOL];ProblemHandle: PROC[remark: ROPE_NIL, where: WhereToReport_NIL,handle: ThHandle _ nullHandle, whereData: REF_NIL]RETURNS[sameHandle: ThHandle];CLog: TYPE = REF CLogBody;CLogBody: TYPE = RECORD [logStream: IO.STREAM,logReadPos: INT_0,CommandProc: PROC[CLog]];MakeCLog: PROC[fileName: ROPE, CommandProc: PROC[CLog], new: BOOL_FALSE, keep: CARDINAL_2]RETURNS[cLog: CLog];WriteCLog: PROC[cLog: CLog, entry: ROPE];CloseCLog: PROC[cLog: CLog] RETURNS[nullCLog: CLog];DoCLog: PROC[cLog: CLog, entry: ROPE];RedoCLog: PROC[cLog: CLog];GetBinding: PROC[qualifiedName: ROPE] RETURNS [tv: AMTypes.TV];GetBindingToProc: PROC[qualifiedProcName: ROPE] RETURNS [proc: PROC ANY RETURNS ANY];}.   О  Log.mesaLast modified by D. Swinehart, June 16, 1984 4:58:50 pm PDTLogging of errors and status reports; Spying for performance measurementVariablesTypesError, Information, Performance LoggingError reporting and managementReport finds an appropriate stream and prints a time-stamped version of remark.  Clients can register procedures to interpret the WhereToReport atoms and obtain the appropriate stream for a given call, aided by the lead supplied in the Report call.Problem is intended for reporting unexpected errors and conditions.  It will raise the indicated signal, or an internal one by default, if the system is currently attended (there's an executive command.)  In any case, it will report the remark argument.  It will return automatically or if the operator proceeds from the signal, so the caller needs to do what is necessary to recover after calling Problem.The other Problem... functions are for convenience in returning innocuous values from procedures.The defaultIfNotFound parameter to the registration procedure indicates whether the message should be ignored (FALSE) or printed (TRUE) when the corresponding stream-finding procedure returns NIL.IF defaultIfNotFound=NIL, answer assumed TRUECommand Logging, indirect execution.Originally developed as part of ThMessageDBImplCommandProc should consume any command in the log, such that if it's the lastcommand, we're at end of fileWrite it at end, then read it and do it, using CommandProcTypical thing to do after a MakeCLog, to replay an old one.Dynamic "IsBound"; applies to procedures only.qualifiedName is either Interface.variable or Program.variable.Returns NIL if the Interface, Program, or variable is undefined.Assumes global context.  I suppose there's a way to speed it up by looking for top level.qualifiedProcName is either Interface.Proc or Program.Proc.Returns NIL if the Interface, Program, or Proc is undefined. Э╩▀  Ш JЪЬЩJЪЬ;Щ;JШ JЪЬHЩHJШ Ъ╧k	Ш	JЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭЬШJЪЭЬЭЬЭЬ
ШJЪЬЭЬЭЬШJШJШ ЧJЪЬЭЬЭЬЭЬШ)JШ Ъ╧c	Щ	JШ ЪЭЬЭЬЭЬШJЪЬ
ЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬЮ-Ш@JЪЬЭШJШЧJЪЬЭЬЭЬШJШ ЧЩJШ JЪЭЬЭЬЭЬШЪЬЭЬЭЬШJЪЬЭЬЭЬЭЬЭШ'JШЧJШ ЧЩ'JШ ЪЬ	ЭЬЭЬШJЪЬ	ЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬШJШ ЧJЪЬЭЬШЪ
ЭЬЭЬЭЬЭЬЭЬШAЪЭЬЭЬЭЬШ/JЪЬШЧЧЪ
ЭЬЭЬЭЬЭЬЭЬШ0ЪЭЬЭЬЭЬШ3JЪЬШЧЧJШ JЪ╧n	ЬЭЬШJЪЯЬЭЬШJЪЯЬЭЬШJЪЯЬЭЬ	ЭЬ
Ш&JШ ЩJЪ
ЯЬBЯЬ4ЯЬHЯЬЯЬЩ°JЪЯЬцЯЬЫЯЬЩЦJЪЬ
Я
ЬMЩaJЪЬ╧bЬYЭЬЭЬ:ЭЩ─ЧJШ JЪЬЭЬЭЬШJЪ	Ь
ЭЬЭЬЭЬЮЬШ5JШJЪЯ	ЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШVJЪЯЬЭЬЭЬЭЬЭЬЭЬ
ЭЬШQЪЯЬЭЬШJЪ	ЬЭЬ(ЭЬЭЬЭЬШdJЪЭЬЭЬЭЩ-ЧJЪЯ	ЬЭЬ"ЭЬЭЬЭЬЭЬЭЬШQJШ JЪЯЬЭЬ	ЭЬЭЬЭЬЭЬШJЪЯЬЭЬ	ЭЬЭЬЭЬЭЬШKJЪЬЭЬЭЬШ ЧJШ ЪЯЬЭЬШJЪЬЭЬЭЬЭЬЭЬЭЬШAЧЪЯ	ЬЭЬШЪЬЭЬЭЬЭЬЭЬЭЬШ@JЪЬЭЬЭЬШ!ЧЧЪ
ЯЬЭЬ	ЭЬЭЬЭЬШ>JЪ	ЬЭЬЭЬЭЬЭЬШ%JЪЭЬЭЬШЧЪ
ЯЬЭЬ	ЭЬЭЬЭЬШ?JЪЬ*ЭЬЭЬШ2JЪЭЬШЧJШ ЧJЩ$Щ/JЩ JЪЬЭЬЭЬ
ШЪЬ
ЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬШЪЯЬЭЬШJЩMJЩЧJШЧJШ ЪЯЬЭЬЭЬЯЬЭЬЭЬЭЬЭЬШZJЪЬШЧJШ JЪЯ	ЬЭЬЭЬШ)JШ JЪЯ	ЬЭЬЭЬШ4JШ ЪЯЬЭЬЭЬШ&JЩ:ЧJШ ЪЯЬЭЬШJЩ;ЧЧJЩ Щ.Ъ
Я
ЬЭЬЭЬЭЬЭЬШ?JЪЬ?Щ?JЪЬ@Щ@JЪЬЭЬ?ЩYЧJШ ЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШUJЩ;JЩ<ЧЧJШJШ Ч ЕЧ    
B  п  