git.gag.com Git - debian/pforth/blob - csrc/win32/pf_io_win32.c

   1 /* $Id$ */
   2 /***************************************************************
   3 ** I/O subsystem for PForth for WIN32 systems.
   4 **
   5 ** Author: Phil Burk
   6 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
   7 **
   8 ** Permission to use, copy, modify, and/or distribute this
   9 ** software for any purpose with or without fee is hereby granted.
  10 **
  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.
  19 **
  20 ****************************************************************
  21 ** 941004 PLB Extracted IO calls from pforth_main.c
  22 ***************************************************************/
  23
  24 #include "../pf_all.h"
  25
  26 #include <conio.h>
  27 #include <synchapi.h>   /* for Sleep() */
  28
  29 /* Use console mode I/O so that KEY and ?TERMINAL will work. */
  30 #if defined(WIN32) || defined(__NT__)
  31 int  sdTerminalOut( char c )
  32 {
  33 #if defined(__WATCOMC__)
  34     return putch((char)(c));
  35 #else
  36     return _putch((char)(c));
  37 #endif
  38 }
  39
  40 /* Needed cuz _getch() does not echo. */
  41 int  sdTerminalEcho( char c )
  42 {
  43 #if defined(__WATCOMC__)
  44     return putch((char)(c));
  45 #else
  46     return _putch((char)(c));
  47 #endif
  48 }
  49
  50 int  sdTerminalIn( void )
  51 {
  52     return _getch();
  53 }
  54
  55 int  sdQueryTerminal( void )
  56 {
  57     return _kbhit();
  58 }
  59
  60 int  sdTerminalFlush( void )
  61 {
  62 #ifdef PF_NO_FILEIO
  63     return -1;
  64 #else
  65     return fflush(PF_STDOUT);
  66 #endif
  67 }
  68
  69 void sdTerminalInit( void )
  70 {
  71 }
  72
  73 void sdTerminalTerm( void )
  74 {
  75 }
  76
  77 cell_t sdSleepMillis(cell_t msec)
  78 {
  79     if (msec < 0) return 0;
  80     Sleep((DWORD)msec);
  81     return 0;
  82 }
  83
  84 #endif