|
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. |
Args.Fetch liefert eine Eingabeverbindung zum aktuellen
Argument der Kommandozeile zurück -- ein Objekt vom Typ
Streams.Stream.
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |