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;
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.