/src/graph/json.ml

 1open Javascript
 2
 3class datum = object end
 4class item = object end
 5
 6module Datum =
 7struct
 8  external indicator : datum -> item = ".indicator"
 9  external country : datum -> item = ".country"
10  external value : datum -> string = ".value"
11  external date : datum -> string = ".date"
12end
13
14module Item =
15struct
16  external id : item -> string = ".id"
17  external value : item -> string = ".value"
18end
19
20external new_Object : string -> datum js_array js_array = "@eval"
21
22let unmarshall_json json = new_Object json
23
24let rec js_to_list msgs =
25  if msgs#_get_length > 0 then
26    msgs#pop :: (js_to_list msgs)
27  else []