![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to err.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / libI77|
Return to err.c CVS log | Up to [Research Unix] / researchv10dc / libI77 |
1.1 root 1: #ifndef NON_UNIX_STDIO
2: #include "sys/types.h"
3: #include "sys/stat.h"
4: #endif
5: #include "f2c.h"
6: #include "fio.h"
7: #include "fmt.h" /* for struct syl */
8: #include "rawio.h" /* for fcntl.h, fdopen */
9: #ifdef NON_UNIX_STDIO
10: #ifdef KR_headers
11: extern char *malloc();
12: #else
13: #undef abs
14: #undef min
15: #undef max
16: #include "stdlib.h"
17: #endif
18: #endif
19:
20: /*global definitions*/
21: unit f__units[MXUNIT]; /*unit table*/
22: flag f__init; /*0 on entry, 1 after initializations*/
23: cilist *f__elist; /*active external io list*/
24: flag f__reading; /*1 if reading, 0 if writing*/
25: flag f__cplus,f__cblank;
26: char *f__fmtbuf;
27: flag f__external; /*1 if external io, 0 if internal */
28: #ifdef KR_headers
29: int (*f__doed)(),(*f__doned)();
30: int (*f__doend)(),(*f__donewrec)(),(*f__dorevert)();
31: int (*f__getn)(),(*f__putn)(); /*for formatted io*/
32: #else
33: int (*f__getn)(void),(*f__putn)(int); /*for formatted io*/
34: int (*f__doed)(struct f__syl*, char*, ftnlen),(*f__doned)(struct f__syl*);
35: int (*f__dorevert)(void),(*f__donewrec)(void),(*f__doend)(void);
36: #endif
37: flag f__sequential; /*1 if sequential io, 0 if direct*/
38: flag f__formatted; /*1 if formatted io, 0 if unformatted*/
39: FILE *f__cf; /*current file*/
40: unit *f__curunit; /*current unit*/
41: int f__recpos; /*place in current record*/
42: int f__cursor,f__scale;
43:
44: /*error messages*/
45: char *F_err[] =
46: {
47: "error in format", /* 100 */
48: "illegal unit number", /* 101 */
49: "formatted io not allowed", /* 102 */
50: "unformatted io not allowed", /* 103 */
51: "direct io not allowed", /* 104 */
52: "sequential io not allowed", /* 105 */
53: "can't backspace file", /* 106 */
54: "null file name", /* 107 */
55: "can't stat file", /* 108 */
56: "unit not connected", /* 109 */
57: "off end of record", /* 110 */
58: "truncation failed in endfile", /* 111 */
59: "incomprehensible list input", /* 112 */
60: "out of free space", /* 113 */
61: "unit not connected", /* 114 */
62: "read unexpected character", /* 115 */
63: "bad logical input field", /* 116 */
64: "bad variable type", /* 117 */
65: "bad namelist name", /* 118 */
66: "variable not in namelist", /* 119 */
67: "no end record", /* 120 */
68: "variable count incorrect", /* 121 */
69: "subscript for scalar variable", /* 122 */
70: "invalid array section", /* 123 */
71: "substring out of bounds", /* 124 */
72: "subscript out of bounds", /* 125 */
73: "can't read file", /* 126 */
74: "can't write file", /* 127 */
75: "'new' file exists", /* 128 */
76: "can't append to file" /* 129 */
77: };
78: #define MAXERR (sizeof(F_err)/sizeof(char *)+100)
79:
80: #ifdef KR_headers
81: f__canseek(f) FILE *f; /*SYSDEP*/
82: #else
83: f__canseek(FILE *f) /*SYSDEP*/
84: #endif
85: {
86: #ifdef NON_UNIX_STDIO
87: return !isatty(fileno(f));
88: #else
89: struct stat x;
90:
91: if (fstat(fileno(f),&x) < 0)
92: return(0);
93: #ifdef S_IFMT
94: switch(x.st_mode & S_IFMT) {
95: case S_IFDIR:
96: case S_IFREG:
97: if(x.st_nlink > 0) /* !pipe */
98: return(1);
99: else
100: return(0);
101: case S_IFCHR:
102: if(isatty(fileno(f)))
103: return(0);
104: return(1);
105: #ifdef S_IFBLK
106: case S_IFBLK:
107: return(1);
108: #endif
109: }
110: #else
111: #ifdef S_ISDIR
112: /* POSIX version */
113: if (S_ISREG(x.st_mode) || S_ISDIR(x.st_mode)) {
114: if(x.st_nlink > 0) /* !pipe */
115: return(1);
116: else
117: return(0);
118: }
119: if (S_ISCHR(x.st_mode)) {
120: if(isatty(fileno(f)))
121: return(0);
122: return(1);
123: }
124: if (S_ISBLK(x.st_mode))
125: return(1);
126: #else
127: Help! How does fstat work on this system?
128: #endif
129: #endif
130: return(0); /* who knows what it is? */
131: #endif
132: }
133:
134: void
135: #ifdef KR_headers
136: f__fatal(n,s) char *s;
137: #else
138: f__fatal(int n, char *s)
139: #endif
140: {
141: if(n<100 && n>=0) perror(s); /*SYSDEP*/
142: else if(n >= (int)MAXERR || n < -1)
143: { fprintf(stderr,"%s: illegal error number %d\n",s,n);
144: }
145: else if(n == -1) fprintf(stderr,"%s: end of file\n",s);
146: else
147: fprintf(stderr,"%s: %s\n",s,F_err[n-100]);
148: if (f__curunit) {
149: fprintf(stderr,"apparent state: unit %d ",f__curunit-f__units);
150: fprintf(stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n",
151: f__curunit->ufnm);
152: }
153: else
154: fprintf(stderr,"apparent state: internal I/O\n");
155: if (f__fmtbuf)
156: fprintf(stderr,"last format: %s\n",f__fmtbuf);
157: fprintf(stderr,"lately %s %s %s %s",f__reading?"reading":"writing",
158: f__sequential?"sequential":"direct",f__formatted?"formatted":"unformatted",
159: f__external?"external":"internal");
160: sig_die(" IO", 1);
161: }
162: /*initialization routine*/
163: VOID
164: f_init(Void)
165: { unit *p;
166:
167: f__init=1;
168: p= &f__units[0];
169: p->ufd=stderr;
170: p->useek=f__canseek(stderr);
171: #ifdef NON_UNIX_STDIO
172: setbuf(stderr, (char *)malloc(BUFSIZ));
173: #else
174: stderr->_flag &= ~_IONBF;
175: #endif
176: p->ufmt=1;
177: p->uwrt=1;
178: p = &f__units[5];
179: p->ufd=stdin;
180: p->useek=f__canseek(stdin);
181: p->ufmt=1;
182: p->uwrt=0;
183: p= &f__units[6];
184: p->ufd=stdout;
185: p->useek=f__canseek(stdout);
186: /* IOLBUF and setvbuf only in system 5+ */
187: #ifdef COMMENTED_OUT
188: if(isatty(fileno(stdout))) {
189: extern char _sobuf[];
190: setbuf(stdout, _sobuf);
191: /* setvbuf(stdout, _IOLBF, 0, 0); /* the buf arg in setvbuf? */
192: p->useek = 1; /* only within a record no bigger than BUFSIZ */
193: }
194: #endif
195: p->ufmt=1;
196: p->uwrt=1;
197: }
198: #ifdef KR_headers
199: f__nowreading(x) unit *x;
200: #else
201: f__nowreading(unit *x)
202: #endif
203: {
204: long loc;
205: extern char *f__r_mode[];
206: if (!x->ufnm)
207: goto cantread;
208: loc=ftell(x->ufd);
209: if(freopen(x->ufnm,f__r_mode[x->ufmt],x->ufd) == NULL) {
210: cantread:
211: errno = 126;
212: return(1);
213: }
214: x->uwrt=0;
215: (void) fseek(x->ufd,loc,SEEK_SET);
216: return(0);
217: }
218: #ifdef KR_headers
219: f__nowwriting(x) unit *x;
220: #else
221: f__nowwriting(unit *x)
222: #endif
223: {
224: long loc;
225: int k;
226: extern char *f__w_mode[];
227:
228: if (!x->ufnm)
229: goto cantwrite;
230: if (x->uwrt == 3) { /* just did write, rewind */
231: #ifdef NON_UNIX_STDIO
232: if (!(f__cf = x->ufd =
233: freopen(x->ufnm,f__w_mode[x->ufmt],x->ufd)))
234: #else
235: if (close(creat(x->ufnm,0666)))
236: #endif
237: goto cantwrite;
238: }
239: else {
240: loc=ftell(x->ufd);
241: #ifdef NON_UNIX_STDIO
242: if (!(f__cf = x->ufd =
243: freopen(x->ufnm, f__w_mode[x->ufmt+2], x->ufd)))
244: #else
245: if (fclose(x->ufd) < 0
246: || (k = x->uwrt == 2 ? creat(x->ufnm,0666)
247: : open(x->ufnm,O_WRONLY)) < 0
248: || (f__cf = x->ufd = fdopen(k,f__w_mode[x->ufmt])) == NULL)
249: #endif
250: {
251: x->ufd = NULL;
252: cantwrite:
253: errno = 127;
254: return(1);
255: }
256: (void) fseek(x->ufd,loc,SEEK_SET);
257: }
258: x->uwrt = 1;
259: return(0);
260: }
261:
262: int
263: #ifdef KR_headers
264: err__fl(f, m, s) int f, m; char *s;
265: #else
266: err__fl(int f, int m, char *s)
267: #endif
268: {
269: if (!f)
270: f__fatal(m, s);
271: if (f__doend)
272: (*f__doend)();
273: return errno = m;
274: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.