Object-oriented Software in Ada 95

Mixed language programming 365
/*
* Set the terminal mode to -echo -icanon
* Terminal mode reset when the character ^E is received
*/
#include
#include
static tcflag_t c_lflag;
static int fd = 1; /* STDOUT_FILENO; */
static struct termios termios_data;
void c_no_echo()
{
tcgetattr( fd, &termios_data );
c_lflag = termios_data.c_lflag;
termios_data.c_lflag = termios_data.c_lflag & ( ~(ECHO|ICANON|ECHOCTL) );
tcsetattr( fd, TCSANOW, &termios_data );
}
The function c_get_char is a C function that returns the next character input by the user. When the character
^E is received subsequent characters input will be echoed. The implementation in C of this function is as follows:
char c_get_char()
{
char c;
}
c = getchar();
if ( c == '\005')
{
termios_data.c_lflag = c_lflag;
tcsetattr( fd, TCSANOW, &termios_data );
}
return (char) (c & 0xFF); /* Ordinary character */
Note:
The use of control-e to return the stream back to its normal state.
25.5 Linking to FORTRAN and COBOL code
By using the package Interface.Fortran, subprograms written in FORTRAN may be called. By using the
package Interface.COBOL subprograms written in COBOL may be called.
© M A Smith - May not be reproduced without permission