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. ISpy.mesa Last Edited by: Swinehart, June 14, 1984 10:47:54 pm PDT Arrange to register the SpyLog Procedures Needed in the Voice system ÊÖ˜Jšœ ™ J™8J™šÏk ˜ Jšœœ ˜J˜ Jšœœ#˜/Jšœ œ2˜@Jšœ˜J˜—Jšœœœ˜*Jšœ ˜J˜J™DJ™Jš Ïnœœœœœ˜;J˜Jšœ'œ&˜PJšœ&œ%˜NJšœ$œ˜CJ˜J˜Jšœ˜J˜J˜J˜—…—l