Topspeed_JPI/TS/MODBASE/BIGSETS.DEF

DEFINITION MODULE BigSets;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/bigsets.dev   1.4   30 Dec 1990 17:58:46   coleb  $
 *
 *)


  CONST
    BitSetSize = 16;
    LastChSetNo = 255;
    MaxChArray = 15;

  TYPE
    ChSetArray = ARRAY [0..MaxChArray] OF BITSET;

  VAR
    DigitSet, ChSet : ChSetArray;

  PROCEDURE InitSet(VAR BSet : ARRAY OF BITSET);

  PROCEDURE AssignSet(Set1 : ARRAY OF BITSET; VAR
      Set2 : ARRAY OF BITSET);

  PROCEDURE InclSet(VAR BSet : ARRAY OF BITSET; n
      : CARDINAL);

  PROCEDURE ExclSet(VAR BSet : ARRAY OF BITSET; n
      : CARDINAL);

  PROCEDURE InSet(VAR BSet : ARRAY OF BITSET; n :
      CARDINAL) : BOOLEAN;

  PROCEDURE EqualSet(VAR SetOne, SetTwo : ARRAY OF
      BITSET) : BOOLEAN;

  PROCEDURE AppendSet(VAR BSet : ARRAY OF BITSET;
      st : ARRAY OF CHAR);

  PROCEDURE InclCh(VAR ChSet : ARRAY OF BITSET; ch
      : CHAR);

  PROCEDURE ExclCh(VAR ChSet : ARRAY OF BITSET; ch
      : CHAR);

  PROCEDURE InChSet(VAR ChSet : ARRAY OF BITSET;
      ch : CHAR) : BOOLEAN;

  PROCEDURE InTest(SetSt : ARRAY OF CHAR; TestCh :
      CHAR) : BOOLEAN;

  PROCEDURE SetUnion( SetOne, SetTwo: ARRAY OF
      BITSET; VAR result: ARRAY OF BITSET );

  PROCEDURE SetDifference( SetOne, SetTwo: ARRAY
      OF BITSET; VAR result: ARRAY OF BITSET );

  PROCEDURE SetIntersection( SetOne, SetTwo: ARRAY
      OF BITSET; VAR result: ARRAY OF BITSET );

  PROCEDURE SetSymmetricDiff( SetOne, SetTwo:
      ARRAY OF BITSET; VAR result: ARRAY OF BITSET
      );

  PROCEDURE Init();

END BigSets.