Return to extr.c CVS log

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

Annotation of researchv10no/cmd/refer/update/extr.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # include "assert.h"
        !             3: # include "ctype.h"
        !             4: 
        !             5: main(argc,argv)
        !             6:        char *argv[];
        !             7: {
        !             8: /* arguments are keys of a paper */
        !             9: /* output is file & lines to drop */
        !            10:        char answer[200], filname[60], outname[60];
        !            11:        int nuse = 0, i, c, length, line1, line2;
        !            12:        long l, start;
        !            13:        FILE *lkin, *lkout, *fin, *fout;
        !            14:        char buff[2000], *bf = buff;
        !            15:        char *select = 0;
        !            16:        extern char *indexes;
        !            17: lkin = fopen("/dev/null", "w");
        !            18: lkout = fopen("/dev/null", "r");
        !            19: _assert (lkin !=NULL); _assert (lkout!=NULL);
        !            20: while (argc>1 &&argv[1][0]=='-')
        !            21:        {
        !            22:        switch(argv[1][1])
        !            23:                {
        !            24:                case 'p': /* use private index files */
        !            25:                        indexes = argv[2];
        !            26:                        argv += 2; argc -= 2;
        !            27:                        continue;
        !            28:                case 'u': /* use the Nth item */
        !            29:                        nuse = atoi(argv[1]+2);
        !            30:                        argv++; argc--;
        !            31:                        continue;
        !            32:                case 's': /* insist on a particular string */
        !            33:                        select = argv[2];
        !            34:                        argv += 2; argc -= 2;
        !            35:                        continue;
        !            36:                default:
        !            37:                        fprintf(stderr, "unknown option %s\n",argv[1]);
        !            38:                        argv++; argc--;
        !            39:                        continue;
        !            40:                }
        !            41:        }
        !            42: lookup(lkin, lkout);
        !            43: if (argc<=1) fprintf(stderr, "No search keys\n");
        !            44: _assert (argc>1);
        !            45: for(i=1; i<argc; i++)
        !            46:        fprintf(lkin, "%s ", argv[i]);
        !            47: fprintf(lkin, "\n");
        !            48: fclose(lkin);
        !            49: /* skip items up to nuse */
        !            50: for(i=1; i<nuse; i++)
        !            51:        geta(answer, lkout, select);
        !            52: /* get the right answer */
        !            53: i = geta(answer, lkout, select);
        !            54: if (i==0)
        !            55:        {
        !            56:        fprintf(stderr, "No match\n");
        !            57:        exit(1);
        !            58:        }
        !            59: sscanf(answer, "%[^:]:%ld,%d", filname, &start, &length);
        !            60: if (nuse<=0 && geta(answer, lkout, select)>0)
        !            61:        {
        !            62:        fprintf(stderr, "Not unique - use lookbib and either -s or -u\n");
        !            63:        exit(1);
        !            64:        }
        !            65: fclose(lkout);
        !            66: assert((strlen(filname)>0));
        !            67: fin = fopen(filname, "r");
        !            68: _assert (fin!=NULL);
        !            69: c=0;
        !            70: for(i=getpid()%990; 1; i++)
        !            71:        {
        !            72:        _assert (c++<100);
        !            73:        sprintf(outname, "bib%03d", i);
        !            74:        if (access(outname, 06) != 0)
        !            75:                break;
        !            76:        }
        !            77: fout = fopen(outname, "w");
        !            78: line1 = 1;
        !            79: printf("Extracting as file %s\n", outname);
        !            80: for(l=0; l<start; l++)
        !            81:        {
        !            82:        c = getc(fin);
        !            83:        _assert (c!=EOF);
        !            84:        if (c=='\n')
        !            85:                line1++;
        !            86:        }
        !            87: line2=line1;
        !            88: for(i=0; i<length; i++)
        !            89:        {
        !            90:        c = getc(fin);
        !            91:        _assert (c != EOF);
        !            92:        putchar(c);
        !            93:        *bf++ = c;
        !            94:        if (c== '\n')
        !            95:                line2++;
        !            96:        }
        !            97: fclose(fin);
        !            98: fprintf(fout, "%%# %s %d %d change %ld %d\n",
        !            99:        filname, line1, line2-1, start, length);
        !           100: *bf=0;
        !           101: fprintf(fout, "%s", buff);
        !           102: fclose(fout);
        !           103: }
        !           104: geta(answer, f, str)
        !           105:        char *answer, *str;
        !           106:        FILE *f;
        !           107: {
        !           108: answer[0]=0;
        !           109: while (answer[0]==0 && feof(f)==0)
        !           110:        {
        !           111:        answer[0]=0;
        !           112:        fgets(answer, 200, f);
        !           113:        trim(answer);
        !           114:        if (contain(answer, str)==0)
        !           115:                answer[0]=0;
        !           116:        }
        !           117: return( answer[0]!=0);
        !           118: }
        !           119: contain(answer, str)
        !           120:        char *answer, *str;
        !           121: {
        !           122: char filname[100]; long start; int length;
        !           123: int ft;
        !           124: char buff[1000], *s, *st;
        !           125: if (str==0) return(1);
        !           126: if (answer[0]==0) return(1);
        !           127: sscanf(answer, "%[^:]:%ld,%d", filname, &start, &length);
        !           128: assert((strlen(filname)>0));
        !           129: ft = open(filname, 0);
        !           130: assert(ft>=0);
        !           131: lseek(ft, start, 0);
        !           132: if (length>1000) length=1000;
        !           133: length = read(ft, buff, length);
        !           134: close(ft);
        !           135: buff[length]=0;
        !           136: st = buff+length;
        !           137: for(s=buff; s<st; s++)
        !           138:        if (prefix(str, s))
        !           139:                return(1);
        !           140: return(0);
        !           141: }
        !           142: prefix(sh,lg)
        !           143:        char *sh, *lg;
        !           144: {
        !           145: int c;
        !           146: while ( (c= *sh++) == *lg++)
        !           147:        {
        !           148:        if (c==0)
        !           149:                return(1);
        !           150:        }
        !           151: return(c==0);
        !           152: }
        !           153: trim(s)
        !           154:        char *s;
        !           155: {
        !           156: while (*s)s++;
        !           157: if (*--s=='\n') *s=0;
        !           158: }

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