#include <stdlib.h>
#include <ctype.h>
#include <string.h>

#include <kogata/debug.h>

static unsigned long 
x=123456789,y=362436069,z=521288629,w=88675123,v=886756453; 
/* replace defaults with five random seed values in calling program */ 
unsigned long xorshift(void) {
	unsigned long t; 
	t=(x^(x>>7)); x=y; y=z; z=w; w=v; 
	v=(v^(v<<6))^(t^(t<<13));
	return (y+y+1)*v;
} 

int rand(void) {
	int i = xorshift();
	if (i < 0) i = -i;
	return i;
}

void srand(unsigned int seed) {
	x = seed;
}

void abort() {
	PANIC("Aborted.");
}

float strtof(const char *nptr, char **endptr) {
	return (float)strtod(nptr, endptr);
}
double strtod(const char *nptr, char **endptr) {
	// TODO: better (inf, nan, ...)

	const char* p = nptr;
	while (isspace(*p)) p++;

	double val = 0;
	double sign = 1;
	if (*p == '-') sign = -1;
	if (*p == '-' || *p == '+') p++;
	while (isdigit(*p)) {
		val = val*10. + (double)((int)*p - '0');
		p++;
	}
	if (*p == '.') {
		p++;
		double fac = 0.1;
		while (isdigit(*p)) {
			val += fac * (double)((int)*p - '0');
			fac /= 10.;
			p++;
		}
	}
	if (*p == 'e' || *p == 'E') {
		p++;
		int exp = 0;
		int sexp = 1;
		if (*p == '-') sexp = -1;
		if (*p == '-' || *p =='+') p++;
		while (isdigit(*p)) {
			exp = exp * 10 + (*p - '0');
			p++;
		}
		if (sexp == 1) {
			for (int i = 0; i < exp; i++) val *= 10;
		} else {
			for (int i = 0; i < exp; i++) val /= 10;
		}
	}
	if (endptr != NULL) *endptr = (char*)p;

	return val * sign;
}

char *getenv(const char *name) {
	// HACK
	if (!strcmp(name, "LUA_INIT")) {
		return "require 'init'";
	}
	// TODO
	return 0;
}

int system(const char *command) {
	// TODO
	return -1;
}

int abs(int j) {
	if (j < 0) return -j;
	return j;
}

/* vim: set sts=0 ts=4 sw=4 tw=0 noet :*/