Recursive Descent Parsing V

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

Expr.om
MODULE Expr;

   IMPORT Args := UnixArguments, Streams, Write;

   VAR
      expr: Streams.Stream;

   PROCEDURE Parse(s: Streams.Stream) : BOOLEAN;
      (* parse input and return TRUE in case of success *)
   END Parse;

BEGIN
   Args.Init("expression");
   Args.Fetch(expr);
   IF Parse(expr) THEN
      Write.Line("OK");
   ELSE
      Write.Line("Not an expression!");
   END;
   Args.AllArgs;
END Expr.

*In Oberon gibt es nur einen qualifizierten Import, die FROM ... IMPORT-Anweisung entfällt im Vergleich zu Modula-2.
 
*Mit Args := UnixArguments wird das Modul UnixArguments importiert, im folgendem jedoch abgekürzt Args genannt.
 
*Args.Fetch liefert eine Eingabeverbindung zum aktuellen Argument der Kommandozeile zurück -- ein Objekt vom Typ Streams.Stream.
 

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