Module `Tjr_fs_shared__.Bin_prot_marshalling`

Basic bin-prot marshalling, as values via first-order modules

Example:

let int_mshlr : int bp_mshlr = Bin_prot.Std.(
  let module X = struct
    type t = int[@@deriving bin_io]
    let max_sz = 9
  end
  in
  (module X))

type ba_buf = Tjr_fs_shared.Buf_ops.ba_buf

val ba_buf_ops : Bigstring.t Tjr_fs_shared.Buf_ops.buf_ops

module type BP_MSHLR = sig ... end: $(ABBREV("BP is Bin_prot"))

type 'a bp_mshlr = (module BP_MSHLR with type t = 'a)

module type BA_MSHLR = sig ... end: $(ABBREV("BA is Bigarray"))

type 'a ba_mshlr = (module BA_MSHLR with type t = 'a)

val ba_mshlr : mshlr:'t bp_mshlr -> buf_sz:int -> 't ba_mshlr

module $Open__68_1426 = Tjr_fs_shared.Str_256

val bp_mshlrs : < ba_mshlr : a. mshlr:'a bp_mshlr -> buf_sz:int -> 'a ba_mshlr; int_mshlr : int bp_mshlr; r_mshlr : Tjr_fs_shared.Shared_ctxt.r bp_mshlr; s256_mshlr : Tjr_fs_shared.Str_256.str_256 bp_mshlr; >