Changeset 63 for Deliverables/D4.1/Byte.ml
- Timestamp:
- Sep 13, 2010, 11:04:55 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Deliverables/D4.1/Byte.ml
r62 r63 1 1 (*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*) 2 (* FILENAME: Byte.ml *) 3 (* DESCRIPTION: An ADT implementing bytes, and common operations on them. *) 4 (* CREATED: 10/09/2010, Dominic Mulligan *) 2 (* FILENAME: Byte.ml *) 3 (* DESCRIPTION: An ADT implementing standard 8 bit bytes, and common *) 4 (* operations on them. *) 5 (* CREATED: 10/09/2010, Dominic Mulligan *) 5 6 (* BUGS: *) 6 7 (*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*) … … 16 17 (* 17 18 val from_bits: bit -> bit -> bit -> bit -> bit -> bit -> bit -> bit -> byte 19 val from_bit: bit -> byte 18 20 val from_nibbles: nibble -> nibble -> byte 21 val from_nibble: nibble -> byte 19 22 val from_int: int -> byte 23 24 val to_bit: byte -> bit option 25 val to_nibble: byte -> nibble option 26 val to_int: byte -> int 20 27 21 28 val get_nibble_at: int -> byte -> nibble … … 45 52 type nibble = Nibble.nibble 46 53 type byte = nibble * nibble 54 55 let from_bits b1 b2 b3 b4 b5 b6 b7 b8 = 56 let nibble 47 57 end
Note: See TracChangeset
for help on using the changeset viewer.