Bureaucrats, editor, reviewer, Administrators
13,550
edits
Changes
Jump to navigation
Jump to search
→archive:extract-binary
let $entries := archive:entries($archive)
let $contents := archive:extract-binary($archive)
return for -each-pair($entries, $contents, function($entry at , $p in $entriesreturn (content) {
file:create-dir(replace($entry, "[^/]+$", "")),
file:write-binary($entry, $contents[$p]content)})</pre>
|}
