type
file_descr
=
{
inode
:
inode
;
mutable
block
:
int
;
mutable
pos
:
int
;
flag
:
open_flag
};;
let
desc_offset
desc
=
desc
.
pos
+
desc
.
block
*
D
.
block_size
;;