Displaying 3 results from an estimated 3 matches for "langnotes".
Did you mean:
banknotes
2014 Oct 10
0
[PATCH 3/3] builder: use the JSON module
...- printf " \"%s\"%s" alias (trailing_comma i (List.length l))
- ) l;
- printf " ],\n" in
- let print_notes = function
- | [] -> ()
- | notes ->
- printf " \"notes\": {\n";
- iteri (
- fun i (lang, langnotes) ->
- let lang =
- match lang with
- | "" -> "C"
- | x -> x in
- printf " \"%s\": \"%s\"%s\n"
- (json_string_escape lang) (json_string_escape langnotes)
- (traili...
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
2014 Jan 30
2
[PATCH] builder: output translated notes
...| ("", notes) :: _ ->
- printf " \"notes\": \"%s\",\n" (json_string_escape notes)
- | _ :: _
- | _ -> () in
+ | [] -> ()
+ | notes ->
+ printf " \"notes\": {\n";
+ iteri (
+ fun i (lang, langnotes) ->
+ let lang =
+ match lang with
+ | "" -> "C"
+ | x -> x in
+ printf " \"%s\": \"%s\"%s\n"
+ (json_string_escape lang) (json_string_escape langnotes)
+ (traili...