atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove old debug detritus

Browse Source
This commit is contained in:
atagen 2024-12-03 14:18:46 +11:00
parent f824ac2ea3
commit 0267c59227
1 changed files with 1 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lib/parse.ml
View File

@ -36,39 +36,6 @@ let parse_env_order s =
parse_string ~consume:Consume.All Parsers.semi_digits s
|> unpack |> Array.of_list
let debug_print =
let print_colour =
List.fold_left
(fun _acc el ->
match el with
| Fg c -> (
match c with
| 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 ]))
| Bg c -> (
match c with
| Simple n | Intrinsic n ->
print_endline ("bg simple/intrinsic " ^ string_of_int n)
| RGB (r, g, b) ->
print_endline
("bg rgb: "
^ List.fold_left
(fun acc el -> acc ^ ", " ^ string_of_int el)
"" [ r; g; b ]))
| Reset -> print_endline "ansi reset"
| Other n -> print_endline ("other ansi: " ^ string_of_int n))
()
in
function
| Text s | Separator s | Delimiter s -> print_endline ("parsed '" ^ s ^ "'")
| Ansi a -> print_colour a
let%test "sep_parse" =
parse_string ~consume:Consume.All sep " " |> function
| Ok (Separator " ") -> true
@ -98,7 +65,7 @@ let%test "culr_parse" =
] ->
true
| Ok n ->
n |> List.fold_left (fun _acc el -> el |> debug_print) ();
n |> List.fold_left (fun _acc el -> el |> Debug.debug_print) ();
false
| _ -> false