<> <> <> <> <<>> DIRECTORY IO, Rope, SVUtility, TFI3d, ViewerClasses, ViewerTools; SVUtilityImpl: CEDAR PROGRAM IMPORTS IO, TFI3d, ViewerTools EXPORTS SVUtility = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ReadTwoReals: PUBLIC PROC [textViewer: Viewer] RETURNS [x, y: REAL] = { wholeRope: Rope.ROPE _ ViewerTools.GetContents[textViewer]; wholeStream: IO.STREAM _ IO.RIS[wholeRope]; x _ TFI3d.ReadBlankAndReal[wholeStream]; TFI3d.ReadBlankAndRope[wholeStream, ","]; y _ TFI3d.ReadBlankAndReal[wholeStream]; }; END.