# include "stdio.h" # include "ctype.h" static int eof 0; static long lp, lim; static int alph, used, prevc; static char *p, key[20]; dofile(f, name) FILE *f; char *name; { /* read file f & spit out keys & ptrs */ # define MAXLINE 500 char line[MAXLINE], *s; extern int minlen, keycount, labels; int c; long grec(); extern int wholefile; extern char *iglist; alph=used=prevc=eof=0; lp=0; if (wholefile==0) while (lim = grec(line,f)) { # if D1 fprintf(stderr, "line: /%s",line); # endif used=alph=0; p = key; for(s=line; (c= *s) && (used<keycount); s++) chkey(c, name); lp += lim; if (used) putchar('\n'); } else { p=key; used=alph=0; while ( (c=getc(f)) != EOF && used<keycount) chkey (c, name); if (used) putchar('\n'); } fclose(f); } outkey( ky, lead, trail) char *ky; { int n; n = strlen(ky); if (n<minlen) return (0); if (n<3) { if (trail == '.') return(0); if (mindex(".%,!#$%&'();+:*", lead)!=0) return(0); } if (isdigit(ky[0])) if (ky[0] != '1' || ky[1] != '9' || n!= 4) return(0); if (common(ky)) return(0); return(1); } long grec (s, f) char *s; FILE *f; { char tm[200]; int curtype 0; long len 0L, tlen 0L; extern int wholefile; if (eof) return(0); *s = 0; while (fgets(tm, 200, f)) { tlen += strlen(tm); if (tm[0] == '%' || tm[0] == '.') curtype = tm[1]; if (tlen < MAXLINE && mindex(iglist,curtype)==0) strcat(s, tm); len = tlen; if (wholefile==0 && tm[0] == '\n') return(len); if (wholefile>0 && len >= MAXLINE) { fseek (f, 0L, 2); return(ftell(f)); } } eof=1; return(s[0] ? len : 0L); } trimnl(ln) char *ln; { register char *p ln; while (*p) p++; p--; if (*p == '\n') *p=0; return(ln); } chkey (c, name) { if (isalpha(c) || isdigit(c)) { if (alph++ < 6) *p++ = c; } else { *p = 0; for(p=key; *p; p++) *p |= 040; if (outkey(p=key,prevc,c)) { if (used==0) { if (labels) { if (wholefile==0) printf("%s:%ld,%ld\t", name, lp, lim); else printf("%s\t", name); } } else putchar(' '); fputs(key, stdout); used++; } prevc=c; alph=0; } }