haxala1r/olisp
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

Improved the debug print function to pretty-print lists.

Browse Source
This commit is contained in:
Emin Arslan
2025-11-11 23:23:16 +03:00
parent 53d0af4dae
commit 32b735d89f
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/ast.ml
View File

@@ -60,14 +60,21 @@ let reduce init f =
| _ -> invalid_arg "cannot reduce over non-list!" | _ -> invalid_arg "cannot reduce over non-list!"
in aux init in aux init
let rec dbg_print_one v = let rec dbg_print_list =
let pf = Printf.sprintf in
function
| LCons (v, LNil) -> pf "%s" (dbg_print_one v)
| LCons (v, rest) -> (pf "%s " (dbg_print_one v)) ^ (dbg_print_list rest)
| v -> pf ". %s" (dbg_print_one v)
and dbg_print_one v =
let pf = Printf.sprintf in let pf = Printf.sprintf in
match v with match v with
| LInt x -> pf "<int: %d>" x | LInt x -> pf "<int: %d>" x
| LSymbol s -> pf "<symbol: '%s'>" s | LSymbol s -> pf "<symbol: '%s'>" s
| LString s -> pf "<string: '%s'>" s | LString s -> pf "<string: '%s'>" s
| LNil -> pf "()" | LNil -> pf "()"
| LCons (a, b) -> pf "(%s . %s)" (dbg_print_one a) (dbg_print_one b) | LCons _ -> pf "<list: (%s)>" (dbg_print_list v)
| LDouble d -> pf "<double: %f>" d | LDouble d -> pf "<double: %f>" d
| LBuiltinSpecial (name, _) | LBuiltinSpecial (name, _)
| LBuiltinFunction (name, _) -> pf "<builtin: %s>" name | LBuiltinFunction (name, _) -> pf "<builtin: %s>" name