SML Vergleich von Dateien auf Bit-Ebene

Question

Ich bin versucht, Dateien in einem Verzeichnis vergleichen SML verwenden. die textio Bibliothek ist ziemlich einfach, aber ich brauche, um die Dateien auf Bit-Ebene zu vergleichen. Das heißt, ein binäres vergleichen. Ich verwende eine ähnliche Funktion wie folgt aus:

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

, um eine Liste aller Dateien in einem bestimmten Verzeichnis. Aber jetzt, ich muss in jeder Datei an den Bits suchen. Irgendwelche Vorschläge?

Answer 1

Werfen Sie einen Blick auf die BinIO Struktur .