![[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.