···

       
11
       
 
       
  dune

     

       
12
       
 
       
  eio

     

       
13
       
 
       
  requests

     

       
14
       
-
       
  jsonm

     

       
15
       
 
       
  uri

     

       
16
       
 
       
  base64

     

       
17
       
 
       
  (alcotest :with-test)

     
···

       
26
       
 
       
  dune

     

       
27
       
 
       
  zulip

     

       
28
       
 
       
  eio

     

       
0
       
 
       

     

       
29
       
 
       
  (alcotest :with-test)))

     

       
30
       
 
       


     

       
31
       
 
       
(package

     

···

       
11
       
 
       
  dune

     

       
12
       
 
       
  eio

     

       
13
       
 
       
  requests

     

       
14
       
+
       
  ezjsonm

     

       
15
       
 
       
  uri

     

       
16
       
 
       
  base64

     

       
17
       
 
       
  (alcotest :with-test)

     
···

       
26
       
 
       
  dune

     

       
27
       
 
       
  zulip

     

       
28
       
 
       
  eio

     

       
29
       
+
       
  ezjsonm

     

       
30
       
 
       
  (alcotest :with-test)))

     

       
31
       
 
       


     

       
32
       
 
       
(package

     

···

       
85
       
 
       
    Buffer.contents buf

     

       
86
       
 
       
  in

     

       
87
       
 
       


     

       
88
       
-
       
  (* Parse JSON response *)

     

       
89
       
-
       
  let decoder = Jsonm.decoder (`String body_str) in

     

       
90
       
-
       
  let rec parse_json decoder =

     

       
91
       
-
       
    match Jsonm.decode decoder with

     

       
92
       
-
       
    | `Lexeme l ->

     

       
93
       
-
       
        (match l with

     

       
94
       
-
       
         | `Oe -> `O []

     

       
95
       
-
       
         | `Os -> parse_object decoder []

     

       
96
       
-
       
         | `As -> parse_array decoder []

     

       
97
       
-
       
         | `Ae -> `A []

     

       
98
       
-
       
         | `Float f -> `Float f

     

       
99
       
-
       
         | `String s -> `String s

     

       
100
       
-
       
         | `Bool b -> `Bool b

     

       
101
       
-
       
         | `Null -> `Null

     

       
102
       
-
       
         | `Name _ -> parse_json decoder)

     

       
103
       
-
       
    | `Error e -> failwith ("JSON parse error: " ^ (Format.asprintf "%a" Jsonm.pp_error e))

     

       
104
       
-
       
    | `Await | `End -> `Null

     

       
105
       
-
       
  and parse_object decoder acc =

     

       
106
       
-
       
    match Jsonm.decode decoder with

     

       
107
       
-
       
    | `Lexeme (`Name key) ->

     

       
108
       
-
       
        let value = parse_json decoder in

     

       
109
       
-
       
        parse_object decoder ((key, value) :: acc)

     

       
110
       
-
       
    | `Lexeme `Oe -> `O (List.rev acc)

     

       
111
       
-
       
    | _ -> `O (List.rev acc)

     

       
112
       
-
       
  and parse_array decoder acc =

     

       
113
       
-
       
    match Jsonm.decode decoder with

     

       
114
       
-
       
    | `Lexeme `Ae -> `A (List.rev acc)

     

       
115
       
-
       
    | `Lexeme l ->

     

       
116
       
-
       
        (match l with

     

       
117
       
-
       
         | `Name _ -> parse_array decoder acc

     

       
118
       
-
       
         | _ ->

     

       
119
       
-
       
             let reparse l =

     

       
120
       
-
       
               match l with

     

       
121
       
-
       
               | `Float f -> `Float f

     

       
122
       
-
       
               | `String s -> `String s

     

       
123
       
-
       
               | `Bool b -> `Bool b

     

       
124
       
-
       
               | `Null -> `Null

     

       
125
       
-
       
               | `Os -> parse_object decoder []

     

       
126
       
-
       
               | `As -> parse_array decoder []

     

       
127
       
-
       
               | _ -> `Null

     

       
128
       
-
       
             in

     

       
129
       
-
       
             let value = reparse l in

     

       
130
       
-
       
             parse_array decoder (value :: acc))

     

       
131
       
-
       
    | _ -> `A (List.rev acc)

     

       
132
       
 
       
  in

     

       
133
       
-
       


     

       
134
       
-
       
  let json = parse_json decoder in

     

       
135
       
 
       


     

       
136
       
 
       
  (* Check for Zulip error response *)

     

       
137
       
 
       
  match json with

     

···

       
85
       
 
       
    Buffer.contents buf

     

       
86
       
 
       
  in

     

       
87
       
 
       


     

       
88
       
+
       
  (* Parse JSON response using Ezjsonm *)

     

       
89
       
+
       
  let json =

     

       
90
       
+
       
    try

     

       
91
       
+
       
      Ezjsonm.from_string body_str

     

       
92
       
+
       
    with Ezjsonm.Parse_error (_, msg) ->

     

       
93
       
+
       
      Log.err (fun m -> m "JSON parse error: %s" msg);

     

       
94
       
+
       
      failwith ("JSON parse error: " ^ msg)

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
95
       
 
       
  in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
96
       
 
       


     

       
97
       
 
       
  (* Check for Zulip error response *)

     

       
98
       
 
       
  match json with

     

···

       
1
       
 
       
(library

     

       
2
       
 
       
 (public_name zulip)

     

       
3
       
 
       
 (name zulip)

     

       
4
       
-
       
 (libraries eio requests jsonm uri base64 logs))
     

···

       
1
       
 
       
(library

     

       
2
       
 
       
 (public_name zulip)

     

       
3
       
 
       
 (name zulip)

     

       
4
       
+
       
 (libraries eio requests ezjsonm uri base64 logs))
     

···

       
47
       
 
       
  in

     

       
48
       
 
       
  let json_obj = `O [("storage", `O storage_obj)] in

     

       
49
       
 
       


     

       
50
       
-
       
  (* Convert to JSON string using Jsonm *)

     

       
51
       
-
       
  let encoder = Jsonm.encoder (`Buffer (Buffer.create 256)) in

     

       
52
       
-
       
  let rec encode_json encoder json =

     

       
53
       
-
       
    match json with

     

       
54
       
-
       
    | `O fields ->

     

       
55
       
-
       
        ignore (Jsonm.encode encoder (`Lexeme `Os));

     

       
56
       
-
       
        List.iter (fun (name, value) ->

     

       
57
       
-
       
          ignore (Jsonm.encode encoder (`Lexeme (`Name name)));

     

       
58
       
-
       
          encode_json encoder value

     

       
59
       
-
       
        ) fields;

     

       
60
       
-
       
        ignore (Jsonm.encode encoder (`Lexeme `Oe))

     

       
61
       
-
       
    | `A items ->

     

       
62
       
-
       
        ignore (Jsonm.encode encoder (`Lexeme `As));

     

       
63
       
-
       
        List.iter (encode_json encoder) items;

     

       
64
       
-
       
        ignore (Jsonm.encode encoder (`Lexeme `Ae))

     

       
65
       
-
       
    | `String s -> ignore (Jsonm.encode encoder (`Lexeme (`String s)))

     

       
66
       
-
       
    | `Float f -> ignore (Jsonm.encode encoder (`Lexeme (`Float f)))

     

       
67
       
-
       
    | `Bool b -> ignore (Jsonm.encode encoder (`Lexeme (`Bool b)))

     

       
68
       
-
       
    | `Null -> ignore (Jsonm.encode encoder (`Lexeme `Null))

     

       
69
       
-
       
  in

     

       
70
       
-
       
  encode_json encoder json_obj;

     

       
71
       
-
       
  ignore (Jsonm.encode encoder `End);

     

       
