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
77
78
open Bigarray
module Layout = struct
type t =
| COMPACT
| CONTIGUOUS
| CHUNKED
| NLAYOUTS
end
module Alloc_time = struct
type t =
| DEFAULT
| EARLY
| LATE
| INCR
end
module Space_status = struct
type t =
| NOT_ALLOCATED
| PART_ALLOCATED
| ALLOCATED
end
module Fill_time = struct
type t =
| ALLOC
| NEVER
| IFSET
end
module Fill_value = struct
type t =
| UNDEFINED
| DEFAULT
| USER_DEFAULT
end
module C_string = struct
type t
external int_as_pointer : 'a -> 'b = "%int_as_pointer"
let null = int_as_pointer 0
external to_string : t -> string = "caml_copy_string"
external free : t -> unit = "free"
end
external create : Hid.t -> string -> Hid.t -> ?lcpl:Hid.t -> ?dcpl:Hid.t -> ?apl: Hid.t
-> Hid.t -> Hid.t = "hdf5_h5d_create_bytecode" "hdf5_h5d_create"
external create_anon : Hid.t -> Hid.t -> ?dcpl:Hid.t -> ?apl: Hid.t -> Hid.t -> Hid.t
= "hdf5_h5d_create_anon"
external open_ : Hid.t -> ?dapl:Hid.t -> string -> Hid.t = "hdf5_h5d_open"
external close : Hid.t -> unit = "hdf5_h5d_close"
external get_space : Hid.t -> Hid.t = "hdf5_h5d_get_space"
external get_space_status : Hid.t -> Space_status.t = "hdf5_h5d_get_space_status"
external get_type : Hid.t -> Hid.t = "hdf5_h5d_get_type"
external get_create_plist : Hid.t -> Hid.t = "hdf5_h5d_get_create_plist"
external read_string : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> string -> unit = "hdf5_h5d_read_bytecode" "hdf5_h5d_read"
external read_float_array : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> float array -> unit = "hdf5_h5d_read_bytecode" "hdf5_h5d_read"
external read_c_string_array : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> C_string.t array -> unit = "hdf5_h5d_read_bytecode" "hdf5_h5d_read"
external read_bigarray : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> _ Genarray.t -> unit = "hdf5_h5d_read_bigarray_bytecode" "hdf5_h5d_read_bigarray"
external write_string : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> string -> unit = "hdf5_h5d_write_bytecode" "hdf5_h5d_write"
external write_float_array : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> float array -> unit = "hdf5_h5d_write_bytecode" "hdf5_h5d_write"
external write_string_array : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> string array -> unit = "hdf5_h5d_write_bytecode" "hdf5_h5d_write"
external write_bigarray : Hid.t -> Hid.t -> Hid.t -> Hid.t -> ?xfer_plist:Hid.t
-> _ Genarray.t -> unit = "hdf5_h5d_write_bigarray_bytecode" "hdf5_h5d_write_bigarray"
external extend : Hid.t -> Hsize.t array -> unit = "hdf5_h5d_set_extent"
external set_extent : Hid.t -> Hsize.t array -> unit = "hdf5_h5d_set_extent"
external vlen_reclaim_c_string_array : Hid.t -> Hid.t -> Hid.t -> C_string.t array -> unit
= "hdf5_h5d_vlen_reclaim"