/* Originally doscan.c from BSD public sources */ #if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)doscan.c 5.2 (Berkeley) 3/9/86"; #endif LIBC_SCCS and not lint /* Modified for Amiga GCC by Ray Burr Added %g as equivalent of %e and %f. Added %p as equivalent of %x. Needs %i, %u and %n. */ #include #include #define SPC 01 #define STP 02 #define SHORT 0 #define REGULAR 1 #define LONG 2 #define INT 0 #define FLOAT 1 #define getz (*getz_funp) #define ungetz (*ungetz_funp) static char *_getccl(); static int _innum(); static int _instr(); static char _sctab[256] = { 0,0,0,0,0,0,0,0, 0,SPC,SPC,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, SPC,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, }; static int (*getz_funp)(), (*ungetz_funp)(); static unsigned char *buffer; static int getc_buffer(iop) FILE *iop; { if (*buffer) return (int)*buffer++; else return EOF; } static int ungetc_buffer(ch, iop) char ch; FILE *iop; { return (int)*--buffer; } _doscan(fmt, argp, iop, buf) char *fmt; int **argp; FILE *iop; char *buf; { register int ch; int nmatch, len, ch1; int **ptr, fileended, size; if (buf) { buffer = (unsigned char *)buf; getz_funp = &getc_buffer; ungetz_funp = &ungetc_buffer; } else { getz_funp = &fgetc; ungetz_funp = &ungetc; } nmatch = 0; fileended = 0; for (;;) switch (ch = *fmt++) { case '\0': return (nmatch); case '%': if ((ch = *fmt++) == '%') goto def; ptr = 0; if (ch != '*') ptr = argp++; else ch = *fmt++; len = 0; size = REGULAR; while (isdigit(ch)) { len = len*10 + ch - '0'; ch = *fmt++; } if (len == 0) len = 30000; if (ch=='l') { size = LONG; ch = *fmt++; } else if (ch=='h') { size = SHORT; ch = *fmt++; } else if (ch=='[') fmt = _getccl(fmt); if (isupper(ch)) { ch = tolower(ch); size = LONG; } if (ch == '\0') return(-1); if (_innum(ptr, ch, len, size, iop, &fileended) && ptr) nmatch++; if (fileended) return(nmatch? nmatch: -1); break; case ' ': case '\n': case '\t': while ((ch1 = getz(iop))==' ' || ch1=='\t' || ch1=='\n') ; if (ch1 != EOF) ungetz(ch1, iop); break; default: def: ch1 = getz(iop); if (ch1 != ch) { if (ch1==EOF) return(-1); ungetz(ch1, iop); return(nmatch); } } } static _innum(ptr, type, len, size, iop, eofptr) int **ptr, *eofptr; FILE *iop; { register char *np; char numbuf[64]; register c, base; int negflg, c1, ndigit; long lcval; #ifndef NOFLOATS extern double atof(); int expseen, scale; #endif if (type=='c' || type=='s' || type=='[') return(_instr(ptr? *(char **)ptr: (char *)NULL, type, len, iop, eofptr)); lcval = 0; ndigit = 0; #ifndef NOFLOATS scale = INT; if (type=='e'||type=='f'||type=='g') scale = FLOAT; #endif base = 10; if (type=='o') base = 8; else if (type=='x'||type=='p') base = 16; np = numbuf; #ifndef NOFLOATS expseen = 0; #endif negflg = 0; while ((c = getz(iop))==' ' || c=='\t' || c=='\n'); if (c=='-') { negflg++; *np++ = c; c = getz(iop); len--; } else if (c=='+') { len--; c = getz(iop); } for ( ; --len>=0; *np++ = c, c = getz(iop)) { if (isdigit(c) || base==16 && ('a'<=c && c<='f' || 'A'<=c && c<='F')) { ndigit++; if (base==8) lcval <<=3; else if (base==10) lcval = ((lcval<<2) + lcval)<<1; else lcval <<= 4; c1 = c; if (isdigit(c)) c -= '0'; else if ('a'<=c && c<='f') c -= 'a'-10; else c -= 'A'-10; lcval += c; c = c1; continue; #ifndef NOFLOATS } else if (c=='.') { if (base!=10 || scale==INT) break; ndigit++; continue; } else if ((c=='e'||c=='E') && expseen==0) { if (base!=10 || scale==INT || ndigit==0) break; expseen++; *np++ = c; c = getz(iop); if (c!='+'&&c!='-'&&('0'>c||c>'9')) break; #endif } else break; } if (negflg) lcval = -lcval; if (c != EOF) { ungetz(c, iop); *eofptr = 0; } else *eofptr = 1; if (ptr==NULL || np==numbuf || (negflg && np==numbuf+1) )/* gene dykes*/ return(0); *np++ = 0; #ifndef NOFLOATS switch((scale<<4) | size) { #else switch((INT<<4) | size) { #endif #ifndef NOFLOATS case (FLOAT<<4) | SHORT: case (FLOAT<<4) | REGULAR: **(float **)ptr = atof(numbuf); break; case (FLOAT<<4) | LONG: **(double **)ptr = atof(numbuf); break; #endif case (INT<<4) | SHORT: **(short **)ptr = lcval; break; case (INT<<4) | REGULAR: **(int **)ptr = lcval; break; case (INT<<4) | LONG: **(long **)ptr = lcval; break; } return(1); } static _instr(ptr, type, len, iop, eofptr) register char *ptr; register FILE *iop; int *eofptr; { register ch; register char *optr; int ignstp; *eofptr = 0; optr = ptr; if (type=='c' && len==30000) len = 1; ignstp = 0; if (type=='s') ignstp = SPC; while ((ch = getz(iop)) != EOF && _sctab[ch] & ignstp) ; ignstp = SPC; if (type=='c') ignstp = 0; else if (type=='[') ignstp = STP; while (ch!=EOF && (_sctab[ch]&ignstp)==0) { if (ptr) *ptr++ = ch; if (--len <= 0) break; ch = getz(iop); } if (ch != EOF) { if (len > 0) ungetz(ch, iop); *eofptr = 0; } else *eofptr = 1; if (ptr && ptr!=optr) { if (type!='c') *ptr++ = '\0'; return(1); } return(0); } static char * _getccl(s) register unsigned char *s; { register c, t; t = 0; if (*s == '^') { t++; s++; } for (c = 0; c < (sizeof _sctab / sizeof _sctab[0]); c++) if (t) _sctab[c] &= ~STP; else _sctab[c] |= STP; if ((c = *s) == ']' || c == '-') { /* first char is special */ if (t) _sctab[c] |= STP; else _sctab[c] &= ~STP; s++; } while ((c = *s++) != ']') { if (c==0) return((char *)--s); else if (c == '-' && *s != ']' && s[-2] < *s) { for (c = s[-2] + 1; c < *s; c++) if (t) _sctab[c] |= STP; else _sctab[c] &= ~STP; } else if (t) _sctab[c] |= STP; else _sctab[c] &= ~STP; } return((char *)s); }