![[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 [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libI77|
Return to err.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libI77 |
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)err.c 5.1 6/7/85
7: */
8:
9: /*
10: * fatal(): i/o error routine
11: * flush_(): flush file buffer
12: */
13:
14: #include <sys/types.h>
15: #include <sys/stat.h>
16: #include <signal.h>
17: #include "fio.h"
18:
19: /*
20: * global definitions
21: */
22:
23: unit units[MXUNIT]; /*unit table*/
24: flag reading; /*1 if reading, 0 if writing*/
25: flag external; /*1 if external io, 0 if internal */
26: flag sequential; /*1 if sequential io, 0 if direct*/
27: flag formatted; /*1 if formatted io, 0 if unformatted, -1 if list*/
28: char *fmtbuf, *icptr, *icend, *fmtptr;
29: int (*doed)(),(*doned)();
30: int (*doend)(),(*donewrec)(),(*dorevert)(),(*dotab)();
31: int (*lioproc)();
32: int (*getn)(),(*putn)(),(*ungetn)(); /*for formatted io*/
33: FILE *cf; /*current file structure*/
34: unit *curunit; /*current unit structure*/
35: int lunit; /*current logical unit*/
36: char *lfname; /*current filename*/
37: int recpos; /*place in current record*/
38: ftnint recnum; /* current record number */
39: int reclen; /* current record length */
40: int cursor,scale;
41: int radix;
42: ioflag signit,tab,cplus,cblank,elist,errflag,endflag,lquit,l_first;
43: flag leof;
44: int lcount,line_len;
45: struct ioiflg ioiflg_; /* initialization flags */
46:
47: /*error messages*/
48:
49: extern char *sys_errlist[];
50: extern int sys_nerr;
51:
52: extern char *f_errlist[];
53: extern int f_nerr;
54:
55:
56: fatal(n,s) char *s;
57: {
58: ftnint lu;
59:
60: for (lu=1; lu < MXUNIT; lu++)
61: flush_(&lu);
62: if(n<0)
63: fprintf(stderr,"%s: [%d] end of file\n",s,n);
64: else if(n>=0 && n<sys_nerr)
65: fprintf(stderr,"%s: [%d] %s\n",s,n,sys_errlist[n]);
66: else if(n>=F_ER && n<F_MAXERR)
67: fprintf(stderr,"%s: [%d] %s\n",s,n,f_errlist[n-F_ER]);
68: else
69: fprintf(stderr,"%s: [%d] unknown error number\n",s,n);
70: if(external)
71: {
72: if(!lfname) switch (lunit)
73: { case STDERR: lfname = "stderr";
74: break;
75: case STDIN: lfname = "stdin";
76: break;
77: case STDOUT: lfname = "stdout";
78: break;
79: default: lfname = "";
80: }
81: fprintf(stderr,"logical unit %d, named '%s'\n",lunit,lfname);
82: }
83: if (elist)
84: { fprintf(stderr,"lately: %s %s %s %s I/O\n",
85: reading?"reading":"writing",
86: sequential?"sequential":"direct",
87: formatted>0?"formatted":(formatted<0?"list":"unformatted"),
88: external?"external":"internal");
89: if (formatted)
90: { if(fmtbuf) prnt_fmt(n);
91: if (external)
92: { if(reading && curunit->useek)
93: prnt_ext(); /* print external data */
94: }
95: else prnt_int(); /* print internal array */
96: }
97: }
98: f77_abort(n);
99: }
100:
101: LOCAL
102: prnt_ext()
103: { int ch;
104: int i=1;
105: long loc;
106: fprintf (stderr, "part of last data: ");
107: loc = ftell(curunit->ufd);
108: if(loc)
109: { if(loc==1L) rewind(curunit->ufd);
110: else for(;i<12 && last_char(curunit->ufd)!='\n';i++);
111: while(i--) ffputc(fgetc(curunit->ufd),stderr);
112: }
113: fputc('|',stderr);
114: for(i=0;i<5 && (ch=fgetc(curunit->ufd))!=EOF;i++) ffputc(ch,stderr);
115: fputc('\n',stderr);
116: }
117:
118: LOCAL
119: prnt_int()
120: { char *ep;
121: fprintf (stderr,"part of last string: ");
122: ep = icptr - (recpos<12?recpos:12);
123: while (ep<icptr) ffputc(*ep++,stderr);
124: fputc('|',stderr);
125: while (ep<(icptr+5) && ep<icend) ffputc(*ep++,stderr);
126: fputc('\n',stderr);
127: }
128:
129: LOCAL
130: prnt_fmt(n) int n;
131: { int i; char *ep;
132: fprintf(stderr, "format: ");
133: if(n==F_ERFMT)
134: { i = fmtptr - fmtbuf;
135: ep = fmtptr - (i<25?i:25);
136: if(ep != fmtbuf) fprintf(stderr, "... ");
137: i = i + 5;
138: }
139: else
140: { ep = fmtbuf;
141: i = 25;
142: fmtptr = fmtbuf - 1;
143: }
144: while(i && *ep)
145: { ffputc((*ep==GLITCH)?'"':*ep,stderr);
146: if(ep==fmtptr) fputc('|',stderr);
147: ep++; i--;
148: }
149: if(*ep) fprintf(stderr, " ...");
150: fputc('\n',stderr);
151: }
152:
153: LOCAL
154: ffputc(c, f)
155: int c;
156: FILE *f;
157: {
158: c &= 0177;
159: if (c < ' ' || c == 0177)
160: {
161: fputc('^', f);
162: c ^= 0100;
163: }
164: fputc(c, f);
165: }
166:
167: ftnint
168: flush_(u) ftnint *u;
169: {
170: FILE *F;
171:
172: if(not_legal(*u))
173: return(F_ERUNIT);
174: F = units[*u].ufd;
175: if(F)
176: return(fflush(F));
177: else
178: return(F_ERNOPEN);
179: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.