Add support for WATCOMC

[pforth] / csrc / win32 / pf_io_win32.c

diff --git a/csrc/win32/pf_io_win32.c b/csrc/win32/pf_io_win32.c
index 24bfa8e..6fd93e3 100644 (file)
--- a/csrc/win32/pf_io_win32.c
+++ b/csrc/win32/pf_io_win32.c
@@ -23,16 +23,24 @@
 #include <conio.h>\r
 \r
 /* Use console mode I/O so that KEY and ?TERMINAL will work. */\r
 #include <conio.h>\r
 \r
 /* Use console mode I/O so that KEY and ?TERMINAL will work. */\r

-#if WIN32\r
+#if defined(WIN32) || defined(__NT__)\r

 int  sdTerminalOut( char c )\r
 {\r
 int  sdTerminalOut( char c )\r
 {\r

+#if defined(__WATCOMC__)\r
+       return putch((char)(c));\r
+#else\r

        return _putch((char)(c));\r
        return _putch((char)(c));\r

+#endif\r

 }\r
 \r
 /* Needed cuz _getch() does not echo. */\r
 int  sdTerminalEcho( char c )\r
 {\r
 }\r
 \r
 /* Needed cuz _getch() does not echo. */\r
 int  sdTerminalEcho( char c )\r
 {\r

+#if defined(__WATCOMC__)\r
+       return putch((char)(c));\r
+#else\r

        return _putch((char)(c));\r
        return _putch((char)(c));\r

+#endif\r

 }\r
 \r
 int  sdTerminalIn( void )\r
 }\r
 \r
 int  sdTerminalIn( void )\r