Return to runup2.c CVS log

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

Annotation of researchv10no/cmd/refer/update/runup2.c, revision 1.1.1.1

1.1       root        1: # include "runup.h"
                      2: # include "sys/types.h"
                      3: # include "sys/dir.h"
                      4: # include "sys/stat.h"
                      5: # define NB 100
                      6: struct bibfile bibs[NB];
                      7: # define BIBCH 1000
                      8: char bibbuff[BIBCH];
                      9: char *bibcp = bibbuff;
                     10: 
                     11: readbib()
                     12: {
                     13: glist();
                     14: # if D1
                     15:                printf("List of bib files\n");
                     16:                { struct bibfile *bp;;
                     17:                for(bp=bibs; bp->bibfno>=0; bp++)
                     18:                        printf("  bib%d\n", bp->bibfno);
                     19:                }
                     20: # endif
                     21: gdata();
                     22: # if D1
                     23:                printf("Contents\n");
                     24:                {struct bibfile *bp;
                     25:                for(bp=bibs; bp->bibfno>=0; bp++)
                     26:                        printf("bib%d is %s %ld,%d\n",
                     27:                                bp->bibfno, bp->bibfref, bp->bibfstrt,bp->bibfleng);
                     28:                }
                     29: # endif
                     30: }
                     31: glist()
                     32: {
                     33: struct bibfile *bibp = bibs;
                     34: int fd;
                     35: struct stat sbuf;
                     36: char ftr[100];
                     37: long tref;
                     38: struct direct dir;
                     39: sprintf(ftr, "%s/Ind.ib", Master);
                     40: assert(stat (ftr, &sbuf)==0);
                     41: tref=sbuf.st_mtime;
                     42: fd = open(".", 0);
                     43: assert(fd>0);
                     44: while(read(fd, &dir, sizeof(dir))==sizeof(dir))
                     45:        {
                     46:        if (dir.d_ino==0)
                     47:                continue;
                     48:        if (strncmp(dir.d_name, "bib", 3) != SAME)
                     49:                continue;
                     50:        strncpy(ftr, dir.d_name, 14);
                     51:        assert(stat(ftr, &sbuf) ==0);
                     52:        if (sbuf.st_mtime<=tref)
                     53:                {
                     54:                fprintf(stderr, "File %s too old - reenter change\n", ftr);
                     55:                continue;
                     56:                }
                     57:        bibp++->bibfno = atoi(dir.d_name+3);
                     58:        assert(bibp<bibs+NB);
                     59:        }
                     60: bibp -> bibfno = -1;
                     61: close(fd);
                     62: }
                     63: gdata()
                     64: {
                     65: struct bibfile *bibp, *bp;
                     66: FILE *fb;
                     67: int junk1, junk2, leng;
                     68: long start;
                     69: char junk[20], junk3[20], name[50], *np;
                     70: char fnam[20], bibln[100];
                     71: for(bibp=bibs; bibp->bibfno>=0; bibp++)
                     72:        {
                     73:        sprintf(fnam, "bib%03d", bibp->bibfno);
                     74:        fb = fopen(fnam, "r");
                     75:        assert(fb!=NULL);
                     76:        assert(fgets(bibln, 100, fb)!=0);
                     77:        sscanf(bibln, "%s %s %d %d %s %ld %d",
                     78:                junk, name, &junk1, &junk2, junk3, &start, &leng);
                     79:        assert(name[0]=='/');
                     80:        fclose(fb);
                     81:        for(bp=bibs; bp<bibp; bp++)
                     82:                {
                     83:                if (strcmp(name, bp->bibfref)==SAME)
                     84:                        {
                     85:                        bibp->bibfref = bp->bibfref;
                     86:                        break;
                     87:                        }
                     88:                }
                     89:        if (bp==bibp) /* not previously used file name */
                     90:                {
                     91:                bibp->bibfref = bibcp;
                     92:                np=name;
                     93:                while (*bibcp++ = *np++);
                     94:                }
                     95:        bibp->bibfstrt = start;
                     96:        bibp->bibfleng = leng;
                     97:        }
                     98: }

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