Return to what1.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.bin / refer

Annotation of 42BSD/usr.bin/refer/what1.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char *sccsid = "@(#)what1.c     4.1 (Berkeley) 5/6/83";
        !             3: #endif
        !             4: 
        !             5: #include "what..c"
        !             6: 
        !             7: struct filans files[NFILES];
        !             8: char fnames[NAMES];
        !             9: int relfeed 0;
        !            10: char *rb[NFEED];
        !            11: char rbb[200], *rbp rbb;
        !            12: ;
        !            13: 
        !            14: main(argc,argv)
        !            15: char *argv[];
        !            16: {
        !            17:        char *s, *t, *xargv[50], *wd[50];
        !            18:        struct filans *af;
        !            19:        int xargc 0, nw, nf, i;
        !            20:        while (argc>1 && argv[1][0]=='-')
        !            21:        {
        !            22:                switch(argv[1][1])
        !            23:                {
        !            24:                case 'r': 
        !            25:                        relfeed=1; 
        !            26:                        break;
        !            27:                }
        !            28:                argc--; 
        !            29:                argv++;
        !            30:        }
        !            31:        if (argc<=1)
        !            32:        {
        !            33:                printf("No query.\n");
        !            34:                return(0);
        !            35:        }
        !            36:        nf = doclook(argc,argv,0);
        !            37:        printf("   %d files\n",nf);
        !            38:        if (relfeed && nf>NFEED)
        !            39:        {
        !            40:                wrdoc(NFEED, argc, argv, 1);
        !            41:                nw = freqwd (rb, wd, argc);
        !            42:                for(i=0; rb[i]; i++)
        !            43:                        unlink(rb[i]);
        !            44:        }
        !            45:        for(i=0; i<argc; i++)
        !            46:                xargv[xargc++]=argv[i];
        !            47:        if (relfeed)
        !            48:        {
        !            49:                printf("Adding: ");
        !            50:                for(i=0; i<nw; i++)
        !            51:                        if (!lfind(wd[i], xargc, xargv))
        !            52:                                printf("%s ", xargv[xargc++]=wd[i]);
        !            53:                printf("\n");
        !            54:                nf = doclook(xargc, xargv, relfeed? xargc/4 : 0);
        !            55:                printf("  %d files\n",nf);
        !            56:        }
        !            57:        shell (nf, comp, exch);
        !            58:        wrdoc(nf, xargc, xargv, 0);
        !            59:        return(0);
        !            60: }
        !            61: 
        !            62: exch( i1, i2 )
        !            63: {
        !            64:        struct filans *p1, *p2;
        !            65:        struct filans xt;
        !            66:        p1=files+i1;
        !            67:        p2=files+i2;
        !            68:        xt = *p1;
        !            69:        *p1 = *p2;
        !            70:        *p2 = xt;
        !            71: }
        !            72: 
        !            73: comp(i1, i2)
        !            74: {
        !            75:        struct filans *p1, *p2;
        !            76:        p1 = files+i1;
        !            77:        p2= files+i2;
        !            78:        if (p1->fdate != p2->fdate)
        !            79:                return(p2->fdate > p1->fdate);
        !            80:        return(p2->uid >= p1->uid);
        !            81: }
        !            82: 
        !            83: wrdoc ( np, argc, argv, relfeed )
        !            84: {
        !            85:        struct filans *af;
        !            86:        char *s, *t, buf[200];
        !            87:        int eval, k, pid;
        !            88:        FILE *rf NULL;
        !            89:        FILE *ans NULL;
        !            90:        pid=getpid();
        !            91:        for(af=files; af<files+np; af++)
        !            92:        {
        !            93:                t = ctime(&af->fdate);
        !            94:                getpw(af->uid, s=buf);
        !            95:                while (*s && *s!=':') s++;
        !            96:                *s=0;
        !            97:                printf("%s (%.20s)  %s, %ld bytes\n",af->nm,t+4,buf,af->size);
        !            98:                if (relfeed)
        !            99:                {
        !           100:                        k=af-files;
        !           101:                        _assert (k<NFEED);
        !           102:                        sprintf(rb[k]=rbp, "rf%d.%d",pid, k);
        !           103:                        rf = fopen(rb[k], "w");
        !           104:                        while (*rbp++);
        !           105:                }
        !           106:                describe(af->nm, argc,argv, rf);
        !           107:                if (relfeed)
        !           108:                {
        !           109:                        printf("You like that one?");
        !           110:                        fflush(stdout);
        !           111:                        fgets(buf, 100, stdin);
        !           112:                        switch(buf[0])
        !           113:                        {
        !           114:                        case 'y': 
        !           115:                        case 'Y': 
        !           116:                                eval=1; 
        !           117:                                break;
        !           118:                        case 'n': 
        !           119:                        case 'N': 
        !           120:                                eval = -1; 
        !           121:                                break;
        !           122:                        default: 
        !           123:                                eval=0; 
        !           124:                                break;
        !           125:                        }
        !           126:                        fclose(rf);
        !           127:                        if (eval<=0)
        !           128:                        {
        !           129:                                unlink(rb[k]);
        !           130:                                rb[k][0]=0;
        !           131:                        }
        !           132:                }
        !           133:        }
        !           134:        if (relfeed) rb[np]=0;
        !           135: }
        !           136: 
        !           137: lfind( wl, n, wds)
        !           138: char *wl, *wds[];
        !           139: {
        !           140:        int i;
        !           141:        for(i=0; i<n; i++)
        !           142:                if (str6cmp(wl, wds[i])==0)
        !           143:                        return(1);
        !           144:        return(0);
        !           145: }
        !           146: 
        !           147: str6cmp(s, t)
        !           148: char *s, *t;
        !           149: {
        !           150:        int i 0, c;
        !           151:        while ( (c= *s++ ) == ( *t++))
        !           152:                if (c==0 || ++i ==6)
        !           153:                        return(0);
        !           154:        return(1);
        !           155: }

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