mirage-tc

AuthorThomas Gazagnaire
LicenseISC
Homepagehttps://github.com/mirage/mirage-tc
Issue Trackerhttps://github.com/mirage/mirage-tc/issues
Maintainerthomas@gazagnaire.org
Dependencies
&alcotest
bin_prot113.01.00
comparelib
cstruct
ezjsonm>= 0.3.0&0.4.0
mstruct>= 1.3.1
ocamlbuild
ounit
sexplib113.01.00
Availableocaml-version >= "4.01.0"
PublishedOct 31, 2014
Source [http] https://github.com/mirage/mirage-tc/archive/0.1.0.tar.gz
93a51194b72381af02ac698501b5a275
StatisticsNot installed in the last month.
Edithttps://github.com/ocaml/opam-repository/tree/master/packages/mirage-tc/mirage-tc.0.1.0/opam

MirageOS type-classes

A set of functors and combinators to pretty-print (using sexplib), to convert to and from and JSON and Cstruct buffers.

# Tc.show (module Tc.S) "Hello world!";;
- : string = "\"Hello world!\""
# Tc.to_json (module Tc.App2(Tc.P)(Tc.I)(Tc.S)) (3, "foo");;
- : Ezjsonm.t = `A [`String "3"; `String "foo"]

A slightly more complex example, using autogen code instead of functor composition:

# camlp4o;;
# require "sexplib.syntax";;
# require "comparelib.syntax";;
# require "bin_prot.syntax";;
# module M = struct
    type t = { foo: int; bar: string list } with sexp, bin_prot, compare
  end;;
# module X = Tc.I0(M);;
# let t = { foo = 3; bar = [ "hello"; "world" ] };;

# Tc.to_json (module X) t;;
- : Ezjsonm.t =
`A
  [`A [`String "foo"; `String "3"];
   `A [`String "bar"; `A [`String "hello"; `String "world"]]]

# Tc.write_string (module X) t;;
- : string = "\003\002\005hello\005world"
Necessary for
datakit
0.10.0