Return to freopen.c CVS log

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

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

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

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