git.gag.com Git - debian/pforth/blob - csrc/stdio/pf_io_stdio.c

   1 /* $Id$ */
   2 /***************************************************************
   3 ** I/O subsystem for PForth for common 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 /* Default portable terminal I/O. */
  27 int  sdTerminalOut( char c )
  28 {
  29     return putchar(c);
  30 }
  31 /* We don't need to echo because getchar() echos. */
  32 int  sdTerminalEcho( char c )
  33 {
  34     return 0;
  35 }
  36 int  sdTerminalIn( void )
  37 {
  38     return getchar();
  39 }
  40 int  sdQueryTerminal( void )
  41 {
  42     return 0;
  43 }
  44
  45 int  sdTerminalFlush( void )
  46 {
  47 #ifdef PF_NO_FILEIO
  48     return -1;
  49 #else
  50     return fflush(PF_STDOUT);
  51 #endif
  52 }
  53
  54 void sdTerminalInit( void )
  55 {
  56 }
  57 void sdTerminalTerm( void )
  58 {
  59 }
  60