TABLE OF CONTENTS

::pwtk::cp

SYNOPSIS

proc ::pwtk::cp {cp} {

PURPOSE

Explicitly set the full pathname/filename for cp.x executable (i.e. /full/path/to/cp.x).

RETURN VALUE

The value of the cp.

SOURCE

    variable QEprog

    if { ! [file executable $cp] } {
        ::pwtk::error "specified cp.x program \"$cp\" is not executable."
    }
    return [set QEprog(CP) $cp]   
}