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"
27 #include <synchapi.h> /* for Sleep() */
29 /* Use console mode I/O so that KEY and ?TERMINAL will work. */
30 #if defined(WIN32) || defined(__NT__)
31 int sdTerminalOut( char c )
33 #if defined(__WATCOMC__)
34 return putch((char)(c));
36 return _putch((char)(c));
40 /* Needed cuz _getch() does not echo. */
41 int sdTerminalEcho( char c )
43 #if defined(__WATCOMC__)
44 return putch((char)(c));
46 return _putch((char)(c));
50 int sdTerminalIn( void )
55 int sdQueryTerminal( void )
60 int sdTerminalFlush( void )
65 return fflush(PF_STDOUT);
69 void sdTerminalInit( void )
73 void sdTerminalTerm( void )
77 cell_t sdSleepMillis(cell_t msec)
79 if (msec < 0) return 0;