DIRECTORY AMBridge, AMTypes, PrincOps, PrincOpsUtils, RoseRun, RoseTypes;RoseStops: CEDAR PROGRAMIMPORTS AMBridge, AMTypes, PrincOpsUtils, RoseTypesEXPORTS RoseRun =BEGINProc: TYPE = UNSAFE PROCEDURE ANY RETURNS ANY;TV: TYPE = AMTypes.TV;ROPE: TYPE = RoseTypes.ROPE;DisabledList: TYPE = LIST OF Location;Location: TYPE = RECORD [proc: Proc, pc: PrincOps.BytePC];disableds: DisabledList _ NIL;fudge: BOOL _ FALSE;DisableableStop: PUBLIC PROC [proc: Proc, msg: ROPE, data: REF ANY _ NIL] = {start, local, procTV: TV;disProc: Proc _ NIL;disPC: PrincOps.BytePC;TRUSTED {start _ AMBridge.TVForFrame[PrincOpsUtils.MyLocalFrame[]]};IF fudgeTHEN TRUSTED {proc _ AMBridge.TVToProc[AMBridge.TVForProc[proc]]};FOR local _ start, AMTypes.DynamicParent[local] DOIF local = NIL THEN ERROR;procTV _ NIL;procTV _ AMTypes.Procedure[local !AMTypes.Error => CONTINUE];IF procTV # NIL THEN {procProc: Proc;TRUSTED {procProc _ AMBridge.TVToProc[procTV]};IF procProc = proc THEN EXIT;};ENDLOOP;local _ AMTypes.DynamicParent[local];procTV _ AMTypes.Procedure[local];TRUSTED {disProc _ AMBridge.TVToProc[procTV];disPC _ AMBridge.ContextPC[local]};FOR dl: DisabledList _ disableds, dl.rest WHILE dl # NIL DOIF dl.first = [disProc, disPC] THEN RETURN;ENDLOOP;SIGNAL RoseTypes.Stop[msg: msg, data: data];};DisableThisStop: PUBLIC PROC [fh: PrincOps.FrameHandle] RETURNS [ok: BOOL] =BEGINstart, local, procTV: TV;subGoal, disProc: Proc _ NIL;disPC: PrincOps.BytePC;TRUSTED {start _ AMBridge.TVForFrame[fh]};FOR local _ start, AMTypes.DynamicParent[local] DOprocProc: Proc;procTV _ NIL;IF local = NIL THEN RETURN [FALSE];procTV _ AMTypes.Procedure[local !AMTypes.Error => CONTINUE];IF procTV # NIL THEN {TRUSTED {procProc _ AMBridge.TVToProc[procTV]};IF procProc = subGoal THEN EXIT;IF procProc = DisableableStop THEN {IF subGoal # NIL THEN ERROR;procTV _ AMTypes.Argument[local, 1];TRUSTED {subGoal _ AMBridge.TVToProc[procTV]};};};ENDLOOP;local _ AMTypes.DynamicParent[local];procTV _ AMTypes.Procedure[local];TRUSTED {disProc _ AMBridge.TVToProc[procTV];disPC _ AMBridge.ContextPC[local]};disableds _ CONS[[disProc, disPC], disableds];ok _ TRUE;END;END.    X  Rosemary>RoseStops.MesaLast Edited by: Spreitzer, March 29, 1984 6:41:18 pm PST Э╩Г  Ц"cedar" styleШ IcodeЩJЩ8KШ KЪ╧k	Ь@ШIKШ Ъ╨bx	ЬЭЬЭШKЪЭЬ,Ш3KЪЭЬ
ШЧKШ KЪЭШKШ KЪ╧nЬЭЬЭЬЭ	ЬЭЬЭЬЭЬШ.KШ KЪЭЬЭЬЭЬШKЪЭЬЭЬЭЬШKШ KЪЬЭЬЭЬЭЬ
Ш&KШ KЪЬ
ЭЬЭЬ#Ш:KШ KЪЬЭЬШKШ KЪЬЭЬЭЬШKШ ЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬШMKЪЬЭЬШKЪЬЭЬШKЪЬШKЪЭЬ=ШDЪЭЬШKЪЭЬЭЬ6ШBЧЪЭЬ-ЭШ2KЪЭЬ	ЭЬЭЬЭЬШKЪЬ	ЭЬШKЪЬ3ЭЬШ=ЪЭЬ
ЭЬЭЬШKШKЪЭЬ(Ш/KЪЭЬЭЬЭЬШKШЧKЪЭЬШЧKЪЬ%Ш%KЪЬ"Ш"ЪЭЬШ	KЪЬ$Ш$KЪЬ#Ш#ЧЪЭЬ'ЭЬЭЬЭШ;KЪЭЬЭЬЭЬШ+KЪЭЬШЧKЪЭЬ&Ш,KЪЬШЧKШ Ъ
ЯЬЭЬЭЬЭЬЭЬШLKЪЭШKЪЬЭЬШKЪЬЭЬШKЪЬШKЪЭЬ#Ш*ЪЭЬ-ЭШ2KШKЪЬ	ЭЬШKЪ
ЭЬ	ЭЬЭЬЭЬЭЬШ#KЪЬ3ЭЬШ=ЪЭЬ
ЭЬЭЬШKЪЭЬ(Ш/KЪЭЬЭЬЭЬШ ЪЭЬЭЬШ$KЪЭЬЭЬЭЬЭЬШKЪЬ$Ш$KЪЭЬ'Ш.KШЧKШЧKЪЭЬШЧKЪЬ%Ш%KЪЬ"Ш"ЪЭЬШ	KЪЬ$Ш$KЪЬ#Ш#ЧKЪЬЭЬШ.KЪЬЭЬШ
KЪЭЬШЧKШ KЪЭЬШЧ ЕЧ    в  }  