add provisions for arithmetic support.

src/prolog/macros.rs

@@ -22,6 +22,12 @@ macro_rules! query {
     )
 }
 
+macro_rules! string {
+    ($str:expr) => {
+        vec![HeapCellValue::Con(Constant::String(String::from($str)))]
+    }
+}
+
 macro_rules! functor {
     ($name:expr, $len:expr, [$($args:expr),*]) => {{
         if $len > 0 {
@@ -81,6 +87,12 @@ macro_rules! put_var {
     )
 }
 
+macro_rules! put_constant {
+    ($lvl:expr, $cons:expr, $r:expr) => (
+        QueryInstruction::PutConstant($lvl, $cons, $r)
+    )
+}
+
 macro_rules! put_value {
     ($r:expr, $arg:expr) => (
         QueryInstruction::PutValue($r, $arg)
@@ -197,6 +209,12 @@ macro_rules! unify {
     )
 }
 
+macro_rules! unify_call {
+    () => (
+        Line::Control(ControlInstruction::UnifyCall)
+    )
+}
+
 macro_rules! unwind_stack {
     () => (
         Line::BuiltIn(BuiltInInstruction::UnwindStack)