[Indigo]<CedarViewers>GEdit>GEditIO.mesa!2

-- GEditIO.mesa; Edited by McGregor on December 6, 1982 4:50 pm

DIRECTORY

Rope USING [Cat, ROPE],

ViewerClasses USING [Viewer],

ViewerTools USING [TiogaContents];

GEditIO: DEFINITIONS IMPORTS Rope = BEGIN

GetInteger: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: INTEGER, newOffset: INT] ;

GetInt: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: INT, newOffset: INT] ;

GetBoolean: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: BOOL, newOffset: INT] ;

GetRope: PROC [rope: Rope.ROPE, offset: INT] RETURNS [value: Rope.ROPE, newOffset: INT] ;

PutInteger: PROC [rope: Rope.ROPE, value: INTEGER] RETURNS [newRope: Rope.ROPE] ;

PutInt: PROC [rope: Rope.ROPE, value: INT] RETURNS [newRope: Rope.ROPE] ;

PutBoolean: PROC [rope: Rope.ROPE, value: BOOL] RETURNS [newRope: Rope.ROPE] ;

PutTiogaContents: PROC [rope: Rope.ROPE, value: ViewerTools.TiogaContents] RETURNS [newRope: Rope.ROPE] = INLINE

{newRope ← Rope.Cat[rope, value.contents, value.formatting]};

MyParent: SIGNAL RETURNS [viewer: ViewerClasses.Viewer] ; -- expected to be caught by any procedure (like GEditInitImpl) that causes Tioga to create new $Text objects

END.