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。