Return to _fopen.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / stdio

Annotation of coherent/d/lib/libc/stdio/_fopen.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Standard I/O Library Internals
                      3:  * Open file
                      4:  */
                      5: 
                      6: #include <stdio.h>
                      7: 
                      8: #define        CRMODE  0666    /* default access permissions on create */
                      9: 
                     10: FILE *
                     11: _fopen(name, type, fp, fd)
                     12: char   *name,
                     13:        *type;
                     14: register FILE  *fp;
                     15: register int   fd;
                     16: {
                     17:        extern  int     _fginit();
                     18:        extern  int     _fpinit();
                     19:        register int    mode = 1;
                     20:        int     truncate = 0,
                     21:                append = 0;
                     22:        {       register char   c = *type++;
                     23:                char    cn = 'r';
                     24: 
                     25:                if (c=='r') {
                     26:                        mode = 0;
                     27:                        cn = 'w';
                     28:                } else if (c=='w')
                     29:                        truncate++;
                     30:                else if (c=='a')
                     31:                        append++;
                     32:                else
                     33:                        return (NULL);
                     34:                if ((c=*type)=='\0' || c=='b')
                     35:                        ;
                     36:                else if (c=='+' || c==cn)
                     37:                        mode = 2;
                     38:                else
                     39:                        return (NULL);
                     40:        }
                     41:        if (fd<0 && !truncate)
                     42:                fd = open(name, mode);
                     43:        if (fd<0 && (truncate || append)
                     44:         && (fd=creat(name, CRMODE))>=0 && mode!=1) {
                     45:                close(fd);
                     46:                fd = open(name, mode);
                     47:        }
                     48:        if (fd<0)
                     49:                return (NULL);
                     50:        if (append)
                     51:                lseek(fd, 0L, SEEK_END);
                     52:        if (fp==NULL && (fp = (FILE *) malloc(sizeof(FILE)))==NULL) {
                     53:                close(fd);
                     54:                return (NULL);
                     55:        }
                     56:        fp->_ff = _FINUSE;
                     57:        fp->_bp = fp->_cp = fp->_dp = NULL;
                     58:        fp->_cc = 0;
                     59:        fp->_gt = &_fginit;
                     60:        fp->_pt = &_fpinit;
                     61:        fp->_fd = fd;
                     62:        return (fp);
                     63: }

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