Return to io.c CVS log | Up to [gforth] / gforth / engine |
version 1.24, 2006/04/14 12:18:50 | version 1.26, 2007/04/09 22:36:01 |
---|---|
Line 1 | Line 1 |
/* direct key io driver | /* direct key io driver |
Copyright (C) 1995,1996,1997,1998,1999,2002,2003 Free Software Foundation, Inc. | Copyright (C) 1995,1996,1997,1998,1999,2002,2003,2006 Free Software Foundation, Inc. |
This file is part of Gforth. | This file is part of Gforth. |
Line 654 Cell getkey(FILE * stream) | Line 654 Cell getkey(FILE * stream) |
return result==0 ? EOF : c; | return result==0 ? EOF : c; |
} | } |
#ifdef STANDALONE | |
void emit_char(char x) | |
{ | |
putc(x, stdout); | |
} | |
void type_chars(char *addr, unsigned int l) | |
{ | |
fwrite(addr, l, 1, stdout); | |
} | |
#endif | |
#ifdef TEST | #ifdef TEST |
#include <time.h> | #include <time.h> |