93 lines
2.5 KiB
C
93 lines
2.5 KiB
C
/*
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2025 Johannes Findeisen <you@hanez.org>
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*/
|
|
|
|
/**
|
|
* @file cast.c
|
|
* @brief Implements the OP_CAST opcode for converting a value to a target type.
|
|
*
|
|
* Stack contract:
|
|
* - Pops: typeName (String), value (any)
|
|
* - Pushes: converted value (or Nil on unsupported target)
|
|
*/
|
|
|
|
case OP_CAST: {
|
|
/* pop type then value (args pushed in this order: value, typeName) */
|
|
Value t = pop_value(vm);
|
|
Value v = pop_value(vm);
|
|
|
|
const char *tn = (t.type == VAL_STRING && t.s) ? t.s : NULL;
|
|
Value out = make_nil();
|
|
|
|
/* Normalize target name to lowercase into a small buffer */
|
|
char target[32];
|
|
int k = 0;
|
|
if (tn) {
|
|
const char *p = tn;
|
|
while (*p && k < (int)sizeof(target) - 1) {
|
|
char c = *p++;
|
|
if (c >= 'A' && c <= 'Z') c = (char)(c - 'A' + 'a');
|
|
target[k++] = c;
|
|
}
|
|
}
|
|
target[k] = '\0';
|
|
|
|
if (!tn) {
|
|
out = make_nil();
|
|
} else if (strcmp(target, "number") == 0) {
|
|
if (v.type == VAL_INT) {
|
|
out = make_int(v.i);
|
|
} 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')
|
|
out = make_int(0);
|
|
else
|
|
out = make_int((int64_t)parsed);
|
|
} else {
|
|
out = make_int(0);
|
|
}
|
|
} else if (strcmp(target, "string") == 0) {
|
|
char *s = value_to_string_alloc(&v);
|
|
out = make_string(s ? s : "");
|
|
if (s) free(s);
|
|
} else if (strcmp(target, "array") == 0) {
|
|
if (v.type == VAL_ARRAY) {
|
|
out = copy_value(&v);
|
|
} else {
|
|
Value tmp = deep_copy_value(&v);
|
|
out = make_array_from_values(&tmp, 1);
|
|
free_value(tmp);
|
|
}
|
|
} else if (strcmp(target, "map") == 0) {
|
|
if (v.type == VAL_MAP) {
|
|
out = copy_value(&v);
|
|
} else {
|
|
out = make_map_empty();
|
|
}
|
|
} else if (strcmp(target, "nil") == 0) {
|
|
out = make_nil();
|
|
} else if (strcmp(target, "function") == 0) {
|
|
out = (v.type == VAL_FUNCTION) ? copy_value(&v) : make_nil();
|
|
} else if (strcmp(target, "boolean") == 0) {
|
|
out = make_int(value_is_truthy(&v) ? 1 : 0);
|
|
} else {
|
|
out = make_nil();
|
|
}
|
|
|
|
free_value(t);
|
|
free_value(v);
|
|
push_value(vm, out);
|
|
break;
|
|
}
|