Changeset 123 for Deliverables/D4.1

Timestamp:

Sep 23, 2010, 5:36:45 PM (10 years ago)

Author:

mulligan

Message:

IntelHex? file modified: string_of_intel_hex_entry implemented.

Location:

Deliverables/D4.1

Files:

• ASMInterpret.ml (modified) (1 diff)
• IntelHex.ml (modified) (1 diff)
• IntelHex.mli (modified) (1 diff)

Deliverables/D4.1/ASMInterpret.ml

@@ -3 +3 @@
 open ASM;;
 open Pretty;;
+open IntelHex;;
 
 exception Fetch_exception of string;;

Deliverables/D4.1/IntelHex.ml

@@ -16 +16 @@
 };;
 
-let intel_hex_of_instruction
+let hex_string_of_vect x = "00"
+
+let string_of_intel_hex_entry entry =
+  let record_length_l, record_length_r = entry.record_length in
+  let data_checksum_l, data_checksum_r = entry.data_checksum in
+  let length_string = hex_string_of_vect record_length_l ^ 
+                      hex_string_of_vect record_length_l in
+  let checksum_string = hex_string_of_vect data_checksum_l ^ 
+                        hex_string_of_vect data_checksum_r in
+  let type_string =
+    match entry.record_type with
+      Data -> "00"
+    | End -> "01"
+    | ExtendedSeg -> "02"
+    | ExtendedLinear -> "04" in
+  let data_string = String.concat "" (List.map hex_string_of_vect entry.data_field) in
+    ":" ^ length_string ^ type_string ^ data_string ^ checksum_string

Deliverables/D4.1/IntelHex.mli

@@ -17 +17 @@
 
 (* val intel_hex_of_instructions: instruction list -> intel_hex_entry list *)
+val string_of_intel_hex_entry: intel_hex_entry -> string