Source file h5p.ml

module Cls_id = struct
  type t =
  | OBJECT_CREATE
  | FILE_CREATE
  | FILE_ACCESS
  | DATASET_CREATE
  | DATASET_ACCESS
  | DATASET_XFER
  | FILE_MOUNT
  | GROUP_CREATE
  | GROUP_ACCESS
  | DATATYPE_CREATE
  | DATATYPE_ACCESS
  | STRING_CREATE
  | ATTRIBUTE_CREATE
  | OBJECT_COPY
  | LINK_CREATE
  | LINK_ACCESS
end

module Alloc = struct
  type 'a t = int -> 'a
end

module Free = struct
  type 'a t = 'a -> unit
end

external create : Cls_id.t -> Hid.t = "hdf5_h5p_create"
external close : Hid.t -> unit = "hdf5_h5p_close"
external set_userblock : Hid.t -> int -> unit = "hdf5_h5p_set_userblock"
external set_fapl_core : Hid.t -> int -> bool -> unit = "hdf5_h5p_set_fapl_core"
external set_fapl_split : Hid.t -> ?meta_plist:Hid.t -> string -> ?raw_plist:Hid.t
  -> string -> unit = "hdf5_h5p_set_fapl_split"
external set_fapl_sec2 : Hid.t -> unit = "hdf5_h5p_set_fapl_sec2"
external set_fapl_stdio : Hid.t -> unit = "hdf5_h5p_set_fapl_stdio"
external set_meta_block_size : Hid.t -> int -> unit = "hdf5_h5p_set_meta_block_size"
external set_create_intermediate_group : Hid.t -> bool -> unit
  = "hdf5_h5p_set_create_intermediate_group"
external get_create_intermediate_group : Hid.t -> bool
  = "hdf5_h5p_get_create_intermediate_group"
external get_layout : Hid.t -> Layout.t = "hdf5_h5p_get_layout"
external set_chunk : Hid.t -> Hsize.t array -> unit = "hdf5_h5p_set_chunk"
external get_chunk : Hid.t -> Hsize.t array = "hdf5_h5p_get_chunk"
external set_deflate : Hid.t -> int -> unit = "hdf5_h5p_set_deflate"
external set_filter : Hid.t -> H5z.Filter.t -> H5z.Flag.t list -> int array -> unit
  = "hdf5_h5p_set_filter"
external set_fletcher32 : Hid.t -> unit = "hdf5_h5p_set_fletcher32"
external set_nbit : Hid.t -> unit = "hdf5_h5p_set_nbit"
external set_shuffle : Hid.t -> unit = "hdf5_h5p_set_shuffle"
external set_vlen_mem_manager : Hid.t -> 'a Alloc.t -> 'a Free.t -> unit
  = "hdf5_h5p_set_vlen_mem_manager"
external get_vlen_mem_manager : Hid.t -> ('a Alloc.t * 'a Free.t)
  = "hdf5_h5p_get_vlen_mem_manager"
external set_copy_object : Hid.t -> H5o.Copy.t list -> unit = "hdf5_h5p_set_copy_object"