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
module Copy = struct
type t =
| SHALLOW_HIERARCHY_FLAG
| EXPAND_SOFT_LINK_FLAG
| EXPAND_EXT_LINK_FLAG
| EXPAND_REFERENCE_FLAG
| WITHOUT_ATTR_FLAG
| PRESERVE_NULL_FLAG
| ALL
end
module Type = struct
type t =
| GROUP
| DATASET
| NAMED_DATATYPE
| NTYPES
end
module Hdr_info = struct
module Space = struct
type t = {
total : int;
meta : int;
mesg : int;
free : int }
end
module Mesg = struct
type t = {
present : int;
shared : int }
end
type t = {
version : int;
nmesgs : int;
nchunks : int;
flags : int;
space : Space.t;
mesg : Mesg.t }
end
module Info = struct
module Meta_size = struct
type t = {
obj : H5_raw.Ih_info.t;
attr : H5_raw.Ih_info.t }
end
type t = {
fileno : int;
addr : H5_raw.Addr.t;
type_ : Type.t;
rc : int;
atime : H5_raw.Time.t;
mtime : H5_raw.Time.t;
ctime : H5_raw.Time.t;
btime : H5_raw.Time.t;
num_attrs : int;
hdr : Hdr_info.t;
meta_size : Meta_size.t }
end
module Msg_crt_idx = struct
type t = int
end
external open_ : Hid.t -> ?apl:Hid.t -> string -> Hid.t = "hdf5_h5o_open"
external close : Hid.t -> unit = "hdf5_h5o_close"
external copy : Hid.t -> string -> Hid.t -> ?ocpypl:Hid.t -> ?lcpl:Hid.t -> string -> unit
= "hdf5_h5o_copy_bytecode" "hdf5_h5o_copy"
external set_comment : Hid.t -> string -> unit = "hdf5_h5o_set_comment"
external get_info : Hid.t -> Info.t = "hdf5_h5o_get_info"
external get_info_by_name : Hid.t -> ?lapl:Hid.t -> string -> Info.t
= "hdf5_h5o_get_info_by_name"