|##########|
|#MAGIC   #|CLABLLKA
|#PROJECT #|"ImportHelp"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx------
|##########|
DEFINITION MODULE LongSets;

FROM System IMPORT LONGSET;

TYPE LongSet = ARRAY OF LONGSET;
     LSetPtr = CLASSPTR TO LongSet;

PROCEDURE CreateSet(VAR set : LSetPtr;len : INTEGER);


$$OwnHeap:=TRUE
PROCEDURE Unite(REF s1,s2 : LongSet):LongSet;

$$OwnHeap:=TRUE
PROCEDURE Intersect(REF s1,s2 : LongSet):LongSet;

PROCEDURE isIn(i : INTEGER;REF s : LongSet):BOOLEAN;

PROCEDURE isEmpty(REF s : LongSet):BOOLEAN;

PROCEDURE isPartOf(REF s1,s2 : LongSet):BOOLEAN;


PROCEDURE Include(VAR s : LongSet;i : INTEGER);

PROCEDURE Exclude(VAR s : LongSet;i : INTEGER);


$$OwnHeap:=TRUE
PROCEDURE LConst(REF a : ARRAY OF INTEGER):LongSet;

$$OwnHeap:=TRUE
PROCEDURE Empty():LongSet;



END LongSets.

