Browse Source

input.c, inchar(), cleanup

pre-master-46
rlar 10 years ago
parent
commit
d58fd306f3
  1. 25
      src/frontend/parser/input.c

25
src/frontend/parser/input.c

@ -31,26 +31,29 @@ Author: 1988 Jeffrey M. Hsu
int int
inchar(FILE *fp) inchar(FILE *fp)
{ {
#ifndef HAS_WINGUI
char c;
ssize_t i;
#ifndef HAS_WINGUI
if (cp_interactive && !cp_nocc) { if (cp_interactive && !cp_nocc) {
char c;
ssize_t i;
do do
i = read(fileno(fp), &c, 1); i = read(fileno(fp), &c, 1);
while (i == -1 && errno == EINTR); while (i == -1 && errno == EINTR);
if (i == 0 || c == '\004') {
return (EOF);
} else if (i == -1) {
if (i == 0 || c == '\004')
return EOF;
if (i == -1) {
perror("read"); perror("read");
return (EOF);
} else {
return ((int) c);
return EOF;
} }
} else
return (int) c;
}
#endif #endif
return (getc(fp));
return getc(fp);
} }

Loading…
Cancel
Save