2 /***************************************************************
3 ** I/O subsystem for PForth for WIN32 systems.
6 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
8 ** Permission to use, copy, modify, and/or distribute this
9 ** software for any purpose with or without fee is hereby granted.
11 ** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
12 ** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
13 ** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
14 ** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
15 ** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
16 ** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
17 ** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
18 ** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20 ****************************************************************
21 ** 941004 PLB Extracted IO calls from pforth_main.c
22 ***************************************************************/
24 #include "../pf_all.h"
28 /* Use console mode I/O so that KEY and ?TERMINAL will work. */
29 #if defined(WIN32) || defined(__NT__)
30 int sdTerminalOut( char c )
32 #if defined(__WATCOMC__)
33 return putch((char)(c));
35 return _putch((char)(c));
39 /* Needed cuz _getch() does not echo. */
40 int sdTerminalEcho( char c )
42 #if defined(__WATCOMC__)
43 return putch((char)(c));
45 return _putch((char)(c));
49 int sdTerminalIn( void )
54 int sdQueryTerminal( void )
59 int sdTerminalFlush( void )
64 return fflush(PF_STDOUT);
68 void sdTerminalInit( void )
72 void sdTerminalTerm( void )