package bam-ppx
A PPX deriving generators for OCaml types
Install
Dune Dependency
Authors
Maintainers
Sources
bam-0.2.tbz
sha256=305cae8abab48847acfdce92c90ab956ba82dd64d5ef14387cfc3defacd2154a
sha512=aab71b47641b495e8f5ae968f11bd065def93cbee776e81a8bc9503181cdbdba7de8c1175908a209f84a4a4cdef65ab3dc5abe30a05ac75a4b5c45d679d1df85
doc/src/bam_ppx/limits.ml.html
Source file limits.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 77open Ty type t = { min: int option ; max: int option ; size_min: int option ; size_max: int option ; ranged_min: Ranged_dmap.t ; ranged_max: Ranged_dmap.t ; sized_min: int Sized_map.t ; sized_max: int Sized_map.t } let default = { min= None ; max= None ; size_min= None ; size_max= Some 10 ; ranged_min= Ranged_dmap.empty ; ranged_max= Ranged_dmap.empty ; sized_min= Sized_map.empty ; sized_max= Sized_map.empty } let int_min limits = match Ranged_dmap.find_opt Int limits.ranged_min with | None -> limits.min | Some i -> Some i let int_max limits = match Ranged_dmap.find_opt Int limits.ranged_max with | None -> limits.max | Some i -> Some i let int32_min limits = match Ranged_dmap.find_opt Int32 limits.ranged_min with | None -> limits.min |> Option.map Int32.of_int | Some i -> Some i let int32_max limits = match Ranged_dmap.find_opt Int32 limits.ranged_max with | None -> limits.max |> Option.map Int32.of_int | Some i -> Some i let int64_min limits = match Ranged_dmap.find_opt Int64 limits.ranged_min with | None -> limits.min |> Option.map Int64.of_int | Some i -> Some i let int64_max limits = match Ranged_dmap.find_opt Int64 limits.ranged_max with | None -> limits.max |> Option.map Int64.of_int | Some i -> Some i let sized_min limits sized = match Sized_map.find_opt sized limits.sized_min with | None -> limits.size_min | Some i -> Some i let sized_max limits sized = match Sized_map.find_opt sized limits.sized_max with | None -> limits.size_max | Some i -> Some i