------------------------------------------------------------------------------
--  PURPOSE: Terminal port handler Package for Network Protocols, R1000 
--           version.
--
--
--    NOTES: This program was produced by the Westinghouse Electric Corporation,
--           as part of the STARS Foundation Ada Software procurement effort.
--
--           (c) Copyright 1987 Westinghouse Electric Corporation
--           (c) Copyright 1988 Westinghouse Electric Corporation - Updates
--                              All Rights Reserved.
--
--           This material may be reproduced by or for the U.S. Government
--           pursuant to the copyright licence under DOD FAR Suppl. Clause
--           52.227-7013 August 1984.
--    Author : Chris Cooper and Elizabeth T. Hobbs
--------------------------------------------------------------------------------

with Device_Independent_Io;
package Terminal_Io is

    -- types and procedures needed to transmit and receive 8-bit data to
    --      the terminal
    -- intended to provide the type BYTE and entry points RS_READ and
    --      RS_WRITE needed to instantiate one of the generic protocol
    --   packages of NETWORK_PROTOCOLS (q.v.)


    subtype Byte is Device_Independent_Io.Byte;

    procedure Tty_Prep;
    procedure Tty_Read (C : out Device_Independent_Io.Byte;  
                        Got_One : out Boolean;  
                        Return_After : Duration := 0.0);  
    procedure Tty_Write (C : Device_Independent_Io.Byte);  
    procedure Tty_Write_Flush;  
    procedure Tty_Restore;
    -- since Ada doesn't provide for automatic shutdown, the enclosing
    --     program will have to call this entry point to undo anything
    --     that was done to allow 8-bit data transfer

end Terminal_Io;