Return to close.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / old

Annotation of researchv10dc/libI77/old/close.c, revision 1.1

1.1     ! root        1: /*     @(#)close.c     1.2     */
        !             2: /*     3.0 SID #       1.2     */
        !             3: #include "fio.h"
        !             4: f_clos(a) cllist *a;
        !             5: {      unit *b;
        !             6:        if(a->cunit >= MXUNIT) return(0);
        !             7:        b= &units[a->cunit];
        !             8:        if(b->ufd==NULL) return(0);
        !             9:        b->uend=0;
        !            10:        if(a->csta!=0)
        !            11:                switch(*a->csta)
        !            12:                {
        !            13:                default:
        !            14:                keep:
        !            15:                case 'k':
        !            16:                        if(b->uwrt) (void) t_runc(b);
        !            17:                        (void) fclose(b->ufd);  /* sys 5 has strange beliefs */
        !            18:                        if(b->ufnm!=0) free(b->ufnm);
        !            19:                        b->ufnm=NULL;
        !            20:                        b->ufd=NULL;
        !            21:                        return(0);
        !            22:                case 'd':
        !            23:                delete:
        !            24:                        (void) fclose(b->ufd);
        !            25:                        if(b->ufnm!=0)
        !            26:                        {       (void) unlink(b->ufnm); /*SYSDEP*/
        !            27:                                free(b->ufnm);
        !            28:                        }
        !            29:                        b->ufnm=NULL;
        !            30:                        b->ufd=NULL;
        !            31:                        return(0);
        !            32:                }
        !            33:        else if(b->uscrtch==1) goto delete;
        !            34:        else goto keep;
        !            35: }
        !            36: f_exit()
        !            37: {      int i;
        !            38:        cllist xx;
        !            39:        xx.cerr=1;
        !            40:        xx.csta=NULL;
        !            41:        for(i=0;i<MXUNIT;i++)
        !            42:        {
        !            43:                xx.cunit=i;
        !            44:                (void) f_clos(&xx);
        !            45:        }
        !            46: }
        !            47: flush_()
        !            48: {      int i;
        !            49:        for(i=0;i<MXUNIT;i++)
        !            50:                if(units[i].ufd != NULL) (void) fflush(units[i].ufd);
        !            51: }

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