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
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"