Artifact e775f8a4d32b19ceb42473578f33c09e46b9fc78:

• File packages/xz/lib/cmd.tcl — part of check-in [cbe7198a9f] at 2013-09-23 07:56:46 on branch trunk — lots of work on sigarchive modify checkargs to work with positional arguments various bug-fixes (user: pooryorick size: 421)

#! /bin/env tclsh

namespace eval doc {}

variable doc::compress {
	description {
		use xz cmd to perform compression
	}
	args {
		keep {
			description {
				don't delete input files
			}
			default {
				set keep 1
			}
		} input {
			description {
				list of files
			}
		}
	}
}
proc compress args {
	set xzopts [list]
	checkargs doc::compress
	set stdout 0
	if {$keep} {
		lappend xzopts -k
	}
	exec xz {*}$xzopts
}