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
module Storage_type = struct
type t =
| SYMBOL_TABLE
| COMPACT
| DENSE
end
module Info = struct
type t = {
storage_type : Storage_type.t;
nlinks : int;
max_corder : int;
mounted : bool;
}
end
module Iterate = struct
type h5g =Hid.t
type 'a t = h5g -> string -> 'a -> H5_raw.Iter.t
end
external close : Hid.t -> unit = "hdf5_h5g_close"
external create : Hid.t -> ?lcpl:Hid.t -> ?gcpl:Hid.t -> ?gapl:Hid.t -> string -> Hid.t
= "hdf5_h5g_create"
external open_ : Hid.t -> ?gapl:Hid.t -> string -> Hid.t = "hdf5_h5g_open"
external link : Hid.t -> H5l.Type.t -> current_name:string -> new_name:string -> unit
= "hdf5_h5g_link"
external unlink : Hid.t -> string -> unit = "hdf5_h5g_unlink"
external set_comment : Hid.t -> string -> string -> unit = "hdf5_h5g_set_comment"
external get_comment : Hid.t -> string -> string = "hdf5_h5g_get_comment"
external get_info : Hid.t -> Info.t = "hdf5_h5g_get_info"
external iterate : Hid.t -> string -> ?idx:int ref -> 'a Iterate.t -> 'a -> H5_raw.Iter.t
= "hdf5_h5g_iterate"