bendn's repos / mindus
Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'lemu/src/instructions/mop.rs')
-rw-r--r--lemu/src/instructions/mop.rs79
1 files changed, 79 insertions, 0 deletions
diff --git a/lemu/src/instructions/mop.rs b/lemu/src/instructions/mop.rs
new file mode 100644
index 0000000..715cd3d
--- /dev/null
+++ b/lemu/src/instructions/mop.rs
@@ -0,0 +1,79 @@
+use super::get_num;
+use crate::{lexer::Token, memory::LVar};
+
+super::op_enum! { pub enum MathOp1 {
+ Floor,
+ Not,
+ Log,
+ Abs,
+ Rand,
+ Ceil,
+ Sqrt,
+ Sin,
+ Cos,
+ Tan,
+ ASin,
+ ACos,
+ ATan,
+ Log10,
+} }
+
+macro_rules! num {
+ ($fn: ident $c:expr) => {
+ fn $fn(x: &LVar<'_>) -> f64 {
+ f64::from($c(get_num!(x)))
+ }
+ };
+ (deg $fn: ident $c:expr) => {
+ fn $fn(x: &LVar<'_>) -> f64 {
+ f64::from($c(get_num!(x).to_radians()))
+ }
+ };
+ (to_deg $fn: ident $c:expr) => {
+ fn $fn(x: &LVar<'_>) -> f64 {
+ f64::from($c(get_num!(x))).to_radians()
+ }
+ };
+}
+
+macro_rules! flbop {
+ ($f: expr, $fn: expr) => {
+ $fn($f as u64) as f64
+ };
+}
+
+num!(floor f64::floor);
+fn not(x: &LVar<'_>) -> f64 {
+ flbop!(get_num!(x), |n: u64| !n)
+}
+num!(log f64::ln);
+num!(abs f64::abs);
+const fn rand(_: &LVar<'_>) -> f64 {
+ 4.0
+}
+num!(ceil f64::ceil);
+num!(sqrt f64::sqrt);
+num!(deg sin f64::sin);
+num!(deg cos f64::cos);
+num!(deg tan f64::tan);
+num!(to_deg asin f64::asin);
+num!(to_deg acos f64::acos);
+num!(to_deg atan f64::atan);
+num!(log10 f64::log10);
+
+super::op_impl!(MathOp1, ptr type = for<'v> fn(&LVar<'v>) -> f64 {
+ Floor => floor,
+ Not => not,
+ Log => log,
+ Abs => abs,
+ Rand => rand,
+ Ceil => ceil,
+ Sqrt => sqrt,
+ Sin => sin,
+ Cos => cos,
+ Tan => tan,
+ ASin => asin,
+ ACos => acos,
+ ATan => atan,
+ Log10 => log10,
+});