SML在位级别比较文件
我正在尝试使用SML比较目录中的文件。使用TextIO库相当简单,但我需要在位级别比较文件。也就是说,二进制比较。我使用的函数与此类似:SML在位级别比较文件,sml,smlnj,Sml,Smlnj,我正在尝试使用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.
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
列出给定目录中的所有文件。但是现在,我需要查看每个文件中的位。有什么建议吗?看一下