aboutsummaryrefslogtreecommitdiff
path: root/lib/mlibc/options/posix/generic/unistd-stubs.cpp
diff options
context:
space:
mode:
authorIan Moffett <ian@osmora.org>2024-03-07 17:28:52 -0500
committerIan Moffett <ian@osmora.org>2024-03-07 18:24:51 -0500
commitf5e48e94a2f4d4bbd6e5628c7f2afafc6dbcc459 (patch)
tree93b156621dc0303816b37f60ba88051b702d92f6 /lib/mlibc/options/posix/generic/unistd-stubs.cpp
parentbd5969fc876a10b18613302db7087ef3c40f18e1 (diff)
build: Build mlibc + add distclean target
Signed-off-by: Ian Moffett <ian@osmora.org>
Diffstat (limited to 'lib/mlibc/options/posix/generic/unistd-stubs.cpp')
-rw-r--r--lib/mlibc/options/posix/generic/unistd-stubs.cpp1227
1 files changed, 0 insertions, 1227 deletions
diff --git a/lib/mlibc/options/posix/generic/unistd-stubs.cpp b/lib/mlibc/options/posix/generic/unistd-stubs.cpp
deleted file mode 100644
index 39cf76a..0000000
--- a/lib/mlibc/options/posix/generic/unistd-stubs.cpp
+++ /dev/null
@@ -1,1227 +0,0 @@
-#include <stdio.h>
-#include <errno.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/resource.h>
-#include <unistd.h>
-#include <limits.h>
-#include <termios.h>
-#include <pwd.h>
-#include <sys/ioctl.h>
-
-#include <bits/ensure.h>
-#include <mlibc/allocator.hpp>
-#include <mlibc/arch-defs.hpp>
-#include <mlibc/debug.hpp>
-#include <mlibc/posix-sysdeps.hpp>
-#include <mlibc/bsd-sysdeps.hpp>
-#include <mlibc/thread.hpp>
-
-namespace {
-
-constexpr bool logExecvpeTries = false;
-
-}
-
-unsigned int alarm(unsigned int seconds) {
- struct itimerval it = {}, old = {};
- it.it_value.tv_sec = seconds;
- setitimer(ITIMER_REAL, &it, &old);
- return old.it_value.tv_sec + !! old.it_value.tv_usec;
-}
-
-int chdir(const char *path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_chdir, -1);
- if(int e = mlibc::sys_chdir(path); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int fchdir(int fd) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fchdir, -1);
- if(int e = mlibc::sys_fchdir(fd); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int chown(const char *path, uid_t uid, gid_t gid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fchownat, -1);
- if(int e = mlibc::sys_fchownat(AT_FDCWD, path, uid, gid, 0); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-ssize_t confstr(int name, char *buf, size_t len) {
- const char *str = "";
- if (name == _CS_PATH) {
- str = "/bin:/usr/bin";
- } else if(name == _CS_GNU_LIBPTHREAD_VERSION) {
- // We are not glibc, so we can return 0 here.
- return 0;
- } else if(name == _CS_GNU_LIBC_VERSION) {
- // We are not glibc, so we can return 0 here.
- return 0;
- } else {
- mlibc::infoLogger() << "\e[31mmlibc: confstr() request " << name << " is unimplemented\e[39m"
- << frg::endlog;
- __ensure(!"Not implemented");
- }
-
- return snprintf(buf, len, "%s", str) + 1;
-}
-
-void _exit(int status) {
- mlibc::sys_exit(status);
-}
-
-int execl(const char *path, const char *arg0, ...) {
- // TODO: It's a stupid idea to limit the number of arguments here.
- char *argv[16];
- argv[0] = const_cast<char *>(arg0);
-
- va_list args;
- int n = 1;
- va_start(args, arg0);
- while(true) {
- __ensure(n < 15);
- auto argn = va_arg(args, const char *);
- argv[n++] = const_cast<char *>(argn);
- if(!argn)
- break;
- }
- va_end(args);
- argv[n] = nullptr;
-
- return execve(path, argv, environ);
-}
-
-// This function is taken from musl.
-int execle(const char *path, const char *arg0, ...) {
- int argc;
- va_list ap;
- va_start(ap, arg0);
- for(argc = 1; va_arg(ap, const char *); argc++);
- va_end(ap);
-
- int i;
- char *argv[argc + 1];
- char **envp;
- va_start(ap, arg0);
- argv[0] = (char *)argv;
- for(i = 1; i <= argc; i++)
- argv[i] = va_arg(ap, char *);
- envp = va_arg(ap, char **);
- va_end(ap);
- return execve(path, argv, envp);
-}
-
-// This function is taken from musl
-int execlp(const char *file, const char *argv0, ...) {
- int argc;
- va_list ap;
- va_start(ap, argv0);
- for(argc = 1; va_arg(ap, const char *); argc++);
- va_end(ap);
- {
- int i;
- char *argv[argc + 1];
- va_start(ap, argv0);
- argv[0] = (char *)argv0;
- for(i = 1; i < argc; i++)
- argv[i] = va_arg(ap, char *);
- argv[i] = NULL;
- va_end(ap);
- return execvp(file, argv);
- }
-}
-
-int execv(const char *path, char *const argv[]) {
- return execve(path, argv, environ);
-}
-
-int execvp(const char *file, char *const argv[]) {
- return execvpe(file, argv, environ);
-}
-
-int execvpe(const char *file, char *const argv[], char *const envp[]) {
- char *null_list[] = {
- nullptr
- };
-
- if(!argv)
- argv = null_list;
- if(!envp)
- envp = null_list;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_execve, -1);
-
- if(strchr(file, '/')) {
- int e = mlibc::sys_execve(file, argv, envp);
- __ensure(e && "sys_execve() is supposed to never return with success");
- errno = e;
- return -1;
- }
-
- frg::string_view dirs;
- if(const char *pv = getenv("PATH"); pv) {
- dirs = pv;
- }else{
- dirs = "/bin:/usr/bin";
- }
-
- size_t p = 0;
- int res = ENOENT;
- while(p < dirs.size()) {
- size_t s; // Offset of next colon or end of string.
- if(size_t cs = dirs.find_first(':', p); cs != size_t(-1)) {
- s = cs;
- }else{
- s = dirs.size();
- }
-
- frg::string<MemoryAllocator> path{getAllocator()};
- path += dirs.sub_string(p, s - p);
- path += "/";
- path += file;
-
- if(logExecvpeTries)
- mlibc::infoLogger() << "mlibc: execvpe() tries '" << path.data() << "'" << frg::endlog;
-
- int e = mlibc::sys_execve(path.data(), argv, envp);
- __ensure(e && "sys_execve() is supposed to never return with success");
- switch(e) {
- case ENOENT:
- case ENOTDIR:
- break;
- case EACCES:
- res = EACCES;
- break;
- default:
- errno = e;
- return -1;
- }
-
- p = s + 1;
- }
-
- errno = res;
- return -1;
-}
-
-int faccessat(int dirfd, const char *pathname, int mode, int flags) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_faccessat, -1);
- if(int e = mlibc::sys_faccessat(dirfd, pathname, mode, flags); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int fchown(int fd, uid_t uid, gid_t gid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fchownat, -1);
- if(int e = mlibc::sys_fchownat(fd, "", uid, gid, AT_EMPTY_PATH); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int fchownat(int fd, const char *path, uid_t uid, gid_t gid, int flags) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fchownat, -1);
- if(int e = mlibc::sys_fchownat(fd, path, uid, gid, flags); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int fdatasync(int fd) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fdatasync, -1);
- if(int e = mlibc::sys_fdatasync(fd); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int fexecve(int, char *const [], char *const []) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-long fpathconf(int, int) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int fsync(int fd) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fsync, -1);
- if(auto e = mlibc::sys_fsync(fd); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int ftruncate(int fd, off_t size) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_ftruncate, -1);
- if(int e = mlibc::sys_ftruncate(fd, size); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-char *getcwd(char *buffer, size_t size) {
- if (buffer) {
- if (size == 0) {
- errno = EINVAL;
- return NULL;
- }
- } else if (!buffer) {
- if (size == 0)
- size = PATH_MAX;
-
- buffer = (char *)malloc(size);
- }
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getcwd, nullptr);
- if(int e = mlibc::sys_getcwd(buffer, size); e) {
- errno = e;
- return NULL;
- }
-
- return buffer;
-}
-
-int getgroups(int size, gid_t list[]) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getgroups, -1);
- int ret;
- if(int e = mlibc::sys_getgroups(size, list, &ret); e) {
- errno = e;
- return -1;
- }
- return ret;
-}
-
-long gethostid(void) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int gethostname(char *buffer, size_t bufsize) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_gethostname, -1);
- if(auto e = mlibc::sys_gethostname(buffer, bufsize); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int sethostname(const char *buffer, size_t bufsize) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_sethostname, -1);
- if(auto e = mlibc::sys_sethostname(buffer, bufsize); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-// Code taken from musl
-char *getlogin(void) {
- return getenv("LOGNAME");
-}
-
-int getlogin_r(char *, size_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-// optarg and optind are provided to us by the GLIBC part of the mlibc.
-
-static char *scan = NULL; /* Private scan pointer. */
-
-int getopt(int argc, char *const argv[], const char *optstring) {
- char c;
- char *place;
-
- optarg = NULL;
-
- if (!scan || *scan == '\0') {
- if (optind == 0)
- optind++;
-
- if (optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0')
- return EOF;
- if (argv[optind][1] == '-' && argv[optind][2] == '\0') {
- optind++;
- return EOF;
- }
-
- scan = argv[optind]+1;
- optind++;
- }
-
- c = *scan++;
- place = strchr(optstring, c);
-
- if (!place || c == ':') {
- fprintf(stderr, "%s: unknown option -%c\n", argv[0], c);
- return '?';
- }
-
- place++;
- if (*place == ':') {
- if (*scan != '\0') {
- optarg = scan;
- scan = NULL;
- } else if( optind < argc ) {
- optarg = argv[optind];
- optind++;
- } else {
- fprintf(stderr, "%s: option requires argument -%c\n", argv[0], c);
- return ':';
- }
- }
-
- return c;
-}
-
-pid_t getpgid(pid_t pid) {
- pid_t pgid;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getpgid, -1);
- if(int e = mlibc::sys_getpgid(pid, &pgid); e) {
- errno = e;
- return -1;
- }
- return pgid;
-}
-
-pid_t getpgrp(void) {
- return getpgid(0);
-}
-
-pid_t getsid(pid_t pid) {
- if(!mlibc::sys_getsid) {
- MLIBC_MISSING_SYSDEP();
- return -1;
- }
- pid_t sid;
- if(int e = mlibc::sys_getsid(pid, &sid); e) {
- errno = e;
- return -1;
- }
- return sid;
-}
-
-int lchown(const char *path, uid_t uid, gid_t gid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fchownat, -1);
- if(int e = mlibc::sys_fchownat(AT_FDCWD, path, uid, gid, AT_SYMLINK_NOFOLLOW); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int link(const char *old_path, const char *new_path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_link, -1);
- if(int e = mlibc::sys_link(old_path, new_path); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int linkat(int olddirfd, const char *old_path, int newdirfd, const char *new_path, int flags) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_linkat, -1);
- if(int e = mlibc::sys_linkat(olddirfd, old_path, newdirfd, new_path, flags); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-// Code take from musl
-int lockf(int fd, int op, off_t size) {
- struct flock l = {
- .l_type = F_WRLCK,
- .l_whence = SEEK_CUR,
- .l_start = 0,
- .l_len = size,
- .l_pid = 0,
- };
-
- switch(op) {
- case F_TEST:
- l.l_type = F_RDLCK;
- if(fcntl(fd, F_GETLK, &l) < 0)
- return -1;
- if(l.l_type == F_UNLCK || l.l_pid == getpid())
- return 0;
- errno = EACCES;
- return -1;
- case F_ULOCK:
- l.l_type = F_UNLCK;
- [[fallthrough]];
- case F_TLOCK:
- return fcntl(fd, F_SETLK, &l);
- case F_LOCK:
- return fcntl(fd, F_SETLKW, &l);
- }
-
- errno = EINVAL;
- return -1;
-}
-
-int nice(int) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-long pathconf(const char *, int name) {
- switch (name) {
- case _PC_NAME_MAX:
- return NAME_MAX;
- default:
- mlibc::infoLogger() << "missing pathconf() entry " << name << frg::endlog;
- errno = EINVAL;
- return -1;
- }
-}
-
-int pause(void) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_pause, -1);
- if(int e = mlibc::sys_pause(); e) {
- errno = e;
- return -1;
- }
- __ensure(!"There is no successful completion return value for pause");
- __builtin_unreachable();
-}
-
-int pipe(int *fds) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_pipe, -1);
- if(int e = mlibc::sys_pipe(fds, 0); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int pipe2(int *fds, int flags) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_pipe, -1);
- if(int e = mlibc::sys_pipe(fds, flags); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-ssize_t pread(int fd, void *buf, size_t n, off_t off) {
- ssize_t num_read;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_pread, -1);
- if(int e = mlibc::sys_pread(fd, buf, n, off, &num_read); e) {
- errno = e;
- return -1;
- }
- return num_read;
-}
-
-ssize_t pwrite(int fd, const void *buf, size_t n, off_t off) {
- ssize_t num_written;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_pwrite, -1);
- if(int e = mlibc::sys_pwrite(fd, buf, n, off, &num_written); e) {
- errno = e;
- return -1;
- }
- return num_written;
-}
-
-ssize_t readlink(const char *__restrict path, char *__restrict buffer, size_t max_size) {
- ssize_t length;
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_readlink, -1);
- if(int e = mlibc::sys_readlink(path, buffer, max_size, &length); e) {
- errno = e;
- return -1;
- }
- return length;
-}
-
-ssize_t readlinkat(int, const char *__restrict, char *__restrict, size_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int rmdir(const char *path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_rmdir, -1);
- if(int e = mlibc::sys_rmdir(path); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int setegid(gid_t egid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setegid, 0);
- if(int e = mlibc::sys_setegid(egid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int seteuid(uid_t euid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_seteuid, 0);
- if(int e = mlibc::sys_seteuid(euid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int setgid(gid_t gid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setgid, 0);
- if(int e = mlibc::sys_setgid(gid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int setpgid(pid_t pid, pid_t pgid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setpgid, -1);
- if(int e = mlibc::sys_setpgid(pid, pgid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-pid_t setpgrp(void) {
- return setpgid(0, 0);
-}
-
-int setregid(gid_t rgid, gid_t egid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setregid, -1);
- if(int e = mlibc::sys_setregid(rgid, egid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int setreuid(uid_t ruid, uid_t euid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setreuid, -1);
- if(int e = mlibc::sys_setreuid(ruid, euid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-pid_t setsid(void) {
- if(!mlibc::sys_setsid) {
- MLIBC_MISSING_SYSDEP();
- return -1;
- }
- pid_t sid;
- if(int e = mlibc::sys_setsid(&sid); e) {
- errno = e;
- return -1;
- }
- return sid;
-}
-
-int setuid(uid_t uid) {
- if(!mlibc::sys_setuid) {
- MLIBC_MISSING_SYSDEP();
- mlibc::infoLogger() << "mlibc: missing sysdep sys_setuid(). Returning 0" << frg::endlog;
- return 0;
- }
- if(int e = mlibc::sys_setuid(uid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-void swab(const void *__restrict, void *__restrict, ssize_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int symlink(const char *target_path, const char *link_path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_symlink, -1);
- if(int e = mlibc::sys_symlink(target_path, link_path); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int symlinkat(const char *target_path, int dirfd, const char *link_path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_symlinkat, -1);
- if(int e = mlibc::sys_symlinkat(target_path, dirfd, link_path); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-void sync(void) {
- if(!mlibc::sys_sync) {
- MLIBC_MISSING_SYSDEP();
- } else {
- mlibc::sys_sync();
- }
-}
-
-long sysconf(int number) {
- if(mlibc::sys_sysconf) {
- long ret = 0;
-
- int e = mlibc::sys_sysconf(number, &ret);
-
- if(e && e != EINVAL) {
- errno = e;
- return -1;
- }
-
- if(e != EINVAL) {
- return ret;
- }
- }
-
- /* default return values, if not overriden by sysdep */
- switch(number) {
- case _SC_ARG_MAX:
- // On linux, it is defined to 2097152 in most cases, so define it to be 2097152
- return 2097152;
- case _SC_PAGE_SIZE:
- return mlibc::page_size;
- case _SC_OPEN_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_OPEN_MAX) returns fallback value 256\e[39m" << frg::endlog;
- return 256;
- case _SC_PHYS_PAGES:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_PHYS_PAGES) returns fallback value 1024\e[39m" << frg::endlog;
- return 1024;
- case _SC_NPROCESSORS_ONLN:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_NPROCESSORS_ONLN) returns fallback value 1\e[39m" << frg::endlog;
- return 1;
- case _SC_GETPW_R_SIZE_MAX:
- return NSS_BUFLEN_PASSWD;
- case _SC_GETGR_R_SIZE_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_GETGR_R_SIZE_MAX) returns fallback value 1024\e[39m" << frg::endlog;
- return 1024;
- case _SC_CHILD_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_CHILD_MAX) returns fallback value 25\e[39m" << frg::endlog;
- // On linux, it is defined to 25 in most cases, so define it to be 25
- return 25;
- case _SC_JOB_CONTROL:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_JOB_CONTROL) returns fallback value 1\e[39m" << frg::endlog;
- // If 1, job control is supported
- return 1;
- case _SC_CLK_TCK:
- // TODO: This should be obsolete?
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_CLK_TCK) is obsolete and returns arbitrary value 1000000\e[39m" << frg::endlog;
- return 1000000;
- case _SC_NGROUPS_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_NGROUPS_MAX) returns fallback value 65536\e[39m" << frg::endlog;
- // On linux, it is defined to 65536 in most cases, so define it to be 65536
- return 65536;
- case _SC_RE_DUP_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_RE_DUP_MAX) returns fallback value RE_DUP_MAX\e[39m" << frg::endlog;
- return RE_DUP_MAX;
- case _SC_LINE_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_LINE_MAX) returns fallback value 2048\e[39m" << frg::endlog;
- // Linux defines it as 2048.
- return 2048;
- case _SC_XOPEN_CRYPT:
-#if __MLIBC_CRYPT_OPTION
- return _XOPEN_CRYPT;
-#else
- return -1;
-#endif /* __MLIBC_CRYPT_OPTION */
- case _SC_NPROCESSORS_CONF:
- // TODO: actually return a proper value for _SC_NPROCESSORS_CONF
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_NPROCESSORS_CONF) unconditionally returns fallback value 1\e[39m" << frg::endlog;
- return 1;
- case _SC_HOST_NAME_MAX:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf(_SC_HOST_NAME_MAX) unconditionally returns fallback value 256\e[39m" << frg::endlog;
- return 256;
- default:
- mlibc::infoLogger() << "\e[31mmlibc: sysconf() call is not implemented, number: " << number << "\e[39m" << frg::endlog;
- errno = EINVAL;
- return -1;
- }
-}
-
-pid_t tcgetpgrp(int fd) {
- int pgrp;
- if(ioctl(fd, TIOCGPGRP, &pgrp) < 0) {
- return -1;
- }
- return pgrp;
-}
-
-int tcsetpgrp(int fd, pid_t pgrp) {
- return ioctl(fd, TIOCSPGRP, &pgrp);
-}
-
-int truncate(const char *, off_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-char *ttyname(int fd) {
- const size_t size = 128;
- static thread_local char buf[size];
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_ttyname, nullptr);
- if(int e = mlibc::sys_ttyname(fd, buf, size); e) {
- errno = e;
- return nullptr;
- }
- return buf;
-}
-
-int ttyname_r(int fd, char *buf, size_t size) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_ttyname, -1);
- if(int e = mlibc::sys_ttyname(fd, buf, size); e) {
- return e;
- }
- return 0;
-}
-
-int unlink(const char *path) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_unlinkat, -1);
- if(int e = mlibc::sys_unlinkat(AT_FDCWD, path, 0); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int unlinkat(int fd, const char *path, int flags) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_unlinkat, -1);
- if(int e = mlibc::sys_unlinkat(fd, path, flags); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int getpagesize() {
- return mlibc::page_size;
-}
-
-// Code taken from musl
-// GLIBC extension for stdin/stdout
-char *getpass(const char *prompt) {
- int fdin, fdout;
- struct termios s, t;
- ssize_t l;
- static char password[128];
-
- if((fdin = open("/dev/tty", O_RDWR|O_NOCTTY|O_CLOEXEC)) < 0) {
- fdin = STDIN_FILENO;
- fdout = STDOUT_FILENO;
- } else {
- fdout = fdin;
- }
-
- tcgetattr(fdin, &t);
- s = t;
- t.c_lflag &= ~(ECHO | ISIG);
- t.c_lflag |= ICANON;
- t.c_iflag &= ~(INLCR | IGNCR);
- t.c_iflag |= ICRNL;
- tcsetattr(fdin, TCSAFLUSH, &t);
- tcdrain(fdin);
-
- dprintf(fdout, "%s", prompt);
-
- l = read(fdin, password, sizeof password);
- if(l >= 0) {
- if((l > 0 && password[l - 1] == '\n') || l == sizeof password)
- l--;
- password[l] = 0;
- }
-
- tcsetattr(fdin, TCSAFLUSH, &s);
-
- dprintf(fdout, "\n");
- if(fdin != STDIN_FILENO) {
- close(fdin);
- }
-
- return l < 0 ? 0 : password;
-}
-
-char *get_current_dir_name(void) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-// This is a Linux extension
-pid_t gettid(void) {
- if(!mlibc::sys_gettid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_gettid()");
- }
- return mlibc::sys_gettid();
-}
-
-int getentropy(void *buffer, size_t length) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getentropy, -1);
- if(length > 256) {
- errno = EIO;
- return -1;
- }
- if(int e = mlibc::sys_getentropy(buffer, length); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-ssize_t write(int fd, const void *buf, size_t count) {
- ssize_t bytes_written;
- if(int e = mlibc::sys_write(fd, buf, count, &bytes_written); e) {
- errno = e;
- return (ssize_t)-1;
- }
- return bytes_written;
-}
-
-ssize_t read(int fd, void *buf, size_t count) {
- ssize_t bytes_read;
- if(int e = mlibc::sys_read(fd, buf, count, &bytes_read); e) {
- errno = e;
- return (ssize_t)-1;
- }
- return bytes_read;
-}
-
-off_t lseek(int fd, off_t offset, int whence) {
- off_t new_offset;
- if(int e = mlibc::sys_seek(fd, offset, whence, &new_offset); e) {
- errno = e;
- return (off_t)-1;
- }
- return new_offset;
-}
-
-off64_t lseek64(int fd, off64_t offset, int whence) {
- off64_t new_offset;
- if(int e = mlibc::sys_seek(fd, offset, whence, &new_offset); e) {
- errno = e;
- return (off64_t)-1;
- }
- return new_offset;
-}
-
-int close(int fd) {
- return mlibc::sys_close(fd);
-}
-
-unsigned int sleep(unsigned int secs) {
- time_t seconds = secs;
- long nanos = 0;
- if(!mlibc::sys_sleep) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_sleep()");
- }
- mlibc::sys_sleep(&seconds, &nanos);
- return seconds;
-}
-
-// In contrast to sleep() this functions returns 0/-1 on success/failure.
-int usleep(useconds_t usecs) {
- time_t seconds = 0;
- long nanos = usecs * 1000;
- if(!mlibc::sys_sleep) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_sleep()");
- }
- return mlibc::sys_sleep(&seconds, &nanos);
-}
-
-int dup(int fd) {
- int newfd;
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_dup, -1);
- if(int e = mlibc::sys_dup(fd, 0, &newfd); e) {
- errno = e;
- return -1;
- }
- return newfd;
-}
-
-int dup2(int fd, int newfd) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_dup2, -1);
- if(int e = mlibc::sys_dup2(fd, 0, newfd); e) {
- errno = e;
- return -1;
- }
- return newfd;
-}
-
-pid_t fork(void) {
- auto self = mlibc::get_current_tcb();
- pid_t child;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_fork, -1);
-
- auto hand = self->atforkEnd;
- while (hand) {
- if (hand->prepare)
- hand->prepare();
-
- hand = hand->prev;
- }
-
- if(int e = mlibc::sys_fork(&child); e) {
- errno = e;
- return -1;
- }
-
- hand = self->atforkBegin;
- while (hand) {
- if (!child) {
- if (hand->child)
- hand->child();
- } else {
- if (hand->parent)
- hand->parent();
- }
- hand = hand->next;
- }
-
- return child;
-}
-
-pid_t vfork(void) {
- pid_t child;
- /*
- * Fork handlers established using pthread_atfork(3) are not
- * called when a multithreaded program employing the NPTL
- * threading library calls vfork(). Fork handlers are called
- * in this case in a program using the LinuxThreads threading
- * library. (See pthreads(7) for a description of Linux
- * threading libraries.)
- * - vfork(2), release 5.13 of the Linux man-pages project
- *
- * as a result, we call sys_fork instead of running atforks
- */
-
- /* deferring to fork as implementing vfork correctly requires assembly
- * to handle not mucking up the stack
- */
- if(!mlibc::sys_fork) {
- MLIBC_MISSING_SYSDEP();
- errno = ENOSYS;
- return -1;
- }
-
- if(int e = mlibc::sys_fork(&child); e) {
- errno = e;
- return -1;
- }
-
- return child;
-}
-
-int execve(const char *path, char *const argv[], char *const envp[]) {
- char *null_list[] = {
- nullptr
- };
-
- if(!argv)
- argv = null_list;
- if(!envp)
- envp = null_list;
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_execve, -1);
- int e = mlibc::sys_execve(path, argv, envp);
- __ensure(e && "sys_execve() is expected to fail if it returns");
- errno = e;
- return -1;
-}
-
-gid_t getgid(void) {
- if(!mlibc::sys_getgid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_getgid()");
- }
- return mlibc::sys_getgid();
-}
-
-gid_t getegid(void) {
- if(!mlibc::sys_getegid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_getegid()");
- }
- return mlibc::sys_getegid();
-}
-
-uid_t getuid(void) {
- if(!mlibc::sys_getuid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_getuid()");
- }
- return mlibc::sys_getuid();
-}
-
-uid_t geteuid(void) {
- if(!mlibc::sys_geteuid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_geteuid()");
- }
- return mlibc::sys_geteuid();
-}
-
-pid_t getpid(void) {
- if(!mlibc::sys_getpid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_getpid()");
- }
- return mlibc::sys_getpid();
-}
-
-pid_t getppid(void) {
- if(!mlibc::sys_getppid) {
- MLIBC_MISSING_SYSDEP();
- __ensure(!"Cannot continue without sys_getppid()");
- }
- return mlibc::sys_getppid();
-}
-
-int access(const char *path, int mode) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_access, -1);
- if(int e = mlibc::sys_access(path, mode); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-char *getusershell(void) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-void setusershell(void) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-void endusershell(void) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int isatty(int fd) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_isatty, 0);
- if(int e = mlibc::sys_isatty(fd); e) {
- errno = e;
- return 0;
- }
- return 1;
-}
-
-int chroot(const char *ptr) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_chroot, -1);
- if(int e = mlibc::sys_chroot(ptr); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int daemon(int, int) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-char *ctermid(char *s) {
- return s ? strcpy(s, "/dev/tty") : const_cast<char *>("/dev/tty");
-}
-
-int setresuid(uid_t ruid, uid_t euid, uid_t suid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setresuid, -1);
- if(int e = mlibc::sys_setresuid(ruid, euid, suid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int setresgid(gid_t rgid, gid_t egid, gid_t sgid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_setresgid, -1);
- if(int e = mlibc::sys_setresgid(rgid, egid, sgid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int getdomainname(char *, size_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int setdomainname(const char *, size_t) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-
-int getresuid(uid_t *ruid, uid_t *euid, uid_t *suid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getresuid, -1);
- if(int e = mlibc::sys_getresuid(ruid, euid, suid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-int getresgid(gid_t *rgid, gid_t *egid, gid_t *sgid) {
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_getresgid, -1);
- if(int e = mlibc::sys_getresgid(rgid, egid, sgid); e) {
- errno = e;
- return -1;
- }
- return 0;
-}
-
-#if __MLIBC_CRYPT_OPTION
-void encrypt(char[64], int) {
- __ensure(!"Not implemented");
- __builtin_unreachable();
-}
-#endif
-
-#if __MLIBC_BSD_OPTION
-void *sbrk(intptr_t increment) {
- if(increment) {
- errno = ENOMEM;
- return (void *)-1;
- }
-
- MLIBC_CHECK_OR_ENOSYS(mlibc::sys_brk, (void *)-1);
- void *out;
- if(int e = mlibc::sys_brk(&out); e) {
- errno = e;
- return (void *)-1;
- }
- return out;
-}
-#endif