package conan-database

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

Source file conan_cafebabe.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
let tree = Conan.Tree.Unsafe.node
             [(Conan.Tree.Unsafe.elt ~strength:70 ?filename:(Some "cafebabe")
                 ?line:(Some 87)
                 (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 0L))
                    ty
                    (Conan.Test.numeric Conan.Integer.int32
                       (Conan.Comparison.equal_to (-889275714l)))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ~strength:0
                     ?filename:(Some "cafebabe") ?line:(Some 92)
                     (let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
                                 Conan.Integer.int32 (Conan.Arithmetic.Add
                                                      0l) in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Absolute
                                 (Conan.Offset.Value 4L))
                        ty
                        (Conan.Test.numeric Conan.Integer.int32
                           (Conan.Comparison.greater_than 1l))
                        (`Space "")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ~strength:0
                         ?filename:(Some "cafebabe") ?line:(Some 93)
                         (let ty = Conan.Ty.numeric ~unsigned:true
                                     ~endian:`BE
                                     Conan.Integer.int32 (Conan.Arithmetic.Add
                                                          0l) in
                          Conan.Tree.Unsafe.rule
                            ~offset:(Conan.Offset.Absolute
                                     (Conan.Offset.Value 4L))
                            ty
                            (Conan.Test.numeric Conan.Integer.int32
                               (Conan.Comparison.lower_than 20l))
                            (`Space "Mach-O universal binary with %d architectures:")),
                       Conan.Tree.Unsafe.node
                         [(Conan.Tree.Unsafe.elt ~strength:0
                             ?filename:(Some "cafebabe") ?line:(Some 94)
                             (Conan.Tree.Unsafe.mime
                                "application/x-mach-binary"),
                           Conan.Tree.Unsafe.leaf)])]);
                  (Conan.Tree.Unsafe.elt ~strength:0
                     ?filename:(Some "cafebabe") ?line:(Some 88)
                     (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 4L))
                        ty
                        (Conan.Test.numeric Conan.Integer.int32
                           (Conan.Comparison.equal_to 1l))
                        (`Space "Mach-O universal binary with 1 architecture:")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ~strength:0
                         ?filename:(Some "cafebabe") ?line:(Some 89)
                         (Conan.Tree.Unsafe.mime "application/x-mach-binary"),
                       Conan.Tree.Unsafe.leaf)])]);
              (Conan.Tree.Unsafe.elt ~strength:70 ?filename:(Some "cafebabe")
                 ?line:(Some 64)
                 (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 0L))
                    ty
                    (Conan.Test.numeric Conan.Integer.int32
                       (Conan.Comparison.equal_to (-889270259l)))
                    (`Space "JAR compressed with pack200,")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ~strength:0
                     ?filename:(Some "cafebabe") ?line:(Some 66)
                     (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 4L))
                        ty (Conan.Test.always_true) (`No_space "%d")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ~strength:0
                         ?filename:(Some "cafebabe") ?line:(Some 67)
                         (Conan.Tree.Unsafe.mime "application/x-java-pack200"),
                       Conan.Tree.Unsafe.leaf)])]);
              (Conan.Tree.Unsafe.elt ~strength:70 ?filename:(Some "cafebabe")
                 ?line:(Some 58)
                 (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 0L))
                    ty
                    (Conan.Test.numeric Conan.Integer.int32
                       (Conan.Comparison.equal_to (-889270259l)))
                    (`Space "JAR compressed with pack200,")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ~strength:0
                     ?filename:(Some "cafebabe") ?line:(Some 60)
                     (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 4L))
                        ty (Conan.Test.always_true) (`No_space "%d")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ~strength:0
                         ?filename:(Some "cafebabe") ?line:(Some 61)
                         (Conan.Tree.Unsafe.mime "application/x-java-pack200"),
                       Conan.Tree.Unsafe.leaf)])]);
              (Conan.Tree.Unsafe.elt ~strength:70 ?filename:(Some "cafebabe")
                 ?line:(Some 20)
                 (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 0L))
                    ty
                    (Conan.Test.numeric Conan.Integer.int32
                       (Conan.Comparison.equal_to (-889275714l)))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ~strength:0
                     ?filename:(Some "cafebabe") ?line:(Some 21)
                     (let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
                                 Conan.Integer.int32 (Conan.Arithmetic.Add
                                                      0l) in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Absolute
                                 (Conan.Offset.Value 4L))
                        ty
                        (Conan.Test.numeric Conan.Integer.int32
                           (Conan.Comparison.greater_than 30l))
                        (`Space "compiled Java class data,")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ~strength:0
                         ?filename:(Some "cafebabe") ?line:(Some 22)
                         (Conan.Tree.Unsafe.mime "application/x-java-applet"),
                       Conan.Tree.Unsafe.node [])])])]