<> <> <> <<>> <> <<>> DIRECTORY Interpress, IPInterpreter, List USING [AList, Assoc, PutAssoc], ProcessProps USING [AddPropList, GetPropList], Rope USING [ROPE]; IPErrorImpl: CEDAR PROGRAM IMPORTS IPInterpreter, List, ProcessProps EXPORTS Interpress, IPInterpreter ~ BEGIN OPEN IPInterpreter; ROPE: TYPE ~ Rope.ROPE; stateKey: ATOM ~ $InterpressMaster; OpenMaster: TYPE ~ Interpress.OpenMaster; AddMaster: PUBLIC PROC [master: OpenMaster, inner: PROC] ~ { aList: List.AList _ NIL; aList _ List.PutAssoc[key: stateKey, val: master, aList: aList]; ProcessProps.AddPropList[aList, inner]; }; GetMaster: PUBLIC PROC RETURNS [OpenMaster] ~ { aList: List.AList ~ ProcessProps.GetPropList[]; val: REF ~ List.Assoc[key: stateKey, aList: aList]; WITH val SELECT FROM val: OpenMaster => RETURN[val] ENDCASE; RETURN[NIL]; }; ReportError: PUBLIC PROC [code: Cardinal, atom: ATOM, message: ROPE] ~ { master: OpenMaster ~ GetMaster[]; IF master#NIL AND master.logProc#NIL THEN master.logProc[master, code, atom, message]; IF code=masterErrorCode THEN ERROR MarkRecovery; }; <> <> <> <<>> <> <> MasterError: PUBLIC PROC [atom: ATOM, message: ROPE] ~ { ReportError[masterErrorCode, atom, message]; }; MasterWarning: PUBLIC PROC [atom: ATOM, message: ROPE] ~ { ReportError[masterWarningCode, atom, message]; }; END.