(Tcl) Create .taz, .tar.Z TAR Archive

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using Unix "Z" compression. The typical file extensions used are .tar.Z and .taz.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set tar [new_CkTar]

# The TAR component will produce a  GNU tar 1.13.x format
# archive by default.
# It is also possible to create PAX -- POSIX 1003.1-2001 format
# or USTAR -- POSIX 1003.1-1988 format.
# Set the WriteFormat property to "gnu", "pax", or "ustar" to
# choose the output TAR format:
CkTar_put_WriteFormat $tar "gnu"

# Add a directory tree to be included in the output TAR archive:
set success [CkTar_AddDirRoot $tar "/Users/chilkat/temp/abc123"]
if {$success != 1} then {
    puts [CkTar_lastErrorText $tar]
    delete_CkTar $tar
    exit
}

# First write a .tar, then compress to a .Z using UnixCompress.
set success [CkTar_WriteTar $tar "/Users/chilkat/testData/tar/abc123.tar"]
if {$success != 1} then {
    puts [CkTar_lastErrorText $tar]
    delete_CkTar $tar
    exit
}

set uc [new_CkUnixCompress]

set success [CkUnixCompress_CompressFile $uc "/Users/chilkat/testData/tar/abc123.tar" "/Users/chilkat/testData/tar/abc123.tar.Z"]
if {$success != 1} then {
    puts [CkUnixCompress_lastErrorText $uc]
} else {
    puts "Success."
}


delete_CkTar $tar
delete_CkUnixCompress $uc