bendn's repos / mindus
Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'lemu/src/instructions/cop.rs')
-rw-r--r--lemu/src/instructions/cop.rs40
1 files changed, 40 insertions, 0 deletions
diff --git a/lemu/src/instructions/cop.rs b/lemu/src/instructions/cop.rs
new file mode 100644
index 0000000..0079bfa
--- /dev/null
+++ b/lemu/src/instructions/cop.rs
@@ -0,0 +1,40 @@
+use crate::{lexer::Token, memory::LVar};
+
+super::op_enum! { pub enum ConditionOp {
+ Equal,
+ NotEqual,
+ LessThan,
+ LessThanEq,
+ GreaterThan,
+ GreaterThanEq,
+ StrictEqual,
+} }
+
+macro_rules! op {
+ ($name: ident $op:tt ) => {
+ fn $name<'v>(a: &LVar<'v>, b: &LVar<'v>) -> bool {
+ if let &LVar::Num(a) = a && let &LVar::Num(b) = b { a $op b } else { false }
+ }
+ };
+}
+
+fn eq<'v>(a: &LVar<'v>, b: &LVar<'v>) -> bool {
+ a == b
+}
+fn ne<'v>(a: &LVar<'v>, b: &LVar<'v>) -> bool {
+ a != b
+}
+op!(lt <);
+op!(gt >);
+op!(le <=);
+op!(ge >=);
+
+super::op_impl!(ConditionOp, ptr type = for<'f> fn(&LVar<'f>, &LVar<'f>) -> bool {
+ Equal => eq,
+ StrictEqual => eq,
+ NotEqual => ne,
+ LessThan => lt,
+ GreaterThan => gt,
+ LessThanEq => le,
+ GreaterThanEq => ge,
+});