EBMesaLisp.mesa
Copyright Ó 1989, 1992 by Xerox Corporation. All rights reserved.
Bier, October 30, 1989 4:10:31 pm PST
Doug Wyatt, April 10, 1992 6:56 pm PDT
Contents: Routines for parsing list expressions whose elements are Cedar tokens.
EBMesaLisp: CEDAR DEFINITIONS = BEGIN
ROPE: TYPE = Rope.ROPE;
Parse: PUBLIC PROC [stream: IO.STREAM] RETURNS [val: REF ANY ¬ NIL, endOfStream: BOOL ¬ FALSE];
Unparse: PROC [object: REF ANY, prettyPrintList: LIST OF REF ANY ¬ NIL] RETURNS [result: ROPE];
AddEntity: PROC [entity: REF ANY, entityList, ptr: LIST OF REF ANY] RETURNS [newList, newPtr: LIST OF REF ANY];
Member: PROC [list: LIST OF ATOM, member: REF ANY] RETURNS [isMember: BOOL ¬ FALSE, tail: LIST OF ATOM];
SyntaxError: PROC [stream: IO.STREAM, msg: ROPE];
ParseAborted: SIGNAL;
ReadKeyword: PROC [stream: IO.STREAM] RETURNS [keyName: ROPE];
ReadRopeInParens: PROC [stream: IO.STREAM] RETURNS [rope: ROPE ¬ NIL];
ReadRopeInAngleBrackets: PROC [stream: IO.STREAM] RETURNS [rope: ROPE ¬ NIL];
ReadWWord: PROC [f: IO.STREAM] RETURNS [word: Rope.ROPE];
ReadChar: PROC [f: IO.STREAM, c: CHAR];
END.