SML comparar arquivos no nível de bit

Question

Eu estou tentando comparar arquivos em um diretório usando SML. Usando a biblioteca textio é bastante fácil, mas eu preciso para comparar os arquivos no nível de bit. Ou seja, uma comparação binária. Eu estou usando uma função semelhante a este:

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 lista de todos os arquivos em um determinado diretório. Mas agora, eu preciso olhar para os bits em cada arquivo. Alguma sugestão?

Answer 1

Dê uma olhada na BinIO estrutura .