Return to fopen.5.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / notused

Annotation of researchv10dc/libI77/notused/fopen.5.c, revision 1.1.1.1

1.1       root        1: /*     @(#)fopen.c     1.8     */
                      2: /*LINTLIBRARY*/
                      3: #include "stdio.h"
                      4: #include <fcntl.h>
                      5: 
                      6: extern int open(), fclose();
                      7: extern FILE *_findiop(), *_endopen();
                      8: 
                      9: FILE *
                     10: fopen(file, mode)
                     11: char   *file, *mode;
                     12: {
                     13:        return (_endopen(file, mode, _findiop()));
                     14: }
                     15: 
                     16: FILE *
                     17: freopen(file, mode, iop)
                     18: char   *file, *mode;
                     19: register FILE *iop;
                     20: {
                     21:        (void) fclose(iop); /* doesn't matter if this fails */
                     22:        return (_endopen(file, mode, iop));
                     23: }
                     24: 
                     25: static FILE *
                     26: _endopen(file, mode, iop)
                     27: char   *file, *mode;
                     28: register FILE *iop;
                     29: {
                     30:        register int    plus, oflag, fd;
                     31: 
                     32:        if (iop == NULL || file == NULL || file[0] == '\0')
                     33:                return (NULL);
                     34:        plus = (mode[1] == '+');
                     35:        switch (mode[0]) {
                     36:        case 'w':
                     37:                oflag = (plus ? O_RDWR : O_WRONLY) | O_TRUNC | O_CREAT;
                     38:                break;
                     39:        case 'a':
                     40:                oflag = (plus ? O_RDWR : O_WRONLY) | O_APPEND | O_CREAT;
                     41:                break;
                     42:        case 'r':
                     43:                oflag = plus ? O_RDWR : O_RDONLY;
                     44:                break;
                     45:        default:
                     46:                return (NULL);
                     47:        }
                     48:        if ((fd = open(file, oflag, 0666)) < 0)
                     49:                return (NULL);
                     50:        iop->_cnt = 0;
                     51:        iop->_file = fd;
                     52:        iop->_flag = plus ? _IORW : (mode[0] == 'r') ? _IOREAD : _IOWRT;
                     53:        if (mode[0] == 'a')   {
                     54:                if (!plus)  {
                     55:                        /* if update only mode, move file pointer to the end
                     56:                           of the file */
                     57:                        if ((lseek(fd,0L,2)) < 0)  {
                     58:                                return NULL;
                     59:                        }
                     60:                }
                     61:        }
                     62:        _bufend(iop) = iop->_base = iop->_ptr = NULL;
                     63:        return (iop);
                     64: }

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