Return to mkey1.c CVS log

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

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

1.1     ! root        1: #ifndef lint
        !             2: static char *sccsid = "@(#)mkey1.c     4.1 (Berkeley) 5/6/83";
        !             3: #endif
        !             4: 
        !             5: #include <stdio.h>
        !             6: 
        !             7: extern char *comname;  /* "/usr/lib/eign" */
        !             8: int wholefile = 0;
        !             9: int keycount = 100;
        !            10: int labels = 1;
        !            11: int minlen = 3;
        !            12: extern int comcount;
        !            13: char *iglist = "XYZ#";
        !            14: 
        !            15: main (argc,argv)
        !            16: char *argv[];
        !            17: {
        !            18:        /* this program expects as its arguments a list of
        !            19:         * files and generates a set of lines of the form
        !            20:         *      filename:byte-add,length (tab) key1 key2 key3
        !            21:         * where the byte addresses give the position within
        !            22:         * the file and the keys are the strings off the lines
        !            23:         * which are alphabetic, first six characters only.
        !            24:         */
        !            25: 
        !            26:        int i;
        !            27:        char *name, qn[200];
        !            28:        char *inlist = 0;
        !            29: 
        !            30:        FILE *f, *ff;
        !            31: 
        !            32:        while (argc>1 && argv[1][0] == '-')
        !            33:        {
        !            34:                switch(argv[1][1])
        !            35:                {
        !            36:                case 'c':
        !            37:                        comname = argv[2];
        !            38:                        argv++; 
        !            39:                        argc--;
        !            40:                        break;
        !            41:                case 'w':
        !            42:                        wholefile = 1;  
        !            43:                        break;
        !            44:                case 'f':
        !            45:                        inlist = argv[2];
        !            46:                        argv++; 
        !            47:                        argc--;
        !            48:                        break;
        !            49:                case 'i':
        !            50:                        iglist = argv[2];
        !            51:                        argv++; 
        !            52:                        argc--;
        !            53:                        break;
        !            54:                case 'l':
        !            55:                        minlen = atoi(argv[1]+2);
        !            56:                        if (minlen<=0) minlen=3;
        !            57:                        break;
        !            58:                case 'n': /* number of common words to use */
        !            59:                        comcount = atoi(argv[1]+2);
        !            60:                        break;
        !            61:                case 'k': /* number  of keys per file max */
        !            62:                        keycount = atoi(argv[1]+2);
        !            63:                        break;
        !            64:                case 's': /* suppress labels, search only */
        !            65:                        labels = 0;
        !            66:                        break;
        !            67:                }
        !            68:                argc--; 
        !            69:                argv++;
        !            70:        }
        !            71:        if (inlist)
        !            72:        {
        !            73:                ff = fopen(inlist, "r");
        !            74:                while (fgets(qn, 200, ff))
        !            75:                {
        !            76:                        trimnl(qn);
        !            77:                        f = fopen (qn, "r");
        !            78:                        if (f!=NULL)
        !            79:                                dofile(f, qn);
        !            80:                        else
        !            81:                                fprintf(stderr, "Can't read %s\n",qn);
        !            82:                }
        !            83:        }
        !            84:        else
        !            85:                if (argc<=1)
        !            86:                        dofile(stdin, "");
        !            87:                else
        !            88:                        for(i=1; i<argc; i++)
        !            89:                        {
        !            90:                                f = fopen(name=argv[i], "r");
        !            91:                                if (f==NULL)
        !            92:                                        err("No file %s",name);
        !            93:                                else
        !            94:                                        dofile(f, name);
        !            95:                        }
        !            96:        exit(0);
        !            97: }

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