Displaying 2 results from an estimated 2 matches for "json_notes".
2014 Oct 10
0
[PATCH 3/3] builder: use the JSON module
...:: item in
+ let item = ("size", JSON.Int64 size) :: item in
+ let item =
+ match compressed_size with
+ | None -> item
+ | Some n -> ("compressed-size", JSON.String (Int64.to_string n)) :: item in
+ let item =
+ let json_notes =
+ List.fold_right (
+ fun (lang, langnotes) acc ->
+ let lang =
+ match lang with
+ | "" -> "C"
+ | x -> x in
+ (lang, JSON.String langnotes) :: acc
+ )...
2014 Oct 10
4
[PATCH 1/3] Move JSON to mllib
Move the simple OCaml JSON writer to mllib, so that can be enhanced and
used also outside v2v.
---
mllib/JSON.ml | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
mllib/JSON.mli | 26 ++++++++++++++++++++++++++
mllib/Makefile.am | 5 ++++-
po/POTFILES-ml | 2 +-
v2v/JSON.ml | 53 -----------------------------------------------------
v2v/JSON.mli | 26