![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to io.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to io.c CVS log | Up to [gforth] / gforth / engine |
| version 1.25, 2006/12/31 13:39:17 | version 1.26, 2007/04/09 22:36:01 |
|---|---|
| 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> |