<> <> <> <> <<>> <> <<>> DIRECTORY Atom USING [PropList], LooksReader USING [Ref], Rope USING [ROPE], RopeReader USING [Ref], Rosary USING [ROSARY], TextLooks USING [Looks, Runs], TextNode USING [Ref], TiogaAccess USING [CharSet, TiogaChar]; TiogaAccessPrivate: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; ROSARY: TYPE ~ Rosary.ROSARY; CharSet: TYPE ~ TiogaAccess.CharSet; TiogaChar: TYPE ~ TiogaAccess.TiogaChar; ropePieces: NAT ~ 15; Reader: TYPE ~ REF ReaderRep; ReaderRep: TYPE ~ RECORD [ root: TextNode.Ref, textNode: TextNode.Ref, textNodeIndex: INT, format: ATOM, end: BOOLEAN, comment: BOOLEAN, nodeProps: Atom.PropList, level: INT, nodeLength: INT, ropeReader: RopeReader.Ref, looksReader: LooksReader.Ref, startingOffsetFromOriginalRoot: INT, putback: LIST OF TiogaChar ]; Writer: TYPE ~ REF WriterRep; WriterRep: TYPE ~ RECORD [ root: TextNode.Ref, first: TextNode.Ref, last: TextNode.Ref, level: INT, lastLevel: INT, nodeSize: INT, ropes: ARRAY [0..ropePieces) OF ROPE, textBuf: REF TEXT, <> runs: TextLooks.Runs, newLooks: TextLooks.Looks, newLooksRepeat: INT, charSets: ROSARY, newCharSet: REF CharSet, newCharSetRepeat: INT, charProps: ROSARY, newCharProp: Atom.PropList, newCharPropRepeat: INT ]; END.