Initial import.

[pforth] / csrc / posix / pf_io_posix.c

/* $Id$ */\r
/***************************************************************\r
** I/O subsystem for PForth based on 'C'\r
**\r
** Author: Phil Burk\r
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
**\r
** The pForth software code is dedicated to the public domain,\r
** and any third party may reproduce, distribute and modify\r
** the pForth software code or any derivative works thereof\r
** without any compensation or license.  The pForth software\r
** code is provided on an "as is" basis without any warranty\r
** of any kind, including, without limitation, the implied\r
** warranties of merchantability and fitness for a particular\r
** purpose and their equivalents under the laws of any jurisdiction.\r
**\r
****************************************************************\r
** 941004 PLB Extracted IO calls from pforth_main.c\r
***************************************************************/\r
\r
#include "../pf_all.h"\r
\r
#if PF_POSIX_IO\r
/* Configure console so that characters are not buffered.\r
 * This allows KEY to work and also HISTORY.ON\r
 * Thanks to Ralf Baechle and David Feuer for contributing this.\r
 */\r
\r
#include <unistd.h>\r
#ifdef sun\r
#include <sys/int_types.h> /* Needed on Solaris for uint32_t in termio.h */\r
#endif\r
#include <termios.h>\r
#include <sys/poll.h>\r
\r
#define stdin_fd 1\r
\r
static struct termios save_termios;\r
static int stdin_is_tty;\r
\r
/* Default portable terminal I/O. */\r
int  sdTerminalOut( char c )\r
{\r
	return putchar(c);\r
}\r
/* We don't need to echo because getchar() echos. */\r
int  sdTerminalEcho( char c )\r
{\r
	TOUCH(c);\r
	return 0;\r
}\r
int  sdTerminalIn( void )\r
{\r
	return getchar();\r
}\r
\r
int  sdTerminalFlush( void )\r
{\r
#ifdef PF_NO_FILEIO\r
	return -1;\r
#else\r
	return fflush(PF_STDOUT);\r
#endif\r
}\r
\r
/****************************************************/\r
int sdQueryTerminal( void )\r
{\r
	struct pollfd  pfd;\r
	sdTerminalFlush();\r
	pfd.fd = stdin_fd;\r
	pfd.events = stdin_fd;\r
	return poll( &pfd, 1, 0 );	\r
}\r
\r
/****************************************************/\r
void sdTerminalInit(void)\r
{\r
        struct termios term;\r
	\r
        stdin_is_tty = isatty(stdin_fd);\r
        if (!stdin_is_tty)\r
                return;\r
		\r
/* Get current terminal attributes and save them so we can restore them. */\r
        tcgetattr(stdin_fd, &term);\r
        save_termios = term;\r
	\r
/* ICANON says to wait upon read until a character is received,\r
 * and then to return it immediately (or soon enough....)\r
 * ECHOCTL says not to echo backspaces and other control chars as ^H */\r
        term.c_lflag &= ~( ECHO | ECHONL | ECHOCTL | ICANON );\r
        term.c_cc[VTIME] = 0;\r
        term.c_cc[VMIN] = 1;\r
        tcsetattr(stdin_fd, TCSANOW, &term);\r
}\r
\r
/****************************************************/\r
void sdTerminalTerm(void)\r
{\r
        if (!stdin_is_tty)\r
                return;\r
\r
        tcsetattr(stdin_fd, TCSANOW, &save_termios);\r
}\r
\r
#undef stdin_fd\r
\r
#endif\r