package conan-database
A database of decision trees to recognize MIME type
Install
Dune Dependency
Authors
Maintainers
Sources
conan-0.0.3.tbz
sha256=6247de95f13d4e08d82970ebf15a0d307d566138a99254a7475b21867adae356
sha512=f1c783b686b883b9e28abcc551cc6e45ae6df7557d2ef56a371493566bdb57e5765c5b94bfb138871f556814f870664c1c3617122e83df8e83d0d20b032fecb3
doc/src/conan-database.light/conan_modem.ml.html
Source file conan_modem.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 126let tree = Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.numeric ~unsigned:false ~endian:`LE 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 5120)) (`Space "")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.default in Conan.Tree.Unsafe.rule ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 2L)) ty (Conan.Test.always_true) (`Space "raw G3 (Group 3) FAX")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (Conan.Tree.Unsafe.mime "image/g3fax"), Conan.Tree.Unsafe.leaf)])]); (Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.numeric ~unsigned:false ~endian:`LE 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 256)) (`Space "")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.default in Conan.Tree.Unsafe.rule ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 2L)) ty (Conan.Test.always_true) (`Space "")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (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.different_to 107364l)) (`Space "")), 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 2L)) ty (Conan.Test.numeric Conan.Integer.short (Conan.Comparison.different_to 8)) (`Space "")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.default in Conan.Tree.Unsafe.rule ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 11L)) ty (Conan.Test.always_true) (`Space "")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (let ty = Conan.Ty.default in Conan.Tree.Unsafe.rule ~offset:(Conan.Offset.Absolute (Conan.Offset.Value 27118L)) ty (Conan.Test.always_true) (`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 8L)) ty (Conan.Test.numeric Conan.Integer.int64 (Conan.Comparison.different_to 3314931918822244867L)) (`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 8L)) ty (Conan.Test.numeric Conan.Integer.int64 (Conan.Comparison.different_to 6768475576809644948L)) (`Space "raw G3 (Group 3) FAX, byte-padded")), Conan.Tree.Unsafe.node [(Conan.Tree.Unsafe.elt ?filename:(None) ?line:(None) (Conan.Tree.Unsafe.mime "image/g3fax"), Conan.Tree.Unsafe.leaf)])])])])])])])])]