version 1.7, 1997/01/17 07:12:53 |
version 1.8, 1997/06/17 20:42:54 |
|
|
if (clreol) |
if (clreol) |
cleareol (); |
cleareol (); |
perror(fs); |
perror(fs); |
return((FILE *)NULL); |
return(NULL); |
} |
} |
if ((stbuf.st_mode & S_IFMT) == S_IFDIR) { |
if ((stbuf.st_mode & S_IFMT) == S_IFDIR) { |
prtf("\n*** %s: directory ***\n\n", fs); |
prtf("\n*** %s: directory ***\n\n", fs); |
return((FILE *)NULL); |
return(NULL); |
} |
} |
if ((f = Fopen(fs, "r")) == NULL) { |
if ((f = Fopen(fs, "r")) == NULL) { |
(void)fflush(stdout); |
(void)fflush(stdout); |
perror(fs); |
perror(fs); |
return((FILE *)NULL); |
return(NULL); |
} |
} |
if (magic(f, fs)) |
if (magic(f, fs)) |
return((FILE *)NULL); |
return(NULL); |
c = Getc(f); |
c = Getc(f); |
*clearfirst = c == '\f'; |
*clearfirst = c == '\f'; |
Ungetc (c, f); |
Ungetc (c, f); |