aboutsummaryrefslogtreecommitdiff
path: root/lib/mlibc/sysdeps/ironclad/generic/generic.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/mlibc/sysdeps/ironclad/generic/generic.cpp')
-rw-r--r--lib/mlibc/sysdeps/ironclad/generic/generic.cpp1266
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
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-02 03:34:18 +0000