--File: PlaceCompsTest.mesa -- Last Edited by: CSChow, February 2, 1985 2:39:20 am PST DIRECTORY Real, Rope, List, TerminalIO, OrderedRefArray, IPCoTab, IPTop, IPChWidthEst, IPMainViewer, IPPlaceProcs, IPPlaceKit, IPPlaceXamples, IPPlaceBinPack; PlaceCompsTest: CEDAR PROGRAM IMPORTS List, OrderedRefArray, IPCoTab, IPMainViewer, IPPlaceProcs, IPPlaceKit, IPPlaceXamples, IPPlaceBinPack = BEGIN A1: PROC[breadth, keep: INT, compList: LIST OF REF] = { coTab: IPCoTab.Ref _ IPMainViewer.MVTop.coTab; comps: LIST OF IPCoTab.Component _ NIL; compList _ List.Reverse[compList]; UNTIL compList = NIL DO comps _ CONS[IPCoTab.GetComponent[coTab, NARROW[compList.first]], comps]; compList _ compList.rest; ENDLOOP; IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceComps[IPMainViewer.MVTop, comps, IPPlaceXamples.PlaceCompTGenX1, IPPlaceXamples.PlaceEvaluatorX1, IPMainViewer.TrialSolutions]; }; --TestA A2: PROC[breadth, keep: INT, compList: LIST OF REF] = { coTab: IPCoTab.Ref _ IPMainViewer.MVTop.coTab; comps: LIST OF IPCoTab.Component _ NIL; compList _ List.Reverse[compList]; UNTIL compList = NIL DO comps _ CONS[IPCoTab.GetComponent[coTab, NARROW[compList.first]], comps]; compList _ compList.rest; ENDLOOP; IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceComps[IPMainViewer.MVTop, comps, IPPlaceXamples.PlaceCompTGenX1, IPPlaceXamples.PlaceEvaluatorX2, IPMainViewer.TrialSolutions]; }; --A2 B1: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceXamples.OrderingFnX1, IPPlaceXamples.PlaceCompTGenX1, IPPlaceXamples.PlaceEvaluatorX1, IPMainViewer.TrialSolutions] };--B1 B2: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceXamples.OrderingFnX1, IPPlaceXamples.PlaceCompTGenX2, IPPlaceXamples.PlaceEvaluatorX2, IPMainViewer.TrialSolutions] };--B2 C1: PROC[numb, keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.RemoveComps[IPMainViewer.MVTop, numb, IPPlaceXamples.RemoveCompsTGenX1, IPPlaceXamples.RemoveEvaluatorX1, IPMainViewer.TrialSolutions] }; --C1 D1: PROC[remove, numbOfTrials, keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceImprove[IPMainViewer.MVTop, remove, numbOfTrials, IPPlaceXamples.RemoveCompsTGenX1, IPPlaceXamples.RemoveEvaluatorX1, IPPlaceXamples.PlaceCompTGenX2, IPPlaceXamples.PlaceEvaluatorX2, IPMainViewer.TrialSolutions] }; --D1 E: PROC[comp: Rope.ROPE, refVer: BOOL, keep: NAT, keepInit: BOOL] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceKit.CompactComp0[IPMainViewer.MVTop, IPCoTab.GetComponent[IPMainViewer.MVTop.coTab, comp], (IF refVer THEN ver ELSE hor), IPPlaceBinPack.PlaceEvaluator1, IPMainViewer.TrialSolutions, 0, keepInit]; }; F1: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceBinPack.OrderingFn1, IPPlaceBinPack.PlaceCompTGen1, IPPlaceBinPack.PlaceEvaluator1, IPMainViewer.TrialSolutions] };--F1 F2: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceBinPack.OrderingFn1, IPPlaceBinPack.PlaceCompTGen1, IPPlaceBinPack.PlaceEvaluator2, IPMainViewer.TrialSolutions] };--F2 G1: PROC[breadth, keep: INT, compList: LIST OF REF] = { coTab: IPCoTab.Ref _ IPMainViewer.MVTop.coTab; comps: LIST OF IPCoTab.Component _ NIL; compList _ List.Reverse[compList]; UNTIL compList = NIL DO comps _ CONS[IPCoTab.GetComponent[coTab, NARROW[compList.first]], comps]; compList _ compList.rest; ENDLOOP; IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceComps[IPMainViewer.MVTop, comps, IPPlaceBinPack.PlaceCompTGen1, IPPlaceBinPack.PlaceEvaluator1, IPMainViewer.TrialSolutions]; }; --G1 H1: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceBinPack.OrderingFn1, IPPlaceBinPack.PlaceCompTGen1, IPPlaceBinPack.PlaceEvaluator1, IPMainViewer.TrialSolutions] };--H1 H2: PROC[keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceProcs.PlaceInit[IPMainViewer.MVTop, IPPlaceBinPack.OrderingFn1, IPPlaceBinPack.PlaceCompTGen1, IPPlaceBinPack.PlaceEvaluator2, IPMainViewer.TrialSolutions] };--H2 J1: PROC[depth, keep: NAT] ={ IPMainViewer.TrialSolutions _ OrderedRefArray.Create[keep]; IPPlaceKit.FTPerturbTop[IPMainViewer.MVTop, IPPlaceBinPack.PlaceEvaluator1, depth, IPMainViewer.TrialSolutions, 0] }; --J1 END. †--Intro: The whole purpose of this module is to use of simple names in place of -- a series of procedures. --Test.A --Test.B Κ7˜J˜J˜:J˜codešΟk ˜ K˜K˜K˜K˜ Kšœ˜Kšœ˜K˜Kšœ ˜ Kšœ ˜ Kšœ ˜ K˜ Kšœ˜Kšœ˜K˜K™QK™K˜—šœœ˜Jšœh˜oJšœ˜J˜J™J˜š œœœ œœœ˜7J˜.Jšœœœœ˜'Jšœ"˜"šœ œ˜Jšœœœ˜IJšœ˜Jšœ˜—Jšœ;˜;Jšœ‘˜‘JšœΟc˜ —J˜J™J˜š œœœ œœœ˜7J˜.Jšœœœœ˜'Jšœ"˜"šœ œ˜Jšœœœ˜IJšœ˜Jšœ˜—Jšœ;˜;Jšœ‘˜‘Jšœžœ˜—J˜šœœœ˜Jšœ;˜;Jšœ₯˜₯Jšœž˜—J˜šœœœ˜Jšœ;˜;Jšœ₯˜₯Jšœž˜—J˜šΟnœœ œ˜Jšœ;˜;Jšœ“˜“Jšœž˜—J˜šŸœœœ˜,Jšœ;˜;Jšœ Ÿ œΜ˜εJšœž˜—J˜š œœ œ œœ œ˜DJšœ;˜;KšœcœœœQ˜ΛJšœ˜—šŸœœœ˜Jšœ;˜;Jšœ’˜’JšœžŸ˜—J˜šŸœœœ˜Jšœ;˜;Jšœ’˜’JšœžŸ˜—š œœœ œœœ˜7J˜.Jšœœœœ˜'Jšœ"˜"šœ œ˜Jšœœœ˜IJšœ˜Jšœ˜—Jšœ;˜;Jšœ˜Jšœžœ˜—J˜šŸœœœ˜Jšœ;˜;Jšœ’˜’JšœžŸ˜—J˜šŸœœœ˜Jšœ;˜;Jšœ’˜’JšœžŸ˜—J˜šŸœœœ˜Jšœ;˜;Jšœr˜rJ˜Jšœž˜—J˜Jšœ˜——…—8υ