TiogaIO.mesa
Copyright Ó 1985, 1986, 1988, 1991, 1992 by Xerox Corporation. All rights reserved.
written by Bill Paxton, May 1981
last edit by Paxton. October 21, 1982 1:55 pm
Russ Atkinson, July 22, 1983 10:24 am
Willie-s, February 12, 1991 2:02 pm PST
Doug Wyatt, October 22, 1991 6:29 pm PDT
DIRECTORY
PFS USING [PATH, UniqueID, nullUniqueID, OpenFile],
IO USING [STREAM],
Rope USING [ROPE],
Tioga USING [Node];
TiogaIO: CEDAR DEFINITIONS
~ BEGIN
STREAM: TYPE ~ IO.STREAM;
ROPE: TYPE ~ Rope.ROPE;
Node: TYPE ~ Tioga.Node;
Error: ERROR;
GetDoc: PROC [s1, s2, s3: STREAM] RETURNS [Node];
PutDoc: PROC [s1, s2, s3: STREAM, root: Node];
GetDocRope: PROC [s1, s2, s3: STREAM] RETURNS [ROPE];
RopeFromSimpleDoc: PROC [Node] RETURNS [ROPE];
SimpleDocFromRope: PROC [ROPE] RETURNS [Node];
FromRope: PROC [rope: ROPE] RETURNS [Node];
ToStream: PROC [s: STREAM, root: Node] RETURNS [dataLen: INT];
ToRope: PROC [root: Node] RETURNS [ROPE];
Pair: TYPE ~ RECORD [contents: ROPE, formatting: ROPE];
FromPair: PROC [pair: Pair] RETURNS [Node];
ToPair: PROC [root: Node] RETURNS [Pair];
FromFile: PROC [fileName: PFS.PATH, wantedUniqueID: PFS.UniqueID ¬ PFS.nullUniqueID]
RETURNS [fullFName: PFS.PATH, uniqueID: PFS.UniqueID, root: Node];
ToFile: PROC [fileName: PFS.PATH, root: Node]
RETURNS [fullFName: PFS.PATH, uniqueID: PFS.UniqueID, dataLen: INT];
FromOpenFile: PROC [file: PFS.OpenFile]
RETURNS
[fullFName: PFS.PATH, uniqueID: PFS.UniqueID, root: Node];
ToOpenFile: PROC [file: PFS.OpenFile, root: Node]
RETURNS [fullFName: PFS.PATH, uniqueID: PFS.UniqueID, dataLen: INT];
WritePlainToStream: PROC [s: STREAM, root: Node, restoreDashes: BOOL ¬ FALSE];
WritePlainToRope: PROC [root: Node, restoreDashes: BOOL ¬ FALSE] RETURNS [ROPE];
END.