move sub-functions of value impls to concrete types

Signed-off-by: Folling <mail@folling.io>

src/values/number_value.cpp

@@ -1,5 +1,7 @@
 #include "ikarus/values/number_value.h"
 
+#include <boost/functional/overloaded_function.hpp>
+
 #include <values/number_value.hpp>
 #include <values/value_base.hpp>
 
@@ -30,6 +32,39 @@ void ikarus_number_value_insert(IkarusNumberValue * value, size_t idx, long doub
     return ikarus_value_base_insert(value, idx, new_data);
 }
 
+void ikarus_number_value_clear(IkarusNumberValue * value) {
+    return ikarus_value_base_clear(value);
+}
+
+bool ikarus_number_value_is_undefined(IkarusNumberValue const * value) {
+    return ikarus_value_base_is_undefined(value);
+}
+
+void ikarus_number_value_set_undefined(IkarusNumberValue * value, bool undefined) {
+    return ikarus_value_base_set_undefined(value, undefined);
+}
+
+char const * ikarus_number_value_to_string(IkarusNumberValue const * value) {
+    return boost::variant2::visit(
+        boost::make_overloaded_function(
+            [](boost::variant2::monostate const&) { return nullptr; }, [](auto const& data) { return fmt::join(data, ", "); }
+        ),
+        value->data
+    );
+}
+
+bool ikarus_number_value_is_equal(IkarusNumberValue const * lhs, IkarusNumberValue const * rhs) {
+    return ikarus_value_base_is_equal(lhs, rhs);
+}
+
+IkarusNumberValue * ikarus_number_value_copy(IkarusNumberValue const * value) {
+    return ikarus_value_base_copy(value);
+}
+
 struct IkarusValue * ikarus_number_value_to_value(IkarusNumberValue * value) {
     return ikarus_value_base_to_value(value);
 }
+
+struct IkarusValue const * ikarus_number_value_to_value_const(IkarusNumberValue const * value) {
+    return ikarus_value_base_to_value_const(value);
+}