package conan-database

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file conan_images_084.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 1659)
                 (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 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 1658)
                 (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 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 1657)
                 (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 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 1656)
                 (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 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 1655)
                 (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 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 1654)
                 (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 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 1653)
                 (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 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 1652)
                 (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 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 1649)
                 (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 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 1651)
                     (let ty = Conan.Ty.numeric ~unsigned:false ~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 1650)
                     (let ty = Conan.Ty.numeric ~unsigned:false ~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 1646)
                 (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 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 1648)
                     (let ty = Conan.Ty.numeric ~unsigned:false ~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 1647)
                     (let ty = Conan.Ty.numeric ~unsigned:false ~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)])]
OCaml

Innovation. Community. Security.