66 lines
1.3 KiB
C++
66 lines
1.3 KiB
C++
#include <ctype.h>
|
|
#include <luna.h>
|
|
#include <stdlib.h>
|
|
#include <sys/syscall.h>
|
|
#include <unistd.h>
|
|
|
|
template <typename T> T string_to_integer_type(const char* str)
|
|
{
|
|
bool neg = false;
|
|
T val = 0;
|
|
|
|
switch (*str)
|
|
{
|
|
case '-':
|
|
neg = true;
|
|
str++;
|
|
break;
|
|
case '+': str++; break;
|
|
default: break;
|
|
}
|
|
|
|
while (isdigit(*str)) { val = (10 * val) + (*str++ - '0'); }
|
|
|
|
return (neg ? -val : val);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
__lc_noreturn void abort()
|
|
{
|
|
_Exit(-1);
|
|
}
|
|
|
|
int atoi(const char* str)
|
|
{
|
|
return string_to_integer_type<int>(str);
|
|
}
|
|
|
|
long atol(const char* str)
|
|
{
|
|
return string_to_integer_type<long>(str);
|
|
}
|
|
|
|
long long atoll(const char* str)
|
|
{
|
|
return string_to_integer_type<long long>(str);
|
|
}
|
|
|
|
unsigned long strtoul(const char* str, char** endptr, int base)
|
|
{
|
|
if (base != 0 && base != 10) NOT_IMPLEMENTED("strtoul with base not in (0,10)");
|
|
if (endptr) NOT_IMPLEMENTED("strtoul with non-null endptr");
|
|
return string_to_integer_type<unsigned long>(str);
|
|
}
|
|
|
|
char* getenv(const char*)
|
|
{
|
|
return NULL; // FIXME: Not implemented :)
|
|
}
|
|
|
|
__lc_noreturn void _Exit(int status)
|
|
{
|
|
syscall(SYS_exit, status);
|
|
__lc_unreachable();
|
|
}
|
|
} |