home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / ORSetDct.4gl < prev    next >
Encoding:
Text File  |  1996-07-02  |  2.3 KB  |  75 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. -- Copyright (c) 1995 by Westmount Technology B.V., Delft, The Netherlands.
  4. --
  5. -- This software is furnished under a license and may be used only in
  6. -- accordance with the terms of such license and with the inclusion of
  7. -- the above copyright notice. This software or any other copies thereof
  8. -- may not be provided or otherwise made available to any other person.
  9. -- No title to and ownership of the software is hereby transferred.
  10. --
  11. -- The information in this software is subject to change without notice
  12. -- and should not be construed as a commitment by Westmount Technology B.V.
  13. --
  14. -----------------------------------------------------------------------------
  15. --
  16. --    File        : @(#)ORSetDct.4gl    1.1
  17. --    Author        :
  18. --    Original date    : 3-2-1995
  19. --    Description    : A simple ORSetDict (map of key-value pairs)
  20. --              Key and value are ixObject references
  21. --
  22. -----------------------------------------------------------------------------
  23.  
  24. INCLUDE "ORSetDct.4gh"
  25.  
  26.  
  27. FUNCTION ORSetDict::ORSetDict()
  28.     LET dict = NEW RefDict()
  29. END FUNCTION
  30.  
  31. FUNCTION ORSetDict::append(key ixObject, value ixObject) RETURNING INTEGER
  32.     VARIABLE theORefSet ORefSet = dict.get(key) CAST ORefSet
  33.     IF theORefSet IS NULL THEN
  34.         LET theORefSet = NEW ORefSet()
  35.         CALL dict.set(key, theORefSet)
  36.     END IF
  37.     RETURN theORefSet.append(value)
  38. END FUNCTION
  39.  
  40. FUNCTION ORSetDict::get(key ixObject) RETURNING ORefSet
  41.     RETURN dict.get(key) CAST ORefSet
  42. END FUNCTION
  43.  
  44. FUNCTION ORSetDict::remove(key ixObject, value ixObject) RETURNING VOID
  45.     VARIABLE theORefSet ORefSet = dict.get(key) CAST ORefSet
  46.     IF theORefSet IS NULL THEN
  47.         RETURN
  48.     END IF
  49.     CALL theORefSet.remove(value)
  50. END FUNCTION
  51.  
  52. FUNCTION ORSetDict::isPresent(key ixObject) RETURNING BOOLEAN
  53.     RETURN dict.isPresent(key)
  54. END FUNCTION
  55.  
  56. FUNCTION ORSetDict::size() RETURNING INTEGER
  57.     RETURN dict.size()
  58. END FUNCTION
  59.  
  60. FUNCTION ORSetDict::firstKey() RETURNING ixObject
  61.     RETURN dict.firstKey()
  62. END FUNCTION
  63.  
  64. FUNCTION ORSetDict::nextKey() RETURNING ixObject
  65.     RETURN dict.nextKey()
  66. END FUNCTION
  67.  
  68. FUNCTION ORSetDict::firstValue() RETURNING ORefSet
  69.     RETURN dict.firstValue() CAST ORefSet
  70. END FUNCTION
  71.  
  72. FUNCTION ORSetDict::nextValue() RETURNING ORefSet
  73.     RETURN dict.nextValue() CAST ORefSet
  74. END FUNCTION
  75.