DIRECTORYAtom USING [MakeAtom],PutGet USING [ToFile],Rope USING [IsEmpty, ROPE],TextEdit USING [AddLooks, ChangeFormat, ChangeStyle],TextLooks USING [Looks, noLooks],TextNode USING [Body, LastChild, NewTextNode, Ref, Root],TiogaFileOps;TiogaFileOpsImpl: CEDAR PROGRAMIMPORTS Atom, PutGet, Rope, TextEdit, TextNodeEXPORTS TiogaFileOps= BEGIN OPEN TiogaFileOps;Ref: TYPE = REF NodeBody; -- points to a Tioga nodeNodeBody: PUBLIC TYPE = TextNode.Body;CreateRoot: PUBLIC PROC RETURNS [root: Ref] = {root _ TextNode.NewTextNode[];root.last _ TRUE };InsertNode: PUBLIC PROC [x: Ref, child: BOOL _ FALSE] RETURNS [new: Ref] = {new _ TextNode.NewTextNode[];IF child THEN {IF x.child # NIL THEN { new.next _ x.child; new.last _ FALSE }ELSE { new.next _ x; new.last _ TRUE };x.child _ new }ELSE { new.next _ x.next; new.last _ x.last; x.next _ new; x.last _ FALSE }};InsertAsLastChild: PUBLIC PROC [x: Ref, prevLast: Ref _ NIL] RETURNS [new: Ref] = {IF prevLast=NIL OR ~prevLast.last OR prevLast.next # 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] = { x.rope _ txt; x.runs _ NIL };AddLooks: PUBLIC PROC [x: Ref, start, len: INT, look: CHAR ['a..'z], root: Ref _ NIL] = {looks: TextLooks.Looks _ TextLooks.noLooks;looks[look] _ TRUE;IF root = NIL THEN root _ TextNode.Root[x];TextEdit.AddLooks[root, x, looks, start, len] };SetFormat: PUBLIC PROC [x: Ref, format: Rope.ROPE] = {name: ATOM _ IF format.IsEmpty THEN NIL ELSE Atom.MakeAtom[format];TextEdit.ChangeFormat[x, name] };SetStyle: PUBLIC PROC [x: Ref, style: Rope.ROPE] = { TextEdit.ChangeStyle[x, style] };Store: PUBLIC PROC [x: Ref, filename: Rope.ROPE] = { [] _ PutGet.ToFile[filename, x] };END.   ¤  TiogaFileOpsImpl.mesaCopyright c 1985 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-- if ~child then new is sibling of x-- else new is first child of x-- prevLast is optional accelerator ÊÅ  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ!™!Kšœ2™2K™1K™*K™,—K™ šÏk	˜	Jšœžœ˜Jšœžœ
˜Jšœžœžœ˜Jšœ	žœ'˜5Jšœ
žœ˜!Jšœ	žœ+˜9Jšœ˜—K˜ KšÐblœž˜Kšžœ'˜.Kšžœ˜Kšœžœžœ˜˜ KšœžœžœÏc˜3Kšœ
žœ˜&K˜ šÏn
œžœžœžœ˜/K˜Kšœžœ˜K˜ —š¡
œžœžœžœžœžœ˜LKš %™%Kš ™K˜šžœžœ˜Kšžœžœžœ"žœ˜>Kšžœžœ˜'K˜—Kšžœ@žœ˜MK˜ —š
¡œžœžœžœžœ˜SKš #™#š	žœ
žœžœžœž˜;Kšœ!˜!—Kšœžœ
žœžœžœžœžœ˜RK˜ —Kš
¡œžœžœžœžœ˜SK˜ š¡œžœžœžœžœžœ˜YK˜+Kšœžœ˜Kšžœžœžœ˜+K˜0K˜ —š¡	œžœžœžœ˜6Kšœžœžœžœžœžœ˜CK˜!K˜ —Kš¡œžœžœžœ'˜VK˜ Kš¡œžœžœžœ(˜W—K˜ Kšžœ˜K˜ — …—       ‰  