<<-- TiogaFileOpsImpl.mesa>> <<-- written by Bill Paxton, June 1982>> <<-- last written by Paxton. September 22, 1982 1:19 pm>> <> DIRECTORY TiogaFileOps, NameSymbolTable, PutGet, TextEdit, TextLooks, TextNode, Rope; TiogaFileOpsImpl: CEDAR PROGRAM IMPORTS NameSymbolTable, PutGet, Rope, TextEdit, TextNode EXPORTS TiogaFileOps = BEGIN OPEN TiogaFileOps; Ref: TYPE = REF NodeBody; -- points to a Tioga node NodeBody: PUBLIC TYPE = TextNode.TextBody; CreateRoot: PUBLIC PROC RETURNS [root: Ref] = { root _ TextNode.NewTextNode[]; root.last _ TRUE }; InsertNode: PUBLIC PROC [x: Ref, child: BOOL _ FALSE] RETURNS [new: Ref] = { <<-- if ~child then new is sibling of x>> <<-- else new is first child of x>> 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] = { <<-- prevLast is optional accelerator>> IF prevLast=NIL OR ~prevLast.last OR prevLast.next # x THEN prevLast _ TextNode.NarrowToTextNode[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.NarrowToTextNode[TextNode.Root[x]]; TextEdit.AddLooks[root, x, looks, start, len] }; SetFormat: PUBLIC PROC [x: Ref, format: Rope.ROPE] = TRUSTED { name: TextNode.TypeName _ NameSymbolTable.MakeName[ LOOPHOLE[Rope.Flatten[format]]]; TextEdit.ChangeType[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.