Source file conan_images_103.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
144
145
146
147
148
149
150
151
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2273)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 7))
(`Space "bottom to top/right to left")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2272)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 6))
(`Space "bottom to top/left to right")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2271)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 5))
(`Space "top to bottom/right to left")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2270)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 4))
(`Space "top to bottom/left to right")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2269)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 3))
(`Space "right to left/bottom to top")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2268)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 2))
(`Space "left to right/bottom to top")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2267)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 1))
(`Space "right to left/top to bottom")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2266)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 0))
(`Space "left to right/top to bottom")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2263)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.greater_than 3))
(`Space "")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2265)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 772L))
ty (Conan.Test.always_true) (`No_space "%d,")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2264)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 776L))
ty (Conan.Test.always_true) (`Space "%dx")),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2260)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 768L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.lower_than 4))
(`Space "")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2262)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 776L))
ty (Conan.Test.always_true) (`No_space "%d,")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 2261)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 772L))
ty (Conan.Test.always_true) (`Space "%dx")),
Conan.Tree.Unsafe.leaf)])]