module D = Disk.Opendisk(struct let name = "Simplefs.dbg" end) module U = Simplefs.Mount (D) open U let () = (** Mettre ici tous les tests que vous voulez **) (* Par exemple... *) Printf.printf "Opening file /... %!"; let desc = openfile "/" [ O_RDWR; O_CREAT; ] 0 in Printf.printf "Done\n"; let s = "bla bla" in for i = 0 to 2 do Printf.printf "Wrote %d octets!\n%!" (write desc s 0 (String.length s)) done; Printf.printf "Closing... %!"; close desc; Printf.printf "Done\n%!"; Printf.printf "Printing disk... %!"; (* il faut flusher les caches avant d'imprimer le disque *) sync(); D.print();; Printf.printf "Done\n%!"; Printf.printf "Umounting...%!"; umount(); Printf.printf "Done\n"; ()