![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rdfmt.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / lib / libI77|
Return to rdfmt.c CVS log | Up to [CSRG BSD Unix] / 41BSD / lib / libI77 |
1.1 root 1: #include "fio.h"
2: #include "fmt.h"
3: extern int cursor;
4: rd_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen len;
5: { int ch;
6: for(;cursor>0;cursor--) if((ch=(*getn)())<0) return(ch);
7: if(cursor<0)
8: { if(recpos+cursor < 0) err(elist->cierr,110,"fmt")
9: if(curunit->useek) (void) fseek(cf,(long) cursor,1);
10: else err(elist->cierr,106,"fmt");
11: cursor=0;
12: }
13: switch(p->op)
14: {
15: default: fprintf(stderr,"rd_ed, unexpected code: %d\n%s\n",
16: p->op,fmtbuf);
17: abort();
18: case I: ch = (rd_I((uint *)ptr,p->p1,len, 10));
19: break;
20: case IM: ch = (rd_I((uint *)ptr,p->p1,len, 10));
21: break;
22: case O: ch = (rd_I((uint *)ptr, p->p1, len, 8));
23: break;
24: case L: ch = (rd_L((ftnint *)ptr,p->p1));
25: break;
26: case A: ch = (rd_A(ptr,len));
27: break;
28: case AW:
29: ch = (rd_AW(ptr,p->p1,len));
30: break;
31: case E: case EE:
32: case D:
33: case G:
34: case GE:
35: case F: ch = (rd_F((ufloat *)ptr,p->p1,p->p2,len));
36: break;
37: }
38: if(ch == 0) return(ch);
39: else if(feof(cf)) return(EOF);
40: clearerr(cf);
41: return(errno);
42: }
43: rd_ned(p) struct syl *p;
44: {
45: switch(p->op)
46: {
47: default: fprintf(stderr,"rd_ned, unexpected code: %d\n%s\n",
48: p->op,fmtbuf);
49: abort();
50: case APOS:
51: return(rd_POS(p->p1));
52: case H: return(rd_H(p->p1,p->p2));
53: case SLASH: return((*donewrec)());
54: case TR:
55: case X: cursor += p->p1;
56: return(1);
57: case T: cursor=p->p1-recpos - 1;
58: return(1);
59: case TL: cursor -= p->p1;
60: return(1);
61: }
62: }
63: rd_I(n,w,len, base) ftnlen len; uint *n; register int base;
64: { long x=0;
65: int i,sign=0,ch;
66: for(i=0;i<w;i++)
67: {
68: if((ch=(*getn)())<0) return(ch);
69: switch(ch)
70: {
71: default:
72: return(errno=115);
73: case ',': goto done;
74: case '+': break;
75: case '-':
76: sign=1;
77: break;
78: case '\n':
79: case ' ':
80: if(cblank) x *= base;
81: break;
82: case '0': case '1': case '2': case '3': case '4':
83: case '5': case '6': case '7': case '8': case '9':
84: x=base*x+ch-'0';
85: break;
86: }
87: }
88: done:
89: if(sign) x = -x;
90: if(len==sizeof(short)) n->is=x;
91: else if(len == sizeof(char)) n->ic = x;
92: else n->il=x;
93: return(0);
94: }
95: rd_L(n,w) ftnint *n;
96: { int ch,i,v = -1;
97: for(i=0;i<w;i++)
98: { if((ch=(*getn)())<0) return(ch);
99: if(ch=='t' && v==-1) v=1;
100: else if(ch=='f' && v==-1) v=0;
101: else if(ch==',') return(0);
102: }
103: if(v==-1)
104: { errno=116;
105: return(1);
106: }
107: *n=v;
108: return(0);
109: }
110: rd_F(p,w,d,len) ftnlen len; ufloat *p;
111: { double x,y;
112: int i,sx,sz,ch,dot,ny,z,sawz;
113: x=y=0;
114: sawz=z=ny=dot=sx=sz=0;
115: for(i=0;i<w;)
116: { i++;
117: if((ch=(*getn)())<0) return(ch);
118: else if(ch == ' ' && !cblank || ch == '+' && x == 0
119: || ch == '\n' && !cblank) continue;
120: else if(ch=='-' && x==0) sx=1;
121: else if(ch == '+' || ch == '-') goto expon;
122: else if(ch<='9' && ch>='0')
123: x=10*x+ch-'0';
124: else if(ch=='e' || ch=='d' || ch=='.')
125: break;
126: else if(cblank && (ch==' ' || ch== '\n')) x*=10;
127: else if(ch==',')
128: { i=w;
129: break;
130: }
131: else return(errno = 115);
132: }
133: if(ch=='.') dot=1;
134: while(i<w && ch!='e' && ch!='d' && ch!='+' && ch!='-')
135: { i++;
136: if((ch=(*getn)())<0) return(ch);
137: else if(ch<='9' && ch>='0')
138: y=10*y+ch-'0';
139: else if(cblank && (ch==' ' || ch == '\n'))
140: y *= 10;
141: else if(ch==',') {i=w; break;}
142: else if(ch==' ') continue;
143: else continue;
144: ny++;
145: }
146: expon:
147: if(ch=='-') sz=1;
148: while(i<w)
149: { i++;
150: sawz=1;
151: if((ch=(*getn)())<0) return(ch);
152: else if(ch=='-') sz=1;
153: else if(ch<='9' && ch>='0')
154: z=10*z+ch-'0';
155: else if(cblank && (ch==' ' || ch == '\n'))
156: z *= 10;
157: else if(ch==',') break;
158: else if(ch==' ') continue;
159: else if(ch=='+') continue;
160: else if(ch!='\n') return(errno=115);
161: }
162: if(!dot)
163: for(i=0;i<d;i++) x /= 10;
164: for(i=0;i<ny;i++) y /= 10;
165: x=x+y;
166: if(sz)
167: for(i=0;i<z;i++) x /=10;
168: else for(i=0;i<z;i++) x *= 10;
169: if(sx) x = -x;
170: if(!sawz)
171: {
172: for(i=scale;i>0;i--) x /= 10;
173: for(i=scale;i<0;i++) x *= 10;
174: }
175: if(len==sizeof(float)) p->pf=x;
176: else p->pd=x;
177: return(0);
178: }
179: rd_A(p,len) char *p; ftnlen len;
180: { int i,ch;
181: for(i=0;i<len;i++)
182: { GET(ch);
183: *p++=VAL(ch);
184: }
185: return(0);
186: }
187: rd_AW(p,w,len) char *p; ftnlen len;
188: { int i,ch;
189: if(w>=len)
190: { for(i=0;i<w-len;i++)
191: GET(ch);
192: for(i=0;i<len;i++)
193: { GET(ch);
194: *p++=VAL(ch);
195: }
196: return(0);
197: }
198: for(i=0;i<w;i++)
199: { GET(ch);
200: *p++=VAL(ch);
201: }
202: for(i=0;i<len-w;i++) *p++=' ';
203: return(0);
204: }
205: rd_H(n,s) char *s;
206: { int i,ch;
207: for(i=0;i<n;i++)
208: if((ch=(*getn)())<0) return(ch);
209: else *s++ = ch=='\n'?' ':ch;
210: return(1);
211: }
212: rd_POS(s) char *s;
213: { char quote;
214: int ch;
215: quote= *s++;
216: for(;*s;s++)
217: if(*s==quote && *(s+1)!=quote) break;
218: else if((ch=(*getn)())<0) return(ch);
219: else *s = ch=='\n'?' ':ch;
220: return(1);
221: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.