--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