Cesarus85--mjolnir-vr/libs/libcmt/_wopen.c

/*
_WOPEN.C

symbols in this file:
	__wopenfile
*/

#include <fcntl.h>
#include <stdio.h>
#include <wchar.h>

/* ---------- private constants */

#define _CMASK 0644
#define _IOCOMMIT 0x4000

/* ---------- external data */

extern int _cflush;
extern int _commode;

/* ---------- public code */

FILE * __cdecl _wopenfile(
	wchar_t const *filename,
	wchar_t const *mode,
	int share_flag,
	FILE *stream)
{
	int mode_flag;
	int stream_flag = _commode;
	int commit_mode_set = 0;
	int scan_mode_set = 0;
	int valid;
	int file_descriptor;

	switch (*mode)
	{
	case L'r':
		mode_flag = _O_RDONLY;
		stream_flag |= _IOREAD;
		break;

	case L'w':
		mode_flag = _O_WRONLY | _O_CREAT | _O_TRUNC;
		stream_flag |= _IOWRT;
		break;

	case L'a':
		mode_flag = _O_WRONLY | _O_CREAT | _O_APPEND;
		stream_flag |= _IOWRT;
		break;

	default:
		return NULL;
	}

	valid = 1;

	while (*++mode && valid)
	{
		switch (*mode)
		{
		case L'+':
			if (mode_flag & _O_RDWR)
			{
				valid = 0;
			}
			else
			{
				mode_flag |= _O_RDWR;
				mode_flag &= ~(_O_RDONLY | _O_WRONLY);
				stream_flag |= _IORW;
				stream_flag &= ~(_IOREAD | _IOWRT);
			}
			break;

		case L'b':
			if (mode_flag & (_O_TEXT | _O_BINARY))
				valid = 0;
			else
				mode_flag |= _O_BINARY;
			break;

		case L't':
			if (mode_flag & (_O_TEXT | _O_BINARY))
				valid = 0;
			else
				mode_flag |= _O_TEXT;
			break;

		case L'c':
			if (commit_mode_set)
			{
				valid = 0;
			}
			else
			{
				commit_mode_set = 1;
				stream_flag |= _IOCOMMIT;
			}
			break;

		case L'n':
			if (commit_mode_set)
			{
				valid = 0;
			}
			else
			{
				commit_mode_set = 1;
				stream_flag &= ~_IOCOMMIT;
			}
			break;

		case L'S':
			if (scan_mode_set)
			{
				valid = 0;
			}
			else
			{
				scan_mode_set = 1;
				mode_flag |= _O_SEQUENTIAL;
			}
			break;

		case L'R':
			if (scan_mode_set)
			{
				valid = 0;
			}
			else
			{
				scan_mode_set = 1;
				mode_flag |= _O_RANDOM;
			}
			break;

		case L'T':
			if (mode_flag & _O_SHORT_LIVED)
				valid = 0;
			else
				mode_flag |= _O_SHORT_LIVED;
			break;

		case L'D':
			if (mode_flag & _O_TEMPORARY)
				valid = 0;
			else
				mode_flag |= _O_TEMPORARY;
			break;

		default:
			valid = 0;
			break;
		}
	}

	file_descriptor = _wsopen(
		filename,
		mode_flag,
		share_flag,
		_CMASK);
	if (file_descriptor < 0)
		return NULL;

	_cflush++;
	stream->_flag = stream_flag;
	stream->_cnt = 0;
	stream->_tmpfname = stream->_base = stream->_ptr = NULL;
	stream->_file = file_descriptor;

	return stream;
}