|
DEFINITION Expressions; IMPORT Streams; CONST (* terminal symbols *) plusSY = 0; minusSY = 1; multiplySY = 2; divideSY = 3; constantSY = 6; TYPE Symbol = SHORTINT; (* plusSY .. *) TYPE Tree = POINTER TO TreeRec; TreeRec = RECORD sy: Symbol; (* operator symbol or constantSY *) const: INTEGER; (* if sy = constantSY *) leftop, rightop: Tree; (* if sy is one of the operators *) END; Attribute = Tree; PROCEDURE Parse(s: Streams.Stream; VAR at: Attribute) : BOOLEAN; END Expressions. |
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |