-- PString.Mesa, last modified August 21, 1982 3:31 pm
DIRECTORY
  Rope: TYPE USING [ROPE];

PString: CEDAR DEFINITIONS = {
OPEN Rope;

Stream: TYPE = PRIVATE RECORD[place: INT, node: ROPE];

ConvertStream: PROC[Stream] RETURNS[ROPE];
CopyStream: PROC[Stream] RETURNS[Stream];
Empty: PROC[ROPE] RETURNS [BOOLEAN];
EmptyS: PROC[Stream] RETURNS [BOOLEAN];
Item: PROC[Stream] RETURNS[CHARACTER, Stream];
MakeInteger: PROC[ROPE] RETURNS [INT];
MakeNUM: PROC[INT] RETURNS [ROPE];
NewStream: PROC[ROPE] RETURNS[Stream];
StringToFile: PROC[ROPE] RETURNS[ROPE];
Sub: PROC[ROPE,INT] RETURNS[CHARACTER];
SubStream: PROC[Stream,INT] RETURNS[CHARACTER];
SubString: PROC[ROPE,INT,INT] RETURNS [ROPE];
SubStringStream: PROC[Stream,INT,INT] RETURNS [ROPE];

}.