DIRECTORY CardTab, PriorityQueue; SiroccoDebugging: CEDAR MONITOR IMPORTS CardTab, PriorityQueue ~ { Item: TYPE ~ RECORD [ position: CARD, element: REF ]; First: PriorityQueue.SortPred ~ { one: REF Item ~ NARROW[x]; two: REF Item ~ NARROW[y]; RETURN[( one.position > two.position )]; }; DumpCardTab: PROC [x: CardTab.Ref] RETURNS [hook: LIST OF REF Item _ NIL] ~ { len: INT ~ CardTab.GetSize[x]; pq: PriorityQueue.Ref ~ PriorityQueue.Predict[len, First]; TakeNote: CardTab.EachPairAction ~ { guy: REF Item ~ NEW [Item _ [key, val]]; PriorityQueue.Insert[pq, guy]; }; [] _ CardTab.Pairs[x, TakeNote]; FOR i: INT IN [0..len) DO gal: REF Item ~ NARROW[PriorityQueue.Remove[pq]]; hook _ CONS[gal, hook]; ENDLOOP; }; }. ŽSiroccoDebugging.Mesa Copyright Ó 1986, 1987 by Xerox Corporation. All rights reserved. Bill Jackson (bj) June 4, 1987 0:41:56 am PDT Ê}˜codešœ™KšœB™BK™-—K˜šÏk ˜ Kšœ˜Kšœ˜—K˜šÏnœœ˜Kšœ˜"K˜šœœœ˜Kšœ œ˜Kšœ ˜ Kšœ˜—K˜šžœ˜!Kšœœœ˜Kšœœœ˜Kšœ"˜(Kšœ˜K˜—šž œœœœœœœ˜MKšœœ˜Kšœ:˜:šžœ˜$Jšœœœ˜(Kšœ˜Kšœ˜—Kšœ ˜ šœœœ ˜Kšœœœ˜1Kšœœ ˜Kšœ˜—Kšœ˜—Kšœ˜K˜——…—ÒÝ