SVUtilityImpl.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last edited by Bier on February 5, 1987
Contents: Some helpful Solidviews routines that don't fit anywhere in particular.
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.