anil.recoil.org
RFC6901 JSON Pointer implementation in OCaml using jsont
pp-error
+6
-2
doc/tutorial.md
+6
-2
doc/tutorial.md
···
12
# open Jsont_pointer;;
13
# #install_printer Jsont_pointer_top.printer;;
14
# #install_printer Jsont_pointer_top.json_printer;;
15
# let parse_json s =
16
match Jsont_bytesrw.decode_string Jsont.json s with
17
| Ok json -> json
···
129
130
```ocaml
131
# of_string "foo";;
132
-
Exception: Jsont.Error ([], <abstr>, <abstr>).
133
```
134
135
The RFC is strict: non-empty pointers MUST start with `/`.
···
273
274
```ocaml
275
# get_result (of_string "/nonexistent") rfc_example;;
276
-
- : (Jsont.json, Jsont.Error.t) result = Error ([], <abstr>, <abstr>)
277
# find (of_string "/nonexistent") rfc_example;;
278
- : Jsont.json option = None
279
```
···
12
# open Jsont_pointer;;
13
# #install_printer Jsont_pointer_top.printer;;
14
# #install_printer Jsont_pointer_top.json_printer;;
15
+
# #install_printer Jsont_pointer_top.error_printer;;
16
# let parse_json s =
17
match Jsont_bytesrw.decode_string Jsont.json s with
18
| Ok json -> json
···
130
131
```ocaml
132
# of_string "foo";;
133
+
Exception:
134
+
Jsont.Error Invalid JSON Pointer: must be empty or start with '/': foo.
135
```
136
137
The RFC is strict: non-empty pointers MUST start with `/`.
···
275
276
```ocaml
277
# get_result (of_string "/nonexistent") rfc_example;;
278
+
- : (Jsont.json, Jsont.Error.t) result =
279
+
Error JSON Pointer: member 'nonexistent' not found
280
+
File "-":
281
# find (of_string "/nonexistent") rfc_example;;
282
- : Jsont.json option = None
283
```