GGParseIn.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last edited by Bier on July 17, 1986 10:46:16 pm PDT
Contents: Routines for reading gargoyle data structures from a stream. Stolen from Solidviews Solidmodeler TFI3d.mesa.
DIRECTORY
GGBasicTypes, Imager, ImagerColor, ImagerTransformation, IO, Rope;
GGParseIn: CEDAR DEFINITIONS =
BEGIN
Color: TYPE = Imager.Color;
Point: TYPE = GGBasicTypes.Point;
ReadBlank: PROC [f: IO.STREAM];
ReadWhiteSpace: PROC [f: IO.STREAM];
ReadHorizontalBlank: PROC [f: IO.STREAM] RETURNS [good: BOOL];
ReadWord: PROC [f: IO.STREAM] RETURNS [word: Rope.ROPE];
ReadBlankAndWord: PROC [f: IO.STREAM] RETURNS [word: Rope.ROPE];
ReadRope: PROC [f: IO.STREAM, rope: Rope.ROPE];
ReadBlankAndRope: PROC [f: IO.STREAM, rope: Rope.ROPE];
ReadNAT: PROC [f: IO.STREAM] RETURNS [n: NAT];
ReadBlankAndNAT: PROC [f: IO.STREAM] RETURNS [n: NAT];
ReadReal: PROC [f: IO.STREAM] RETURNS [r: REAL];
ReadBlankAndReal: PROC [f: IO.STREAM] RETURNS [r: REAL];
ReadColor: PROC [f: IO.STREAM] RETURNS [color: Color];
ReadStrokeEnd: PROC [f: IO.STREAM] RETURNS [strokeEnd: Imager.StrokeEnd];
ReadPoint: PROC [f: IO.STREAM] RETURNS [point: Point];
ReadChar: PROC [f: IO.STREAM, c: CHAR];
ReadKeyWord: PROC [f: IO.STREAM] RETURNS [keyWord: Rope.ROPE, good: BOOL];
ReadLine: PROC [f: IO.STREAM] RETURNS [line: Rope.ROPE];
ReadBOOL: PROC [f: IO.STREAM] RETURNS [truth: BOOL, good: BOOL];
ReadListOfRope: PROC [f: IO.STREAM] RETURNS [ropeList: LIST OF Rope.ROPE];
ReadTransformation: PROC [f: IO.STREAM] RETURNS [transform: ImagerTransformation.Transformation];
END.