Source file conan_images_021.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
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3818)
(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 24L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.greater_than 0))
(`No_space ", number of records %d")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3821)
(let ty = Conan.Ty.numeric ~unsigned:true
Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 30L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.greater_than '\000'))
(`No_space ", projector number %d")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3820)
(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 28L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.greater_than 0))
(`No_space ", number of frames %d")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3819)
(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 26L))
ty (Conan.Test.always_true)
(`No_space ", palette number %d")),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3817)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text ~trim:false
1L ~pattern:"0" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 16L))
ty
(Conan.Test.string (Conan.Comparison.greater_than "0"))
(`No_space ", company %s")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3816)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text ~trim:false
1L ~pattern:"0" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 8L))
ty
(Conan.Test.string (Conan.Comparison.greater_than "0"))
(`No_space ", palette %s")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3815)
(let ty = Conan.Ty.numeric ~unsigned:true Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 7L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\005'))
(`Space "2D Coordinates with True Color")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3814)
(let ty = Conan.Ty.numeric ~unsigned:true Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 7L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\004'))
(`Space "3D Coordinates with True Color")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3813)
(let ty = Conan.Ty.numeric ~unsigned:true Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 7L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\002'))
(`Space "Color Palette")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3812)
(let ty = Conan.Ty.numeric ~unsigned:true Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 7L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\001'))
(`Space "2D Coordinates with Indexed Color")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 3811)
(let ty = Conan.Ty.numeric ~unsigned:true Conan.Integer.byte
(Conan.Arithmetic.Add '\000') in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 7L))
ty
(Conan.Test.numeric Conan.Integer.byte
(Conan.Comparison.equal_to '\000'))
(`Space "3D Coordinates with Indexed Color")),
Conan.Tree.Unsafe.leaf)]