(* crée un système de fichiers sur un disque *) let mkfs () = super_block.inode_number <- 1; super_block.free_blocks.head <- 0; super_block.free_blocks.nb_free <- (D.block_size/4) - 1; for i = D.block_nb - 1 downto 2 do free_block i done; write_super_block (); let inode = { reference_number = 1; stats = { st_dev =0; st_ino = 1; st_kind = S_REG; st_nlink = 1; st_size = 0 }; blocktbl = Array.create ((D.block_size - blocktbl_offset)/4) 0 } in write_inode inode; root_inode := inode;; |