<> <> <> <> DIRECTORY AMTypes USING [TV, Class], IO USING [STREAM], SafeStorage USING [nullType, Type]; PrintTV: CEDAR DEFINITIONS = BEGIN OPEN AMTypes, IO, SafeStorage; <<>> <> Print: PROC [tv: TV, put: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE]; <> PrintType: PROC [type: Type, put: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE]; <> <<>> PrintSignal: PROC [signalTV, argsTV: TV, put: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE]; <> <> PrintArguments: PROC [tv: TV, put: STREAM, depth: INT _ 4, width: INT _ 32, breakBetweenItems: BOOL _ FALSE]; <> PrintResults: PROC [tv: TV, put: STREAM, depth: INT _ 4, width: INT _ 32, breakBetweenItems: BOOL _ FALSE]; <> PrintVariables: PROC [tv: TV, put: STREAM, depth: INT _ 4, width: INT _ 32, all, breakBetweenItems: BOOL _ TRUE]; <> <<>> <> <> <> <> <> <> <<};>> <<>> <> <<>> <> <> <> <<]; >> <<>> <> <<>> <<{Viewer - class: Typescript, name: Work Area A: Executive}>> RegisterTVPrintProc: PROC [type: Type, proc: TVPrintProc, data: REF _ NIL]; <> RegisterClassPrintProc: PROC [class: Class, proc: TVPrintProc, data: REF _ NIL]; <> RegisterRefPrintProc: PROC [referentType: SafeStorage.Type, proc: RefPrintProc, data: REF _ NIL]; <> TVPrintProc: TYPE = PROC [tv: TV, data: REF, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]; <> RefPrintProc: TYPE = PROC [ref: REF READONLY ANY, data: REF, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]; <> DisableTVPrintProcs: PROC RETURNS [wasEnabled: BOOL]; DisableClassPrintProcs: PROC RETURNS [wasEnabled: BOOL]; DisableRefPrintProc: PROC RETURNS [wasEnabled: BOOL]; <> EnableTVPrintProcs: PROC RETURNS [wasEnabled: BOOL]; EnableClassPrintProcs: PROC RETURNS [wasEnabled: BOOL]; EnableRefPrintProc: PROC RETURNS [wasEnabled: BOOL]; <> GetTVPrintProc: PROC [type: Type] RETURNS [proc: TVPrintProc, data: REF]; GetClassPrintProc: PROC [class: Class] RETURNS [proc: TVPrintProc, data: REF]; GetRefPrintProc: PROC [type: Type] RETURNS [proc: RefPrintProc, data: REF]; < a print proc is registered for the type.>> NextTVPrintProc: PROC [after: Type _ nullType] RETURNS [type: Type, proc: TVPrintProc, data: REF]; NextClassPrintProc: PROC [after: Class _ nil] RETURNS [class: Class, proc: TVPrintProc, data: REF]; NextRefPrintProc: PROC [after: Type _ nullType] RETURNS [type: Type, proc: RefPrintProc, data: REF]; <> END.