Return to closer.c CVS log

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

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

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

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