Return to makekey.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / bib / src

Annotation of 43BSDTahoe/new/bib/src/makekey.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)makekey.c  2.2     9/23/83";
        !             3: #endif not lint
        !             4: #
        !             5: 
        !             6: # include "stdio.h"
        !             7: # include "ctype.h"
        !             8: # include "bib.h"
        !             9: 
        !            10: char    commlist[MAXCOMM]=   /*  list of strings of common words         */
        !            11:      "";
        !            12: int firsttime = 1;
        !            13: 
        !            14: /*  makekey(p,max_klen,common):  compresses *p into a key
        !            15:         folds upper to lower case.  ignores non-alphanumeric
        !            16:         drops keys of length <= 1.
        !            17:         drops words in common (name of file of words, one per line)
        !            18:             (first call determines common for all later calls)
        !            19: */
        !            20: makekey(p,max_klen,common)
        !            21: char *p;
        !            22: int  max_klen;          /* max key length */
        !            23: char *common;
        !            24: {   register char *from, *to, *stop;
        !            25: 
        !            26:     if (firsttime) {firsttime= 0; load_comm(common); }
        !            27: 
        !            28:     from= p; to= p; stop= max_klen+p;
        !            29:     while (*from != NULL  &&  to < stop)
        !            30:     {   if      (islower(*from))      *to++ = *from++;
        !            31:         else if (isdigit(*from))      *to++ = *from++;
        !            32:         else if (isupper(*from))    { *to++ = tolower(*from);  from++; }
        !            33:         else                          from++;
        !            34:     }
        !            35:     *to= NULL;
        !            36: 
        !            37:     if (to<=p+1 ||
        !            38:         lookup(commlist, p) )  *p= NULL;
        !            39: }
        !            40: 
        !            41: /*  list is a string of null terminated strings, final string is null.
        !            42:     p is a null terminated string.
        !            43:     return 1 if p is a string in list, 0 ow.
        !            44: */
        !            45: int lookup(list,p)
        !            46: char *list, *p;
        !            47: {   int len;
        !            48:     len= strlen(list);
        !            49:     while (len!=0 && strcmp(list,p)!=0)
        !            50:     {   list += (len+1);
        !            51:         len= strlen(list);
        !            52:     }
        !            53:     return(len!=0);
        !            54: }
        !            55: 
        !            56: /*  read file common into commlist
        !            57: */
        !            58: load_comm(common)
        !            59: char *common;
        !            60: {   FILE    *commfile;          /*  stream of common words                  */
        !            61:     char *p, *stop;
        !            62:     commfile= fopen(common,"r");
        !            63:     if (commfile==NULL) fprintf(stderr, "cannot open '%s'\n", common);
        !            64:     else
        !            65:     {   /* read commfile into commlist  */
        !            66:             p= commlist;    stop= commlist+MAXCOMM-1;
        !            67:             while (p<stop && ((*p= getc(commfile))!=EOF))
        !            68:             {   if (*p=='\n')   *p= NULL;
        !            69:                 p++;
        !            70:             }
        !            71:             if  (*p==EOF)  *p= NULL;
        !            72:             else
        !            73:             {   fprintf(stderr, "invert: too many common words\n");
        !            74:                 commlist[0]= NULL;
        !            75:             }
        !            76:         fclose(commfile);
        !            77:     }
        !            78: }
        !            79: 

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