home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / RefDict.4gh < prev    next >
Encoding:
Text File  |  1996-07-02  |  1.2 KB  |  43 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. --      (c)     Westmount Technology    1994
  4. --
  5. --    File:        @(#)RefDict.4gh    1.1
  6. --    Author:
  7. --    Description:    A simple RefDict (map of key-value pairs)
  8. --            Both key and value are ixObject references
  9. --
  10. -----------------------------------------------------------------------------
  11.  
  12. INCLUDE "ORefSet.4gh"
  13.  
  14. CLASS DictSlot
  15.     PRIVATE VARIABLE key, value ixObject
  16.  
  17.     FUNCTION DictSlot(aKey ixObject, aValue ixObject)
  18.  
  19.     FUNCTION isEqualTo(other ixObject) RETURNING BOOLEAN
  20.  
  21.     FUNCTION getKey() RETURNING ixObject
  22.     FUNCTION getValue() RETURNING ixObject
  23.     FUNCTION setValue(newValue ixObject) RETURNING VOID
  24. END CLASS
  25.  
  26. CLASS RefDict
  27.     PRIVATE VARIABLE s ORefSet
  28.  
  29.     FUNCTION RefDict()
  30.  
  31.     FUNCTION find(key ixObject) RETURNING DictSlot
  32.     FUNCTION set(key ixObject, value ixObject) RETURNING VOID
  33.     FUNCTION get(key ixObject) RETURNING ixObject
  34.     FUNCTION remove(key ixObject) RETURNING VOID
  35.     FUNCTION isPresent(key ixObject) RETURNING BOOLEAN
  36.     FUNCTION size() RETURNING INTEGER
  37.  
  38.     FUNCTION firstKey() RETURNING ixObject
  39.     FUNCTION nextKey() RETURNING ixObject
  40.     FUNCTION firstValue() RETURNING ixObject
  41.     FUNCTION nextValue() RETURNING ixObject
  42. END CLASS
  43.