simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(ser_value): print

Browse source
This commit is contained in:
Simon Cruanes 2022-09-19 22:23:45 -04:00
parent 9a2249292f
commit adcb6233a3
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/util/ser_value.ml
View file

@ -1,3 +1,5 @@
module Fmt = CCFormat
type t = type t =
| Bool of bool | Bool of bool
| Str of string | Str of string
@ -13,3 +15,15 @@ let bytes x : t = Bytes x
let list x : t = List x let list x : t = List x
let dict x : t = Dict x let dict x : t = Dict x
let dict_of_list l = dict (Util.Str_map.of_list l) let dict_of_list l = dict (Util.Str_map.of_list l)
let rec pp out (self : t) =
match self with
| Bool b -> Fmt.bool out b
| Int i -> Fmt.int out i
| Str s -> Fmt.Dump.string out s
| Bytes s -> Fmt.fprintf out "(bytes %S)" s
| List l -> Fmt.Dump.list pp out l
| Dict m ->
Fmt.fprintf out "{@[%a@]}"
(Util.pp_iter ~sep:", " Fmt.Dump.(pair string pp))
(Util.Str_map.to_iter m)

2
src/util/ser_value.mli
View file

@ -21,3 +21,5 @@ val bytes : string -> t
val list : t list -> t val list : t list -> t
val dict : t Util.Str_map.t -> t val dict : t Util.Str_map.t -> t
val dict_of_list : (string * t) list -> t val dict_of_list : (string * t) list -> t
include Sidekick_sigs.PRINT with type t := t