Return to fopen.c CVS log

Up to [CSRG BSD Unix] / 3BSD / lib / libNS

Annotation of 3BSD/lib/libNS/fopen.c, revision 1.1

1.1     ! root        1: /* Copyright (c) 1979 Regents of the University of California */
        !             2: #include       <nstdio.h>
        !             3: 
        !             4: struct _iobuf *fopen(file, mode)
        !             5: register char *mode;
        !             6: {
        !             7:        register f;
        !             8:        register struct _iobuf *iop;
        !             9:        int unixmode, a_flag, noclob;
        !            10: 
        !            11:        for (iop = _iob; iop->_flag&(_IOREAD|_IOWRT); iop++)
        !            12:                if (iop >= _iob + _NFILE)
        !            13:                        return(NULL);
        !            14:        iop->_flag = 0;
        !            15:        iop->_delta = 0;
        !            16:        a_flag = 0;
        !            17:        noclob = 0;
        !            18:        for(;*mode;mode++) {
        !            19:                switch(*mode) {
        !            20: 
        !            21:                case 'w':
        !            22:                        iop->_flag |= _IOWRT;
        !            23:                        break;
        !            24: 
        !            25:                case 'r':
        !            26:                        iop->_flag |= _IOREAD;
        !            27:                        break;
        !            28: 
        !            29:                case 'a':
        !            30:                        a_flag = 1;
        !            31:                        noclob = 1;
        !            32:                        iop->_flag |= _IOWRT ;
        !            33:                        break;
        !            34: 
        !            35:                case '+':
        !            36:                        if (iop->_flag & _IOREAD)
        !            37:                                noclob = 1;
        !            38:                        iop->_flag |= (_IOREAD | _IOWRT);
        !            39:                        break;
        !            40:                }
        !            41:        }
        !            42:        if((unixmode = (iop->_flag & 3) - 1) < 0) {
        !            43:                unixmode = 0;
        !            44:                iop->_flag = 1;
        !            45:        }
        !            46:        if ((iop->_flag & _IOWRT) && noclob==0 ) {
        !            47:                f = creat(file, 0644);
        !            48:                if((iop->_flag &  _IOREAD) && (f>0)) {
        !            49:                        close(f);
        !            50:                        f = open(file,2);
        !            51:                }
        !            52:        }
        !            53:        else
        !            54:                if ((0 >(f = open(file, unixmode))) && (noclob || !(iop->_flag&_IOREAD))) {
        !            55:                        f = creat(file, 0644);
        !            56:                        close(f);
        !            57:                        f = open(file,unixmode);
        !            58:                }
        !            59: 
        !            60:        if (f < 0)
        !            61:                return(NULL);
        !            62:        if (a_flag)
        !            63:                lseek(f, (long) 0, 2);
        !            64:        iop->_file = f;
        !            65:        return(iop);
        !            66: }

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