Re: How do I "Get" just 4 characters?

[dl10696@ehsn4.cen.uiuc.edu (Dat Trieu Le)]

>>I believe TEXT_IO works much like buffered input io. That is,
>>it will read from the input buffer. the Get message reads from
>>that buffer. If there is not enough characters in the buffer,
>>then the program will wait until the user has completed its
>>input to the buffer. Text_IO doesn't consider inputs to be complete
>>until it is followed by a carriage-return. If you want Ada to
>>interpret characters one-at-a-time, then a routine to interface
>>to the hardware may have to be written.
>>
>>hope this helps.

>package SET_TTY_MODES is
> 
>   procedure SET_CBREAK;
>   procedure UNSET_CBREAK;
> 
>end SET_TTY_MODES;
> 
>with TTY;
>with OS_FILES;
>with V_I_BITS;
>with IOCTL;
> 
>package body SET_TTY_MODES is
> 
>   STTY_STATE : TTY.TOTAL_STATE;
> 
>   procedure SET_CBREAK is
>   begin
>      TTY.GET_TTY_STATE(FD => OS_FILES.STDIN_FD, STATE => STTY_STATE);
>      STTY_STATE.U_TTY_STATE.SG_FLAGS := SHORT_INTEGER(
>      	V_I_BITS.BIT_OR(
>	    INTEGER(STTY_STATE.U_TTY_STATE.SG_FLAGS), 
>	    IOCTL.CBREAK));
>      TTY.SET_TTY_STATE(FD => OS_FILES.STDIN_FD, STATE => STTY_STATE);
>   end SET_CBREAK;
> 

>   procedure UNSET_CBREAK is
>   begin
>      TTY.GET_TTY_STATE(FD => OS_FILES.STDIN_FD, STATE => STTY_STATE);
>      STTY_STATE.U_TTY_STATE.SG_FLAGS := SHORT_INTEGER(
>      	V_I_BITS.BIT_AND(
>	    INTEGER(STTY_STATE.U_TTY_STATE.SG_FLAGS),
>	    V_I_BITS.BIT_NEG(IOCTL.CBREAK)));
>       TTY.SET_TTY_STATE(FD => OS_FILES.STDIN_FD, STATE => STTY_STATE);
>   end UNSET_CBREAK;
> 
>end SET_TTY_MODES;

Hi,

what does this package do?