From 937445f90d1f8dbd5d90fe22b99069f4cd53dd70 Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Wed, 22 Oct 2014 22:47:37 +0100
Subject: Update printing for testing, fix some bugs found along the way

---
 src/lem_interp/interp_lib.lem         |  3 +++
 src/lem_interp/printing_functions.ml  | 35 +++++++++++++++++++++++++++++++++--
 src/lem_interp/printing_functions.mli |  2 ++
 3 files changed, 38 insertions(+), 2 deletions(-)

(limited to 'src/lem_interp')

diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem
index 9f807ee4..804a50bd 100644
--- a/src/lem_interp/interp_lib.lem
+++ b/src/lem_interp/interp_lib.lem
@@ -282,6 +282,9 @@ let function_map = [
   ("minus", arith_op (-));
   ("minus_vec", arith_op_vec (-) 1);
   ("minus_vec_range", arith_op_vec_range (-) 1);
+  ("minus_range_vec", arith_op_range_vec (-) 1);
+  ("minus_vec_range_range", arith_op_vec_range_range (-));
+  ("minus_range_vec_range", arith_op_range_vec_range (-));
   ("multiply", arith_op ( * ));
   ("multiply_vec", arith_op_vec ( * ) 2);
   ("mult_range_vec", arith_op_range_vec ( * ) 2);
diff --git a/src/lem_interp/printing_functions.ml b/src/lem_interp/printing_functions.ml
index 80089f85..1e3ed6da 100644
--- a/src/lem_interp/printing_functions.ml
+++ b/src/lem_interp/printing_functions.ml
@@ -51,11 +51,42 @@ let val_to_string v = match v with
     (string_of_int l) ^ " bits -- 0b" ^ collapse_leading (String.concat "" (List.map (function | true -> "1" | _ -> "0") bools))
   | Bytevector words ->
     let l = List.length words in
-    (string_of_int l) ^ " bytes --" ^
+    (string_of_int l) ^ " bytes -- 0x" ^
       (String.concat ""
-	 (List.map (fun i -> (Printf.sprintf "0x%x " i)) words))
+	 (List.map (fun i -> let s = (Printf.sprintf "%x" i) in if (String.length s = 1) then "0"^s else s) words))
   | Unknown0 -> "Unknown"
 
+let half_byte_to_hex v = 
+  match v with
+    | [false;false;false;false] -> "0"
+    | [false;false;false;true ] -> "1"
+    | [false;false;true ;false] -> "2"
+    | [false;false;true ;true ] -> "3"
+    | [false;true ;false;false] -> "4"
+    | [false;true ;false;true ] -> "5"
+    | [false;true ;true ;false] -> "6"
+    | [false;true ;true ;true ] -> "7"
+    | [true ;false;false;false] -> "8"
+    | [true ;false;false;true ] -> "9"
+    | [true ;false;true ;false] -> "a"
+    | [true ;false;true ;true ] -> "b"
+    | [true ;true ;false;false] -> "c"
+    | [true ;true ;false;true ] -> "d"
+    | [true ;true ;true ;false] -> "e"
+    | [true ;true ;true ;true ] -> "f"
+
+let rec bit_to_hex v = 
+  match v with
+    | [] -> ""
+    | a::b::c::d::vs -> half_byte_to_hex [a;b;c;d] ^ bit_to_hex vs
+    | _ -> "bitstring given not divisible by 4"
+
+let val_to_hex_string v = match v with
+  | Bitvector(bools, _, _) -> "0x" ^ bit_to_hex bools
+  | Bytevector words -> val_to_string v
+  | Unknown0 -> "Error: cannot turn Unknown into hex"
+;;
+
 let reg_name_to_string = function
   | Reg0 s -> s
   | Reg_slice(s,(first,second)) -> 
diff --git a/src/lem_interp/printing_functions.mli b/src/lem_interp/printing_functions.mli
index da9347ef..fab5f8ce 100644
--- a/src/lem_interp/printing_functions.mli
+++ b/src/lem_interp/printing_functions.mli
@@ -9,6 +9,8 @@ val loc_to_string : l -> string
 val get_loc : tannot exp -> string
 (*interp_interface.value to string*)
 val val_to_string : value0 -> string
+(*Force all representations to hex strings instead of a mixture of hex and binary strings*)
+val val_to_hex_string : value0 -> string
 (* format one register *)
 val reg_name_to_string : reg_name -> string
 (* format the register dependencies *)
-- 
cgit v1.2.3