TABLE OF CONTENTS
::pwtk::wfcdir_backup
SYNOPSIS
proc ::pwtk::wfcdir_backup {{postfix bck}} {
USAGE
::pwtk::wfcdir_backup ?POSTFIX?
PURPOSE
Make a backup copy of the 'wfcdir' if 'wfcdir' is defined and not equal "." and it differs from 'outdir'.
ARGUMENT
- POSTFIX -- (optional, default = bck) how the backup copy will be name, i.e., $wfcdir.POSTFIX
RETURN VALUE
- the pathname of the created wfcdir backup copy
SOURCE
set outdir [outdir_query -hard]; # if outdir is undefined, we get "." set wfcdir [wfcdir_query -hard]; # if wfcdir is undefined, we get "." if { $wfcdir ne $outdir && $wfcdir ne "." } { return [xxxdir_backup_ wfcdir $postfix] } return {} }