DIRECTORYAMBridge USING[ GFHFromTV, SetTVFromLC, TVForFrame, TVToCardinal, GetWorld, IsRemote, RemoteGFHFromTV, RemoteGlobalFrameHandle, TVForRemoteFrame ],AMEventsPrivate USING[ Outcome, ProvokeProcessEvent ],AMModel USING[ Context, ContextChildren, ContextClass, ContextWorld ],AMProcess USING[ nullProcess, Process, State ],AMProcessBasic USING[ Abort, GFTable, GFTableObject, Info, Thaw ],AMTypes USING[ Error, New, TV, TVType, TypeClass ],IO USING[ PutFR ],PrincOps USING[ FrameHandle, GlobalFrameHandle, PDA, PsbIndex, StartPsb ],Rope USING[ ROPE ],WorldVM USING[ Address, CurrentIncarnation, LocalWorld, Read, ShortAddress, World ];AMProcessImpl: MONITORIMPORTS AMBridge, AMEventsPrivate, AMModel, AMProcessBasic, AMTypes, IO, WorldVMEXPORTS AMProcess =BEGINProcess: TYPE = AMProcess.Process;nullProcess: Process = AMProcess.nullProcess;PSBI: TYPE = PrincOps.PsbIndex;PSBIToTV: PUBLIC PROC[world: WorldVM.World, psbi: PrincOps.PsbIndex] RETURNS[p: Process] =BEGINp _ AMTypes.New[CODE[PROCESS], mutable, world];AMBridge.SetTVFromLC[p, psbi];END;TVToPSBI: PUBLIC PROC[p: Process] RETURNS[world: WorldVM.World, psbi: PSBI] =BEGINIF AMTypes.TypeClass[AMTypes.TVType[p]] # processTHEN ERROR AMTypes.Error[typeFault, "TV should be for a process", AMTypes.TVType[p] ];psbi _ AMBridge.TVToCardinal[p];world _ AMBridge.GetWorld[p];END;GetProcesses: PUBLIC ENTRY PROC[context: LIST OF AMModel.Context _ NIL,states: LIST OF AMProcess.State]RETURNS[l: LIST OF Process] =BEGINENABLE UNWIND => NULL;world: WorldVM.World =IF context = NIL THEN WorldVM.LocalWorld[] ELSE AMModel.ContextWorld[context.first];count: CARDINAL = WorldVM.Read[world, LOOPHOLE[@PrincOps.PDA.count, WorldVM.Address]];filter: GFTable = ContextFrames[context, world];l _ NIL;FOR psbi: PSBI DECREASING IN [PrincOps.StartPsb .. PrincOps.StartPsb + count)DO state: AMProcess.State;frame: PrincOps.FrameHandle;[state: state, frame: frame] _PrincOpsInfo[world, psbi, TRUE, FALSE, TRUE, filter, states];IF state # dead AND frame # NILTHEN l _ CONS[first: PSBIToTV[world, psbi], rest: l];ENDLOOP;END;Name: PUBLIC PROC[p: Process] RETURNS[Rope.ROPE] =BEGINpsbi: PSBI;world: WorldVM.World;[world, psbi] _ TVToPSBI[p];RETURN[IO.PutFR["PSB %bB", [cardinal[psbi]]]]END;Freeze: PUBLIC PROC[processes: LIST OF Process, context: LIST OF AMModel.Context _ NIL] ={ FreezeOrAdjust[processes, context, FALSE] };Adjust: PUBLIC PROC[processes: LIST OF Process, context: LIST OF AMModel.Context _ NIL] ={ FreezeOrAdjust[processes, context, TRUE] };FreezeOrAdjust: ENTRY PROC[l: LIST OF Process, context: LIST OF AMModel.Context, thaw: BOOL] =BEGINworld: WorldVM.World =IF context = NIL THEN WorldVM.LocalWorld[] ELSE AMModel.ContextWorld[context.first];filter: GFTable = ContextFrames[context, world];FOR this: LIST OF Process _ l, this.rest UNTIL this = NILDO psbi: PSBI;pWorld: WorldVM.World;[pWorld, psbi] _ TVToPSBI[this.first];IF pWorld = worldTHEN [] _ PrincOpsInfo[world, psbi, TRUE, thaw, FALSE, filter];ENDLOOP;END;Thaw: PUBLIC PROC[l: LIST OF Process] =BEGINFOR this: LIST OF Process _ l, this.rest UNTIL this = NILDO psbi: PSBI;world: WorldVM.World;[world, psbi] _ TVToPSBI[this.first];AMProcessBasic.Thaw[world, psbi];ENDLOOP;END;GetState: PUBLIC ENTRY PROC[p: Process] RETURNS[state: AMProcess.State,faultData: LONG CARDINAL _ 0,priority: [0..7],stack: AMTypes.TV _ NIL,topFrame: BOOL ] =BEGINENABLE UNWIND => NULL;psbi: PSBI;world: WorldVM.World;frozenFrame, current: PrincOps.FrameHandle;[world, psbi] _ TVToPSBI[p];[state:state, faultData:faultData, priority:priority, frozenFrame:frozenFrame, topFrame:current] _PrincOpsInfo[world: world, psbi: psbi, fullStatus: TRUE];topFrame _ frozenFrame = current;IF frozenFrame # NILTHEN stack _ FrameToTV[world, frozenFrame]ELSE stack _ NIL;END; NotImplemented: ERROR = CODE;CallDebugger: PUBLIC PROC[p: Process, msg: Rope.ROPE] =BEGINpsbi: PSBI;world: WorldVM.World;frozenFrame: PrincOps.FrameHandle;[world, psbi] _ TVToPSBI[p];frozenFrame _ PrincOpsInfo[world: world, psbi: psbi].frozenFrame;IF frozenFrame = NILTHEN frozenFrame _ PrincOpsInfo[world: world, psbi: psbi, freeze: TRUE].frozenFrame;IF frozenFrame # NILTHEN BEGINoutcome: AMEventsPrivate.Outcome _AMEventsPrivate.ProvokeProcessEvent[p, FrameToTV[world, frozenFrame], msg];WITH o: outcome SELECT FROMproceed => NULL;quit => Abort[p];retry, returnFrom => ERROR NotImplemented[];ENDCASE => ERROR;END;END;LocalOnly: PUBLIC ERROR = CODE;Abort: PUBLIC PROC[p: Process] =BEGINpsbi: PSBI;world: WorldVM.World;[world, psbi] _ TVToPSBI[p];AMProcessBasic.Abort[world, psbi];END;GFTable: TYPE = AMProcessBasic.GFTable;gfTable: GFTable _ NEW[AMProcessBasic.GFTableObject[100]];ContextFrames: INTERNAL PROC[context: LIST OF AMModel.Context, world: WorldVM.World]RETURNS[filter: GFTable] =BEGINAdd: PROC[gfh: PrincOps.GlobalFrameHandle] =BEGINIF filter.count = filter.lengthTHEN BEGINold: GFTable = filter;filter _ NEW[AMProcessBasic.GFTableObject[filter.length+100]];FOR i: CARDINAL IN [0..old.count) DO filter[i] _ old[i] ENDLOOP;filter.count _ old.count;END;filter[filter.count] _ gfh;filter.count _ filter.count+1;END;Enum: PROC[child: AMModel.Context] RETURNS[stop: BOOL] =BEGINIF AMBridge.IsRemote[child]THEN BEGINgfh: AMBridge.RemoteGlobalFrameHandle = AMBridge.RemoteGFHFromTV[child];Add[LOOPHOLE[gfh.gfh]];ENDELSE Add[AMBridge.GFHFromTV[child]];stop _ FALSE;END;IF context = NILTHEN filter _ NILELSE BEGINfilter _ gfTable; filter.count _ 0; FOR this: LIST OF AMModel.Context _ context, context.rest UNTIL this = NILDO IF AMModel.ContextWorld[this.first] = worldTHEN SELECT AMModel.ContextClass[this.first] FROMworld => { filter _ NIL; EXIT };model => [] _ AMModel.ContextChildren[this.first, Enum];prog => [] _ Enum[this.first];ENDCASE => ERROR;ENDLOOP;END;END;PrincOpsInfo: PROC[world: WorldVM.World,psbi: CARDINAL,freeze: BOOL _ FALSE,thaw: BOOL _ FALSE,fullStatus: BOOL _ FALSE,filter: GFTable _ NIL,states: LIST OF AMProcess.State _ NIL]RETURNS[state: AMProcess.State,faultData: LONG CARDINAL,priority: [0..7],frame: PrincOps.FrameHandle,frozenFrame: PrincOps.FrameHandle,topFrame: PrincOps.FrameHandle] =BEGINwantedStates: PACKED ARRAY AMProcess.State OF BOOL _ ALL[FALSE];IF states = NILTHEN wantedStates _ ALL[TRUE]ELSE FOR s: LIST OF AMProcess.State _ states, s.rest UNTIL s = NILDO wantedStates[s.first] _ TRUE ENDLOOP;[state, faultData, priority, frame, frozenFrame, topFrame] _AMProcessBasic.Info[world, psbi, freeze, thaw, fullStatus, filter, wantedStates ];END;FrameToTV: PROC[world: WorldVM.World, frame: PrincOps.FrameHandle] RETURNS[AMTypes.TV] ={ RETURN[ IF frame = NILTHEN NILELSE IF world = WorldVM.LocalWorld[]THEN AMBridge.TVForFrame[frame]ELSE AMBridge.TVForRemoteFrame[[world: world,worldIncarnation: WorldVM.CurrentIncarnation[world],fh: LOOPHOLE[frame, WorldVM.ShortAddress]] ] ] };END.     Cedar Remote Debugging: processesAMProcessImpl.mesaAndrew Birrell  August 2, 1983 12:19 pmRuss Atkinson, January 19, 1983 9:12 pmReturnFrom: PUBLIC PROC[p: Process, frame: AMTypes.TV, result: AMTypes.TV] =Retry: PUBLIC PROC[p: Process, frame: AMTypes.TV, args: AMTypes.TV] =Э╩	y  Ш JШ JЪЬ!Щ!JЪЬЩJЪЬ'Щ'JЪЬ'Щ'JШ Ъ╧k	Ш	JЪЬ	ЭЬЕШУJЪЬЭЬ!Ш6JЪЬЭЬ9ШFJЪЬ
ЭЬ Ш/JЪЬЭЬ.ШBJЪЬЭЬЭЬШ3JЪЭЬЭЬ
ШJЪЬ	ЭЬ"ЭЬШJJЪЬЭЬЭЬШJЪЬЭЬGШTЧJШ ЪЬЭШJЪЭЬ>ЭЬ	ШPJЪЭЬШЧJШ JЪЭШJШ JЪЬ	ЭЬШ"JШ JШ-JШ JЪЭЬЭЬШJШ Ъ╧nЬЭЬЭЬ0ЭЬШZJЪЭШJЪЬЭЬЭЬШ/JШJЪЭЬШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШMJЪЭШJЪЭЬ/Ш1JЪЭЬЭЬLШVJШ JШJЪЭЬШJШ ЧЪЮЬЭЬЭЬЭЬ
ЭЬЭЬЭЬШGJЪЬЭЬЭЬШ JЪЭЬЭЬЭЬШJЪЭШJЪЭЬЭЬЭЬШШJЪЭЬЭЬЭЬЭЬ%ШTЧJЪЬЭЬЭЬЭЬШVJШ0JЪЬЭЬШJЪЭЬЭЬЭ
ЬЭЬ1ШMЪЭЬШJШШJЪЬЭЬЭЬЭЬШ=ЧJЪЭЬЭЬ	ЭШJЪЭЬЭЬ(Ш5ЧJЪЭЬШJЪЭЬШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ2JЪЭШJЪЬЭЬШJШJШJЪЭЬЭЬ$Ш-JЪЭЬШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШYJЪЬ%ЭЬШ.JШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШYJЪЬ%ЭЬШ-JШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ^JЪЭШШJЪЭЬЭЬЭЬЭЬ%ШTЧJШ0JЪ	ЭЬЭЬЭЬЭЬЭШ9ЪЭЬЭЬШJШJШ&JЪЭЬШJЪЭЬ ЭЬЭЬ
Ш?ЧJЪЭЬШJЪЭЬШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ'JЪЭШJЪ	ЭЬЭЬЭЬЭЬЭШ9ЪЭЬЭЬШJШJШ%JШ!ЧJЪЭЬШJЪЭЬШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ0JШJЪЬЭЬЭЬШJШJЪЬЭЬЭЬШJЪЬ
ЭЬШJЪЭШJЪЭЬЭЬЭЬШJЪЬЭЬШJШJШ+JШШbJЪЬ3ЭЬШ9ЧJШ!JЪЭЬЭШJЪЭЬ&Ш*JЪЭЬ	ЭЬШJЪЭЬШJШ ЧJЪЬЭЬЭЬШJШ ЪЮЬЭЬЭЬЭЬШ7JЪЭШJЪЬЭЬШJШJШ"JШJШAJЪЭЬЭШJЪЭЬ>ЭЬШTJЪЭЬЭШЪЭЬЭШ
Ш"JШKЧЪЭЬЭЬЭШJЪЬЭЬШJШJЪЬЭЬШ,ЧJЪЭЬЭЬШJЪЭЬШЧJЪЭЬШJШ JШ JШ ЧJЪЬЭЬЭЬЭЬШJШ ЪЮЬЭЬЭЬШ JЪЭШJЪЬЭЬШJШJШJШ"JЪЭЬШJШ ЧJЪЬLЩLJШ JЪЬEЩEJШ JШ JШ JЪЬ	ЭЬШ'JЪЬЭЬ$Ш:JШ Ъ
ЮЬЭЬЭЬ
ЭЬЭЬ'ШTJЪЭЬШJЪЭШЪЮЬЭЬ#Ш,JЪЭШJЪЭЬШЪЭЬЭШ
JЪЬШJЪЬ	ЭЬ2Ш>JЪ
ЭЬЭЬЭЬЭЬЭЬШ@JШJЪЭЬШЧJШJШJЪЭЬШЧЪЮЬЭЬЭЬЭЬШ8JЪЭШJЪЭЬШЪЭЬЭШ
JШHJЪЬЭЬШJЪЭШЧJЪЭЬ Ш$JЪЬЭЬШJЪЭЬШЧJЪЭЬЭШJЪЭЬ
ЭШЪЭЬЭШ
JЪЬ$Ш$JЪ	ЭЬЭЬЭЬ)ЭЬЭШJЪЭЬЭЬ)Ш.ЪЭЬЭЬ"ЭШ1JЪЬЭЬЭЬШ JШ8JШJЪЭЬЭЬШЧЧJЪЭЬШJЪЭЬШЧJЪЭЬШJШ ЧЪЮЬЭЬШ(JЪЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬЭЬЭЬШ&ЪЭЬШJШJЪЬЭЬЭЬШJШJШJШ"JШ!ЧJЪЭШJЪЬЭЬЭЬЭЬЭЬЭЬЭЬШ@JЪЭЬ
ЭШJЪЭЬЭЬЭЬШЪЭЬЭЬЭЬЭЬ"ЭЬЭШBJЪЭЬЭЬЭЬШ(ЧШ<JЪЬRШRЧJЪЭЬШJШ ЧЪЮ	ЬЭЬ4ЭЬ	ЭЬШXЪЬЭЬЭЬ	ЭШЪЭЬЭШJЪЭЬЭЬШ$JЪЭЬШЪЭЬШШJШ4JЪЬЭЬ%Ш1JШ ЧЧЧЧЧJЪЭЬШJШ Ч ЕЧ    `  %ў  