home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / LongSets.def < prev    next >
Text File  |  1994-05-25  |  954b  |  48 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLKA
  3. |#PROJECT #|"ImportHelp"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE LongSets;
  11.  
  12. FROM System IMPORT LONGSET;
  13.  
  14. TYPE LongSet = ARRAY OF LONGSET;
  15.      LSetPtr = CLASSPTR TO LongSet;
  16.  
  17. PROCEDURE CreateSet(VAR set : LSetPtr;len : INTEGER);
  18.  
  19.  
  20. $$OwnHeap:=TRUE
  21. PROCEDURE Unite(REF s1,s2 : LongSet):LongSet;
  22.  
  23. $$OwnHeap:=TRUE
  24. PROCEDURE Intersect(REF s1,s2 : LongSet):LongSet;
  25.  
  26. PROCEDURE isIn(i : INTEGER;REF s : LongSet):BOOLEAN;
  27.  
  28. PROCEDURE isEmpty(REF s : LongSet):BOOLEAN;
  29.  
  30. PROCEDURE isPartOf(REF s1,s2 : LongSet):BOOLEAN;
  31.  
  32.  
  33. PROCEDURE Include(VAR s : LongSet;i : INTEGER);
  34.  
  35. PROCEDURE Exclude(VAR s : LongSet;i : INTEGER);
  36.  
  37.  
  38. $$OwnHeap:=TRUE
  39. PROCEDURE LConst(REF a : ARRAY OF INTEGER):LongSet;
  40.  
  41. $$OwnHeap:=TRUE
  42. PROCEDURE Empty():LongSet;
  43.  
  44.  
  45.  
  46. END LongSets.
  47.  
  48.