|
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.
|
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999 |