Return to mkey2.c CVS log

Up to [Research Unix] / researchv10no / cmd / refer

Annotation of researchv10no/cmd/refer/mkey2.c, revision 1.1.1.1

1.1       root        1: # include "stdio.h"
                      2: # include "ctype.h"
                      3: 
                      4:        static int eof= 0;
                      5:        static long lp, lim;
                      6:        static int alph, used, prevc;
                      7:        static char *p, key[20];
                      8:        extern int minlen, keycount, labels, wholefile;
                      9:        extern char *iglist;
                     10: 
                     11: dofile(f, name)
                     12:        FILE *f;
                     13:        char *name;
                     14: {
                     15: 
                     16: /* read file f & spit out keys & ptrs */
                     17: # define MAXLINE 500
                     18: char line[MAXLINE], *s;
                     19: int c;
                     20: long grec();
                     21: alph=used=prevc=eof=0;
                     22: 
                     23: lp=0;
                     24: if (wholefile==0)
                     25: while (lim = grec(line,f))
                     26:        {
                     27: # if D1
                     28: fprintf(stderr, "line: /%s",line);
                     29: # endif
                     30:        used=alph=0;
                     31:        p = key;
                     32:        for(s=line; (c= *s) && (used<keycount); s++)
                     33:                chkey(c, name);
                     34:        lp += lim;
                     35:        if (used) putchar('\n');
                     36:        }
                     37: else
                     38:        {
                     39:        p=key;
                     40:        used=alph=0;
                     41:        while ( (c=getc(f)) != EOF && used<keycount)
                     42:                chkey (c, name);
                     43:        if (used) putchar('\n');
                     44:        }
                     45: fclose(f);
                     46: }
                     47: 
                     48: outkey( ky, lead, trail)
                     49:        char *ky;
                     50: {
                     51:        int n;
                     52: n = strlen(ky);
                     53: if (n<minlen) return (0);
                     54: if (n<3)
                     55:        {
                     56:        if (trail == '.') return(0);
                     57:        if (mindex(".%,!#$%&'();+:*", lead)!=0) return(0);
                     58:        }
                     59: if (isdigit(ky[0]))
                     60:        if (ky[0] != '1' || (ky[1] != '9' && ky[1]!='8') || n!= 4) return(0);
                     61: if (common(ky))
                     62:        return(0);
                     63: return(1);
                     64: }
                     65: long grec (s, f)
                     66:        char *s;
                     67:        FILE *f;
                     68: {
                     69:        char tm[200];
                     70:        int curtype= 0;
                     71:        long len= 0L, tlen= 0L;
                     72:        extern int wholefile;
                     73:        if (eof) return(0);
                     74:        *s = 0;
                     75:        while (fgets(tm, 200, f))
                     76:                {
                     77:                tlen += strlen(tm);
                     78:                if (tm[0] == '%' || tm[0] == '.')
                     79:                        curtype = tm[1];
                     80:                if (tlen < MAXLINE && mindex(iglist,curtype)==0)
                     81:                                strcat(s, tm);
                     82:                len = tlen;
                     83:                if (wholefile==0 && tm[0] == '\n' && len>0)
                     84:                        return(len);
                     85:                if (wholefile>0 && len >= MAXLINE)
                     86:                        {
                     87:                        fseek (f, 0L, 2);
                     88:                        return(ftell(f));
                     89:                        }
                     90:                }
                     91:        eof=1;
                     92:        return(s[0] ? len : 0L);
                     93: }
                     94: char *
                     95: trimnl(ln)
                     96:        char *ln;
                     97: {
                     98: register char *p= ln;
                     99: while (*p) p++;
                    100: p--;
                    101: if (*p == '\n') *p=0;
                    102: return(ln);
                    103: }
                    104: chkey (c, name)
                    105:        {
                    106:        if ((isalpha(c) || isdigit(c)) && prevc != '\\')
                    107:                {
                    108:                if (alph++ < 6)
                    109:                        *p++ = c;
                    110:                }
                    111:        else
                    112:                {
                    113:                *p = 0;
                    114:                for(p=key; *p; p++)
                    115:                        *p |= 040;
                    116:                if (outkey(p=key,prevc,c))
                    117:                        {
                    118:                        if (used==0)
                    119:                            {
                    120:                            if (labels)
                    121:                                {
                    122:                                if (wholefile==0)
                    123:                                        printf("%s:%ld,%ld\t", name, lp, lim);
                    124:                                else
                    125:                                        printf("%s\t", name);
                    126:                            }
                    127:                                }
                    128:                        else
                    129:                                putchar(' ');
                    130:                        fputs(key, stdout);
                    131:                        used++;
                    132:                        }
                    133:                prevc=c;
                    134:                alph=0;
                    135:                }
                    136:        }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.