Source file conan_images_173.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
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1180)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`LE
Conan.Integer.int32 (Conan.Arithmetic.Add 0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 2L))
ty
(Conan.Test.numeric Conan.Integer.int32
(Conan.Comparison.lower_than 5003586l))
(`Space "OS/2 graphic array")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1208)
(let ty = Conan.Ty.indirect `Abs in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 14L))
ty (Conan.Test.always_true) (`Space "")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1203)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text
~trim:false 2L ~pattern:"IC" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 14L))
ty
(Conan.Test.string (Conan.Comparison.equal_to "IC"))
(`No_space "; 1st ")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1204)
(Conan.Tree.Unsafe.extension ["ico"]),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1201)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text
~trim:false 2L ~pattern:"CP" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 14L))
ty
(Conan.Test.string (Conan.Comparison.equal_to "CP"))
(`No_space "; 1st ")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1202)
(Conan.Tree.Unsafe.extension ["ico"]),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1199)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text
~trim:false 2L ~pattern:"CI" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 14L))
ty
(Conan.Test.string (Conan.Comparison.equal_to "CI"))
(`No_space "; 1st ")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1200)
(Conan.Tree.Unsafe.extension ["ico"]),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1197)
(let ty = Conan.Ty.search ~compact_whitespaces:false
~optional_blank:false
~lower_case_insensitive:false
~upper_case_insensitive:false `Text
~trim:false 2L ~pattern:"BM" in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 14L))
ty
(Conan.Test.string (Conan.Comparison.equal_to "BM"))
(`No_space "; 1st ")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1198)
(Conan.Tree.Unsafe.extension ["bmp"; "bga"]),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1191)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`LE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 10L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.greater_than 0))
(`No_space ", display %u")),
Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1192)
(let ty = Conan.Ty.numeric ~unsigned:true
~endian:`LE
Conan.Integer.short (Conan.Arithmetic.Add
0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 12L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.greater_than 0))
(`Space "x %u")),
Conan.Tree.Unsafe.leaf)]);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1187)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`LE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 6L))
ty
(Conan.Test.numeric Conan.Integer.int32
(Conan.Comparison.greater_than 0l))
(`No_space ", data offset %u")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1184)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`LE
Conan.Integer.int32 (Conan.Arithmetic.Add
0l) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute
(Conan.Offset.Value 2L))
ty (Conan.Test.always_true) (`No_space ", cbSize %u")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1181)
(Conan.Tree.Unsafe.mime "image/x-os2-graphics"),
Conan.Tree.Unsafe.leaf)])]