|
|
1.1 root 1: /* $Header: mustfopen.c,v 1.2 85/03/17 12:51:04 nicklin Exp $ */
2:
3: /*
4: * Author: Peter J. Nicklin
5: */
6:
7: /*
8: * mustfopen() opens a file in the manner of fopen(3). However, if the file
9: * cannot be accessed, exit(1) is called.
10: */
11: #include <stdio.h>
12:
13: extern char *PGN; /* program name */
14:
15: FILE *
16: mustfopen(filename,mode)
17: char *filename;
18: char *mode;
19: {
20: FILE *stream; /* file stream */
21:
22: if ((stream = fopen(filename,mode)) == NULL)
23: {
24: if (*PGN != '\0')
25: fprintf(stderr, "%s: ", PGN);
26: fprintf(stderr, "can't open %s\n",filename);
27: exit(1);
28: }
29: return(stream);
30: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.