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;;