SML comparant des fichiers au niveau du bit

Question

J'essaie de comparer des fichiers d'un répertoire à l'aide de SML. Utiliser la bibliothèque TextIO est assez facile, mais je dois comparer les fichiers au niveau des bits. C'est-à-dire une comparaison binaire. J'utilise une fonction similaire à celle-ci:

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

pour lister tous les fichiers d'un répertoire donné. Mais maintenant, je dois regarder les bits dans chaque fichier. Des suggestions?

Answer 1

Consultez le BinIO structure .