pwtk.tcl

::pwtk::wfcdir_postfix

::pwtk::wfcdir_postfix

SYNOPSIS

proc ::pwtk::wfcdir_postfix {{postfix {}}} {

PURPOSE

Set (or query) the wfcdir's subdirectory.

Note that the full "wfcdir" is: $wfcdir_prefix/$wfcdir_postfix. Prior to calling this routine in set mode, the ::pwtk::wfcdir_prefix command should be called.

RETURN VALUE

if "postfix" argument was specified, then value of the resulting "wfcdir"
if "postfix" argument was not specified, then the current value of "wfcdir_postfix" or an empty string if the wfcdir_postfix is not set

SOURCE

    variable QEdir

    if { $postfix == "" } {
        return [varvalue QEdir(wfcdirPostfix)]
    }

    set QEdir(wfcdirPostfix) $postfix

    if { ! [info exists QEdir(wfcdirPrefix)] } {
        global env      
        if { [info exists env(ESPRESSO_WFCDIR)] } {
            ::pwtk::warning "do not use wfcdir_postfix if wfcdir_prefix is not defined, setting wfcdir_prefix to env(ESPRESSO_WFCDIR), which is $env(ESPRESSO_WFCDIR)"
            set QEdir(wfcdirPrefix) $env(ESPRESSO_WFCDIR)
        }
    }

    if { [varvalue QEdir(wfcdirPrefix)] == {} } {
        ::pwtk::error "wfcdir_prefix should be called prior to wfcdir_postfix" 1
    }
    return [wfcdir [file join $QEdir(wfcdirPrefix) $postfix]]
}

TABLE OF CONTENTS

::pwtk::wfcdir_postfix