SML comparando archivos a nivel de bit

Question

Estoy intentando comparar archivos en un directorio usando SML. Usar la biblioteca de TextIO es bastante fácil, pero necesito comparar los archivos a nivel de bits. Es decir, una comparación binaria. Estoy usando una función similar a esta:

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

para enumerar todos los archivos en un directorio dado. Pero ahora, necesito mirar los bits en cada archivo. ¿Alguna sugerencia?

Answer 1

Eche un vistazo a la BinIO estructura .