![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vfscanf.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / libc / stdio|
Return to vfscanf.c CVS log | Up to [Research Unix] / researchv10no / libc / stdio |
1.1 root 1: /*
2: * pANS stdio -- vfscanf
3: */
4: #include "iolib.h"
5: #include <stdarg.h>
6: #include <math.h>
7: #include <stdlib.h>
8: #include <ctype.h>
9: #ifdef sgi
10: #undef getc
11: #define getc(p) (--(p)->_cnt>=0? (int)*(p)->_ptr++:xfilbuf(p))
12:
13: static int __cnt;
14: static int xfilbuf(FILE*);
15:
16: static int
17: xfilbuf(FILE *p)
18: {
19: int rv;
20: if (p->_flag & _IOEOF)
21: return EOF;
22: if (_us_rsthread_stdio) {
23: p->_cnt = __cnt;
24: rv = _semgetc(p);
25: __cnt = p->_cnt;
26: p->_cnt = 0;
27: }
28: else {
29: rv = _filbuf(p);
30: if (p->_cnt == 1 && p->_ptr == p->_base)
31: p->_cnt = 0;
32: }
33: return rv;
34: }
35: #endif
36: static int icvt_f(FILE *f, va_list *args, int store, int width, int type);
37: static int icvt_x(FILE *f, va_list *args, int store, int width, int type);
38: static int icvt_sq(FILE *f, va_list *args, int store, int width, int type);
39: static int icvt_c(FILE *f, va_list *args, int store, int width, int type);
40: static int icvt_d(FILE *f, va_list *args, int store, int width, int type);
41: static int icvt_i(FILE *f, va_list *args, int store, int width, int type);
42: static int icvt_n(FILE *f, va_list *args, int store, int width, int type);
43: static int icvt_o(FILE *f, va_list *args, int store, int width, int type);
44: static int icvt_p(FILE *f, va_list *args, int store, int width, int type);
45: static int icvt_s(FILE *f, va_list *args, int store, int width, int type);
46: static int icvt_u(FILE *f, va_list *args, int store, int width, int type);
47: static int (*icvt[])(FILE *, va_list *, int, int, int)={
48: 0, 0, 0, 0, 0, 0, 0, 0, /* ^@ ^A ^B ^C ^D ^E ^F ^G */
49: 0, 0, 0, 0, 0, 0, 0, 0, /* ^H ^I ^J ^K ^L ^M ^N ^O */
50: 0, 0, 0, 0, 0, 0, 0, 0, /* ^P ^Q ^R ^S ^T ^U ^V ^W */
51: 0, 0, 0, 0, 0, 0, 0, 0, /* ^X ^Y ^Z ^[ ^\ ^] ^^ ^_ */
52: 0, 0, 0, 0, 0, 0, 0, 0, /* sp ! " # $ % & ' */
53: 0, 0, 0, 0, 0, 0, 0, 0, /* ( ) * + , - . / */
54: 0, 0, 0, 0, 0, 0, 0, 0, /* 0 1 2 3 4 5 6 7 */
55: 0, 0, 0, 0, 0, 0, 0, 0, /* 8 9 : ; < = > ? */
56: 0, 0, 0, 0, 0, icvt_f, 0, icvt_f, /* @ A B C D E F G */
57: 0, 0, 0, 0, 0, 0, 0, 0, /* H I J K L M N O */
58: 0, 0, 0, 0, 0, 0, 0, 0, /* P Q R S T U V W */
59: icvt_x, 0, 0, icvt_sq,0, 0, 0, 0, /* X Y Z [ \ ] ^ _ */
60: 0, 0, 0, icvt_c, icvt_d, icvt_f, icvt_f, icvt_f, /* ` a b c d e f g */
61: 0, icvt_i, 0, 0, 0, 0, icvt_n, icvt_o, /* h i j k l m n o */
62: icvt_p, 0, 0, icvt_s, 0, icvt_u, 0, 0, /* p q r s t u v w */
63: icvt_x, 0, 0, 0, 0, 0, 0, 0, /* x y z { | } ~ ^? */
64:
65: 0, 0, 0, 0, 0, 0, 0, 0,
66: 0, 0, 0, 0, 0, 0, 0, 0,
67: 0, 0, 0, 0, 0, 0, 0, 0,
68: 0, 0, 0, 0, 0, 0, 0, 0,
69: 0, 0, 0, 0, 0, 0, 0, 0,
70: 0, 0, 0, 0, 0, 0, 0, 0,
71: 0, 0, 0, 0, 0, 0, 0, 0,
72: 0, 0, 0, 0, 0, 0, 0, 0,
73: 0, 0, 0, 0, 0, 0, 0, 0,
74: 0, 0, 0, 0, 0, 0, 0, 0,
75: 0, 0, 0, 0, 0, 0, 0, 0,
76: 0, 0, 0, 0, 0, 0, 0, 0,
77: 0, 0, 0, 0, 0, 0, 0, 0,
78: 0, 0, 0, 0, 0, 0, 0, 0,
79: 0, 0, 0, 0, 0, 0, 0, 0,
80: 0, 0, 0, 0, 0, 0, 0, 0,
81:
82: };
83: #define ngetc(f) (nread++, getc(f))
84: #define nungetc(c, f) (--nread, ungetc((c), f))
85: #define wgetc(c, f, out) if(width--==0) goto out; (c)=ngetc(f)
86: #define wungetc(c, f) (++width, nungetc(c, f))
87: static int nread, ncvt;
88: static const char *fmtp;
89:
90: int vfscanf(FILE *f, const char *s, va_list args){
91: int c, width, type, store;
92: #ifdef sgi
93: if (_us_rsthread_stdio) {
94: __cnt = f->_cnt;
95: f->_cnt = 0;
96: }
97: #endif
98: nread=0;
99: ncvt=0;
100: fmtp=s;
101: for(;*fmtp;fmtp++) switch(*fmtp){
102: default:
103: if(isspace(*fmtp)){
104: do
105: c=ngetc(f);
106: while(isspace(c));
107: if(c==EOF) return ncvt?ncvt:EOF;
108: nungetc(c, f);
109: break;
110: }
111: NonSpecial:
112: c=ngetc(f);
113: if(c==EOF) return ncvt?ncvt:EOF;
114: if(c!=*fmtp){
115: nungetc(c, f);
116: return ncvt;
117: }
118: break;
119: case '%':
120: fmtp++;
121: if(*fmtp!='*') store=1;
122: else{
123: store=0;
124: fmtp++;
125: }
126: if('0'<=*fmtp && *fmtp<='9'){
127: width=0;
128: while('0'<=*fmtp && *fmtp<='9') width=width*10 + *fmtp++ - '0';
129: }
130: else
131: width=-1;
132: type=*fmtp=='h' || *fmtp=='l' || *fmtp=='L'?*fmtp++:'n';
133: if(!icvt[*fmtp]) goto NonSpecial;
134: if(!(*icvt[*fmtp])(f, &args, store, width, type))
135: return ncvt?ncvt:feof(f)?EOF:0;
136: if(*fmtp=='\0') break;
137: if(store) ncvt++;
138: }
139: return ncvt;
140: }
141: static int icvt_n(FILE *f, va_list *args, int store, int width, int type){
142: #pragma ref f
143: #pragma ref width
144: if(store){
145: --ncvt; /* this assignment doesn't count! */
146: switch(type){
147: case 'h': *va_arg(*args, short *)=nread; break;
148: case 'n': *va_arg(*args, int *)=nread; break;
149: case 'l':
150: case 'L': *va_arg(*args, long *)=nread; break;
151: }
152: }
153: return 1;
154: }
155: #define SIGNED 1
156: #define UNSIGNED 2
157: #define POINTER 3
158: /*
159: * Generic fixed-point conversion
160: * f is the input FILE *;
161: * args is the va_list * into which to store the number;
162: * store is a flag to enable storing;
163: * width is the maximum field width;
164: * type is 'h' 'l' or 'L', the scanf type modifier;
165: * unsgned is SIGNED, UNSIGNED or POINTER, giving part of the type to store in;
166: * base is the number base -- if 0, C number syntax is used.
167: */
168: static int icvt_fixed(FILE *f, va_list *args,
169: int store, int width, int type, int unsgned, int base){
170: unsigned long int num=0;
171: int sign=1, ndig=0, dig;
172: int c;
173: do
174: c=ngetc(f);
175: while(isspace(c));
176: if(width--==0){
177: nungetc(c, f);
178: goto Done;
179: }
180: if(c=='+'){
181: wgetc(c, f, Done);
182: }
183: else if(c=='-'){
184: sign=-1;
185: wgetc(c, f, Done);
186: }
187: switch(base){
188: case 0:
189: if(c=='0'){
190: wgetc(c, f, Done);
191: if(c=='x' || c=='X'){
192: wgetc(c, f, Done);
193: base=16;
194: }
195: else{
196: ndig=1;
197: base=8;
198: }
199: }
200: else
201: base=10;
202: break;
203: case 16:
204: if(c=='0'){
205: wgetc(c, f, Done);
206: if(c=='x' || c=='X'){
207: wgetc(c, f, Done);
208: }
209: else ndig=1;
210: }
211: break;
212: }
213: while('0'<=c && c<='9' || 'a'<=c && c<='f' || 'A'<=c && c<='F'){
214: dig='0'<=c && c<='9'?c-'0':'a'<=c && c<='f'?c-'a'+10:c-'A'+10;
215: if(dig>=base) break;
216: ndig++;
217: num=num*base+dig;
218: wgetc(c, f, Done);
219: }
220: nungetc(c, f);
221: Done:
222: if(ndig==0) return 0;
223: if(store){
224: switch(unsgned){
225: case SIGNED:
226: switch(type){
227: case 'h': *va_arg(*args, short *)=num*sign; break;
228: case 'n': *va_arg(*args, int *)=num*sign; break;
229: case 'l':
230: case 'L': *va_arg(*args, long *)=num*sign; break;
231: }
232: break;
233: case UNSIGNED:
234: switch(type){
235: case 'h': *va_arg(*args, unsigned short *)=num*sign; break;
236: case 'n': *va_arg(*args, unsigned int *)=num*sign; break;
237: case 'l':
238: case 'L': *va_arg(*args, unsigned long *)=num*sign; break;
239: }
240: break;
241: case POINTER:
242: *va_arg(*args, void **)=(void *)(num*sign); break;
243: }
244: }
245: return 1;
246: }
247: static int icvt_d(FILE *f, va_list *args, int store, int width, int type){
248: return icvt_fixed(f, args, store, width, type, SIGNED, 10);
249: }
250: static int icvt_x(FILE *f, va_list *args, int store, int width, int type){
251: return icvt_fixed(f, args, store, width, type, UNSIGNED, 16);
252: }
253: static int icvt_o(FILE *f, va_list *args, int store, int width, int type){
254: return icvt_fixed(f, args, store, width, type, UNSIGNED, 8);
255: }
256: static int icvt_i(FILE *f, va_list *args, int store, int width, int type){
257: return icvt_fixed(f, args, store, width, type, SIGNED, 0);
258: }
259: static int icvt_u(FILE *f, va_list *args, int store, int width, int type){
260: return icvt_fixed(f, args, store, width, type, UNSIGNED, 10);
261: }
262: static int icvt_p(FILE *f, va_list *args, int store, int width, int type){
263: return icvt_fixed(f, args, store, width, type, POINTER, 16);
264: }
265: #define NBUF 509
266: static int icvt_f(FILE *f, va_list *args, int store, int width, int type){
267: char buf[NBUF+1];
268: char *s=buf;
269: int c, ndig=0, ndpt=0, nexp=1;
270: if(width<0 || NBUF<width) width=NBUF; /* bug -- no limit specified in ansi */
271: do
272: c=ngetc(f);
273: while(isspace(c));
274: if(width--==0){
275: nungetc(c, f);
276: goto Done;
277: }
278: if(c=='+' || c=='-'){
279: *s++=c;
280: wgetc(c, f, Done);
281: }
282: while('0'<=c && c<='9' || ndpt==0 && c=='.'){
283: if(c=='.') ndpt++;
284: else ndig++;
285: *s++=c;
286: wgetc(c, f, Done);
287: }
288: if(c=='e' || c=='E'){
289: *s++=c;
290: nexp=0;
291: wgetc(c, f, Done);
292: if(c=='+' || c=='-'){
293: *s++=c;
294: wgetc(c, f, Done);
295: }
296: while('0'<=c && c<='9'){
297: *s++=c;
298: nexp++;
299: wgetc(c, f, Done);
300: }
301: }
302: nungetc(c, f);
303: Done:
304: if(ndig==0 || nexp==0) return 0;
305: *s='\0';
306: if(store) switch(type){
307: case 'h':
308: case 'n': *va_arg(*args, float *)=atof(buf); break;
309: case 'L': /* bug -- should store in a long double */
310: case 'l': *va_arg(*args, double *)=atof(buf); break;
311: }
312: return 1;
313: }
314: static int icvt_s(FILE *f, va_list *args, int store, int width, int type){
315: #pragma ref type
316: int c, nn;
317: register char *s;
318: if(store) s=va_arg(*args, char *);
319: do
320: c=ngetc(f);
321: while(isspace(c));
322: if(width--==0){
323: nungetc(c, f);
324: goto Done;
325: }
326: nn=0;
327: while(!isspace(c)){
328: if(c==EOF){
329: if(nn==0) return 0;
330: else goto Done;
331: }
332: nn++;
333: if(store) *s++=c;
334: wgetc(c, f, Done);
335: }
336: nungetc(c, f);
337: Done:
338: if(store) *s='\0';
339: return 1;
340: }
341: static int icvt_c(FILE *f, va_list *args, int store, int width, int type){
342: #pragma ref type
343: int c;
344: register char *s;
345: if(store) s=va_arg(*args, char *);
346: if(width<0) width=1;
347: for(;;){
348: wgetc(c, f, Done);
349: if(c==EOF) return 0;
350: if(store) *s++=c;
351: }
352: Done:
353: return 1;
354: }
355: static int match(int c, const char *pat){
356: int ok=1;
357: if(*pat=='^'){
358: ok=!ok;
359: pat++;
360: }
361: while(pat!=fmtp){
362: if(pat+2<fmtp && pat[1]=='-'){
363: if(pat[0]<=c && c<=pat[2]
364: || pat[2]<=c && c<=pat[0])
365: return ok;
366: pat+=2;
367: }
368: else if(c==*pat) return ok;
369: pat++;
370: }
371: return !ok;
372: }
373: static int icvt_sq(FILE *f, va_list *args, int store, int width, int type){
374: #pragma ref type
375: int c, nn;
376: register char *s;
377: register const char *pat;
378: pat=++fmtp;
379: if(*fmtp=='^') fmtp++;
380: if(*fmtp!='\0') fmtp++;
381: while(*fmtp!='\0' && *fmtp!=']') fmtp++;
382: if(store) s=va_arg(*args, char *);
383: nn=0;
384: for(;;){
385: wgetc(c, f, Done);
386: if(c==EOF){
387: if(nn==0) return 0;
388: else goto Done;
389: }
390: if(!match(c, pat)) break;
391: if(store) *s++=c;
392: nn++;
393: }
394: nungetc(c, f);
395: Done:
396: if(store) *s='\0';
397: return 1;
398: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.