<<>> <> <> <> <> DIRECTORY IO, Rope, UXIO, SimpleStreams; SimpleStreamsOnUXIOImpl: CEDAR PROGRAM IMPORTS IO, Rope, UXIO, SimpleStreams SHARES SimpleStreams = BEGIN 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.