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

RETURN VALUE

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 {}
}