lib: Add mlibc

Signed-off-by: Ian Moffett <ian@osmora.org>

1 files changed, 1266 insertions, 0 deletions

diff --git a/lib/mlibc/sysdeps/ironclad/generic/generic.cpp b/lib/mlibc/sysdeps/ironclad/generic/generic.cpp
new file mode 100644
index 0000000..3d15365
--- /dev/null
+++ b/lib/mlibc/sysdeps/ironclad/generic/generic.cpp
@@ -0,0 +1,1266 @@
+#include <mlibc-config.h>
+#include <bits/ensure.h>
+#include <mlibc/debug.hpp>
+#include <mlibc/all-sysdeps.hpp>
+#include <errno.h>
+#include <dirent.h>
+#include <fcntl.h>
+#include <limits.h>
+#include <asm/ioctls.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <sys/syscall.h>
+#include <sys/ironclad_devices.h>
+#include <sched.h>
+#include <sys/mman.h>
+#include <unistd.h>
+#include <sys/file.h>
+#include <mlibc/tcb.hpp>
+
+namespace mlibc {
+
+void sys_libc_log(const char *message) {
+	ssize_t unused;
+	char new_line = '\n';
+	sys_write(2, message, strlen(message), &unused);
+	sys_write(2, &new_line, 1, &unused);
+}
+
+void sys_libc_panic() {
+	ssize_t unused;
+	char const *message = "mlibc panicked unrecoverably\n";
+	sys_write(2, message, strlen(message), &unused);
+	sys_exit(1);
+}
+
+void sys_exit(int status) {
+	int ret, errno;
+	SYSCALL1(SYSCALL_EXIT, status);
+	__builtin_unreachable();
+}
+
+int sys_tcb_set(void *pointer) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_ARCH_PRCTL, 1, pointer);
+	return errno;
+}
+
+int sys_thread_getname(void *tcb, char *name, size_t size) {
+	int ret, errno;
+	auto t = reinterpret_cast<Tcb *>(tcb);
+	SYSCALL3(SYSCALL_GETTIDID, t->tid, name, size);
+	return errno;
+}
+
+int sys_thread_setname(void *tcb, const char *name) {
+	int ret, errno;
+	size_t len = strlen(name);
+	auto t = reinterpret_cast<Tcb *>(tcb);
+	SYSCALL3(SYSCALL_SETTIDID, t->tid, name, len);
+	return errno;
+}
+
+int sys_open(const char *path, int flags, mode_t mode, int *fd) {
+	return sys_openat(AT_FDCWD, path, flags, mode, fd);
+}
+
+int sys_openat(int dirfd, const char *path, int flags, mode_t mode, int *fd) {
+	int ret, errno;
+
+	int path_len = strlen (path);
+	SYSCALL4(SYSCALL_OPEN, dirfd, path, path_len, flags);
+	if (ret != -1 && (flags & O_EXCL)) {
+		 SYSCALL1(SYSCALL_CLOSE, ret);
+		 return EEXIST;
+	}
+
+	if (ret == -1 && (flags & O_CREAT)) {
+		 SYSCALL5(SYSCALL_MAKENODE, AT_FDCWD, path, path_len, mode, 0);
+		 if (ret == -1) {
+			  return errno;
+		 }
+		 SYSCALL4(SYSCALL_OPEN,	AT_FDCWD, path, path_len, flags);
+	} else if (ret != -1 && (flags & O_TRUNC)) {
+		// If the file cannot be truncated, dont sweat it, some software
+		// depends on some things being truncate-able that ironclad does not
+		// allow. For example, some devices.
+		sys_ftruncate(ret, 0);
+	} else if (ret != -1 && (flags & O_DIRECTORY)) {
+		struct stat st;
+		sys_stat(fsfd_target::fd, ret, NULL, 0, &st);
+		if (!S_ISDIR (st.st_mode)) {
+			ret	= -1;
+			errno = ENOTDIR;
+		}
+	}
+
+	*fd = ret;
+	return errno;
+}
+
+int sys_open_dir(const char *path, int *handle) {
+	return sys_open(path, O_RDONLY | O_DIRECTORY, 0660, handle);
+}
+
+int sys_read_entries(int handle, void *buffer, size_t max_size, size_t *bytes_read) {
+	size_t ret;
+	int errno;
+	SYSCALL3(SYSCALL_GETDENTS, handle, buffer, max_size);
+	if (errno != 0) {
+		return errno;
+	} else {
+		*bytes_read = ret;
+		return 0;
+	}
+}
+
+void sys_thread_exit() {
+	 int ret, errno;
+	 SYSCALL0(SYSCALL_EXIT_THREAD);
+	 __builtin_unreachable();
+}
+
+int sys_close(int fd) {
+	int ret, errno;
+	SYSCALL1(SYSCALL_CLOSE, fd);
+	return errno;
+}
+
+void sys_sync() {
+	int ret, errno;
+	SYSCALL0(SYSCALL_SYNC);
+	if (ret != 0) {
+		sys_libc_log("mlibc: sync failed");
+	}
+}
+
+int sys_fsync(int fd) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_FSYNC, fd, 0);
+	return errno;
+}
+
+int sys_fdatasync(int fd) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_FSYNC, fd, 1);
+	return errno;
+}
+
+int sys_read(int fd, void *buf, size_t count, ssize_t *bytes_read) {
+	ssize_t ret;
+	int errno;
+	SYSCALL3(SYSCALL_READ, fd, buf, count);
+	*bytes_read = ret;
+	return errno;
+}
+
+int sys_write(int fd, const void *buf, size_t count, ssize_t *bytes_written) {
+	ssize_t ret;
+	int errno;
+	SYSCALL3(SYSCALL_WRITE, fd, buf, count);
+	*bytes_written = ret;
+	return errno;
+}
+
+int sys_pread(int fd, void *buf, size_t n, off_t off, ssize_t *bytes_read) {
+	ssize_t ret;
+	int errno;
+	SYSCALL4(SYSCALL_PREAD, fd, buf, n, off);
+	*bytes_read = ret;
+	return errno;
+}
+
+int sys_pwrite(int fd, const void *buf, size_t n, off_t off, ssize_t *bytes_written) {
+	ssize_t ret;
+	int errno;
+	SYSCALL4(SYSCALL_WRITE, fd, buf, n, off);
+	*bytes_written = ret;
+	return errno;
+}
+
+int sys_seek(int fd, off_t offset, int whence, off_t *new_offset) {
+	ssize_t ret;
+	int errno;
+	SYSCALL3(SYSCALL_SEEK, fd, offset, whence);
+	*new_offset = ret;
+	return errno;
+}
+
+int sys_ftruncate (int fd, size_t size) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_TRUNCATE, fd, size);
+	return errno;
+}
+
+int sys_flock(int fd, int options) {
+	//  XXX: Shouldnt this use F_SETLKW and F_SETLK only when LOCK_NB ?
+	struct flock lock;
+	lock.l_whence = SEEK_SET;
+	lock.l_start = 0;
+	lock.l_len = (off_t)((uint64_t)-1);
+	lock.l_pid = sys_getpid();
+
+	switch (options & ~(LOCK_NB)) {
+		case LOCK_SH:
+			lock.l_type = F_RDLCK;
+			break;
+		case LOCK_EX:
+			lock.l_type = F_WRLCK;
+			break;
+		case LOCK_UN:
+			lock.l_type = F_UNLCK;
+			break;
+		default:
+			return -1;
+	}
+
+	int ret, errno;
+	SYSCALL3(SYSCALL_FCNTL, fd, F_SETLK, &lock);
+	return errno;
+}
+
+int sys_getpriority(int which, id_t who, int *value) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_GETPRIO, which, who);
+	*value = ret;
+	return errno;
+}
+
+int sys_setpriority(int which, id_t who, int value) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_SETPRIO, which, who, value);
+	return errno;
+}
+
+int sys_getrusage(int scope, struct rusage *usage) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_GETRUSAGE, scope, usage);
+
+	// Ironclad returns nanoseconds instead of microseconds for usage, so we
+	// have to compensate for that.
+	usage->ru_utime.tv_usec = usage->ru_utime.tv_usec / 1000;
+	usage->ru_stime.tv_usec = usage->ru_stime.tv_usec / 1000;
+
+	return errno;
+}
+
+int sys_anon_allocate(size_t size, void **pointer) {
+	return sys_vm_map(NULL, size, PROT_READ | PROT_WRITE, MAP_ANON, 0, 0, pointer);
+}
+
+int sys_anon_free(void *pointer, size_t size) {
+	return sys_vm_unmap(pointer, size);
+}
+
+int sys_vm_map(void *hint, size_t size, int prot, int flags, int fd, off_t offset, void **window) {
+	void *ret;
+	int errno;
+	SYSCALL6(SYSCALL_MMAP, hint, size, prot, flags, fd, offset);
+	*window = ret;
+	return errno;
+}
+
+int sys_getsockopt(int fd, int layer, int number, void *__restrict buffer, socklen_t *__restrict size) {
+	int ret, errno;
+	SYSCALL5(SYSCALL_GETSOCKOPT, fd, layer, number, buffer, size);
+	return errno;
+}
+
+int sys_setsockopt(int fd, int layer, int number, const void *buffer, socklen_t size) {
+	int ret, errno;
+	SYSCALL5(SYSCALL_SETSOCKOPT, fd, layer, number, buffer, size);
+	return errno;
+}
+
+int sys_vm_unmap(void *pointer, size_t size) {
+	int ret;
+	int errno;
+	SYSCALL2(SYSCALL_MUNMAP, pointer, size);
+	if (ret != 0) {
+		return errno;
+	} else {
+		return 0;
+	}
+}
+
+int sys_getcwd(char *buf, size_t size) {
+	buf[0] = '/';
+	buf[1] = '\0';
+	return 0;
+}
+
+int sys_vm_protect(void *pointer, size_t size, int prot) {
+	int ret;
+	int errno;
+	SYSCALL3(SYSCALL_MPROTECT, pointer, size, prot);
+	if (ret != 0) {
+		return errno;
+	}
+	return 0;
+}
+
+int sys_getsid(pid_t pid, pid_t *sid) {
+	//  STUB.
+	return 0;
+}
+
+pid_t sys_getpid() {
+	pid_t ret;
+	int errno;
+	SYSCALL0(SYSCALL_GETPID);
+	return ret;
+}
+
+pid_t sys_getppid() {
+	pid_t ret;
+	int errno;
+	SYSCALL0(SYSCALL_GETPPID);
+	return ret;
+}
+
+int sys_getgroups(size_t size, const gid_t *list, int *retval) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_GETGROUPS, size, list);
+	*retval = ret;
+	return errno;
+}
+
+int sys_setgroups(size_t size, const gid_t *list) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETGROUPS, size, list);
+	return errno;
+}
+
+int sys_sigaction(int signum, const struct sigaction *act, struct sigaction *oldact) {
+	return 0;
+}
+
+int sys_ptrace(long req, pid_t pid, void *addr, void *data, long *out) {
+	int ret, errno;
+	SYSCALL4(SYSCALL_PTRACE, req, pid, addr, data);
+	*out = (long)ret;
+	return errno;
+}
+
+int sys_fcntl(int fd, int request, va_list args, int *result) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_FCNTL, fd, request, va_arg(args, uint64_t));
+	*result = ret;
+	return errno;
+}
+
+int sys_sigprocmask(int how, const sigset_t *__restrict set, sigset_t *__restrict retrieve) {
+	return 0;
+}
+
+int sys_isatty(int fd) {
+	struct termios t;
+	if (sys_tcgetattr(fd, &t) == 0) {
+		return 0;
+	} else {
+		return ENOTTY;
+	}
+}
+
+int sys_getpgid(pid_t pid, pid_t *pgid) {
+	(void)pid;
+	// FIXME: Stub needed by mlibc.
+	*pgid = 0;
+	return 0;
+}
+
+int sys_execve(const char *path, char *const argv[], char *const envp[]) {
+	int ret, errno, argv_len, envp_len;
+	for (argv_len = 0; argv[argv_len] != NULL; argv_len++);
+	for (envp_len = 0; envp[envp_len] != NULL; envp_len++);
+
+	size_t path_len = strlen (path);
+	SYSCALL6(SYSCALL_EXEC, path, path_len, argv, argv_len, envp, envp_len);
+
+	if (ret == -1) {
+		return errno;
+	 }
+
+	return 0;
+}
+
+int sys_fork(pid_t *child) {
+	pid_t ret;
+	int errno;
+
+	SYSCALL6(SYSCALL_CLONE, 0, 0, 0, 0, 0, 1);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	if (child != NULL) {
+		*child = ret;
+	}
+
+	return 0;
+}
+
+int sys_getrlimit(int resource, struct rlimit *limit) {
+	uint64_t ret, errno;
+	SYSCALL1(SYSCALL_GETRLIMIT, resource);
+	limit->rlim_cur = ret;
+	limit->rlim_max = ret;
+	return errno;
+}
+
+int sys_setrlimit(int resource, const struct rlimit *limit) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETRLIMIT, resource, limit->rlim_cur);
+	return errno;
+}
+
+int sys_waitpid(pid_t pid, int *status, int flags, struct rusage *ru, pid_t *ret_pid) {
+	pid_t ret;
+	int errno;
+
+	if(ru) {
+		mlibc::infoLogger() << "mlibc: struct rusage in sys_waitpid is unsupported" << frg::endlog;
+		return ENOSYS;
+	}
+
+	SYSCALL3(SYSCALL_WAIT, pid, status, flags);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	*ret_pid = ret;
+	return errno;
+}
+
+int sys_uname(struct utsname *buf) {
+	int ret, errno;
+
+	SYSCALL3(SYSCALL_SYSCONF, 10, buf, sizeof(struct utsname));
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	return 0;
+}
+
+
+
+int sys_setpgid(pid_t pid, pid_t pgid) {
+	(void)pid;
+	(void)pgid;
+	return 0;
+}
+
+int sys_ttyname(int fd, char *buff, size_t size) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_TTYNAME, fd, buff, size);
+	return errno;
+}
+
+int sys_sethostname(const char *buff, size_t size) {
+	int ret, errno;
+
+	SYSCALL2(SYSCALL_SETHOSTNAME, buff, size);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	return 0;
+}
+
+int sys_chdir(const char *buff) {
+	int ret, errno;
+
+	size_t buff_len = strlen(buff);
+	SYSCALL4(SYSCALL_OPEN, AT_FDCWD, buff, buff_len, O_RDONLY);
+	if (ret == -1) {
+		return ENOENT;
+	}
+
+	SYSCALL1(SYSCALL_CHDIR, ret);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	return 0;
+}
+
+int sys_fchdir(int fd) {
+	int ret, errno;
+
+	SYSCALL1(SYSCALL_CHDIR, fd);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	return 0;
+}
+
+int sys_ioctl(int fd, unsigned long request, void *arg, int *result) {
+	int ret, errno;
+
+	if (request == TIOCGPGRP) {
+		*result = 0;
+		return 0;
+	} else if (request == TIOCSPGRP) {
+		return 0;
+	}
+
+	SYSCALL3(SYSCALL_IOCTL, fd, request, arg);
+
+	if (ret == -1) {
+		return errno;
+	}
+
+	*result = ret;
+	return 0;
+}
+
+void sys_yield(void) {
+	int ret, errno;
+	SYSCALL0(SYSCALL_SCHED_YIELD);
+}
+
+int sys_kill(int pid, int sig) {
+	int ret, errno;
+	if (sig == SIGKILL) {
+		SYSCALL1(SYSCALL_ACTUALLY_KILL, pid);
+	} else {
+		SYSCALL2(SYSCALL_SEND_SIGNAL, pid, sig);
+	}
+
+	return errno;
+}
+
+int sys_dup(int fd, int flags, int *newfd) {
+	int ret, errno;
+	if (flags & O_CLOEXEC) {
+		SYSCALL3(SYSCALL_FCNTL, fd, F_DUPFD_CLOEXEC, 0);
+	} else {
+		SYSCALL3(SYSCALL_FCNTL, fd, F_DUPFD, 0);
+	}
+	*newfd = ret;
+	return errno;
+}
+
+int sys_dup2(int fd, int flags, int newfd) {
+	int ret = sys_close(newfd);
+	if (ret != 0 && ret != EBADFD) {
+		return EBADFD;
+	}
+
+	int errno;
+	if (flags & O_CLOEXEC) {
+		SYSCALL3(SYSCALL_FCNTL, fd, F_DUPFD_CLOEXEC, newfd);
+	} else {
+		SYSCALL3(SYSCALL_FCNTL, fd, F_DUPFD, newfd);
+	}
+
+	if (ret != -1 && ret != newfd) {
+		return EBADFD;
+	} else {
+		return errno;
+	}
+}
+
+int sys_tcgetattr(int fd, struct termios *attr) {
+	 int ret;
+
+	 if (int r = sys_ioctl(fd, TCGETS, attr, &ret) != 0) {
+		  return r;
+	 }
+
+	 return 0;
+}
+
+int sys_tcsetattr(int fd, int optional_action, const struct termios *attr) {
+	 int ret;
+
+	 switch (optional_action) {
+		  case TCSANOW:
+				optional_action = TCSETS; break;
+		  case TCSADRAIN:
+				optional_action = TCSETSW; break;
+		  case TCSAFLUSH:
+				optional_action = TCSETSF; break;
+		  default:
+				__ensure(!"Unsupported tcsetattr");
+	 }
+
+	 if (int r = sys_ioctl(fd, optional_action, (void *)attr, &ret) != 0) {
+		  return r;
+	 }
+
+	 return 0;
+}
+
+int sys_tcflow(int fd, int action) {
+	int ret;
+	return sys_ioctl(fd, TCXONC, &action, &ret);
+}
+
+int sys_tcflush(int fd, int action) {
+	int ret;
+	return sys_ioctl(fd, TCFLSH, &action, &ret);
+}
+
+int sys_access(const char *path, int mode) {
+	int ret, errno;
+	size_t len = strlen(path);
+	SYSCALL5(SYSCALL_ACCESS, AT_FDCWD, path, len, mode, 0);
+	return errno;
+}
+
+int sys_faccessat(int dirfd, const char *pathname, int mode, int flags) {
+	int ret, errno;
+	size_t len = strlen(pathname);
+	SYSCALL5(SYSCALL_ACCESS, dirfd, pathname, len, mode, flags);
+	return errno;
+}
+
+struct futex_item {
+	 uint64_t addr;
+	 uint32_t expected;
+	 uint32_t flags;
+};
+
+int sys_futex_wait(int *pointer, int expected, const struct timespec *time) {
+	int ret, errno;
+	struct futex_item item = {.addr = (uint64_t)pointer, .expected = expected, .flags = 0};
+	if (time == NULL) {
+		 struct timespec t = {(time_t)-1, (time_t)-1};
+		 SYSCALL4(SYSCALL_FUTEX, 0b01, &item, 1, &t);
+	} else {
+		 SYSCALL4(SYSCALL_FUTEX, 0b01, &item, 1, time);
+	}
+	return errno;
+}
+
+int sys_futex_wake(int *pointer) {
+	int ret, errno;
+	struct futex_item item = {.addr = (uint64_t)pointer, .expected = 0, .flags = 0};
+	struct timespec t = {(time_t)-1, (time_t)-1};
+	SYSCALL4(SYSCALL_FUTEX, 0b10, &item, 1, &t);
+	return errno;
+}
+
+int sys_pipe(int *fds, int flags) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_PIPE, fds, flags);
+	return errno;
+}
+
+int sys_getentropy(void *buffer, size_t length) {
+	ssize_t ret;
+	int errno;
+	SYSCALL2(SYSCALL_GETRANDOM, buffer, length);
+	return errno;
+}
+
+int sys_mkdir(const char *path, mode_t mode) {
+	return sys_mkdirat(AT_FDCWD, path, mode);
+}
+
+int sys_mkdirat(int dirfd, const char *path, mode_t mode) {
+	int ret, errno;
+	size_t path_len = strlen (path);
+	SYSCALL5(SYSCALL_MAKENODE, dirfd, path, path_len, S_IFDIR | mode, 0);
+	return errno;
+}
+
+int sys_rmdir(const char* path){
+	int ret, errno;
+	size_t path_len = strlen (path);
+	SYSCALL3(SYSCALL_UNLINK, AT_FDCWD, path, path_len);
+	return errno;
+}
+
+int sys_unlinkat(int fd, const char *path, int flags) {
+	int ret, errno;
+	size_t path_len = strlen (path);
+	SYSCALL3(SYSCALL_UNLINK, fd, path, path_len);
+	return errno;
+}
+
+int sys_link(const char* srcpath, const char* destpath) {
+	int ret, errno;
+	size_t src_len = strlen (srcpath);
+	size_t dst_len = strlen (destpath);
+	SYSCALL6(SYSCALL_LINK, AT_FDCWD, srcpath, src_len, AT_FDCWD, destpath, dst_len);
+	return errno;
+}
+
+int sys_socket(int domain, int type, int protocol, int *fd) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_SOCKET, domain, type, protocol);
+	if (ret != -1) {
+		*fd = ret;
+		return 0;
+	} else {
+		return errno;
+	}
+}
+
+uid_t sys_getuid() {
+	uint64_t ret, errno;
+	SYSCALL0(SYSCALL_GETUID);
+	return (uid_t)ret;
+}
+
+uid_t sys_geteuid() {
+	uint64_t ret, errno;
+	SYSCALL0(SYSCALL_GETEUID);
+	return (uid_t)ret;
+}
+
+int sys_setuid(uid_t uid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETUIDS, uid, uid);
+	return ret;
+}
+
+int sys_seteuid(uid_t euid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETUIDS, ((uint64_t)-1), euid);
+	return ret;
+}
+
+int sys_setreuid(uid_t ruid, uid_t euid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETUIDS, ruid, euid);
+	return ret;
+}
+
+gid_t sys_getgid() {
+	uint64_t ret, errno;
+	SYSCALL0(SYSCALL_GETGID);
+	return (gid_t)ret;
+}
+
+gid_t sys_getegid() {
+	return sys_getgid();
+}
+
+int sys_setgid(gid_t gid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETGIDS, gid, gid);
+	return ret;
+}
+
+int sys_setegid(gid_t egid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETGIDS, ((uint64_t)-1), egid);
+	return ret;
+}
+
+int sys_setregid(gid_t rgid, gid_t egid) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SETGIDS, rgid, egid);
+	return ret;
+}
+
+int sys_setsid(pid_t *sid) {
+	return 0;
+}
+
+#ifndef MLIBC_BUILDING_RTDL
+
+extern "C" void __mlibc_thread_entry();
+
+int sys_clone(void *tcb, pid_t *tid_out, void *stack) {
+	 int ret, errno;
+	 SYSCALL6(SYSCALL_CLONE, (uintptr_t)__mlibc_thread_entry, 0, stack, 0b10, tcb, 1);
+
+	 if (ret == -1) {
+		  return errno;
+	 }
+
+	 *tid_out = (pid_t)ret;
+	 return 0;
+}
+
+int sys_prepare_stack(void **stack, void *entry, void *arg, void *tcb, size_t *stack_size, size_t *guard_size) {
+	// TODO guard
+
+	mlibc::infoLogger() << "mlibc: sys_prepare_stack() does not setup a guard!" << frg::endlog;
+
+	*guard_size = 0;
+	*stack_size = *stack_size ? *stack_size : 0x400000;
+
+	if (!*stack) {
+		*stack = (void *)((char *)mmap(NULL, *stack_size, PROT_READ | PROT_WRITE, MAP_ANONYMOUS | MAP_PRIVATE, -1, 0) + *stack_size);
+		if (*stack == MAP_FAILED) {
+			return errno;
+		}
+	}
+
+	void **stack_it = (void **)*stack;
+
+	*--stack_it = arg;
+	*--stack_it = tcb;
+	*--stack_it = entry;
+
+	*stack = (void *)stack_it;
+
+	return 0;
+}
+
+int sys_clock_getres(int clock, time_t *secs, long *nanos) {
+	struct timespec time;
+	int ret, errno;
+	SYSCALL3(SYSCALL_CLOCK, 0, clock, &time);
+	*secs  = time.tv_sec;
+	*nanos = time.tv_nsec;
+	return errno;
+}
+
+int sys_clock_get(int clock, time_t *secs, long *nanos) {
+	struct timespec time;
+	int ret, errno;
+	SYSCALL3(SYSCALL_CLOCK, 1, clock, &time);
+	*secs  = time.tv_sec;
+	*nanos = time.tv_nsec;
+	return errno;
+}
+
+int sys_clock_set(int clock, time_t secs, long nanos) {
+	struct timespec time = {.tv_sec = secs, .tv_nsec = nanos };
+	int ret, errno;
+	SYSCALL3(SYSCALL_CLOCK, 2, clock, &time);
+	return errno;
+}
+
+int sys_bind(int fd, const struct sockaddr *addr_ptr, socklen_t addrlen) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_BIND, fd, addr_ptr, addrlen);
+	return errno;
+}
+
+int sys_connect(int fd, const struct sockaddr *addr_ptr, socklen_t addrlen) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_CONNECT, fd, addr_ptr, addrlen);
+	return errno;
+}
+
+int sys_listen(int fd, int backlog) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_LISTEN, fd, backlog);
+	return errno;
+}
+
+int sys_accept(int fd, int *newfd, struct sockaddr *addr_ptr, socklen_t *addr_length, int flags) {
+	int ret, errno;
+	SYSCALL4(SYSCALL_ACCEPT, fd, addr_ptr, addr_length, flags);
+	*newfd = ret;
+	return errno;
+}
+
+
+int sys_sockname(int fd, struct sockaddr *addr_ptr, socklen_t max_addr_length, socklen_t *actual_length) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_GETSOCKNAME, fd, addr_ptr, &max_addr_length);
+	*actual_length = max_addr_length;
+	return errno;
+}
+
+int sys_peername(int fd, struct sockaddr *addr_ptr, socklen_t max_addr_length, socklen_t *actual_length) {
+	int ret, errno;
+	SYSCALL3(SYSCALL_GETPEERNAME, fd, addr_ptr, &max_addr_length);
+	*actual_length = max_addr_length;
+	return errno;
+}
+
+int sys_shutdown(int sockfd, int how) {
+	int ret, errno;
+	SYSCALL2(SYSCALL_SHUTDOWN, sockfd, how);
+	return errno;
+}
+
+int sys_setitimer(int which, const struct itimerval *new_value, struct itimerval *old_value) {
+	return ENOSYS;
+}
+
+int sys_msg_recv(int fd, struct msghdr *hdr, int flags, ssize_t *length) {
+	if (hdr->msg_control != NULL) {
+		// mlibc::infoLogger() << "mlibc: recv() msg_control not supported!" << frg::endlog;
+	}
+
+	int ret;
+	size_t count = 0;
+	int errno;
+
+	for (int i = 0; i < hdr->msg_iovlen; i++) {
+		SYSCALL6(SYSCALL_RECVFROM, fd, hdr->msg_iov->iov_base, hdr->msg_iov->iov_len,
+					hdr->msg_flags, hdr->msg_name, hdr->msg_namelen);
+		if (ret == -1) {
+			return errno;
+		}
+		count += ret;
+	}
+
+	*length = count;
+	return 0;
+}
+
+int sys_msg_send(int fd, const struct msghdr *hdr, int flags, ssize_t *length) {
+	if (hdr->msg_control != NULL) {
+		// mlibc::infoLogger() << "mlibc: recv() msg_control not supported!" << frg::endlog;
+	}
+
+	int ret;
+	size_t count = 0;
+	int errno;
+
+	for (int i = 0; i < hdr->msg_iovlen; i++) {
+		SYSCALL6(SYSCALL_SENDTO, fd, hdr->msg_iov->iov_base, hdr->msg_iov->iov_len,
+					hdr->msg_flags, hdr->msg_name, hdr->msg_namelen);
+		if (ret == -1) {
+			return errno;
+		}
+		count += ret;
+	}
+
+	*length = count;
+	return 0;
+}
+
+
+int sys_ppoll(struct pollfd *fds, int nfds, const struct timespec *timeout, const sigset_t *sigmask, int *num_events) {
+	// XXX: Ironclad has no sigprogmask so this is basically a weird ppoll poll
+	// chimeral abomination.
+	int ret, errno;
+	if (timeout == NULL) {
+		 struct timespec t = {.tv_sec = (time_t)-1, .tv_nsec = (time_t)-1};
+		 SYSCALL3(SYSCALL_POLL, fds, nfds, &t);
+	} else {
+		 SYSCALL3(SYSCALL_POLL, fds, nfds, timeout);
+	}
+	if (ret == -1) {
+		return errno;
+	}
+
+	*num_events = ret;
+	return errno;
+}
+
+int sys_poll(struct pollfd *fds, nfds_t count, int timeout, int *num_events) {
+	struct timespec ts;
+	ts.tv_sec = timeout / 1000;
+	ts.tv_nsec = (timeout % 1000) * 1000000;
+	return sys_ppoll(fds, count, timeout == -1 ? NULL : &ts, NULL, num_events);
+}
+
+int sys_pselect(int nfds, fd_set *read_set, fd_set *write_set,
+		fd_set *except_set, const struct timespec *timeout,
+		const sigset_t *sigmask, int *num_events) {
+	struct pollfd *fds = (struct pollfd *)calloc(nfds, sizeof(struct pollfd));
+	if (fds == NULL) {
+		return ENOMEM;
+	}
+
+	for (int i = 0; i < nfds; i++) {
+		struct pollfd *fd = &fds[i];
+
+		if (read_set && FD_ISSET(i, read_set)) {
+			fd->events |= POLLIN;
+		}
+		if (write_set && FD_ISSET(i, write_set)) {
+			fd->events |= POLLOUT;
+		}
+		if (except_set && FD_ISSET(i, except_set)) {
+			fd->events |= POLLPRI;
+		}
+
+		if (!fd->events) {
+			fd->fd = -1;
+			continue;
+		}
+		fd->fd = i;
+	}
+
+	int ret = sys_ppoll(fds, nfds, timeout, sigmask, num_events);
+	if (ret != 0) {
+		free(fds);
+		return ret;
+	}
+
+	fd_set res_read_set, res_write_set, res_except_set;
+	FD_ZERO(&res_read_set);
+	FD_ZERO(&res_write_set);
+	FD_ZERO(&res_except_set);
+
+	for (int i = 0; i < nfds; i++) {
+		struct pollfd *fd = &fds[i];
+
+		if (read_set && FD_ISSET(i, read_set) && (fd->revents & (POLLIN | POLLERR | POLLHUP)) != 0) {
+			FD_SET(i, &res_read_set);
+		}
+		if (write_set && FD_ISSET(i, write_set) && (fd->revents & (POLLOUT | POLLERR | POLLHUP)) != 0) {
+			FD_SET(i, &res_write_set);
+		}
+		if (except_set && FD_ISSET(i, except_set) && (fd->revents & POLLPRI) != 0) {
+			FD_SET(i, &res_except_set);
+		}
+	}
+
+	free(fds);
+	if (read_set) {
+		*read_set = res_read_set;
+	}
+	if (write_set) {
+		*write_set = res_write_set;
+	}
+	if (except_set) {
+		*except_set = res_except_set;
+	}
+
+	return 0;
+}
+
+int sys_sleep(time_t *secs, long *nanos) {
+	struct timespec time = {.tv_sec = *secs, .tv_nsec = *nanos};
+	struct timespec rem  = {.tv_sec = 0, .tv_nsec = 0};
+
+	int ret, errno;
+	SYSCALL4(SYSCALL_CLOCK_NANOSLEEP, CLOCK_MONOTONIC, 0, &time, &rem);
+	*secs  = rem.tv_sec;
+	*nanos = rem.tv_nsec;
+	return errno;
+}
+
+int sys_gethostname(char *buffer, size_t bufsize) {
+	struct utsname buf;
+	if (uname(&buf)) {
+		return -1;
+	}
+
+	strncpy(buffer, buf.nodename, bufsize);
+	return 0;
+}
+
+int sys_utimensat(int dirfd, const char *pathname, const struct timespec times[2], int flags) {
+	int ret, errno;
+	if (pathname == NULL) {
+		pathname = "";
+		flags |= AT_EMPTY_PATH;
+	}
+
+	size_t path_len = strlen (pathname);
+	if (times == NULL) {
+		 time_t secs;
+		 long nsec;
+		 ret = sys_clock_get(CLOCK_REALTIME, &secs, &nsec);
+		 if (ret) {
+			  return ret;
+		 }
+		 struct timespec times2[2] = {0, 0};
+		 times2[0].tv_sec = secs;
+		 times2[0].tv_nsec = nsec;
+		 times2[1].tv_sec = secs;
+		 times2[1].tv_nsec = nsec;
+		 SYSCALL5(SYSCALL_UTIMES, dirfd, pathname, path_len, &times2[0], flags);
+	} else {
+		SYSCALL5(SYSCALL_UTIMES, dirfd, pathname, path_len, times, flags);
+	}
+
+	return errno;
+}
+
+int sys_sysconf(int num, long *rret) {
+	long ret, errno;
+	SYSCALL3(SYSCALL_SYSCONF, num, 0, 0);
+	*rret = ret;
+	return errno;
+}
+
+int sys_stat(fsfd_target fsfdt, int fd, const char *path, int flags, struct stat *statbuf) {
+	int ret, errno;
+	(void)flags;
+
+	switch (fsfdt) {
+		case fsfd_target::fd: {
+			SYSCALL5(SYSCALL_STAT, fd, "", 0, statbuf, AT_EMPTY_PATH);
+			break;
+		}
+		case fsfd_target::path: {
+			size_t len = strlen(path);
+			SYSCALL5(SYSCALL_STAT, AT_FDCWD, path, len, statbuf, flags);
+			break;
+		}
+		case fsfd_target::fd_path: {
+			size_t len = strlen(path);
+			SYSCALL5(SYSCALL_STAT, fd, path, len, statbuf, flags);
+			break;
+		}
+		default: {
+			__ensure(!"stat: Invalid fsfdt");
+			__builtin_unreachable();
+		}
+	}
+
+	return errno;
+}
+
+int sys_chmod(const char *pathname, mode_t mode) {
+	int ret, errno;
+	size_t len = strlen(pathname);
+	SYSCALL5(SYSCALL_FCHMOD, AT_FDCWD, pathname, len, mode, 0);
+	return errno;
+}
+
+int sys_fchmodat(int fd, const char *pathname, mode_t mode, int flags) {
+	int ret, errno;
+	size_t len = strlen(pathname);
+	SYSCALL5(SYSCALL_FCHMOD, fd, pathname, len, mode, flags);
+	return errno;
+}
+
+int sys_fchmod(int fd, mode_t mode) {
+	int ret, errno;
+	SYSCALL5(SYSCALL_FCHMOD, fd, "", 0, mode, AT_EMPTY_PATH);
+	return errno;
+}
+
+int sys_chown(const char *pathname, uid_t uid, gid_t gid) {
+	int ret, errno;
+	size_t len = strlen(pathname);
+	SYSCALL6(SYSCALL_FCHOWN, AT_FDCWD, pathname, len, uid, gid, 0);
+	return errno;
+}
+
+int sys_fchownat(int fd, const char *pathname, uid_t uid, gid_t gid, int flags) {
+	int ret, errno;
+	size_t len = strlen(pathname);
+	SYSCALL6(SYSCALL_FCHOWN, fd, pathname, len, uid, gid, flags);
+	return errno;
+}
+
+int sys_fchown(int fd, uid_t uid, gid_t gid) {
+	int ret, errno;
+	SYSCALL6(SYSCALL_FCHOWN, fd, "", 0, uid, gid, AT_EMPTY_PATH);
+	return errno;
+}
+
+int sys_umask(mode_t mode, mode_t *old) {
+	mode_t ret;
+	int errno;
+	SYSCALL1(SYSCALL_UMASK, mode);
+	*old = (mode_t)ret;
+	return errno;
+}
+
+int sys_fadvise(int fd, off_t offset, off_t length, int advice) {
+	int ret, errno;
+	SYSCALL4(SYSCALL_FADVISE, fd, offset, length, advice);
+	return errno;
+}
+
+int sys_readlink(const char *path, void *buffer, size_t max_size, ssize_t *length) {
+	ssize_t ret;
+	int errno;
+	size_t path_len = strlen(path);
+	SYSCALL5(SYSCALL_READLINK, AT_FDCWD, path, path_len, buffer, max_size);
+	if (ret == -1) {
+		return errno;
+	} else {
+		*length = ret;
+		return 0;
+	}
+}
+
+int sys_rename(const char *path, const char *new_path) {
+	int ret;
+	int errno;
+	size_t old_len = strlen(path);
+	size_t new_len = strlen(new_path);
+	SYSCALL7(SYSCALL_RENAME, AT_FDCWD, path, old_len, AT_FDCWD, new_path, new_len, 0);
+	return errno;
+}
+
+int sys_renameat(int olddirfd, const char *old_path, int newdirfd, const char *new_path) {
+	int ret;
+	int errno;
+	size_t old_len = strlen(old_path);
+	size_t new_len = strlen(new_path);
+	SYSCALL7(SYSCALL_RENAME, olddirfd, old_path, old_len, newdirfd, new_path, new_len, 0);
+	return errno;
+}
+
+int sys_mknodat(int dirfd, const char *path, mode_t mode, dev_t dev) {
+	int ret;
+	int errno;
+	size_t len = strlen(path);
+	SYSCALL5(SYSCALL_MAKENODE, dirfd, path, len, mode, dev);
+	return errno;
+}
+
+#define SC_LIST_MOUNTS 9
+struct mountinfo {
+	uint32_t type;
+	uint32_t flags;
+	char source[20];
+	uint32_t source_length;
+	char location[20];
+	uint32_t location_length;
+	uint64_t block_size;
+	uint64_t fragment_size;
+	uint64_t size_in_fragments;
+	uint64_t free_blocks;
+	uint64_t free_blocks_user;
+	uint64_t inode_count;
+	uint64_t free_inodes;
+	uint64_t free_inodes_user;
+	uint64_t max_filename;
+};
+
+#include <sys/mount.h>
+
+int sys_fstatvfs(int fd, struct statvfs *out) {
+	return sys_statvfs("/", out);
+}
+
+int sys_statvfs(const char *path, struct statvfs *out) {
+	long ret, errno;
+	struct mountinfo *buffer = (mountinfo *)malloc(5 * sizeof(struct mountinfo));
+	SYSCALL3(SYSCALL_SYSCONF, SC_LIST_MOUNTS, buffer, 5 * sizeof(struct mountinfo));
+	if (errno) {
+		free(buffer);
+		return errno;
+	} else if (ret > 5) {
+		free(buffer);
+		return 1;
+	}
+
+	for (int i = 0; i < ret; i++) {
+		if (!strncmp(path, buffer[i].location, buffer[i].location_length)) {
+			out->f_bsize  = buffer[i].block_size;
+			out->f_frsize = buffer[i].fragment_size;
+			out->f_blocks = buffer[i].size_in_fragments;
+			out->f_bfree  = buffer[i].free_blocks;
+			out->f_bavail = buffer[i].free_blocks_user;
+			out->f_files  = buffer[i].inode_count;
+			out->f_ffree  = buffer[i].free_inodes;
+			out->f_favail = buffer[i].free_inodes_user;
+			out->f_fsid = 0;
+			out->f_flag = buffer[i].flags;
+			out->f_namemax = buffer[i].max_filename;
+			if (buffer[i].type == MNT_EXT) {
+				strcpy(out->f_basetype, "ext");
+			} else {
+				strcpy(out->f_basetype, "fat");
+			}
+			return 0;
+		}
+	}
+
+	return EINVAL;
+}
+#endif
+} // namespace mlibc