Source file h5tb.ml

open Bigarray

module Field_info = struct
  type t = {
    field_names   : string array;
    field_sizes   : int array;
    field_offsets : int array;
    type_size     : int;
  }
end

module Data = struct
  type t

  let of_genarray (a : _ Genarray.t) = Obj.field (Obj.repr a) 1 |> Obj.obj
  let of_array1   (a : _ Array1.t)   = Obj.field (Obj.repr a) 1 |> Obj.obj
  let of_array2   (a : _ Array2.t)   = Obj.field (Obj.repr a) 1 |> Obj.obj
  let of_array3   (a : _ Array3.t)   = Obj.field (Obj.repr a) 1 |> Obj.obj
end

external make_table : string -> Hid.t -> string -> nrecords:int -> type_size:int
  -> field_names:string array -> field_offset:int array -> field_types:Hid.t array
  -> chunk_size:int -> ?fill_data:Data.t -> compress:bool -> Data.t -> unit
  = "hdf5_h5tb_make_table_bytecode" "hdf5_h5tb_make_table"
external append_records : Hid.t -> string -> nrecords:int -> type_size:int
  -> field_offset:int array -> field_sizes:int array -> Data.t -> unit
  = "hdf5_h5tb_append_records_bytecode" "hdf5_h5tb_append_records"
external write_records : Hid.t -> string -> start:int -> nrecords:int -> type_size:int
  -> field_offset:int array -> field_sizes:int array -> Data.t -> unit
  = "hdf5_h5tb_write_records_bytecode" "hdf5_h5tb_write_records"
external read_table : Hid.t -> string -> dst_size:int -> dst_offset:int array
  -> dst_sizes:int array -> Data.t -> unit
  = "hdf5_h5tb_read_table_bytecode" "hdf5_h5tb_read_table"
external read_records : Hid.t -> string -> start:int -> nrecords:int -> type_size:int
  -> field_offset:int array -> dst_sizes:int array -> Data.t -> unit
  = "hdf5_h5tb_read_records_bytecode" "hdf5_h5tb_read_records"
external get_table_info : Hid.t -> string -> int = "hdf5_h5tb_get_table_info"
external get_field_info : Hid.t -> string -> Field_info.t = "hdf5_h5tb_get_field_info"