DIRECTORYTerminalIO,Rope,Convert,Menus,OrderedRefArray,IPTop,IPTopOps,IPMVStackOps;IPMVStackOpsImpl: CEDAR PROGRAM	IMPORTS TerminalIO, Rope,  Convert, OrderedRefArray, IPTopOps  EXPORTS IPMVStackOps =BEGIN OPEN TIO: TerminalIO, IPMVStackOps;MenuHit: PUBLIC PROC [top: IPTop.Ref, oldPrevTrack, trackKept: LIST OF REF, command: ATOM, mouse: Menus.MouseButton, shift, control: BOOL, trialSolns: OrderedRefArray.Ref] RETURNS [prevTrack: LIST OF REF, reGeom: BOOL _ FALSE, refreshFlag: BOOL _ TRUE] ={prevTrack _ oldPrevTrack; --defaultSELECT command FROM$Undo =>{noOfSteps: NAT _ TIO.RequestInt["Number of Steps to Undo: "];TIO.WriteRope[Rope.Cat["Undoing ", Convert.RopeFromInt[noOfSteps], " steps..."]];WHILE noOfSteps # 0 DOprevTrack _ CONS[IPTopOps.Undo1[top], prevTrack];noOfSteps _ noOfSteps.PRED;ENDLOOP;reGeom _ TRUE};$Un1 =>{TIO.WriteRope["Undo previous step..."];prevTrack _ CONS[IPTopOps.Undo1[top], prevTrack];reGeom _ TRUE};$ToSoln =>{IF trialSolns = NIL THEN {TIO.WriteRope["No Solutions .. doing nothing"]; RETURN}ELSE {solnNum: INT _ TIO.RequestInt[Rope.Cat["Select a solution in [1..",Convert.RopeFromInt[OrderedRefArray.Size[trialSolns]],  "]: "]];value: INT;soln: REF;TIO.WriteRope["GettingSolution... this solution has value"];[soln, value] _ OrderedRefArray.Fetch[trialSolns, solnNum];prevTrack _ IPTopOps.Undo[top, IPTopOps.StackSize[top]];IPTopOps.Redo[top, NARROW[soln]];TIO.WriteInt[value];};reGeom _ TRUE};$Redo =>{which: NAT _ TIO.RequestSelection["OneOf: ", LIST["Previous Track", "Go to the track kept"]];TIO.WriteRope["Redoing.."];SELECT which FROM1 => {oldPrevTrack: LIST OF REF _ prevTrack;IF prevTrack = NIL THEN {TIO.WriteRope["previous track empty...Done"]; RETURN}ELSE {prevTrack _ IPTopOps.Undo[top, IPTopOps.StackSize[top]];IPTopOps.Redo[top, oldPrevTrack]};};2 => {prevTrack _ IPTopOps.Undo[top, IPTopOps.StackSize[top]];IPTopOps.Redo[top, trackKept];};ENDCASE => TIO.WriteRope["..Nothing to do"];reGeom _ TRUE};$Re1 =>{TIO.WriteRope["Redoing ..."];IF prevTrack = NIL THEN {TIO.WriteRope["nothing...Done"]; RETURN}ELSE {TIO.WriteRope["1 step.."]; IPTopOps.Redo1[top, prevTrack.first];};prevTrack _ prevTrack.rest;reGeom _ TRUE};$KepTrk =>{TIO.WriteRope["KeepingTrack.."];trackKept _ IPTopOps.GetTrack[top];refreshFlag _ FALSE;};$ClrStks => {TIO.WriteRope["Clear undo and redo stacks.."];prevTrack _ IPTopOps.GetTrack[top];trackKept _ NIL; --What was there is now meaningless--IPTopOps.ResetStacks[top];refreshFlag _ FALSE;};$StkSz =>{TIO.WriteRope[Rope.Cat["The Stacks size is: ", Convert.RopeFromInt[IPTopOps.StackSize[top]], "\n"]];refreshFlag _ FALSE;};ENDCASE => ERROR;}; --MenuHitEND.    ^  --File: IPMVStackOpsImpl.mesaLast Edited by: CSChow, January 12, 1985 10:25:12 am PST‌ت™  ک Jڑœ™J™8J™ ڑدk	ک	JکIcodeڑœکKکJکJڑœکJڑœکJڑœ	ک	Jڑœک—Jک ڑœ‌œ‌دaک Kڑ‌œ8ک?Kڑ‌œکIunitڑ‌œ‌œ‌œک)Jک ڑ دnœ‌œ‌œ+‌œ‌œ‌œ‌œ,‌œ#‌œ‌œ‌œ‌œ
‌œ‌œ‌œ‌œکےKڑœدc	ک#ڑ‌œ	‌کڑœ‌œ‌œ)کFJڑ‌œNکQڑ‌œ‌کKڑœ‌œ!ک1Kڑœ‌œکKڑ‌œک—Jڑœ	‌œک—ڑœکJڑ‌œ$ک'Jڑœ‌œ!ک1Kڑœ	‌œک—کڑ‌œ‌œکKڑ‌œ‌œ-‌œک=ڑ‌œکڑœ	‌œ‌œک'KڑœکKڑœ8ک8Kڑœک—KکKڑœ‌œک
Kک<Kڑœ ںœک;Kڑœ8ک8Kڑœ‌œک!Kڑ‌œک——Jڑœ	‌œک—ڑœ‌œ‌œ‌œ,کfJڑ‌œکڑ‌œ‌کڑœکJڑœ‌œ‌œ‌œک&ڑ‌œ‌œکKڑ‌œ‌œ+‌œک;ڑ‌œ:ک>Kڑœ"ک"—Kڑœک——ڑœکKڑœ8ک8Kڑœ ک —Kڑ‌œ‌œک,—Kڑœ	‌œک—ڑœکJڑ‌œکڑ‌œ‌œکKڑ‌œ‌œ‌œک.Kڑ‌œ‌œ?کH—JڑœکJڑœ	‌œک—کJڑ‌œک Jڑœ#ک#Jڑœ‌œک—کKڑ‌œ+ک.Jڑœ#ک#Jڑœ‌œ %ک6JڑœکJڑœ‌œکJڑœک—ڑœ
ک
Jڑ‌œaکdJڑœ‌œک—Kڑ‌œ‌œک—Kک Kڑœ 	ک—Jک Jڑ‌œک—— …—    
ک  ڈ  