72
       
-
       


     

       
73
       
-
       
  let json_str = match Jsonm.encoder_dst encoder with

     

       
74
       
-
       
    | `Buffer buf -> Buffer.contents buf

     

       
75
       
-
       
    | _ -> "{}"

     

       
76
       
-
       
  in

     

       
77
       
 
       


     

       
78
       
 
       
  (* Return as form-encoded body: storage=<url-encoded-json> *)

     

       
79
       
 
       
  "storage=" ^ Uri.pct_encode json_str

     

···

       
47
       
 
       
  in

     

       
48
       
 
       
  let json_obj = `O [("storage", `O storage_obj)] in

     

       
49
       
 
       


     

       
50
       
+
       
  (* Convert to JSON string using Ezjsonm *)

     

       
51
       
+
       
  let json_str = Ezjsonm.to_string json_obj in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
52
       
 
       


     

       
53
       
 
       
  (* Return as form-encoded body: storage=<url-encoded-json> *)

     

       
54
       
 
       
  "storage=" ^ Uri.pct_encode json_str

     

···

       
2
       
 
       
 (public_name zulip_bot)

     

       
3
       
 
       
 (name zulip_bot)

     

       
4
       
 
       
 (wrapped true)

     

       
5
       
-
       
 (libraries zulip unix eio logs mirage-crypto-rng fmt)

     

       
6
       
 
       
 (flags (:standard -warn-error -3)))
     

···

       
2
       
 
       
 (public_name zulip_bot)

     

       
3
       
 
       
 (name zulip_bot)

     

       
4
       
 
       
 (wrapped true)

     

       
5
       
+
       
 (libraries zulip unix eio ezjsonm logs mirage-crypto-rng fmt)

     

       
6
       
 
       
 (flags (:standard -warn-error -3)))