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 هيكل .