home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / RSetDict.4gh < prev    next >
Encoding:
Text File  |  1996-07-02  |  922 b   |  31 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. --      (c)     Westmount Technology    1995
  4. --
  5. --    File:        @(#)RSetDict.4gh    1.1
  6. --    Author:
  7. --    Description:    A simple RSetDict (map of key-value pairs)
  8. --            Key andvalue are ixObject references
  9. --
  10. -----------------------------------------------------------------------------
  11.  
  12. INCLUDE "RefSet.4gh"
  13. INCLUDE "RefDict.4gh"
  14.  
  15. CLASS RSetDict
  16.     PRIVATE VARIABLE dict RefDict
  17.  
  18.     FUNCTION RSetDict()
  19.  
  20.     FUNCTION add(key ixObject, value ixObject) RETURNING BOOLEAN
  21.     FUNCTION get(key ixObject) RETURNING RefSet
  22.     FUNCTION remove(key ixObject, value ixObject) RETURNING VOID
  23.     FUNCTION isPresent(key ixObject) RETURNING BOOLEAN
  24.     FUNCTION size() RETURNING INTEGER
  25.  
  26.     FUNCTION firstKey() RETURNING ixObject
  27.     FUNCTION nextKey() RETURNING ixObject
  28.     FUNCTION firstValue() RETURNING RefSet
  29.     FUNCTION nextValue() RETURNING RefSet
  30. END CLASS
  31.