xo-expression: arithmetic expression support

2024-08-19 18:45:02 -04:00 · 2024-08-19 18:45:02 -04:00 · d4fd55b8ed
commit d4fd55b8ed
parent fce0fea1cb
7 changed files with 181 additions and 2 deletions
--- a/src/expression/Primitive.cpp
+++ b/src/expression/Primitive.cpp
@ -0,0 +1,89 @@
+/* @file Primitive.cpp */
+
+#include "Primitive.hpp"
+
+extern "C" {
+    double
+    add2_f64(double x, double y) {
+        return x + y;
+    }
+
+    double
+    sub2_f64(double x, double y) {
+        return x - y;
+    }
+
+    double
+    mul2_f64(double x, double y) {
+        return x * y;
+    }
+
+    double
+    div2_f64(double x, double y) {
+        return x / y;
+    }
+}
+
+namespace xo {
+    namespace ast {
+        auto
+        Primitive_f64::make_add2_f64() -> rp<PrimitiveType>
+        {
+            static rp<PrimitiveType> s_retval;
+
+            if (!s_retval)
+                s_retval = Primitive::make("add2_f64",
+                                           &add2_f64,
+                                           true /*explicit_symbol_def*/,
+                                           llvmintrinsic::fp_add);
+
+            return s_retval;
+        }
+
+        auto
+        Primitive_f64::make_sub2_f64() -> rp<PrimitiveType>
+        {
+            static rp<PrimitiveType> s_retval;
+
+            if (!s_retval)
+                s_retval = Primitive::make("sub2_f64",
+                                           &sub2_f64,
+                                           true /*explicit_symbol_def*/,
+                                           llvmintrinsic::fp_sub);
+
+            return s_retval;
+        }
+
+        auto
+        Primitive_f64::make_mul2_f64() -> rp<PrimitiveType>
+        {
+            static rp<PrimitiveType> s_retval;
+
+            if (!s_retval)
+                s_retval = Primitive::make("mul2_f64",
+                                           &mul2_f64,
+                                           true /*explicit_symbol_def*/,
+                                           llvmintrinsic::fp_mul);
+
+            return s_retval;
+        }
+
+        auto
+        Primitive_f64::make_div2_f64() -> rp<PrimitiveType>
+        {
+            static rp<PrimitiveType> s_retval;
+
+            if (!s_retval)
+                s_retval = Primitive::make("div2_f64",
+                                           &div2_f64,
+                                           true /*explicit_symbol_def*/,
+                                           llvmintrinsic::fp_div);
+
+            return s_retval;
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+
+/* end Primitive.cpp */