value constructors

build.zig

@@ -8,6 +8,7 @@ fn addEngineSources(c: *std.Build.Step.Compile) void {
             "src/tinycthread.c",
             "src/lock.c",
             "src/utils.c",
+            "src/value.c",
             "src/universe.c",
         },
     });

src/neonucleus.h

@@ -208,17 +208,29 @@ size_t nn_getReturnCount(nn_computer *computer);
 
 // Value stuff
 
-nn_value nn_values_retain(nn_value val);
-void nn_values_drop(nn_value val);
-
 nn_value nn_values_nil();
+nn_value nn_values_integer(intptr_t integer);
+nn_value nn_values_number(double num);
+nn_value nn_values_boolean(bool boolean);
 nn_value nn_values_cstring(const char *string);
 nn_value nn_values_string(const char *string, size_t len);
 nn_value nn_values_array(size_t len);
-void nn_values_set(nn_value *arr, size_t idx, nn_value val);
-nn_value nn_values_get(nn_value *arr, size_t idx);
 nn_value nn_values_table(size_t pairCount);
-void nn_values_setPair(nn_value *obj, nn_value key, nn_value val);
-nn_pair nn_values_getPair(nn_value *obj, size_t idx);
+
+size_t nn_values_getType(nn_value val);
+nn_value nn_values_retain(nn_value val);
+void nn_values_drop(nn_value val);
+
+void nn_values_set(nn_value arr, size_t idx, nn_value val);
+nn_value nn_values_get(nn_value arr, size_t idx);
+
+void nn_values_setPair(nn_value obj, nn_value key, nn_value val);
+nn_pair nn_values_getPair(nn_value obj, size_t idx);
+
+intptr_t nn_toInt(nn_value val);
+double nn_toNumber(nn_value val);
+bool nn_toBoolean(nn_value val);
+const char *nn_toCString(nn_value val);
+const char *nn_toString(nn_value val, size_t *len);
 
 #endif

src/value.c

@@ -0,0 +1,87 @@
+#include "neonucleus.h"
+#include <string.h>
+
+nn_value nn_values_nil() {
+    return (nn_value) {.tag = NN_VALUE_NIL};
+}
+
+nn_value nn_values_integer(intptr_t integer) {
+    return (nn_value) {.tag = NN_VALUE_INT, .integer = integer};
+}
+
+nn_value nn_values_number(double num) {
+    return (nn_value) {.tag = NN_VALUE_NUMBER, .number = num};
+}
+
+nn_value nn_values_boolean(bool boolean) {
+    return (nn_value) {.tag = NN_VALUE_BOOL, .boolean = boolean};
+}
+
+nn_value nn_values_cstring(const char *string) {
+    return (nn_value) {.tag = NN_VALUE_CSTR, .cstring = string};
+}
+
+nn_value nn_values_string(const char *string, size_t len) {
+    if(len == 0) len = strlen(string);
+
+    char *buf = nn_malloc(len+1);
+    if(buf == NULL) {
+        return nn_values_nil();
+    }
+    memcpy(buf, string, len);
+    buf[len] = '\0';
+
+    nn_string *s = nn_malloc(sizeof(nn_string));
+    if(s == NULL) {
+        nn_free(buf);
+        return nn_values_nil();
+    }
+    s->data = buf;
+    s->len = len;
+    s->refc = 1;
+
+    return (nn_value) {.tag = NN_VALUE_STR, .string = s};
+}
+
+nn_value nn_values_array(size_t len) {
+    nn_array *arr = nn_malloc(sizeof(nn_array));
+    if(arr == NULL) {
+        return nn_values_nil();
+    }
+    arr->refc = 1;
+    arr->len = len;
+    nn_value *values = nn_malloc(sizeof(nn_value) * len);
+    if(values == NULL) {
+        nn_free(arr);
+        return nn_values_nil();
+    }
+    for(size_t i = 0; i < len; i++) {
+        values[i] = nn_values_nil();
+    }
+    arr->values = values;
+    return (nn_value) {.tag = NN_VALUE_ARRAY, .array = arr};
+}
+
+nn_value nn_values_table(size_t pairCount) {
+    nn_table *table = nn_malloc(sizeof(nn_table));
+    if(table == NULL) {
+        return nn_values_nil();
+    }
+    table->refc = 1;
+    table->len = pairCount;
+    nn_pair *pairs = nn_malloc(sizeof(nn_pair) * pairCount);
+    if(pairs == NULL) {
+        nn_free(table);
+        return nn_values_nil();
+    }
+    for(size_t i = 0; i < pairCount; i++) {
+        pairs[i].key = nn_values_nil();
+        pairs[i].val = nn_values_nil();
+    }
+    table->pairs = pairs;
+    return (nn_value) {.tag = NN_VALUE_TABLE, .table = table};
+}
+
+size_t nn_values_getType(nn_value val) {
+    return val.tag;
+}