From cdbc1695a93910df5729779de31912a3b4b4172b Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 19 Jul 2026 17:09:40 +0200
Subject: Support unary plus operation

---
 boot/symbol.cc | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'boot/symbol.cc')

diff --git a/boot/symbol.cc b/boot/symbol.cc
index 6ad89b7..7b45612 100644
--- a/boot/symbol.cc
+++ b/boot/symbol.cc
@@ -420,6 +420,33 @@ namespace elna::boot
         return false;
     }
 
+    bool is_numeric_type(const type& checked)
+    {
+        type resolved = resolve_underlying_type(checked);
+
+        return is_primitive_type(resolved, "Int")
+            || is_primitive_type(resolved, "Word")
+            || is_primitive_type(resolved, "Float");
+    }
+
+    bool is_integral_type(const type& checked)
+    {
+        type resolved = resolve_underlying_type(checked);
+
+        return is_primitive_type(resolved, "Int")
+            || is_primitive_type(resolved, "Word");
+    }
+
+    bool is_discrete_type(const type& checked)
+    {
+        type resolved = resolve_underlying_type(checked);
+
+        return is_primitive_type(resolved, "Int")
+            || is_primitive_type(resolved, "Word")
+            || is_primitive_type(resolved, "Bool")
+            || is_primitive_type(resolved, "Char");
+    }
+
     bool is_any_pointer_type(const type& checked)
     {
         return checked.get<pointer_type>() != nullptr
-- 
cgit v1.2.3