nativelibc/posix-io/open.c

#include <windows.h>
#include <nt.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <stdarg.h>
//#include <errno.h>
#include <pathname.h>
#include <assert.h>

#include <stdio.h>		// For debug messages

int vopen(const char *pathname, int flags, va_list ap) {
	unsigned long int fileaccess;
	switch(flags & (O_RDONLY | O_WRONLY | O_RDWR)) {
		case O_RDONLY:
			fileaccess = GENERIC_READ;
			break;
		case O_WRONLY:
			fileaccess = GENERIC_WRITE;
			break;
		case O_RDWR:
			fileaccess = GENERIC_READ | GENERIC_WRITE;
			break;
		default:
			//errno = EINVAL;
			return -1;
	}
	if(flags & O_APPEND) {
		if(!(fileaccess & GENERIC_WRITE)) {
			//errno = EINVAL;
			return -1;
		}
		fileaccess = FILE_APPEND_DATA;
	}
	if(/*(flags & O_SYNC) || */!(flags & O_NONBLOCK)) fileaccess |= SYNCHRONIZE;

	unsigned long int file_create_disposition;
	switch(flags & (O_CREAT | O_EXCL | O_TRUNC)) {
		case 0:
		case O_EXCL:			// O_EXCL without O_CREAT: ignored
			// Open file if it exist, or fail if not
			file_create_disposition = FILE_OPEN;
			break;

		case O_CREAT:
			// Open file if it exist, or create it if not
			file_create_disposition = FILE_OPEN_IF;
			break;

		case O_CREAT | O_EXCL:
		case O_CREAT | O_TRUNC | O_EXCL:
			// Create file if it not exist, otherwise fail
			file_create_disposition = FILE_CREATE;
			break;

		case O_TRUNC:
		case O_TRUNC | O_EXCL:		// O_EXCL without O_CREAT: ignored
			// Open and truncate file if it exist, or fail if not
			file_create_disposition = FILE_OVERWRITE;
			break;

		case O_CREAT | O_TRUNC:
			// Open and truncate file if it exist, or create it if not
			file_create_disposition = FILE_OVERWRITE_IF;
			break;

		default:
			/* this can't happen ... all cases are covered */
			assert(!flags);
			return -1;
	}

	unsigned long int fileshare = 0;
	if(flags & O_CREAT) {
		int pmode = va_arg(ap, int);
		if((pmode & S_IREAD) == S_IREAD) fileshare |= FILE_SHARE_READ;
		if((pmode & S_IWRITE) == S_IWRITE) fileshare |= FILE_SHARE_WRITE;
	}

	unsigned long int fileattrib = FILE_ATTRIBUTE_NORMAL;

	unsigned long int file_create_options = 0;
	if(!(flags & O_NONBLOCK)) {
		if(flags & O_ASYNC) file_create_options |= FILE_SYNCHRONOUS_IO_ALERT;
		else file_create_options |= FILE_SYNCHRONOUS_IO_NONALERT;
	}
	if(flags & O_DIRECTORY) file_create_options |= FILE_DIRECTORY_FILE;
	else file_create_options |= FILE_NON_DIRECTORY_FILE;
	if(flags & O_RANDOM) file_create_options |= FILE_RANDOM_ACCESS;
	else if(flags & O_SEQUENTIAL) file_create_options |= FILE_SEQUENTIAL_ONLY;
	if(flags & O_TEMPORARY) file_create_options |= FILE_DELETE_ON_CLOSE;
	if(flags & O_DIRECT) file_create_options |= FILE_NO_INTERMEDIATE_BUFFERING;

	UNICODE_STRING ntpathname;
	RtlCreateUnicodeStringFromAsciiz(&ntpathname, pathname);
	PATHNAME_UNIX2NT_UTF16_STRUCT(ntpathname);
	OBJECT_ATTRIBUTES objectattrib = { sizeof(OBJECT_ATTRIBUTES), NULL, &ntpathname, 0, NULL, NULL };

	void *r;
	IO_STATUS_BLOCK io_status;
	long int status = NtCreateFile(&r, fileaccess, &objectattrib, &io_status, NULL, fileattrib, fileshare, file_create_disposition, file_create_options, NULL, 0);
	printf("nativelibc debug: open: status = 0x%lx\n", status);
	//if(ntstatus_to_errno(status)) return -1;
	if(status) return -1;		// TODO: implemente the errno
	return (int)r;
}

int open(const char *pathname, int flags, ...) {
	va_list ap;
	va_start(ap, flags);
	int r = vopen(pathname, flags, ap);
	va_end(ap);
	return r;
}