blob: 6b200c244a9b5c950bae384086580d84ea8564fe (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#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 :*/
|
