SML comparant les fichiers au niveau du bit

Question

Je tente de comparer des fichiers dans un répertoire en utilisant SML. L'utilisation de la bibliothèque TextIO est assez simple mais j'ai besoin de comparer les fichiers au niveau du bit. Autrement dit, une comparaison binaire. J'utilise une fonction similaire à ceci:

fun listDir (s) = let 
    fun loop (ds) = (case OS.FileSys.readDir (ds) 
     of "" => [] before OS.FileSys.closeDir (ds) 
     | file => file::loop (ds)) 
     val ds = OS.FileSys.openDir (s) 
     in 
     loop (ds) handle e => (OS.FileSys.closeDir (ds); raise (e)) 
     end 

à la liste tous les fichiers dans un répertoire donné. Mais maintenant, j'ai besoin de regarder les bits dans chaque fichier. Aucune suggestion?

Answer 1

Jetez un oeil à la BinIO structure.