move sub-functions of value impls to concrete types

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

src/values/toggle_value.cpp

@@ -1,5 +1,8 @@
 #include "ikarus/values/toggle_value.h"
 
+#include <boost/functional/overloaded_function.hpp>
+#include <boost/range/adaptors.hpp>
+
 #include <values/toggle_value.hpp>
 #include <values/value_base.hpp>
 
@@ -30,6 +33,44 @@ void ikarus_toggle_value_insert(IkarusToggleValue * value, size_t idx, bool new_
     return ikarus_value_base_insert(value, idx, new_data);
 }
 
+void ikarus_toggle_value_clear(IkarusToggleValue * value) {
+    return ikarus_value_base_clear(value);
+}
+
+bool ikarus_toggle_value_is_undefined(IkarusToggleValue const * value) {
+    return ikarus_value_base_is_undefined(value);
+}
+
+void ikarus_toggle_value_set_undefined(IkarusToggleValue * value, bool undefined) {
+    return ikarus_value_base_set_undefined(value, undefined);
+}
+
+char const * ikarus_toggle_value_to_string(IkarusToggleValue const * value) {
+    return boost::variant2::visit(
+        boost::make_overloaded_function(
+            [](boost::variant2::monostate const&) { return nullptr; },
+            [](auto const& data) {
+                return fmt::join(
+                    data | boost::adaptors::transformed([](auto const& bool_value) { return bool_value ? "✓" : "✗"; }), ", "
+                );
+            }
+        ),
+        value->data
+    );
+}
+
+bool ikarus_toggle_value_is_equal(IkarusToggleValue const * lhs, IkarusToggleValue const * rhs) {
+    return ikarus_value_base_is_equal(lhs, rhs);
+}
+
+IkarusToggleValue * ikarus_toggle_value_copy(IkarusToggleValue const * value) {
+    return ikarus_value_base_copy(value);
+}
+
 struct IkarusValue * ikarus_toggle_value_to_value(IkarusToggleValue * value) {
     return ikarus_value_base_to_value(value);
 }
+
+struct IkarusValue const * ikarus_toggle_value_to_value_const(IkarusToggleValue const * value) {
+    return ikarus_value_base_to_value_const(value);
+}