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

Я пытаюсь сравнить файлы в каталоге с помощью 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

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


sml smlnj
person Vincent Ramdhanie    schedule 21.10.2008    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Взгляните на BinIO структуру.

person bk1e    schedule 22.10.2008