- break;
- case 0:
- strncpy(stext, "EOF", 4);
- readin = False;
- break;
- default:
- for(stext[r] = '\0', p = stext + strlen(stext) - 1; p >= stext && *p == '\n'; *p-- = '\0');
- for(; p >= stext && *p != '\n'; --p);
- if(p > stext)
- strncpy(stext, p + 1, sizeof stext);
+ if(feof(stdin))
+ strncpy(stext, "EOF", 4);
+ else /* error occured */
+ strncpy(stext, strerror(errno), sizeof stext - 1);