Return to fopen.c CVS log

Up to [CSRG BSD Unix] / 40BSD / libc / stdio

Annotation of 40BSD/libc/stdio/fopen.c, revision 1.1

1.1     ! root        1: #include       <stdio.h>
        !             2: #include       <errno.h>
        !             3: 
        !             4: FILE *
        !             5: fopen(file, mode)
        !             6: char *file;
        !             7: register char *mode;
        !             8: {
        !             9:        extern int errno;
        !            10:        register f;
        !            11:        register FILE *iop;
        !            12:        extern FILE *_lastbuf;
        !            13: 
        !            14:        for (iop = _iob; iop->_flag&(_IOREAD|_IOWRT); iop++)
        !            15:                if (iop >= _lastbuf)
        !            16:                        return(NULL);
        !            17:        if (*mode=='w')
        !            18:                f = creat(file, 0666);
        !            19:        else if (*mode=='a') {
        !            20:                if ((f = open(file, 1)) < 0) {
        !            21:                        if (errno == ENOENT)
        !            22:                                f = creat(file, 0666);
        !            23:                }
        !            24:                if (f >= 0)
        !            25:                        lseek(f, 0L, 2);
        !            26:        } else
        !            27:                f = open(file, 0);
        !            28:        if (f < 0)
        !            29:                return(NULL);
        !            30:        iop->_cnt = 0;
        !            31:        iop->_file = f;
        !            32:        if (*mode != 'r')
        !            33:                iop->_flag |= _IOWRT;
        !            34:        else
        !            35:                iop->_flag |= _IOREAD;
        !            36:        return(iop);
        !            37: }

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