SML che confronta i file a livello di bit

Question

Sto tentando di confrontare i file in una directory usando SML. L'uso della libreria TextIO è abbastanza semplice ma devo confrontare i file a livello di bit. Cioè, un confronto binario. Sto usando una funzione simile a questa:

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

per elencare tutti i file in una determinata directory. Ma ora, devo guardare i bit in ogni file. Qualche suggerimento?

Answer 1

Dai un'occhiata al BinIO struttura .