/*
 * _fopen.c
 *
 * Ullrich von bassewitz, 17.06.1997
 */



#include <fcntl.h>
#include <errno.h>
#include "_file.h"



static unsigned char amode_to_bmode (const char* mode)
/* Convert ASCII mode (like for fopen) to binary mode (for open) */
{
    char	  c;
    char 	  flag = 0;
    unsigned char binmode = 0;

    while (c = *mode++) {
        switch(c) {
            case 'w':
                binmode = O_WRONLY;
                break;
            case 'r':
                binmode = O_RDONLY;
                break;
            case '+':
                binmode = O_RDWR;
                break;
            /* a,b missing */
        }
    }
    if (binmode == 0) {
    	_errno = EINVAL;
    }
    return binmode;
}



FILE* _fopen (const char* name, const char* mode, FILE* f)
/* Open the specified file and fill the descriptor values into f */
{
    int 	  fd;
    unsigned char binmode;


    /* Convert ASCII mode to binary mode */
    if ((binmode = amode_to_bmode (mode)) == 0) {
	/* Invalid mode, _errno already set */
        return 0;
    }

    /* Open the file */
    fd = open (name, binmode);
    if (fd == -1) {
       	/* Error - _oserror is set */
       	return 0;
    }

    /* Remember fd, mark the file as opened */
    f->f_fd    = fd;
    f->f_flags = _FOPEN;

    /* Return the file descriptor */
    return f;
}