Return to hunt3.c CVS log

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

Annotation of researchv10no/cmd/refer/hunt3.c, revision 1.1

1.1     ! root        1: # include "refer..c"
        !             2: getq(v)
        !             3:        char *v[];
        !             4: {
        !             5: # define BSIZ 250
        !             6: static char buff[BSIZ];
        !             7: static int eof = 0;
        !             8: extern char *sinput;
        !             9: char *p;
        !            10: int c, n = 0, las = 0;
        !            11: if (eof) return(-1);
        !            12: p = buff;
        !            13: while ( (c = (sinput ? *sinput++ : getchar()) ) > 0)
        !            14:        {
        !            15:        if (c== '\n')
        !            16:                break;
        !            17:        if (isalpha(c) || isdigit(c))
        !            18:                {
        !            19:                if (las==0)
        !            20:                        {
        !            21:                        v[n++] = p;
        !            22:                        las=1;
        !            23:                        }
        !            24:                if (las++ <= 6)
        !            25:                        *p++ = c;
        !            26:                }
        !            27:        else
        !            28:                {
        !            29:                if (las>0)
        !            30:                        *p++ = 0;
        !            31:                las=0;
        !            32:                }
        !            33:        }
        !            34: *p=0;
        !            35: assert(p<buff+BSIZ);
        !            36: if (sinput==0 && c<= 0) eof=1;
        !            37: n = keycomp(v,n);
        !            38: # if D1
        !            39: fprintf(stderr, "no. keys %d\n",n);
        !            40: for(c=0; c<n; c++)
        !            41:  fprintf(stderr, "keys X%sX\n", v[c]);
        !            42: # endif
        !            43: return(n);
        !            44: }
        !            45: keycomp(v,n) /* compress keys */
        !            46:        char *v[];
        !            47: {
        !            48: int i, j, k;
        !            49: for(i=j=0; i<n; i++)
        !            50:        {
        !            51:        for(k=0; k<j; k++)
        !            52:                if (strcmp(v[i], v[k])==0)
        !            53:                        break;
        !            54:        if (k<j) /* found it */
        !            55:                continue;
        !            56:        v[j++] = v[i];
        !            57:        }
        !            58: return(j);
        !            59: }

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