Luna/libc/src/stdlib.cpp
apio c3653cd4e6
All checks were successful
continuous-integration/drone/push Build is passing
More stdlib.h implementation + commenting + atexit()
2023-01-06 19:40:25 +01:00

103 lines
2.1 KiB
C++

#include <limits.h>
#include <luna/NumberParsing.h>
#include <stdlib.h>
#include <sys/syscall.h>
#include <unistd.h>
template <typename ArgT, typename ResultT> static inline ResultT __generic_div(ArgT a, ArgT b)
{
ResultT result;
result.quot = a / b;
result.rem = a % b;
if (a >= 0 && result.rem < 0)
{
result.quot++;
result.rem -= b;
}
return result;
}
extern "C"
{
int abs(int v)
{
return __builtin_abs(v);
}
long labs(long v)
{
return __builtin_labs(v);
}
long long llabs(long long v)
{
return __builtin_llabs(v);
}
div_t div(int num, int den)
{
return __generic_div<int, div_t>(num, den);
}
ldiv_t ldiv(long num, long den)
{
return __generic_div<long, ldiv_t>(num, den);
}
lldiv_t lldiv(long long num, long long den)
{
return __generic_div<long long, lldiv_t>(num, den);
}
int atoi(const char* s)
{
return (int)strtol(s, NULL, 10);
}
long atol(const char* s)
{
return strtol(s, NULL, 10);
}
// Assuming LP64, long long == long.
long long atoll(const char* s)
{
return (long long)strtol(s, NULL, 10);
}
// These checks are only necessary on LLP64 platforms, where long won't match size_t/ssize_t. Probably redundant
// then (since Luna follows the regular LP64 model), but oh well...
long strtol(const char* str, char** endptr, int base)
{
isize rc = parse_signed_integer(str, const_cast<const char**>(endptr), base);
if (rc > (isize)LONG_MAX) return LONG_MAX;
if (rc < (isize)LONG_MIN) return LONG_MIN;
return rc;
}
unsigned long strtoul(const char* str, char** endptr, int base)
{
usize rc = parse_unsigned_integer(str, const_cast<const char**>(endptr), base);
if (rc > (usize)ULONG_MAX) return ULONG_MAX;
return rc;
}
__noreturn void abort()
{
syscall(SYS_exit);
__builtin_unreachable();
}
__noreturn void _Exit(int)
{
syscall(SYS_exit);
__builtin_unreachable();
}
}