DIRECTORY
Atom USING [MakeAtom],
PFS USING [PathFromRope],
Rope USING [IsEmpty, ROPE],
TextEdit USING [ChangeLooks, ChangeStyle, PutFormat, ReplaceByRope],
TextNode USING [LastChild, NewTextNode, Root],
Tioga USING [Looks, noLooks, Node, NodeRep],
TiogaFileOps,
TiogaIO USING [ToFile];

TiogaFileOpsImpl: CEDAR PROGRAM
IMPORTS Atom, PFS, Rope, TextEdit, TextNode, TiogaIO
EXPORTS TiogaFileOps
= BEGIN OPEN TiogaFileOps;

Ref: TYPE = Tioga.Node; -- points to a Tioga node
NodeBody: PUBLIC TYPE = Tioga.NodeRep;

CreateRoot: PUBLIC PROC RETURNS [root: Ref] = {
root м TextNode.NewTextNode[];
};

InsertNode: PUBLIC PROC [x: Ref, child: BOOL м FALSE] RETURNS [new: Ref] = {
new м TextNode.NewTextNode[];
IF child
THEN { new.next м x.child; x.child м new; new.parent м x }
ELSE { new.next м x.next; x.next м new; new.parent м x.parent };
};

InsertAsLastChild: PUBLIC PROC [x: Ref, prevLast: Ref м NIL] RETURNS [new: Ref] = {
IF NOT(prevLast#NIL AND prevLast.next=NIL AND prevLast.parent=x)
THEN prevLast м TextNode.LastChild[x];
new м IF prevLast=NIL
THEN InsertNode[x, TRUE]
ELSE InsertNode[prevLast, FALSE];
};

SetContents: PUBLIC PROC [x: Ref, txt: Rope.ROPE] = {
[] м TextEdit.ReplaceByRope[root: TextNode.Root[x], dest: x, rope: txt];
};

AddLooks: PUBLIC PROC [x: Ref, start, len: INT, look: CHAR ['a..'z], root: Ref м NIL] = {
looks: Tioga.Looks м Tioga.noLooks;
looks[look] м TRUE;
IF root = NIL THEN root м TextNode.Root[x];
TextEdit.ChangeLooks[root: root, text: x, add: looks, start: start, len: len];
};

SetFormat: PUBLIC PROC [x: Ref, format: Rope.ROPE] = {
name: ATOM м IF format.IsEmpty THEN NIL ELSE Atom.MakeAtom[format];
TextEdit.PutFormat[x, name];
};

SetStyle: PUBLIC PROC [x: Ref, style: Rope.ROPE] = { TextEdit.ChangeStyle[x, style] };

Store: PUBLIC PROC [x: Ref, filename: Rope.ROPE] = {
[] м TiogaIO.ToFile[PFS.PathFromRope[filename], x];
};

END.
   ┌  
TiogaFileOpsImpl.mesa
Copyright ╙ 1985, 1991, 1992 by Xerox Corporation.  All rights reserved.
written by Bill Paxton, June 1982
last written by Paxton. September 22, 1982 1:19 pm
Last Edited by: Maxwell, January 6, 1983 11:48 am
Rick Beach, March 28, 1985 10:02:14 am PST
Michael Plass, March 27, 1985 5:06:37 pm PST
Doug Wyatt, December 23, 1991 5:37 pm PST

-- if ~child then new is sibling of x
-- else new is first child of x
-- prevLast is optional accelerator
Э╩  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ	╧eЬ<ЩHKЪЬ!Щ!KЪЬ2Щ2KЩ1KЩ*KЩ,KЩ)KЩ ЧЪ╧k	Ш	KЪЬЮЬШKЪЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮЬ6ШDKЪЬ	ЮЬ Ш.KЪЬЮЬ!Ш,KЪЬШKЪЬЮЬ
ШЧKШ KЪ╧nЬЮЬЮШKЪЮЬЮЬ#Ш4KЪЮЬШKЪЬЮЬЮЬШШ KЪЬЮЬ╧cШ1KЪЬ
ЮЬЮЬШ&KШ ЪЯ
ЬЮЬЮЬЮЬШ/KШKЪЬШKШ ЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШLKЪа%Щ%KЪаЩKШЪЮЬШKЪЮЬ6Ш:KЪЮЬ<Ш@ЧKЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШSKЪа#Щ#ЪЮЬЮЬ
ЮЬЮЬЮЬЮЬШ@KЪЮЬ"Ш&ЧЪЬЮЬ
ЮШKЪЮЬЮЬШKЪЮЬЮЬШ!ЧKЪЬШKШ ЧЪЯЬЮЬЮЬЮЬШ5KШHKЪЬШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШYKШ#KЪЬЮЬШKЪЮЬЮЬЮЬШ+KШNKШKШ ЧЪЯ	ЬЮЬЮЬЮЬШ6KЪЬЮЬЮЬЮЬЮЬЮЬШCKШKШKШ ЧKЪЯЬЮЬЮЬЮЬ'ШVKШ ЪЯЬЮЬЮЬЮЬШ4KЪЬЮЬШ3KЪЬШЧЧKШ KЪЮЬШЧ ЕЧ    R  C  