Diff for /gforth/engine/io.c between versions 1.8 and 1.9

version 1.8, 1998/12/08 22:03:05 version 1.9, 1999/01/21 20:09:13
Line 666  long key_avail (FILE * stream) Line 666  long key_avail (FILE * stream)
 /* When compiling and running in the `Posix' environment, Ultrix does  /* When compiling and running in the `Posix' environment, Ultrix does
    not restart system calls, so this needs to do it. */     not restart system calls, so this needs to do it. */
   
 unsigned char getkey(FILE * stream)  unsigned getkey(FILE * stream)
 {  {
   int result;    int result;
   unsigned char c;    unsigned char c;
Line 683  unsigned char getkey(FILE * stream) Line 683  unsigned char getkey(FILE * stream)
       /* If zero characters are returned, then the file that we are        /* If zero characters are returned, then the file that we are
          reading from is empty!  Return EOF in that case. */           reading from is empty!  Return EOF in that case. */
       if (result == 0)        if (result == 0)
         return CTRL('D');          return (EOF);
   
       /* If the error that we received was SIGINT, then try again,        /* If the error that we received was SIGINT, then try again,
          this is simply an interrupted system call to read ().           this is simply an interrupted system call to read ().

Removed from v.1.8  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>