Return to fopen.c CVS log

Up to [Research Unix] / researchv9 / libc / stdio

Annotation of researchv9/libc/stdio/fopen.c, revision 1.1.1.1

1.1       root        1: /* @(#)fopen.c 4.2 (Berkeley) 3/9/81 */
                      2: #include       <stdio.h>
                      3: #include       <errno.h>
                      4: 
                      5: FILE *
                      6: fopen(file, mode)
                      7: char *file;
                      8: register char *mode;
                      9: {
                     10:        extern int errno;
                     11:        register f, rw;
                     12:        register FILE *iop;
                     13:        extern FILE *_lastbuf;
                     14: 
                     15:        for (iop = _iob; iop->_flag&(_IOREAD|_IOWRT|_IORW); iop++)
                     16:                if (iop >= _lastbuf)
                     17:                        return(NULL);
                     18: 
                     19:        rw = mode[1] == '+';
                     20: 
                     21:        if (*mode=='w') {
                     22:                f = creat(file, 0666);
                     23:                if (rw && f>=0) {
                     24:                        close(f);
                     25:                        f = open(file, 2);
                     26:                }
                     27:        } else if (*mode=='a') {
                     28:                if ((f = open(file, rw? 2: 1)) < 0) {
                     29:                        if (errno == ENOENT) {
                     30:                                f = creat(file, 0666);
                     31:                                if (rw && f>=0) {
                     32:                                        close(f);
                     33:                                        f = open(file, 2);
                     34:                                }
                     35:                        }
                     36:                }
                     37:                if (f >= 0)
                     38:                        lseek(f, 0L, 2);
                     39:        } else
                     40:                f = open(file, rw? 2: 0);
                     41:        if (f < 0)
                     42:                return(NULL);
                     43:        iop->_cnt = 0;
                     44:        iop->_file = f;
                     45:        if (rw)
                     46:                iop->_flag |= _IORW;
                     47:        else if (*mode != 'r')
                     48:                iop->_flag |= _IOWRT;
                     49:        else
                     50:                iop->_flag |= _IOREAD;
                     51:        return(iop);
                     52: }

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