ISpy.mesa

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

DIRECTORY

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.