package conan-database

  1. Overview
  2. Docs
package conan-database
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file apple.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
let tree = Conan.Tree.Unsafe.node
             [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                 (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 0L))
                    ty
                    (Conan.Test.numeric Conan.Integer.short
                       (Conan.Comparison.equal_to 17746))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                     (let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
                                 Conan.Integer.short (Conan.Arithmetic.Bitwise_and
                                                      61951) in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Absolute
                                 (Conan.Offset.Value 2L))
                        ty
                        (Conan.Test.numeric Conan.Integer.short
                           (Conan.Comparison.equal_to 0))
                        (`Space "Apple Driver Map")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                         (Conan.Tree.Unsafe.mime
                            "application/x-apple-diskimage"),
                       Conan.Tree.Unsafe.leaf)])]);
              (Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                 (let ty = Conan.Ty.search ~compact_whitespaces:false
                             ~optional_blank:false
                             ~lower_case_insensitive:false
                             ~upper_case_insensitive:false `Text ~trim:false
                             1L ~pattern:"O" in
                  Conan.Tree.Unsafe.rule
                    ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 4L))
                    ty (Conan.Test.string (Conan.Comparison.equal_to "O"))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                     (let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
                                 Conan.Integer.int64 (Conan.Arithmetic.Add
                                                      0L) in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Absolute
                                 (Conan.Offset.Value 84L))
                        ty
                        (Conan.Test.numeric Conan.Integer.int64
                           (Conan.Comparison.bitwise_xor 71494644084571648L))
                        (`Space "")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                         (let ty = Conan.Ty.regex
                                     ~case_insensitive:false ~start:true
                                     ~limit:8192L `Byte in
                          Conan.Tree.Unsafe.rule
                            ~offset:(Conan.Offset.Absolute
                                     (Conan.Offset.Value 5L))
                            ty
                            (Conan.Test.regex
                               (Conan.Comparison.equal_to
                                  (Re.repn
                                     (Re.nest (Re.alt
                                                 [Re.set "\138"; Re.set "^";
                                                  Re.set "!"; Re.set "|";
                                                  Re.set ">"; Re.set "<";
                                                  Re.set "."; Re.set "="]))
                                     79 (Some 79))))
                            (`Space "AppleWorks Word Processor")),
                       Conan.Tree.Unsafe.node
                         [(Conan.Tree.Unsafe.elt ?filename:(None)
                             ?line:(None)
                             (Conan.Tree.Unsafe.mime
                                "application/x-appleworks3"),
                           Conan.Tree.Unsafe.leaf)])])])]
OCaml

Innovation. Community. Security.

GitHub Discord Twitter Peertube RSS
About
Changelog Releases Industrial Users Academic Users Why OCaml
Ecosystem
Packages Community Events OCaml Planet Jobs
Resources
Install OCaml Get Started Platform Tools Language Manual Standard Library API Books Exercises Papers OCaml Playground Logo
Policies
Carbon Footprint Governance Privacy Code of Conduct