Lese- und Schreib-Operationen

Oneliner.om

PROCEDURE DoIt; VAR s: Streams.Stream; filename: ARRAY 80 OF CHAR; line: ARRAY 80 OF CHAR; BEGIN Write.String("Output file: "); Read.Line(filename); IF Streams.stdin.count = 0 THEN RETURN END; IF ~UnixFiles.Open(s, filename, UnixFiles.write + UnixFiles.create, Streams.onebuf, NIL) THEN Write.String("Couldn't open "); Write.String(filename); Write.Line(" for writing!"); RETURN END; Write.String("Your one-liner: "); Read.Line(line); IF Streams.stdin.count = 0 THEN RETURN END; Write.LineS(s, line); Streams.Release(s); (* close the stream *) END DoIt;

Alle bekannten Operationen aus den Modulen Read und Write lassen sich auch für beliebige Objekte vom Typ Streams.Stream verwenden.

Dazu ist jeweils an den Namen der Operation ein ``S'' anzuhängen und als erster Parameter der gewünschte Stream anzugeben, auf dem die Operation auszuführen ist.

	Alle bekannten Operationen aus den Modulen Read und Write lassen sich auch für beliebige Objekte vom Typ Streams.Stream verwenden.
	Dazu ist jeweils an den Namen der Operation ein ``S'' anzuhängen und als erster Parameter der gewünschte Stream anzugeben, auf dem die Operation auszuführen ist.