Return to runup3.c CVS log

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

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

1.1       root        1: # include "runup.h"
                      2: sortbib()
                      3: {
                      4: struct bibfile *bibp;
                      5: extern int comp(), exch();
                      6: int nb;
                      7: for(bibp=bibs; bibp->bibfno>=0; bibp++)
                      8:        ;
                      9: nb=bibp-bibs;
                     10: shell(nb, comp, exch);
                     11: # if D1
                     12:        printf("sorted %d bibs\n", nb);
                     13:        {
                     14:        struct bibfile *bp;
                     15:        for(bp=bibs; bp->bibfno>=0; bp++)
                     16:                printf("  bib%03d\n",bp->bibfno);
                     17:        }
                     18: # endif
                     19: }
                     20: comp(i,j)
                     21: {
                     22: int k;
                     23: k = strcmp(bibs[i].bibfref, bibs[j].bibfref);
                     24: if (k!=0) return(k<0);
                     25: if (bibs[i].bibfstrt == bibs[j].bibfstrt)
                     26:        {
                     27:        fprintf(stderr, "Error: files bib%03d and bib%03d are redundant\n",bibs[i].bibfno, bibs[j].bibfno);
                     28:        unlock();
                     29:        exit(1);
                     30:        }
                     31: return(bibs[i].bibfstrt-bibs[j].bibfstrt<0);
                     32: }
                     33: exch(i,j)
                     34: {
                     35: struct bibfile tb;
                     36: tb=bibs[i];
                     37: bibs[i]=bibs[j];
                     38: bibs[j]=tb;
                     39: }
                     40: # define NMV 100
                     41: # define NB 1000
                     42: char *tomove[NMV];
                     43: int nm = 0;
                     44: char nmbuff[NB];
                     45: char *nbmp = nmbuff;
                     46: svmove(s)
                     47:        char *s;
                     48: {
                     49: int i;
                     50: for(i=0;i<nm;i++)
                     51:        if (strcmp(tomove[i], s)==SAME)
                     52:                return;
                     53: tomove[nm++] = nbmp;
                     54: while (*nbmp++ = *s++);
                     55: assert(nbmp<nmbuff+NB);
                     56: assert(nm<NMV);
                     57: return;
                     58: }
                     59: remove()
                     60: {
                     61: int i;
                     62: struct bibfile *bp;
                     63: char newver[100];
                     64: unlink("XXIND");
                     65: for(i=0; i<nm; i++)
                     66:        {
                     67:        sprintf(newver, "%s.x", tomove[i]);
                     68:        if (access(newver, 4)!=0)
                     69:                continue;
                     70:        unlink(tomove[i]);
                     71:        link(newver, tomove[i]);
                     72:        unlink(newver);
                     73:        }
                     74: unlink("Ind.ia"); link("XInd.ia", "Ind.ia"); unlink("XInd.ia");
                     75: unlink("Ind.ib"); link("XInd.ib", "Ind.ib"); unlink("XInd.ib");
                     76: unlink("Ind.ic"); link("XInd.ic", "Ind.ic"); unlink("XInd.ic");
                     77: unlink("NN.ia"); unlink ("NN.ib"); unlink("NN.ic");
                     78: chdir (rundir);
                     79: for (bp=bibs; bp->bibfno>=0; bp++)
                     80:        {
                     81:        sprintf(newver, "bib%03d", bp->bibfno);
                     82:        unlink(newver);
                     83:        }
                     84: }
                     85: 
                     86: garbage()
                     87: {
                     88: /* called on interrupt only */
                     89: int i;
                     90: char newver[100];
                     91: fprintf(stderr, "Interrupt.\n");
                     92: for (i=0; i<nm; i++)
                     93:        unlink(sprintf(newver, "%s.x", tomove[i]));
                     94: unlink("XInd.ia"); unlink("XInd.ib"); unlink("XInd.ic"); 
                     95: unlink("XXIND");
                     96: unlink("NN.ia"); unlink("NN.ib"); unlink("NN.ic"); 
                     97: unlink(sprintf(newver, "%s.x", newplace)); /* other */
                     98: unlock();
                     99: exit(1);
                    100: }

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