Return to closer.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / iutil

Annotation of 43BSD/ingres/source/iutil/closer.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <access.h>
                      3: # include      <catalog.h>
                      4: # include      <sccs.h>
                      5: 
                      6: SCCSID(@(#)closer.c    8.1     12/31/84)
                      7: 
                      8: /*
                      9: **     closer - close a relation
                     10: **
                     11: **     CLOSER is used to close a relation which was opened by OPENR.
                     12: **     CLOSER should always be called once for each OPENR.
                     13: **
                     14: **     function values:
                     15: **
                     16: **             <0  fatal error
                     17: **              0  success
                     18: **              1  relation was not open
                     19: */
                     20: 
                     21: closer(d)
                     22: DESC   *d;
                     23: {
                     24:        register DESC   *dx;
                     25:        register int    i;
                     26: 
                     27:        dx = d;
                     28: #      ifdef xATR1
                     29:        if (tTf(21, 8))
                     30:                printf("closer: %.14s,%ld\n", dx->reldum.relid, dx->reladds);
                     31: #      endif
                     32: 
                     33:        if (i = noclose(dx))
                     34:                return (i);
                     35: 
                     36:        flush_rel(dx, TRUE);    /* No error is possible since noclose()
                     37:                                ** has already flushed any pages
                     38:                                */
                     39: 
                     40:        if (close(dx->relfp))   /*close the relation*/
                     41:                i = acc_err(AMCLOSE_ERR);
                     42: 
                     43:        dx->relopn = 0;
                     44: 
                     45:        if (dx->reldum.reldim > 0)
                     46:        {
                     47:                /* close btreesec */
                     48:                closer(dx->relbtree);
                     49:                close(dx->btree_fd);
                     50:        }
                     51:        return (i);
                     52: }

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