From 781b2adde6109bf6a0bd3c099699ef4e204c45d0 Mon Sep 17 00:00:00 2001 From: atagen Date: Tue, 3 Dec 2024 14:04:52 +1100 Subject: [PATCH] create debug module --- lib/debug.ml | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 lib/debug.ml diff --git a/lib/debug.ml b/lib/debug.ml new file mode 100644 index 0000000..e6dc6e5 --- /dev/null +++ b/lib/debug.ml @@ -0,0 +1,23 @@ +open Types + +let print_colour = function + | Simple n | Intrinsic n -> + print_endline ("fg simple/intrinsic " ^ string_of_int n) + | RGB (r, g, b) -> + print_endline + ("fg rgb: " + ^ List.fold_left + (fun acc el -> acc ^ ", " ^ string_of_int el) + "" [ r; g; b ]) + +let print_ansi = + List.fold_left (fun _acc el -> + match el with + | Fg c -> print_colour c + | Bg c -> print_colour c + | Reset -> print_endline "ansi reset" + | Other n -> print_endline ("other ansi: " ^ string_of_int n)) + +let debug_print = function + | Text s | Separator s | Delimiter s -> print_endline ("parsed '" ^ s ^ "'") + | Ansi a -> print_ansi () a