![[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.36, 2009/06/29 20:21:28 | version 1.37, 2009/06/29 20:29:54 |
|---|---|
| Line 708 Cell getkey(FILE * stream) | Line 708 Cell getkey(FILE * stream) |
| prep_terminal(); | prep_terminal(); |
| result = fread(&c, sizeof(c), 1, stream); | result = fread(&c, sizeof(c), 1, stream); |
| if (result>0) | |
| gf_regetc(stream); | |
| return result==0 ? (errno == EINTR ? 12 : 4) : c; | return result==0 ? (errno == EINTR ? 12 : 4) : c; |
| } | } |