Source file conan_images_137.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
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1060)
(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 1088)
(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 1083)
(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.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1081)
(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.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1079)
(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.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1077)
(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.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1071)
(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 1072)
(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 1067)
(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 1064)
(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 1061)
(Conan.Tree.Unsafe.mime "image/x-os2-graphics"),
Conan.Tree.Unsafe.leaf)])]