-- Space.mesa  Last Edited by Curry on October 1, 1980


Space: DEFINITIONS = BEGIN
  
HeapZone: PROCEDURE RETURNS [POINTER];

InitHeap:PROCEDURE[npages:CARDINAL];
EraseHeap:PROCEDURE;

GetSpace: PROCEDURE[nwords: CARDINAL] RETURNS [p:POINTER];
FreeSpace: PROCEDURE [p: POINTER];
FreeSpaceNil: PROCEDURE [p: POINTER]
	RETURNS [nil: POINTER] = INLINE
		BEGIN FreeSpace[p]; RETURN[NIL] END;

GetSpaceLong: PROCEDURE[nwords: CARDINAL]
	RETURNS [lp:LONG POINTER];
FreeSpaceLong: PROCEDURE [lp: LONG POINTER];
FreeSpaceLongNil: PROCEDURE [lp: POINTER]
	RETURNS [nil: LONG POINTER] = INLINE
		BEGIN FreeSpaceLong[lp]; RETURN[NIL] END;

GetString: PROCEDURE[nchars: CARDINAL] RETURNS [s:STRING];
FreeString: PROCEDURE [s: STRING];
FreeStringNil: PROCEDURE [s: STRING]
	RETURNS [nil: STRING] = INLINE
		BEGIN FreeString[s]; RETURN[NIL] END;
CopyString: PROCEDURE [s: STRING, longer: CARDINAL _ 0]
	RETURNS [newS: STRING];
EmptyString: PROCEDURE [s: STRING] RETURNS [BOOLEAN] =
	INLINE BEGIN RETURN[s = NIL OR s.length = 0] END;
    
ConstructLongPointer: PROCEDURE
	[pointer:POINTER, bank:UNSPECIFIED]
	RETURNS [LONG POINTER] = MACHINE CODE BEGIN END;

END.
(635)\57b5B25b8B31b9B29b9B12b9B51b9B26b12B98b12B58b13B32b16B109b9B50b10B25b13B96b10B71b11B100b20B