sml - ビットレベルでファイルを比較する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構造を見てみましょう。