Attribute III

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

Expr3.om
PROCEDURE Constant(VAR at: Attribute) : BOOLEAN;
   (* Constant = "0" | "1" | ... | "9" . *)
BEGIN
   IF sy = constantSY THEN
      at := const;
      GetSy;
      RETURN TRUE
   ELSE
      RETURN FALSE
   END;
END Constant;

*Auf unterster Ebene liegen Konstanten vor, deren Wert direkt als Attribut übernommen wird.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999