Source file conan_sereal.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 32)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Binary
~trim:false 6L ~pattern:"\\=\195\179rl" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.string
(Conan.Comparison.equal_to "\\=\195\179rl"))
(`Space "Sereal data packet, UTF-8 encoded")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 34)
(Conan.Tree.Unsafe.use
~offset:(Conan.Offset.Relative
(Conan.Offset.Value 0L))
~invert:false "sereal"),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 33)
(Conan.Tree.Unsafe.mime "application/sereal"),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 29)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Binary
~trim:false 5L ~pattern:"\\=\243rl" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.string
(Conan.Comparison.equal_to "\\=\243rl"))
(`Space "Sereal data packet")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 31)
(Conan.Tree.Unsafe.use
~offset:(Conan.Offset.Relative
(Conan.Offset.Value 0L))
~invert:false "sereal"),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 30)
(Conan.Tree.Unsafe.mime "application/sereal"),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 26)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Binary
~trim:false 5L ~pattern:"\\=srl" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.string (Conan.Comparison.equal_to "\\=srl"))
(`Space "Sereal data packet")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 28)
(Conan.Tree.Unsafe.use
~offset:(Conan.Offset.Relative
(Conan.Offset.Value 0L))
~invert:false "sereal"),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 27)
(Conan.Tree.Unsafe.mime "application/sereal"),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 19)
(Conan.Tree.Unsafe.name
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
"sereal"),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 24)
(let ty = Conan.Ty.numeric ~unsigned:false
Conan.Integer.byte
(Conan.Arithmetic.Bitwise_and '\240') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 4L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.greater_than '\032'))
(`Space "unknown subformat, flag: %d>>4)")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 23)
(let ty = Conan.Ty.numeric ~unsigned:false
Conan.Integer.byte
(Conan.Arithmetic.Bitwise_and '\240') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 4L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\032'))
(`Space "compressed with incremental Snappy)")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 22)
(let ty = Conan.Ty.numeric ~unsigned:false
Conan.Integer.byte
(Conan.Arithmetic.Bitwise_and '\240') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 4L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\016'))
(`Space "compressed with non-incremental Snappy)")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 21)
(let ty = Conan.Ty.numeric ~unsigned:false
Conan.Integer.byte
(Conan.Arithmetic.Bitwise_and '\240') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 4L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\000'))
(`Space "uncompressed)")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "sereal")
?line:(Some 20)
(let ty = Conan.Ty.numeric ~unsigned:false
Conan.Integer.byte
(Conan.Arithmetic.Bitwise_and '\015') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 4L))
ty (Conan.Test.always_true) (`Space "(version %d,")),
Conan.Tree.Unsafe.leaf)])]