SML сравнение файлов на уровне бит

Question

Я пытаюсь сравнить файлы в каталоге с помощью SML. Использование библиотеки TextIO довольно просто, но мне нужно сравнить файлы на уровне бит. То есть, двоичное сравнение. Я пользуюсь функцией, подобной этой:

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 

для отображения всех файлов в данном каталоге. Но теперь мне нужно посмотреть бит в каждом файле. Какие-либо предложения?

Answer 1

Посмотрите на BinIO structure.