(Tcl) Untar a .tar.gz (.tgz) Compressed Archive
Untar a .tar.gz (.tgz) GZIP compressed archive.
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# Untar a .tar archive.
set tar [new_CkTar]
# Untar into c:/temp/untarDir. The directory tree(s) contained
# within the TAR archive will be re-created rooted at this
# directory.
CkTar_put_UntarFromDir $tar "/Users/chilkat/temp/untarDir"
# If any filepaths within the Tar archive are absolute,
# automatically make them relative by removing the first
# forward or backward slash. This protects from untarring
# files to unexpected locations.
CkTar_put_NoAbsolutePaths $tar 1
set success [CkTar_UntarGz $tar "/Users/chilkat/testData/tar/abc123.tar.gz"]
if {$success != 1} then {
puts [CkTar_lastErrorText $tar]
} else {
puts "Success"
}
delete_CkTar $tar
|