Last change
on this file since 44 was
44,
checked in by mulligan, 10 years ago
|
Added pretty printing functions for bits, bytes, words etc.
|
File size:
561 bytes
|
Line | |
---|
1 | let pretty_bit = |
---|
2 | function true -> "1" |
---|
3 | | false -> "0" |
---|
4 | |
---|
5 | let pretty_nibble = |
---|
6 | function (b1,b2,b3,b4) -> |
---|
7 | pretty_bit b1 ^ pretty_bit b2 ^ pretty_bit b3 ^ pretty_bit b4 |
---|
8 | |
---|
9 | let pretty_byte = |
---|
10 | function (n1, n2) -> pretty_nibble n1 ^ " " ^ pretty_nibble n2 |
---|
11 | |
---|
12 | let pretty_byte7 = |
---|
13 | function (b1,b2,b3,n) -> "byte7: " ^ pretty_byte ((false,b1,b2,b3), n) |
---|
14 | |
---|
15 | let pretty_word = |
---|
16 | function (b1,b2) -> pretty_byte b1 ^ " " ^ pretty_byte b2 |
---|
17 | |
---|
18 | let pretty_word11 = |
---|
19 | function (b1,b2,b3,b) -> |
---|
20 | "word11: " ^ pretty_word (((false,false,false,false),(false,b1,b2,b3)),b) |
---|
Note: See
TracBrowser
for help on using the repository browser.