ImplicitDebugImpl.mesa
Copyright © 1992 by Xerox Corporation. All rights reserved.
Bloomenthal, December 13, 1992 2:39 pm PST
DIRECTORY ImplicitDebug, IO, Rope;
ImplicitDebugImpl: CEDAR PROGRAM
IMPORTS IO
EXPORTS ImplicitDebug
~ BEGIN
Debugging
globalDebug: ImplicitDebug.Debug ¬ [];
SetDebug: PUBLIC PROC [debug: ImplicitDebug.Debug] ~ {
IF debug.out # NIL THEN globalDebug.out ¬ debug.out;
IF debug.triangles # NIL THEN globalDebug.triangles ¬ debug.triangles;
IF debug.segments # NIL THEN globalDebug.segments ¬ debug.segments;
IF debug.tet # NIL THEN globalDebug.tet ¬ debug.tet;
IF debug.edges # NIL THEN globalDebug.edges ¬ debug.edges;
IF debug.faces # NIL THEN globalDebug.faces ¬ debug.faces;
IF debug.inCube # NIL THEN globalDebug.inCube ¬ debug.inCube;
IF debug.inTet # NIL THEN globalDebug.inTet ¬ debug.inTet;
IF debug.vertices # NIL THEN globalDebug.vertices ¬ debug.vertices;
IF debug.output # NIL THEN globalDebug.output ¬ debug.output;
};
GetDebug: PUBLIC PROC RETURNS [ImplicitDebug.Debug] ~ {RETURN[globalDebug]};
Write: PUBLIC PROC [message: Rope.ROPE] ~ {
IF globalDebug.out # NIL THEN IO.PutRope[globalDebug.out, message];
};
END.