SimpleStreamsOnUXIOImpl.mesa
Copyright Ó 1988, 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, October 4, 1988 5:06:19 pm PDT
Christian Jacobi, March 27, 1992 4:47 pm PST
DIRECTORY
IO, Rope, UXIO, SimpleStreams;
SimpleStreamsOnUXIOImpl:
CEDAR
PROGRAM
IMPORTS IO, Rope, UXIO, SimpleStreams
SHARES SimpleStreams =
UCreateSimpleStreams: SimpleStreams.CreateProcType = {
hasEcho ¬ TRUE; --sorry
out ¬ UXIO.CreateStandardStream[output];
in ¬ UXIO.CreateStandardStream[input];
err ¬ UXIO.CreateStandardStream[trace];
IF ~Rope.IsEmpty[header] THEN {IO.PutRope[err, header]; IO.PutChar[err, '\n]};
};
SimpleStreams.ImplementCreate[$uxio, UCreateSimpleStreams];
END.