mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Include program name in error messages.

Browse Source
This commit is contained in:
David J. MacKenzie 1994-12-21 15:58:28 +00:00
parent dca5ea48d9
commit b3dcbddbfc
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib-src/yow.c
View File

@ -30,6 +30,11 @@
&res;})
#endif
char *malloc(), *realloc();
void yow();
void setup_yow();
int
main (argc, argv)
int argc;
@ -37,7 +42,6 @@ main (argc, argv)
{
FILE *fp;
char file[BUFSIZ];
void yow(), setup_yow();
if (argc > 2 && !strcmp (argv[1], "-f"))
strcpy (file, argv[2]);
@ -49,6 +53,7 @@ main (argc, argv)
#endif
if ((fp = fopen(file, "r")) == NULL) {
fprintf(stderr, "yow: ");
perror(file);
exit(1);
}
@ -80,7 +85,7 @@ setup_yow(fp)
* we explicitly skip that. */
while ((c = getc(fp)) != SEP) {
if (c == EOF) {
fprintf(stderr, "File contains no separators.\n");
fprintf(stderr, "yow: file contains no separators\n");
exit(2);
}
}
@ -89,7 +94,7 @@ setup_yow(fp)
header_len -= AVG_LEN; /* allow the first quotation to appear */
if (fseek(fp, 0L, 2) == -1) {
perror("fseek 1");
perror("yow");
exit(1);
}
len = ftell(fp) - header_len;
@ -105,11 +110,10 @@ yow (fp)
int c, i = 0;
char *buf;
unsigned int bufsize;
char *malloc(), *realloc();
offset = rand() % len + header_len;
if (fseek(fp, offset, 0) == -1) {
perror("fseek 2");
perror("yow");
exit(1);
}
@ -134,7 +138,7 @@ yow (fp)
bufsize = BUFSIZE;
buf = malloc(bufsize);
if (buf == (char *)0) {
fprintf(stderr, "can't allocate any memory\n");
fprintf(stderr, "yow: virtual memory exhausted\n");
exit (3);
}
@ -147,7 +151,7 @@ yow (fp)
bufsize *= 2;
buf = realloc(buf, bufsize);
if (buf == (char *)0) {
fprintf(stderr, "can't allocate more memory\n");
fprintf(stderr, "yow: virtual memory exhausted\n");
exit (3);
}
}