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 구조.