implement iseq, tests

Signed-off-by: Ava Hahn <ava@aidanis.online>

src/lex.rs

@@ -212,7 +212,7 @@ fn process(document: &String) -> Result<Box<Seg>, String> {
  */
 fn tok_is_symbol(token: &str) -> Option<String> {
     for t in token.chars() {
-        if !t.is_alphanumeric() && t != '-' && t != '_' {
+        if !t.is_alphanumeric() && t != '-' && t != '_' && t != '?' {
             return None;
         }
     }

src/segment.rs

@@ -49,7 +49,7 @@ pub enum Type {
  * I was going to call it Cell and then I learned about
  * how important RefCells were in Rust
  */
-#[derive(Debug, Default)]
+#[derive(Debug, Default, PartialEq)]
 pub struct Seg {
     /* "Contents of Address Register"
      *  Historical way of referring to the first value in a cell.
@@ -251,6 +251,23 @@ impl fmt::Display for Ctr {
     }
 }
 
+impl PartialEq for Ctr {
+    fn eq(&self, other: &Self) -> bool {
+        match (self, other) {
+            (Ctr::Symbol(r), Ctr::Symbol(l)) => *r == *l,
+            (Ctr::String(r), Ctr::String(l)) => *r == *l,
+            (Ctr::Bool(r), Ctr::Bool(l)) => *r == *l,
+            (Ctr::Seg(r), Ctr::Seg(l)) => *r == *l,
+            (Ctr::None, Ctr::None) => true,
+            (Ctr::Integer(r), Ctr::Integer(l)) => *r == *l,
+            (Ctr::Float(r), Ctr::Float(l)) => *r == *l,
+            (Ctr::Integer(r), Ctr::Float(l)) => *r < f64::MAX as i128 && *r as f64 == *l,
+            (Ctr::Float(r), Ctr::Integer(l)) => *l < f64::MAX as i128 && *r == *l as f64,
+            _ => false,
+        }
+    }
+}
+
 impl fmt::Display for Seg {
     fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
         write!(f, "{}", seg_to_string(self, true))

src/stl.rs

@@ -100,16 +100,6 @@ pub fn static_stdlib(syms: &mut SymTable) -> Result<(), String> {
         }
     );
 
-    syms.insert(
-        "xor".to_string(),
-        Symbol {
-            name: String::from("xor"),
-            args: Args::Infinite,
-            conditional_branches: false,
-            value: ValueType::Internal(Rc::new(boolean::bool_xor_callback)),
-        }
-    );
-
     syms.insert(
         "not".to_string(),
         Symbol {

src/stl/boolean.rs

@@ -55,10 +55,6 @@ pub fn bool_or_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String>
     }
 }
 
-pub fn bool_xor_callback(_ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String> {
-    todo!()
-}
-
 pub fn bool_not_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String> {
     if let Ctr::Bool(b) = *ast.car {
         Ok(Ctr::Bool(!b))
@@ -67,8 +63,9 @@ pub fn bool_not_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String>
     }
 }
 
-pub fn bool_iseq_callback(_ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String> {
-    todo!()
+pub fn bool_iseq_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String> {
+    let head_ctr_ref = &*ast.car;
+    Ok(Ctr::Bool(ast.circuit(&mut |arg: &Ctr| -> bool {arg == head_ctr_ref})))
 }
 
 pub fn bool_toggle_callback(ast: &Seg, syms: &mut SymTable) -> Result<Ctr, String> {