Source file conan_images_008.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 2905)
(let ty = Conan.Ty.numeric ~unsigned:false ~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 2908)
(let ty = Conan.Ty.numeric ~unsigned:false
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 2907)
(let ty = Conan.Ty.numeric ~unsigned:false ~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 2906)
(let ty = Conan.Ty.numeric ~unsigned:false ~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 2904)
(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 2903)
(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 2902)
(let ty = Conan.Ty.numeric ~unsigned:false
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 2901)
(let ty = Conan.Ty.numeric ~unsigned:false
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 2900)
(let ty = Conan.Ty.numeric ~unsigned:false
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 2899)
(let ty = Conan.Ty.numeric ~unsigned:false
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 2898)
(let ty = Conan.Ty.numeric ~unsigned:false
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)]