package conan-database

  1. Overview
  2. Docs
A database of decision trees to recognize MIME type

Install

dune-project
 Dependency

Authors

Maintainers

Sources

conan-0.0.6.tbz
sha256=b210257b881715ffb9dcbf88678c8559ec2aef26795a5304afd5a8b4bbf11e16
sha512=5b46c70c237a6c40b1119bdc33e30fb4911d9f60e5b6bc3976604a0a4bd17635ecbb0862b9944e6022090ab0f1d01bd5e1832b465a7c2c5328e88d7cf23c2e40

doc/src/conan-database.light/conan_dataone.ml.html

Source file conan_dataone.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
let tree = Conan.Tree.Unsafe.node
             [(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
                             9L ~pattern:"DryadData" in
                  Conan.Tree.Unsafe.rule
                    ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
                    ty
                    (Conan.Test.string
                       (Conan.Comparison.lower_than "DryadData"))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                     (let ty = Conan.Ty.regex
                                 ~case_insensitive:false ~start:false
                                 ~limit:1024L `Byte in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Relative
                                 (Conan.Offset.Value 0L))
                        ty
                        (Conan.Test.regex
                           (Conan.Comparison.equal_to
                              (Re.seq
                                 [Re.set "d"; Re.set "r"; Re.set "y";
                                  Re.set "a"; Re.set "d"; Re.set "-";
                                  Re.set "b"; Re.set "i"; Re.set "b";
                                  Re.set "o"; Re.set "/"; Re.set "v";
                                  Re.set "0"; Re.set "."; Re.set "0"])))
                        (`Space "https://datadryad.org/profile/v3.1")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                         (Conan.Tree.Unsafe.mime "text/xml"),
                       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
                             14L ~pattern:"<?xml version=" in
                  Conan.Tree.Unsafe.rule
                    ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
                    ty
                    (Conan.Test.string
                       (Conan.Comparison.equal_to "<?xml version="))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(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 1024L ~pattern:"rdf" in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Relative
                                 (Conan.Offset.Value 0L))
                        ty
                        (Conan.Test.string (Conan.Comparison.equal_to "rdf"))
                        (`Space "")),
                   Conan.Tree.Unsafe.node
                     [(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 1024L
                                     ~pattern:"openarchives" in
                          Conan.Tree.Unsafe.rule
                            ~offset:(Conan.Offset.Relative
                                     (Conan.Offset.Value 0L))
                            ty
                            (Conan.Test.string
                               (Conan.Comparison.equal_to "openarchives"))
                            (`Space "https://www.openarchives.org/ore/terms")),
                       Conan.Tree.Unsafe.node
                         [(Conan.Tree.Unsafe.elt ?filename:(None)
                             ?line:(None)
                             (Conan.Tree.Unsafe.mime "application/rdf+xml"),
                           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
                             14L ~pattern:"<?xml version=" in
                  Conan.Tree.Unsafe.rule
                    ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
                    ty
                    (Conan.Test.string
                       (Conan.Comparison.equal_to "<?xml version="))
                    (`Space "")),
               Conan.Tree.Unsafe.node
                 [(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 1024L ~pattern:"isotc211" in
                      Conan.Tree.Unsafe.rule
                        ~offset:(Conan.Offset.Relative
                                 (Conan.Offset.Value 0L))
                        ty
                        (Conan.Test.string
                           (Conan.Comparison.equal_to "isotc211"))
                        (`Space "")),
                   Conan.Tree.Unsafe.node
                     [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None)
                         (let ty = Conan.Ty.regex
                                     ~case_insensitive:false ~start:false
                                     ~limit:1024L `Byte in
                          Conan.Tree.Unsafe.rule
                            ~offset:(Conan.Offset.Relative
                                     (Conan.Offset.Value 0L))
                            ty
                            (Conan.Test.regex
                               (Conan.Comparison.equal_to
                                  (Re.seq
                                     [Re.set "p"; Re.set "a"; Re.set "n";
                                      Re.set "g"; Re.set "a"; Re.set "e";
                                      Re.set "a"; Re.set "."; Re.set "d";
                                      Re.set "a"; Re.set "t"; Re.set "a";
                                      Re.set "s"; Re.set "e"; Re.set "t";
                                      Re.set "0"; Re.set "0"; Re.set "0";
                                      Re.set "0"; Re.set "0";
                                      Re.repn (Re.nest (Re.set "0")) 1 (None)])))
                            (`Space "https://www.isotc211.org/2005/gmd-pangaea")),
                       Conan.Tree.Unsafe.node
                         [(Conan.Tree.Unsafe.elt ?filename:(None)
                             ?line:(None) (Conan.Tree.Unsafe.mime "text/xml"),
                           Conan.Tree.Unsafe.leaf)])])])]
OCaml

Innovation. Community. Security.