<Top>StructuredStreams.DF>> <> DIRECTORY Rope, IO; <> StructuredStreams: CEDAR DEFINITIONS = BEGIN Create: PROCEDURE [onTopOf: IO.STREAM, margin: INTEGER _ 69] RETURNS [ss: IO.STREAM]; <<"ss" has "onTopOf" as its backingStream.>> IsAnSS: PROCEDURE [s: IO.STREAM] RETURNS [BOOLEAN]; UnderStream: PROCEDURE [ss: IO.STREAM] RETURNS [IO.STREAM]; <> <> CloseThrough: PROCEDURE [self: IO.STREAM]; <> <> <> <<>> <> <> Begin, End: PROCEDURE [ss: IO.STREAM]; <> <<>> Bp: PROCEDURE [ss: IO.STREAM, united: BOOLEAN, offset: INTEGER]; <> <<>> ChangeMargin: PROCEDURE [ss: IO.STREAM, newMargin: INTEGER _ 69]; <> END.