TABLE OF CONTENTS

::pwtk::wfcdir

SYNOPSIS

proc ::pwtk::wfcdir {{wfcdir ""}} {

PURPOSE

Set (or query) the pw.x's wfcdir directory

NOTES

Developer's note: the proc sets the value of the QEdir(ESPRESSO_WFCDIR) variable if $wfcdir != {}.

RETURN VALUE

The value of the wfcdir.

SOURCE

    variable QEdir
    
    if { $wfcdir == "" } {
        return  [wfcdir_query]
    }
    
    set QEdir(ESPRESSO_WFCDIR) $wfcdir
    return $QEdir(ESPRESSO_WFCDIR)
}