module
DiskData2
=
Disk
.
Fromfile
(
struct
let
name
=
"MyDisk.img"
end
)
module
MyDisk2
=
Disk
.
Makedisk
(
DiskData2
);;
Printf
.
printf
"Blocks size : %d\n"
MyDisk2
.
block_size
;;
Printf
.
printf
"Block number : %d\n"
MyDisk2
.
block_nb
;;