25 lines
795 B
C
25 lines
795 B
C
|
case OP_TO_NUMBER: {
|
||
|
|
Value v = pop_value(vm);
|
||
|
|
if (v.type == VAL_INT) {
|
||
|
|
Value out = make_int(v.i);
|
||
|
|
free_value(v);
|
||
|
|
push_value(vm, out);
|
||
|
|
} else if (v.type == VAL_STRING) {
|
||
|
|
const char *s = v.s ? v.s : "";
|
||
|
|
const char *p = s;
|
||
|
|
while (*p == ' ' || *p == '\t' || *p == '\r' || *p == '\n') p++;
|
||
|
|
char *endp = NULL;
|
||
|
|
long long parsed = strtoll(p, &endp, 10);
|
||
|
|
while (endp && (*endp == ' ' || *endp == '\t' || *endp == '\r' || *endp == '\n')) endp++;
|
||
|
|
if (endp && *endp != '\0') {
|
||
|
|
push_value(vm, make_int(0));
|
||
|
|
} else {
|
||
|
|
push_value(vm, make_int((int64_t)parsed));
|
||
|
|
}
|
||
|
|
free_value(v);
|
||
|
|
} else {
|
||
|
|
free_value(v);
|
||
|
|
push_value(vm, make_int(0));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|