pwtk.tcl

::pwtk::bin_dir

::pwtk::bin_dir

SYNOPSIS

proc ::pwtk::bin_dir {args} {

PURPOSE

Set or query the directory where the Quantum-ESPRESSO binaries are located.

USAGE

   Set mode:

     ::pwtk::bin_dir value    

   Query mode:

     ::pwtk::bin_dir

RETURN VALUE

The value of the bin_dir.

SOURCE

    variable QEdir

    if { [llength $args] == 0 } {
        if { [info exists QEdir(BIN_DIR)] } {
            return $QEdir(BIN_DIR)
        } else {
            return ""
        }
    } elseif { [llength $args] != 1 } {
        pwtk::error "wrong # arguments, must be: \"bin_dir value\",\nbut got \"bin_dir $args\"" 1
    }

    set bin_dir [lindex $args 0]

    if { ! [file isdirectory $bin_dir] } {
        ::pwtk::warning "bin_dir \"$bin_dir\" does not exist."
    }

    set QEdir(BIN_DIR) $bin_dir

    global env
    set env(PATH) $QEdir(BIN_DIR):$env(PATH)

    return $QEdir(BIN_DIR)
}

TABLE OF CONTENTS

::pwtk::bin_dir