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 Acc = struct
type t =
| RDONLY
| RDWR
| TRUNC
| EXCL
| DEBUG
| CREAT
| DEFAULT
end
module Obj = struct
type t =
| FILE
| DATASET
| GROUP
| DATATYPE
| ATTR
| ALL
| LOCAL
end
module Scope = struct
type t =
| LOCAL
| GLOBAL
end
module Close_degree = struct
type t =
| DEFAULT
| WEAK
| SEMI
| STRONG
end
module Info = struct
module Sohm = struct
type t = {
hdr_size : Hsize.t;
msgs_info : H5_raw.Ih_info.t
}
end
type t = {
super_ext_size : Hsize.t;
sohm : Sohm.t;
}
end
module Mem = struct
type t =
| DEFAULT
| SUPER
| BTREE
| DRAW
| GHEAP
| LHEAP
| OHDR
| NTYPES
end
module Libver = struct
type t =
| EARLIEST
| LATEST
end
external create : string -> ?fcpl:Hid.t -> ?fapl:Hid.t -> Acc.t list -> Hid.t
= "hdf5_h5f_create"
external open_ : string -> ?fapl:Hid.t -> Acc.t list -> Hid.t = "hdf5_h5f_open"
external close : Hid.t -> unit = "hdf5_h5f_close"
external flush : Hid.t -> Scope.t -> unit = "hdf5_h5f_flush"
external get_name : Hid.t -> string = "hdf5_h5f_get_name"
external get_obj_count : Hid.t -> Obj.t list -> int = "hdf5_h5f_get_obj_count"
external get_obj_ids : Hid.t -> Obj.t list -> Hid.t array = "hdf5_h5f_get_obj_ids"