Up |
List the content of a 7zip archive (without extraction).
fun [P] [[S I I] r1]
Return : [[S I I] r1] a list of tuple or nil if error. For each tuple : the name of the item, its size and 0 if it is a file, 1 if it is a directory.
fun list7z (l)= if l == nil then 0 else let hd l -> [s n isdir] in ( _fooS sprintf "name = %s : size = %d : isdir ? = %d\n" [s n isdir]; list7z tl l );; fun main ()= _showconsole; list7z _7zList _checkpack "examples/packages.7z"; 0;;