DIRECTORYCommander USING [ Handle ],GVBasics USING [ Password ],IO USING [ STREAM, Value ],Rope USING [ ROPE ],RPC USING [ EncryptionKey ],Pup USING [ Address, nullAddress ];VoiceUtils: CEDAR DEFINITIONS = {PD: TYPE = RECORD [attended: BOOLEAN_FALSE,sysIn: IO.STREAM,sysOut: IO.STREAM, -- IOs for error and system status reporting ch: Commander.Handle_NIL,reportLimit: NAT_200, -- If 200 (say) reports of any kind, or 10 problem reports, areproblemLimit: NAT_10, -- issued in any 60 second period, report that (high priority), andlimitInterval: NAT_60, -- then inhibit all reports until these limits have not been exceededreportingEnabled: BOOL_TRUE, -- whether the limits have been reachedreportMethods: ARRAY ProblemPriority OF ReportMethod _ ALL[],maximumMailReportInterval: INT _ 60*15 -- mailed reports no more frequently than 4/hr.];pd: REF PD;ROPE: TYPE=Rope.ROPE;Rname: TYPE = ROPE;NetAddress: TYPE = Pup.Address;nullNetAddress: Pup.Address = Pup.nullAddress;WhereToReport: TYPE=ATOM;WhereProc: TYPE = PROC[fixedWhereData: REF, whereData: REF] RETURNS[s: IO.STREAM_NIL];nullValue: IO.Value = [null[]];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];ReportMethod: TYPE = RECORD [reportByMail: BOOL_FALSE,reportTo: ROPE];Report: PROC[remark: ROPE, where: WhereToReport_NIL, whereData: REF _NIL];ReportFR: PROC[remark: ROPE, where: WhereToReport_NIL, whereData: REF _NIL,a1, a2, a3: IO.Value _ nullValue];ProblemPriority: TYPE = { minimal, low, medium, high, maximum };Problem: PROC[remark: ROPE_NIL, where: WhereToReport_NIL, whereData: REF _NIL,priority: ProblemPriority _ maximum];ProblemFR: PROC[remark: ROPE_NIL, where: WhereToReport_NIL, whereData: REF _NIL,a1, a2: IO.Value _ nullValue, priority: ProblemPriority _ maximum];Registrize: PROC[name: ROPE] RETURNS [ROPE];CurrentRName: PROC RETURNS [ROPE];CurrentPasskey: PROC[passwordText: ROPE_NIL] RETURNS [RPC.EncryptionKey];CurrentPassword: PROC[passwordText: ROPE_NIL] RETURNS [GVBasics.Password] = INLINE {RETURN[LOOPHOLE[CurrentPasskey[passwordText]]]; };OwnNetAddress: PROC RETURNS [netAddress: NetAddress];NetAddressFromRope: PROC [netAddressRope: ROPE] RETURNS [netAddress: NetAddress];Rspec: TYPE = REF RspecBody;RspecBody: TYPE = RECORD [simpleName: ROPE_NIL,registry: ROPE_NIL];RNameStyle: TYPE = { rName, nameDotLark, rNameDotLark };InstanceFromNetAddress: PROC[netAddress: NetAddress, suffix: ROPE_NIL]RETURNS [instance: Rname];RnameToRspec: PROC[name: Rname, defaultRegistry: ROPE_NIL] RETURNS [spec: Rspec];RspecToRname: PROC[spec: Rspec] RETURNS [name: Rname];RspecToSortName: PROC[spec: Rspec] RETURNS [name: ROPE];MakeAtom: PROC[rName: Rname, case: BOOL_FALSE] RETURNS [ATOM];MakeRName: PROC[name: ROPE, style: RNameStyle_ rNameDotLark] RETURNS[rName: ROPE];LowerCaseRope: PROC[r: ROPE] RETURNS [ROPE];CmdOrToken: PROC[cmd: Commander.Handle, key: ROPE, default: ROPE_NIL]RETURNS [value: ROPE];}.  
f  VoiceUtils.mesaCopyright ╙ 1985, 1987 by Xerox Corporation.  All rights reserved.Last modified by D. Swinehart, February 9, 1987 8:53:13 am PSTThis interface implements a number of utility routines used by all of the voice system components.VariablesControl over system death due to excess report loggingControl over mailing of problem reports for various prioritiesTypesStatus reporting, 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 whereData supplied in the Report call.Problem is intended for reporting unexpected errors and conditions.  It will raise an internal SIGNAL 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 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Simple RName, password, net address manipulations.  These just look at local machine global information or do various kinds of parsing; they don't do any communicating.Adds the Default registry to the name if the name doesn't have a registry field.Current logged-in name.Keys made from logged in password.  The two types are based on client needs.Returns instance name, concatenated with suffix.Suffix could be "0" to complete a text version of a socket ID, or ".lark" to complete an RName.Takes the fields of an Rname apart.Puts one back together.Produces a rope of the form registry.nameProduces a case-independent (if case=FALSE) unique atom from the RNameCommandTool parsing aidSwinehart, July 19, 1985 2:34:21 pm PDTClean up, eliminate SLOG stuff (Break Tool, Spy, Celtics dominate), DIRECTORY, LogSwinehart, October 24, 1985 3:48:07 pm PDTThis was always Log until now.Eliminate CLog stuff, GetBinding stuff, combine with Names (also pruned severely), CurrentPasskey, ROPE, NetAddress, RnameSwinehart, October 28, 1985 10:02:53 am PSTEliminate ProblemBool, ProblemHandlechanges to: WhereToReport, ProblemFRSwinehart, February 8, 1987 9:22:33 am PSTAdd Problem, ProblemFR priorities -- determines how hard to work in order to report them.changes to: ProblemPriority, Problem, ProblemFR, PD, ReportMethod, Report, DIRECTORY Э╩  Ш ЪЬЩIcodeЪЬBЩBJЪЬ>Щ>ЧJШ JЩbJЩ Ъ╧k	Ш	JЪЬ
ЭЬШJЪЬ	ЭЬШJЪЭЬЭЬЭЬ
ШJЪЬЭЬЭЬШJЪЭЬЭЬШJЪЬЭЬШ"JШJШ ЧJЪЬЭЬЭЬШ!JШ Ъ╧c	Щ	JШ ЪЭЬЭЬЭЬШJЪЬ
ЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬЮ-Ш@JЪЬЭЬШЩ6JЪЬЭЬЮ?ШUJЪЬЭЬЮCШYJЪЬЭЬЮEШ\JЪЬЭЬЭЬ)ШDЧЩ>JЪЬЭЬЭЬШ=JЪЬЭЬ	Ю/ШVЧJШЧJЪЬЭЬЭЬШJШ ЧЩJШ JЪЭЬЭЬЭЬШJЪЬЭЬЭЬШЪЬЭЬШJШ.ЧJШ ЧЩ0JЪ
╧nЬBЯЬ4ЯЬHЯ	ЬЯЬЩ¤JЪ
ЯЬXЭЬ[ЯЬЯЬЫЯЬЩЇJЪЬ╧bЬYЭЬЭЬ:ЭЩ─JШ JЪЬЭЬЭЬШJЪЯ	ЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШVJЪЬЭЬШJЪЯЬЭЬЭЬЭЬЭЬЭЬ
ЭЬШQЪЯЬЭЬШJЪ	ЬЭЬ(ЭЬЭЬЭЬШdJЪЭЬЭЬЭЩ-ЧJЪЯ	ЬЭЬ"ЭЬЭЬЭЬЭЬЭЬШQJШ ЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭШJШJШ ЧJЪЯЬЭЬ	ЭЬЭЬЭЬЭЬШJЪЯЬЭЬ	ЭЬЭЬЭЬЭЬШKJЪЬЭЬШ"ЧJШ JЪЬЭЬ+Ш@JШ ЪЯЬЭЬШJЪЬЭЬЭЬЭЬЭЬЭЬШ@JЪЬ%Ш%ЧЪЯ	ЬЭЬШЪЬЭЬЭЬЭЬЭЬЭЬШ@JЪЬЭЬ9ШCЧЧJШ ЧЩиJШ Ъ
Я
ЬЭЬЭЬЭЬЭЬШ,JЩPЧJШ ЪЯЬЭЬЭЬЭЬШ"JЩЧJЪЯЬЭЬЭЬЭЬЭЬЭЬШIЪЯЬЭЬЭЬЭЬЭЬЭЬШTJЪЭЬЭЬ#Ш2JЪЬLЩLЧJШ JЪЯЬЭЬЭЬШ5JЪЯЬЭЬЭЬЭЬШQJШ JЪЬЭЬЭЬШЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭЬЭЬШJШ ЧJЪЬЭЬ(Ш8JШ ЪЯЬЭЬ!ЭЬЭЬШFJЪЭЬШJЩ0JЩ_JШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШQJЪЮ"ЬЩ#ЧЪЯЬЭЬЭЬШ6JЩЧЪЯЬЭЬЭЬЭЬШ8JЩ)ЧЪЯЬЭЬЭЬЭЬЭЬЭЬШ>JЪЬ%ЭЬЩFЧJЪ
Я	ЬЭЬЭЬ"ЭЬЭЬШRJЪ
ЯЬЭЬЭЬЭЬЭЬШ,ЧJЩ ЩJЩ Ъ
Я
ЬЭЬЭЬЭЬЭЬШEJЪЭЬ	ЭЬШJШ ЧЧJШЩ'KЪЬB╧rЩRЧKЩ Щ*KЩKЪЬQб)ЩzЧKЩ Щ+KЩ$KЪЬбЩ$ЧЩ*KЩYKЪЬбHЩTЧKЩ KЩ KЩ Ч ЕЧ    И  ∙  