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

containers-top printers

Browse source
This commit is contained in:
Simon Cruanes 2016-07-11 23:15:48 +02:00
parent 6a75577c83
commit d1237f1f29
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.ocamlinit
View file

@ -30,6 +30,5 @@
#load "containers_top.cma";; #load "containers_top.cma";;
#thread;; #thread;;
#load "containers_thread.cma";; #load "containers_thread.cma";;
#install_printer CCSexp.print;;
(* vim:syntax=ocaml: (* vim:syntax=ocaml:
*) *)

6
src/top/containers_top.ml
View file

@ -15,13 +15,15 @@ let install_printer s =
() ()
let install_printers = List.iter install_printer let install_printers = List.iter install_printer
let pp_vector pp_x out (v: _ CCVector.vector) = CCVector.print pp_x out v let pp_rw_vector pp_x out (v: _ CCVector.vector) = CCVector.print pp_x out v
let pp_ro_vector pp_x out (v: _ CCVector.ro_vector) = CCVector.print pp_x out v
let pp_klist (ppx:Format.formatter -> 'a -> unit) out l = CCKList.print ppx out l let pp_klist (ppx:Format.formatter -> 'a -> unit) out l = CCKList.print ppx out l
let () = let () =
install_printers install_printers
[ "CCHashtbl.print" [ "CCHashtbl.print"
; "Containers_top.pp_vector" ; "Containers_top.pp_rw_vector"
; "Containers_top.pp_ro_vector"
; "CCBV.print" ; "CCBV.print"
; "CCDeque.print" ; "CCDeque.print"
; "CCFQueue.print" ; "CCFQueue.print"