-- Transport Mechanism Filestore - DEFS for bit maps -- -- A.D.Birrell December 14, 1978 11:10 AM -- -- Hankins, 11-Jun-84 16:54:26 Klamath update (removing Bravo format chars) BitMapDefs: DEFINITIONS = BEGIN MapLevel: TYPE = RECORD [ level: CARDINAL, next: Map, data: DESCRIPTOR FOR ARRAY OF WORD]; Map: TYPE = POINTER TO MapLevel; MapIndex: TYPE = CARDINAL; Set: PROCEDURE [Map, MapIndex]; -- sets bit 'on' -- Test: PROCEDURE [Map, MapIndex] RETURNS [BOOLEAN]; -- returns TRUE iff bit is 'on' Clear: PROCEDURE [Map, MapIndex]; -- sets the specified bit 'off' FindFree: PROCEDURE [Map] RETURNS [MapIndex]; -- finds the first 'off' bit in the map, sets it 'on' (?) and returns its number -- Create: PROCEDURE [CARDINAL] RETURNS [Map]; -- allocates a map of specified size and sets all its bits off' -- END.