
<<CDDebugHelp.mesa>>
    <<Jacobi, March 20, 1986 4:34:54 pm PST>>
DIRECTORY
CDVPrivate, DebuggerSwap, PrincOps, Rope, ViewerClasses;

CDDebugHelp: CEDAR PROGRAM
IMPORTS CDVPrivate, DebuggerSwap =
BEGIN

    Debug: PROC [ref: REF, wedge: BOOL, msg: Rope.ROPE] RETURNS [shallCont: BOOL] = TRUSTED {
    data: REF _ NIL;
    vRef: CDVPrivate.VRef;
        vRec: CDVPrivate.VRec _ [properties: NIL, scale: TRASH, intendedScale: TRASH];
    vpd: CDVPrivate.VPrivatePerDesign;
    bbp, bbx: PrincOps.BBTable;
    bp, bx, bvRef, bvpd: BOOL;
    WITH ref SELECT FROM 
    v: ViewerClasses.Viewer => data _ v.data;
    ENDCASE  => data _ ref;
    WITH data SELECT FROM 
    vr: CDVPrivate.VRef => vRef _ vr;
    ENDCASE  => {};
    IF bvRef _ vRef#NIL                 THEN vRec _ vRef^;
    IF bvpd _ vRef.designRec#NIL     THEN vpd _ vRef.designRec^;
    IF bp _ vRef.pBBptr#NIL             THEN bbp _ vRef.pBBptr^;
    IF bx _ vRef.xBBptr#NIL             THEN bbx _ vRef.xBBptr^;
    DebuggerSwap.WorryCallDebugger["DebugHelp: ChipNDale wedge"];
    };

CDVPrivate.UseDebug[Debug];
END.