user: implement mlibc as the libc, finally.
It's finally done.. Signed-off-by: kaguya <vpshinomiya@protonmail.com>
This commit is contained in:
kaguya
+478
@@ -0,0 +1,478 @@
|
||||
#include "syscall.h"
|
||||
#include <asm/ioctls.h>
|
||||
#include <bits/ensure.h>
|
||||
#include <dirent.h>
|
||||
#include <errno.h>
|
||||
#include <fcntl.h>
|
||||
#include <limits.h>
|
||||
#include <mlibc/all-sysdeps.hpp>
|
||||
#include <mlibc/debug.hpp>
|
||||
#include <nyaux/syscalls.h>
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include <sys/select.h>
|
||||
#include <sys/types.h>
|
||||
#define STUB_ONLY \
|
||||
{ \
|
||||
__ensure(!"STUB_ONLY function was called"); \
|
||||
__builtin_unreachable(); \
|
||||
}
|
||||
|
||||
namespace mlibc {
|
||||
|
||||
void sys_libc_log(const char *message) {
|
||||
__syscall2(SYSCALL_DEBUG, (uint64_t)message, strlen(message));
|
||||
}
|
||||
void sys_exit(int status) {
|
||||
__syscall1(SYSCALL_EXIT, status);
|
||||
__builtin_unreachable();
|
||||
};
|
||||
void sys_libc_panic() {
|
||||
sys_libc_log("\nMLIBC PANIC\n");
|
||||
sys_exit(1);
|
||||
}
|
||||
int sys_vm_map(void *hint, size_t size, int prot, int flags, int fd, off_t offset, void **window) {
|
||||
struct __syscall_ret ret = __syscall6(
|
||||
SYSCALL_MMAP,
|
||||
(uint64_t)hint,
|
||||
(uint64_t)size,
|
||||
(uint64_t)prot,
|
||||
(uint64_t)flags,
|
||||
(uint64_t)fd,
|
||||
(uint64_t)offset
|
||||
);
|
||||
*window = (void *)ret.ret;
|
||||
return ret.err;
|
||||
};
|
||||
int sys_anon_allocate(size_t size, void **pointer) {
|
||||
return sys_vm_map(NULL, size, PROT_READ | PROT_WRITE, MAP_ANON, -1, 0, pointer);
|
||||
};
|
||||
int sys_vm_protect(void *pointer, size_t size, int prot) { return 0; }
|
||||
int sys_anon_free(void *pointer, size_t size) {
|
||||
__syscall2(SYSCALL_FREE, (uint64_t)pointer, size);
|
||||
return 0;
|
||||
};
|
||||
int sys_close(int fd) {
|
||||
__syscall_ret ret = __syscall1(SYSCALL_CLOSE, fd);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
return 0;
|
||||
};
|
||||
int sys_futex_wait(int *pointer, int expected, const struct timespec *time) STUB_ONLY;
|
||||
int sys_futex_wake(int *pointer) {
|
||||
// sys_libc_log("sys futex wake is a stub");
|
||||
return 0;
|
||||
};
|
||||
int sys_openat(int dirfd, const char *path, int flags, mode_t mode, int *fd) {
|
||||
__syscall_ret ret = __syscall4(SYSCALL_OPENAT, dirfd, (uint64_t)path, flags, mode);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
*fd = (int)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
|
||||
uid_t sys_geteuid() {
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
int sys_gethostname(char *buffer, size_t bufsize) {
|
||||
if (bufsize >= 6) {
|
||||
memcpy(buffer, "nyaux", 6);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
int sys_uname(struct utsname *buf) {
|
||||
|
||||
memcpy(buf->sysname, "Nyaux", sizeof("Nyaux"));
|
||||
memcpy(buf->release, "1.0", sizeof("1.0"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
gid_t sys_getgid() {
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int sys_setgid(gid_t gid) {
|
||||
(void)gid;
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
|
||||
pid_t sys_getpgid(pid_t pid, pid_t *pgid) {
|
||||
(void)pid;
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
*pgid = 0;
|
||||
return 0;
|
||||
}
|
||||
|
||||
gid_t sys_getegid() {
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int sys_setpgid(pid_t pid, pid_t pgid) {
|
||||
(void)pid;
|
||||
(void)pgid;
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int sys_ttyname(int fd, char *buf, size_t size) {
|
||||
(void)fd;
|
||||
(void)buf;
|
||||
(void)size;
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return ENOSYS;
|
||||
}
|
||||
uid_t sys_getuid() {
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!\n" << frg::endlog;
|
||||
return 0;
|
||||
}
|
||||
int sys_open(const char *path, int flags, mode_t mode, int *fd) {
|
||||
return sys_openat(AT_FDCWD, path, flags, mode, fd);
|
||||
}
|
||||
int sys_read(int fd, void *buf, size_t count, ssize_t *bytes_read) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_READ, fd, (uint64_t)buf, count);
|
||||
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
*bytes_read = (ssize_t)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int sys_seek(int fd, off_t offset, int whence, off_t *new_offset) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_SEEK, fd, offset, whence);
|
||||
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
*new_offset = (off_t)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_tcb_set(void *pointer) {
|
||||
__syscall_ret ret = __syscall1(SYSCALL_SETFSBASE, (uint64_t)pointer);
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
return 0;
|
||||
};
|
||||
int sys_isatty(int fd) {
|
||||
__syscall_ret ret = __syscall1(SYSCALL_ISATTY, fd);
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
return ret.ret;
|
||||
}
|
||||
int sys_vm_unmap(void *pointer, size_t size) STUB_ONLY;
|
||||
int sys_clock_get(int clock, time_t *secs, long *nanos) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_CLOCKGET, clock, (uint64_t)secs, (uint64_t)nanos);
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
return 0;
|
||||
}
|
||||
#ifndef MLIBC_BUILDING_RTLD
|
||||
int sys_getcwd(char *buffer, size_t size) {
|
||||
__syscall_ret ret = __syscall2(SYSCALL_GETCWD, (uint64_t)buffer, size);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
return 0;
|
||||
}
|
||||
int sys_write(int fd, const void *buf, size_t count, ssize_t *bytes_written) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_WRITE, fd, (uint64_t)buf, count);
|
||||
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
*bytes_written = (ssize_t)ret.ret;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
pid_t sys_getpid() {
|
||||
__syscall_ret ret = __syscall0(16);
|
||||
return ret.ret;
|
||||
}
|
||||
#endif
|
||||
pid_t sys_getppid() {
|
||||
mlibc::infoLogger() << "mlibc: " << __func__ << " is a stub!" << frg::endlog;
|
||||
|
||||
return 0;
|
||||
}
|
||||
#ifndef MLIBC_BUILDING_RTLD
|
||||
int sys_fork(pid_t *child) {
|
||||
__syscall_ret ret = __syscall0(SYSCALL_FORK);
|
||||
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
*child = (pid_t)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_ioctl(int fd, unsigned long request, void *arg, int *result) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_IOCTL, fd, request, (uint64_t)arg);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
*result = (int)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_poll(struct pollfd *fds, nfds_t count, int timeout, int *num_events) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_POLL, (uint64_t)fds, count, timeout);
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
*num_events = (int)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_fcntl(int fd, int request, va_list args, int *result) {
|
||||
// __syscall_ret ret = __syscall(12, fd, request, va_arg(args, uint64_t));
|
||||
|
||||
// if (ret.errno != 0)
|
||||
// return ret.errno;
|
||||
|
||||
// *result = (ssize_t)ret.ret;
|
||||
// return 0;
|
||||
mlibc::infoLogger() << "mlibc: fd " << fd << " request " << request << frg::endlog;
|
||||
return ENOSYS;
|
||||
}
|
||||
int sys_ppoll(
|
||||
struct pollfd *fds,
|
||||
int nfds,
|
||||
const struct timespec *timeout,
|
||||
const sigset_t *sigmask,
|
||||
int *num_events
|
||||
) {
|
||||
sigset_t origmask;
|
||||
int timeoutr;
|
||||
int ret;
|
||||
|
||||
timeoutr = (timeout == NULL) ? -1 : (timeout->tv_sec * 1000 + timeout->tv_nsec / 1000000);
|
||||
pthread_sigmask(SIG_SETMASK, sigmask, &origmask);
|
||||
ret = sys_poll(fds, nfds, timeoutr, num_events);
|
||||
pthread_sigmask(SIG_SETMASK, &origmask, NULL);
|
||||
return ret;
|
||||
}
|
||||
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
|
||||
) {
|
||||
// this is a stub to please bash
|
||||
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; // TODO: Additional events.
|
||||
if (write_set && FD_ISSET(i, write_set))
|
||||
fd->events |= POLLOUT; // TODO: Additional events.
|
||||
if (except_set && FD_ISSET(i, except_set))
|
||||
fd->events |= POLLPRI;
|
||||
|
||||
if (!fd->events) {
|
||||
fd->fd = -1;
|
||||
continue;
|
||||
}
|
||||
|
||||
fd->fd = i;
|
||||
}
|
||||
|
||||
int e = sys_ppoll(fds, nfds, timeout, sigmask, num_events);
|
||||
|
||||
if (e != 0) {
|
||||
free(fds);
|
||||
return e;
|
||||
}
|
||||
|
||||
fd_set res_read_set;
|
||||
fd_set res_write_set;
|
||||
fd_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)) {
|
||||
FD_SET(i, &res_read_set);
|
||||
}
|
||||
|
||||
if (write_set && FD_ISSET(i, write_set) && fd->revents & (POLLOUT | POLLERR | POLLHUP)) {
|
||||
FD_SET(i, &res_write_set);
|
||||
}
|
||||
|
||||
if (except_set && FD_ISSET(i, except_set) && fd->revents & POLLPRI) {
|
||||
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_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 = TCSETS;
|
||||
break;
|
||||
case TCSAFLUSH:
|
||||
optional_action = TCSETS;
|
||||
break;
|
||||
default:
|
||||
__ensure(!"Unsupported tcsetattr");
|
||||
}
|
||||
|
||||
if (int r = sys_ioctl(fd, optional_action, (void *)attr, &ret) != 0) {
|
||||
return r;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
int sys_waitpid(pid_t pid, int *status, int flags, struct rusage *ru, pid_t *ret_pid) {
|
||||
if (ru) {
|
||||
mlibc::infoLogger() << "mlibc: struct rusage in sys_waitpid is unsupported" << frg::endlog;
|
||||
return ENOSYS;
|
||||
}
|
||||
|
||||
again:
|
||||
__syscall_ret ret = __syscall3(SYSCALL_WAITPID, pid, (uint64_t)status, flags);
|
||||
|
||||
if (ret.err != 0) {
|
||||
if (ret.err == EINTR) {
|
||||
goto again;
|
||||
}
|
||||
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
*ret_pid = (pid_t)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_execve(const char *path, char *const argv[], char *const envp[]) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_EXECVE, (uint64_t)path, (uint64_t)argv, (uint64_t)envp);
|
||||
if (ret.ret != 0) {
|
||||
return ret.err;
|
||||
} else {
|
||||
mlibc::infoLogger() << "mlibc: kernel failed execve syscall" << frg::endlog;
|
||||
__builtin_unreachable();
|
||||
}
|
||||
}
|
||||
int sys_faccessat(int dirfd, const char *pathname, int mode, int flags) {
|
||||
__syscall_ret ret = __syscall4(SYSCALL_FACCESSAT, dirfd, (uint64_t)pathname, mode, flags);
|
||||
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
int sys_access(const char *path, int mode) { return sys_faccessat(AT_FDCWD, path, mode, 0); }
|
||||
#endif
|
||||
int sys_sigprocmask(int how, const sigset_t *__restrict set, sigset_t *__restrict retrieve) {
|
||||
return ENOSYS;
|
||||
}
|
||||
int sys_sigaction(int signum, const struct sigaction *act, struct sigaction *oldact) {
|
||||
return ENOSYS;
|
||||
}
|
||||
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_dup(int fd, int flags, int *newfd) {
|
||||
(void)flags;
|
||||
__syscall_ret ret = __syscall2(SYSCALL_DUP, fd, flags);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
*newfd = (ssize_t)ret.ret;
|
||||
return 0;
|
||||
}
|
||||
int sys_dup2(int fd, int flags, int newfd) {
|
||||
__syscall_ret ret = __syscall3(SYSCALL_DUP2, fd, newfd, flags);
|
||||
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
|
||||
return 0;
|
||||
}
|
||||
int sys_stat(fsfd_target fsfdt, int fd, const char *path, int flags, struct stat *statbuf) {
|
||||
__syscall_ret ret;
|
||||
switch (fsfdt) {
|
||||
case fsfd_target::fd: {
|
||||
ret = __syscall2(SYSCALL_FSTAT, fd, (uint64_t)statbuf);
|
||||
if (ret.err != 0) {
|
||||
return ret.err;
|
||||
}
|
||||
return ret.ret;
|
||||
break;
|
||||
}
|
||||
case fsfd_target::path: {
|
||||
int fd = 0;
|
||||
int bad = sys_openat(AT_FDCWD, path, flags, O_RDONLY, &fd);
|
||||
if (bad != 0) {
|
||||
return bad;
|
||||
}
|
||||
ret = __syscall2(SYSCALL_FSTAT, fd, (uint64_t)statbuf);
|
||||
bad = sys_close(fd);
|
||||
// ret = __syscall(11, AT_FDCWD, path, statbuf, flags);
|
||||
return ret.ret;
|
||||
break;
|
||||
}
|
||||
case fsfd_target::fd_path: {
|
||||
mlibc::infoLogger() << "mlibc: statfd_path is a stub" << frg::endlog;
|
||||
// ret = __syscall(11, fd, path, statbuf, flags);
|
||||
return ENOSYS;
|
||||
break;
|
||||
}
|
||||
default: {
|
||||
__ensure(!"stat: Invalid fsfdt");
|
||||
__builtin_unreachable();
|
||||
}
|
||||
}
|
||||
if (ret.err != 0)
|
||||
return ret.err;
|
||||
return ret.ret;
|
||||
}
|
||||
|
||||
} // namespace mlibc
|
||||
Reference in New Issue
Block a user