diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-04-22 00:11:40 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-04-22 00:11:47 +0100 |
commit | 46d76082ae7039832f597f73720f701a866261a4 (patch) | |
tree | 7585a0dba411028345a64ee76a292eeec2849338 /src | |
parent | d4b07f44d83a73311096cd1b0bf99fe4227713b2 (diff) | |
download | vericert-46d76082ae7039832f597f73720f701a866261a4.tar.gz vericert-46d76082ae7039832f597f73720f701a866261a4.zip |
Improve printing of results
Diffstat (limited to 'src')
-rw-r--r-- | src/verilog/PrintVerilog.ml | 16 | ||||
-rw-r--r-- | src/verilog/PrintVerilog.mli | 4 |
2 files changed, 13 insertions, 7 deletions
diff --git a/src/verilog/PrintVerilog.ml b/src/verilog/PrintVerilog.ml index 17c0b16..29c4f5a 100644 --- a/src/verilog/PrintVerilog.ml +++ b/src/verilog/PrintVerilog.ml @@ -174,9 +174,13 @@ let pprint_module i n m = let print_program pp v = pstr pp (pprint_module 0 "main" v) -let rec print_result = - function - | [] -> () - | (r, v) :: ls -> - printf "%s -> %s\n" (register r) (literal v); - print_result ls +let print_result pp lst = + let rec print_result_in pp = function + | [] -> fprintf pp "]\n" + | (r, v) :: ls -> + fprintf pp "%s -> %s; " (register r) (literal v); + print_result_in pp ls in + fprintf pp "[ "; + print_result_in pp lst + +let print_value pp v = fprintf pp "%s" (literal v) diff --git a/src/verilog/PrintVerilog.mli b/src/verilog/PrintVerilog.mli index b4d2937..c9fca8e 100644 --- a/src/verilog/PrintVerilog.mli +++ b/src/verilog/PrintVerilog.mli @@ -16,6 +16,8 @@ * along with this program. If not, see <https://www.gnu.org/licenses/>. *) +val print_value : out_channel -> Value.value -> unit + val print_program : out_channel -> Verilog.coq_module -> unit -val print_result : (BinNums.positive * Value.value) list -> unit +val print_result : out_channel -> (BinNums.positive * Value.value) list -> unit |