6fd93e3e29a82ad395289f312f001d9eb45adfd8
/***************************************************************
** I/O subsystem for PForth for WIN32 systems.
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
** The pForth software code is dedicated to the public domain,
** and any third party may reproduce, distribute and modify
** the pForth software code or any derivative works thereof
** without any compensation or license. The pForth software
** code is provided on an "as is" basis without any warranty
** of any kind, including, without limitation, the implied
** warranties of merchantability and fitness for a particular
** purpose and their equivalents under the laws of any jurisdiction.
****************************************************************
** 941004 PLB Extracted IO calls from pforth_main.c
***************************************************************/
/* Use console mode I/O so that KEY and ?TERMINAL will work. */
#if defined(WIN32) || defined(__NT__)
int sdTerminalOut( char c
)
return _putch((char)(c
));
/* Needed cuz _getch() does not echo. */
int sdTerminalEcho( char c
)
return _putch((char)(c
));
int sdQueryTerminal( void )
int sdTerminalFlush( void )
return fflush(PF_STDOUT
);
void sdTerminalInit( void )
void sdTerminalTerm( void )