<> <> <<>> DIRECTORY Atom USING [PutProp], PrincOps, SpyLog USING [ active, WriteTrace, WriteData ], SpyTypes USING [ IsActiveProc, WriteTraceProc, DoWriteDataProc ] ; ISpy: PROGRAM IMPORTS Atom, SpyLog = BEGIN OPEN SpyTypes; <> <<>> IsActive: PROC RETURNS [BOOL] = { RETURN[SpyLog.active]; }; Atom.PutProp[$Interfaces, $WriteTrace, NEW[WriteTraceProc _ SpyLog.WriteTrace]]; Atom.PutProp[$Interfaces, $WriteData, NEW[DoWriteDataProc_ SpyLog.WriteData]]; Atom.PutProp[$Interfaces, $IsActive, NEW[IsActiveProc _ IsActive]]; END.