[Indigo]<Voice>5.2>ISpy>ISpy.mesa!1

ISpy.mesa

Last Edited by: Swinehart, June 14, 1984 10:47:54 pm PDT

DIRECTORY

Atom USING [PutProp],

PrincOps,

SpyLog USING [ active, WriteTrace, WriteData ],

SpyTypes USING [ IsActiveProc, WriteTraceProc, DoWriteDataProc ]

;

ISpy: PROGRAM IMPORTS Atom, SpyLog = BEGIN

OPEN SpyTypes;

Arrange to register the SpyLog Procedures Needed in the Voice system

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.