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。