Native CBOR codec with type-safe combinators
ocaml-cbor: rename Cbor_rw module references to Binary in binary.mli
+26
-18
+24
-16
lib/binary.mli
+24
-16
lib/binary.mli
···
25
25
- Major type 6: Tagged data item
26
26
- Major type 7: Simple values and floating-point numbers
27
27
28
-
{2 Encoding Example}
28
+
{2 Encode/Decode Example}
29
29
30
30
{[
31
+
open Cbor
32
+
31
33
let encode_person name age =
32
34
let buf = Buffer.create 64 in
33
35
let writer = Bytesrw.Bytes.Writer.of_buffer buf in
34
-
let enc = Cbor_rw.encoder writer in
35
-
Cbor_rw.write_map_start enc 2;
36
-
Cbor_rw.write_text enc "name";
37
-
Cbor_rw.write_text enc name;
38
-
Cbor_rw.write_text enc "age";
39
-
Cbor_rw.write_int enc age;
40
-
Cbor_rw.flush_encoder enc;
36
+
let enc = Binary.encoder writer in
37
+
Binary.write_map_start enc 2;
38
+
Binary.write_text enc "name";
39
+
Binary.write_text enc name;
40
+
Binary.write_text enc "age";
41
+
Binary.write_int enc age;
42
+
Binary.flush_encoder enc;
41
43
Buffer.contents buf
42
-
]}
43
44
44
-
{2 Decoding Example}
45
+
let decode_person bytes =
46
+
let reader = Bytesrw.Bytes.Reader.of_string bytes in
47
+
let dec = Binary.decoder reader in
48
+
let _len = Binary.read_map_start dec in
49
+
let _k1 = Binary.read_text dec in
50
+
let v1 = Binary.read_text dec in
51
+
let _k2 = Binary.read_text dec in
52
+
let v2 = Binary.read_int dec in
53
+
(v1, v2)
45
54
46
-
{[
47
-
let decode_person bytes =
48
-
let reader = Bytesrw.Bytes.Reader.of_string bytes in
49
-
let dec = Cbor_rw.decoder reader in
50
-
let len = Cbor_rw.read_map_start dec in
51
-
(* ... read key-value pairs ... *)
55
+
let () =
56
+
let bytes = encode_person "Alice" 30 in
57
+
let name, age = decode_person bytes in
58
+
assert (name = "Alice");
59
+
assert (age = 30L)
52
60
]} *)
53
61
54
62
(** {1 CBOR Major Types}