--Edited by Teitelman on September 1, 1982 11:10 pm
-- compatibility interface for TTY.

DIRECTORY
 TTY USING [Handle],
 IO USING [STREAM]
 ;


TTYIO: DEFINITIONS =
BEGIN

CreateTTYHandleFromStreams: PROC [in, out: IO.STREAM] RETURNS[TTY.Handle];
-- transducer from IO to TTY.

GetStreamsFromTTYHandle: PROCEDURE[handle: TTY.Handle] RETURNS[in: IO.STREAM, out: IO.STREAM];
-- Inverse of CreateTTYHandleFromStreams. Raises InvalidTTYHandle if handle was not created via CreateTTYHandleFromStreams

InvalidTTYHandle: ERROR; -- raised by GetStreamsFromTTYHandle

END. -- TTYIO.Mesa