DIRECTORY OrderedRefArray, IPCoTab, IPTop, IPPlaceKit; IPPlaceProcs: CEDAR DEFINITIONS = BEGIN PlaceInit: PROC[ top: IPTop.Ref, orderingFn: IPPlaceKit.OrderingFn, trialsGen: IPPlaceKit.PlaceCompTGen, placeEval: IPPlaceKit.PlaceEvaluator, results: OrderedRefArray.Ref ]; PlaceImprove: PROC[ top: IPTop.Ref, remove, numbOfTrials: NAT, removeTGen: IPPlaceKit.RemoveCompTGen, removeEval: IPPlaceKit.RemoveEvaluator, placeTGen: IPPlaceKit.PlaceCompTGen, placeEval: IPPlaceKit.PlaceEvaluator, results: OrderedRefArray.Ref ]; PlaceComps: PROC[ top: IPTop.Ref, comps: IPPlaceKit.Components, trialsGen: IPPlaceKit.PlaceCompTGen, placeEval: IPPlaceKit.PlaceEvaluator, results: OrderedRefArray.Ref, resultsAfter: NAT _ 0 ]; RemoveComps: PROC[ top: IPTop.Ref, numb: NAT, trialsGen: IPPlaceKit.RemoveCompTGen, removeEval: IPPlaceKit.RemoveEvaluator, results: OrderedRefArray.Ref, resultsAfter: NAT _ 0 ]; END. --File: IPPlaceProcs.mesa Last Edited by: CSChow, February 1, 1985 10:53:15 pm PST -- Initial Placement -- Placement improvement --The following procedures are called by PlaceInit -- Place all of comps --Remove numb of Components that have been placed Κ·˜Jšœ™J™8J™codešΟk ˜ Kšœ˜Kšœ˜Kšœ˜Kšœ ˜ —K˜šœœ œ˜'K˜šΟn œœ˜K™Kšœ˜Kšœ"˜"Kšœ%˜%Kšœ%˜%Kšœ˜Kšœ˜—K˜šž œœ˜K™Kšœ˜Kšœ˜Kšœœ˜Kšœ&˜&Kšœ'˜'Kšœžœ˜$Kšœ%˜%Kšœ˜Kšœ˜—K˜Kšœ)ž œ™3šž œœ˜Kšœ™Kšœ˜Kšœ˜Kšœžœ˜%Kšœ%˜%Kšœ˜Kšœœ˜Kšœ˜—K˜šž œœ˜K™1Kšœ˜Kšœœ˜ Kšœ%˜%Kšœ'˜'Kšœ˜Kšœœ˜Kšœ˜—K˜K˜Kšœ˜——…—ŽI