$save nolist

/*
 *============================================================================
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
 *
 *  Permission to use for any purpose, modify, copy, and make enhancements
 *  and derivative works of the software is granted if attribution is given to
 *  R.M. Gillmore, dba the ACME Software Deli, as the author
 *
 *  While the ACME Software Deli does not work for money, there is nonetheless
 *  a significant amount of work involved.  The ACME Software Deli maintains the
 *  rights to all code written, though it may be used and distributed as long as
 *  the following conditions are maintained.
 *
 *  1.  The copyright statement at the top of each code block is maintained in
 *      your distribution.
 *  2.  You do not identify yourself as the ACME Software Deli
 *  3.  Any changes made to the software are sent to the ACME Software Deli
 *============================================================================
 */


/*
 *	$Id: bitArray.ext 1157 2025-05-05 00:35:39Z rmgillmore $
 */


$if not BITARRAY_EXT_INCLUDED
$set( BITARRAY_EXT_INCLUDED )

$include (..\lib\comnDefs.ext)

	declare bitArray_t		literally	'pointer';

$if not BITARRAY_IMPLEMENTATION

/*
 **************************************
 *	Constructors
 **************************************
 */

createBitArray:
procedure ( numberBits ) bitArray_t	external;
	declare	numberBits		integer;
end createBitArray;

deleteBitArray:
procedure ( thisPtr ) external;
	declare	thisPtr		bitArray_t;
end deleteBitArray;

/*
 **************************************
 *	Accessors
 **************************************
 */

bitArrayLength:
procedure ( thisPtr ) integer external;
	declare	thisPtr		bitArray_t;
end bitArrayLength;

bitIsSet:
procedure ( thisPtr, bitIndex ) boolean external;
	declare	thisPtr		bitArray_t,
			bitIndex	integer;
end bitIsSet;

bitIsClear:
procedure ( thisPtr, bitIndex ) boolean external;
	declare	thisPtr		bitArray_t,
			bitIndex	integer;
end bitIsClear;

/*
 **************************************
 *	Manipulators
 **************************************
 */

newBitArrayLength:
procedure ( thisPtr, numberBits ) external;
	declare	thisPtr		bitArray_t,
			numberBits	integer;
end newBitArrayLength;

setBit:
procedure ( thisPtr, bitIndex ) external;
	declare	thisPtr		bitArray_t,
			bitIndex	integer;
end setBit;

clearBit:
procedure ( thisPtr, bitIndex ) external;
	declare	thisPtr		bitArray_t,
			bitIndex	integer;
end clearBit;

$endif
$endif
$restore