summaryrefslogtreecommitdiff
path: root/libtnsl/math
diff options
context:
space:
mode:
authorKyle Gunger <kgunger12@gmail.com>2022-10-06 12:26:42 -0400
committerKyle Gunger <kgunger12@gmail.com>2022-10-06 12:26:42 -0400
commitf4bc4570be7a51b00bf44d5bd4be99108dd94a30 (patch)
treeabb6b32ac979d7dc0bdf1792d86b0daca8818525 /libtnsl/math
parenta58e2685b815a5a0d2d5f07bc3ae53016ba6f52b (diff)
Libtnsl additions
Diffstat (limited to 'libtnsl/math')
-rw-r--r--libtnsl/math/basic.tnsl157
-rw-r--r--libtnsl/math/math.tnsl26
2 files changed, 183 insertions, 0 deletions
diff --git a/libtnsl/math/basic.tnsl b/libtnsl/math/basic.tnsl
new file mode 100644
index 0000000..3eefc0d
--- /dev/null
+++ b/libtnsl/math/basic.tnsl
@@ -0,0 +1,157 @@
+/##
+ Copyright 2021 Kyle Gunger
+
+ Dual licensed under the CDDL 1.0 and BSD 3-Clause licenses.
+
+ This file may only be used in accordance with one of the two
+ licenses. You should have received a copy of each license with
+ the source code. In the event that you did not recieve a copy
+ of the licenses, they may be found at the following URLs:
+
+ CDDL 1.0:
+ https://opensource.org/licenses/CDDL-1.0
+
+ BSD 3-Clause:
+ https://opensource.org/licenses/BSD-3-Clause
+
+ THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO
+ WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE
+ EXPRESS OR IMPLIED
+#/
+
+# ABS functions
+
+/; abs (int a) [int]
+ /; if (a < 0)
+ ;return -a
+ ;/
+ ;return a
+;/
+
+/; absf (float a) [float]
+ /; if (a < 0)
+ ;return -a
+ ;/
+ ;return a
+;/
+
+/; abst (type T, T a) [T]
+ /; if ( a < (0)[T] )
+ ;return -a
+ ;/
+ ;return a
+;/
+
+# Div funcs
+
+/; div (int a, b) [int, int]
+ ;int o1 = a / b, o2 = a % b
+ ;return o1, o2
+;/
+
+/; divf (float a, b) [float, float]
+ ;float o1 = a / b, o2 = a % b
+ ;return o1, o2
+;/
+
+/; divt (type T, T a, b) [T, T]
+ ;T o1 = a / b, o2 = a % b
+ ;return o1, o2
+;/
+
+# Min/Max functions
+
+/; max (int a, b) [int]
+ /; if (a > b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+/; maxf (float a, b) [float]
+ /; if (a > b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+/; maxt (type T, T a, b) [T]
+ /; if (a > b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+/; min (int a, b) [int]
+ /; if (a < b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+/; minf (float a, b) [float]
+ /; if (a > b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+/; mint (type T, T a, b) [T]
+ /; if (a < b)
+ ;return a
+ ;/
+ ;return b
+;/
+
+# Float rounding
+
+/; trunc (float a) [float]
+ ;return a - (a % 1.0)
+;/
+
+/; trunct (type T, T a) [T]
+ ;return a - (a % (1.0)[T])
+;/
+
+/; ceil (float a) [float]
+ /; if (trunc(a) !== a)
+ ;return trunc(a + 1.0)
+ ;/
+ ;return a
+;/
+
+/; ceilt (type T, T a) [T]
+ /; if (trunct(T, a) !== a)
+ ;return trunct(T, a + (1.0)[T])
+ ;/
+ ;return a
+;/
+
+/; floor (float a) [float]
+ /; if (trunc(a) !== a)
+ ;return trunc(a - 1.0)
+ ;/
+ ;return a
+;/
+
+/; floort (type T, T a) [T]
+ /; if (trunct(T, a) !== a)
+ ;return trunct(T, a - (1.0)[T])
+ ;/
+ ;return a
+;/
+
+/; round (float a) [float]
+ /; if (a % 1.0 < 0.5)
+ ;return floor(a)
+ ;/
+ ;return ceil(a)
+;/
+
+/; roundt (type T, T a) [T]
+ /; if (a % (1.0)[T] < (0.5)[T])
+ ;return floort(T, a)
+ ;/
+ ;return ceilt(T, a)
+;/
+
diff --git a/libtnsl/math/math.tnsl b/libtnsl/math/math.tnsl
new file mode 100644
index 0000000..eff1aa3
--- /dev/null
+++ b/libtnsl/math/math.tnsl
@@ -0,0 +1,26 @@
+/##
+ Copyright 2021 Kyle Gunger
+
+ Dual licensed under the CDDL 1.0 and BSD 3-Clause licenses.
+
+ This file may only be used in accordance with one of the two
+ licenses. You should have received a copy of each license with
+ the source code. In the event that you did not recieve a copy
+ of the licenses, they may be found at the following URLs:
+
+ CDDL 1.0:
+ https://opensource.org/licenses/CDDL-1.0
+
+ BSD 3-Clause:
+ https://opensource.org/licenses/BSD-3-Clause
+
+ THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO
+ WARRANTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE
+ EXPRESS OR IMPLIED
+#/
+
+/; export module math
+ /; include
+ "basic.tnsl"
+ ;/
+;/ \ No newline at end of file