DIRECTORY Basics USING [Comparison]; OrderedSymbolTableRef: CEDAR DEFINITIONS = BEGIN Table: TYPE = REF Rep; Rep: TYPE; -- opaque CompareProc: TYPE = PROC[r1, r2: REF ANY] RETURNS [Basics.Comparison]; EachItemAction: TYPE = PROC[Item: REF ANY] RETURNS [quit: BOOL _ FALSE]; CreateTable: PROC [compare: CompareProc] RETURNS [Table]; Insert: PROC[tab: Table, item: REF ANY]; DestroyTable: PROC[tab: Table]; DeleteAllItems: PROC[tab: Table]; LookupSmallest: PROC[tab: Table] RETURNS [REF ANY]; LookupNextLarger: PROC[tab: Table, item: REF ANY] RETURNS [REF ANY]; EnumerateIncreasing: PROC[tab: Table, action: EachItemAction]; Size: PROC [tab: Table] RETURNS [INT]; END. Φ--File: OrderedSymbolTableRef.mesa Last Edited by: CSChow, February 1, 1985 0:23:15 am PST Preas, August 2, 1986 4:28:54 pm PDT --NB: This is only a TEMPORARY patch, should retrieved from ARCHIVE (Cedar5.2) Κd˜Jšœ"™"™7Icode™$—J™J™NK˜šΟk ˜ Kšœœ˜—K˜šœœ œ˜0J˜Jšœœœ˜Jšœ˜J˜Jš œ œœ œœœ ˜FJ˜Jš œœœœœœ ˜HJ˜šΟn œœœ ˜9K˜—Kšžœœœ˜)K˜Kšžœ˜ K˜Kšžœ˜"K˜Kšžœ œœ˜4K˜Kš žœœœœ˜EK˜Kšžœœ%˜>K˜Kšžœœœ˜&K˜K˜K˜J˜Jšœ˜——…—²μ