-- File: HeapString.mesa 
-- Last modified by:
  -- Evans on: April 11, 1980  10:57 AM
  -- Smokey on: Aug 4, 1980 3:01 PM
  
HeapString: DEFINITIONS =
  BEGIN
  
-- TYPEs and constants
  
  AppendChar: PROCEDURE [p: POINTER TO STRING, c: CHARACTER];
  AppendExtensionIfNeeded: PROCEDURE [to: POINTER TO STRING, extension: STRING]
    RETURNS [BOOLEAN];  
  AppendString: PROCEDURE [
    to: POINTER TO STRING, from: STRING, extra: CARDINAL ← 0];
  Merge: PROCEDURE [s1, s2: STRING, f1: BOOLEAN ← FALSE, f2: BOOLEAN ← FALSE]
    RETURNS [STRING];
  Replace: PROCEDURE [to: POINTER TO STRING, from: STRING];
  
END... of HeapString.mesa