add structural tests for partial strings, rename ast.rs

src/main.rs

@@ -2,7 +2,7 @@
 #[macro_use] extern crate prolog_parser;
 extern crate termion;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 
 mod prolog;
 

src/prolog/allocator.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::fixtures::*;
 use prolog::targets::*;
 

src/prolog/and_stack.rs

@@ -1,4 +1,4 @@
-use prolog::ast::*;
+use prolog::instructions::*;
 
 use std::ops::{Index, IndexMut};
 use std::vec::Vec;

src/prolog/arithmetic.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use std::cell::Cell;
 use std::cmp::{min, max};
 use std::rc::Rc;

src/prolog/codegen.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::allocator::*;
 use prolog::arithmetic::*;
 use prolog::fixtures::*;

src/prolog/compile.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::debray_allocator::*;
 use prolog::codegen::*;
 use prolog::machine::*;

src/prolog/copier.rs

@@ -1,5 +1,5 @@
-use prolog::ast::*;
 use prolog::and_stack::*;
+use prolog::instructions::*;
 
 use std::ops::IndexMut;
 

src/prolog/debray_allocator.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::allocator::*;
 use prolog::targets::*;
 

src/prolog/fixtures.rs

@@ -1,8 +1,8 @@
 use prolog_parser::ast::*;
 
+use prolog::instructions::*;
 use prolog::iterators::*;
 
-use prolog::ast::*;
 use std::cell::Cell;
 use std::collections::{BTreeMap, HashMap};
 use std::collections::btree_map::{IntoIter, IterMut, Values};

src/prolog/heap_iter.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::machine::machine_state::*;
 
 use std::collections::HashSet;

src/prolog/heap_print.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::machine::machine_state::*;
 use prolog::num::*;
 use prolog::heap_iter::*;

src/prolog/indexing.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use std::collections::{HashMap, VecDeque};
 use std::hash::Hash;
 use std::rc::Rc;
@@ -217,7 +217,6 @@ impl CodeOffsets {
             IntIndex::Internal(_) => prelude_len - lst_offset + 1
         }
     }
-
     
     pub fn add_indices(self, code: &mut Code, mut code_body: Code)
     {

src/prolog/io.rs

@@ -1,4 +1,4 @@
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::heap_print::*;
 use prolog::machine::*;
 

src/prolog/iterators.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use std::cell::Cell;
 use std::collections::VecDeque;
 use std::iter::*;

src/prolog/machine/machine_errors.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::machine::machine_state::*;
 use prolog::num::bigint::BigInt;
 

src/prolog/machine/machine_state.rs

@@ -1,7 +1,7 @@
 use prolog_parser::ast::*;
 use prolog_parser::tabled_rc::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::and_stack::*;
 use prolog::copier::*;
 use prolog::heap_print::*;

src/prolog/machine/machine_state_impl.rs

@@ -1,7 +1,7 @@
 use prolog_parser::ast::*;
 use prolog_parser::string_list::StringList;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::and_stack::*;
 use prolog::copier::*;
 use prolog::heap_iter::*;
@@ -1528,10 +1528,22 @@ impl MachineState {
                     return Ordering::Greater,
                 (HeapCellValue::Addr(Addr::Con(Constant::String(_))),
                  HeapCellValue::Addr(Addr::Con(Constant::Number(_)))) =>
-                    return Ordering::Greater,
+                    return Ordering::Greater,                
                 (HeapCellValue::Addr(Addr::Con(Constant::String(s1))),
                  HeapCellValue::Addr(Addr::Con(Constant::String(s2)))) =>
-                    return s1.cmp(&s2),
+                    return if s1.is_expandable() {
+                        if s2.is_expandable() {
+                            s1.cmp(&s2)
+                        } else {
+                            Ordering::Greater
+                        }
+                    } else {
+                        if s2.is_expandable() {
+                            Ordering::Less
+                        } else {
+                            s1.cmp(&s2)
+                        }
+                    },
                 (HeapCellValue::Addr(Addr::Con(Constant::String(_))), _) =>
                     return Ordering::Less,
                 (HeapCellValue::Addr(Addr::Con(Constant::Atom(..))),

src/prolog/machine/mod.rs

@@ -1,7 +1,7 @@
 use prolog_parser::ast::*;
 use prolog_parser::tabled_rc::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::compile::*;
 use prolog::heap_print::*;
 

src/prolog/machine/system_calls.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::machine::machine_errors::*;
 use prolog::machine::machine_state::*;
 use prolog::num::{ToPrimitive, Zero};

src/prolog/mod.rs

@@ -2,7 +2,7 @@ extern crate num;
 extern crate ordered_float;
 extern crate prolog_parser;
 
-#[macro_use] pub mod ast;
+#[macro_use] pub mod instructions;
 pub mod and_stack;
 #[macro_use] pub mod macros;
 #[macro_use] pub mod allocator;

src/prolog/or_stack.rs

@@ -1,4 +1,4 @@
-use prolog::ast::*;
+use prolog::instructions::*;
 
 use std::ops::{Index, IndexMut};
 use std::vec::Vec;

src/prolog/read.rs

@@ -1,7 +1,7 @@
 use prolog_parser::ast::*;
 use prolog_parser::parser::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::iterators::*;
 use prolog::machine::machine_state::*;
 

src/prolog/targets.rs

@@ -1,6 +1,6 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::iterators::*;
 
 pub trait CompilationTarget<'a> {

src/prolog/toplevel.rs

@@ -2,7 +2,7 @@ use prolog_parser::ast::*;
 use prolog_parser::parser::*;
 use prolog_parser::tabled_rc::*;
 
-use prolog::ast::*;
+use prolog::instructions::*;
 use prolog::iterators::*;
 use prolog::machine::*;
 use prolog::num::*;

src/tests.rs

@@ -1,7 +1,7 @@
 use prolog_parser::ast::*;
 
-use prolog::ast::*;
 use prolog::heap_print::*;
+use prolog::instructions::*;
 use prolog::compile::*;
 use prolog::machine::*;
 
@@ -1936,4 +1936,7 @@ fn test_queries_on_string_lists()
     assert_prolog_failure!(&mut wam, "?- partial_string(\"abc\", X), partial_string(\"ababc\", Y), Y = [a,b|Z],
                                          X == Z.");
 
+    assert_prolog_success!(&mut wam, "?- partial_string(\"abc\", X), X @> \"abc\".");
+    assert_prolog_failure!(&mut wam, "?- partial_string(\"abc\", X), X \\=@= \"abc\".");
+    assert_prolog_failure!(&mut wam, "?- partial_string(\"abc\", X), X @< \"abc\".");
 }