TABLE OF CONTENTS

::pwtk::pp

SYNOPSIS

proc ::pwtk::pp {pp} {

PURPOSE

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

RETURN VALUE

The value of the pp.

SOURCE

    variable QEprog

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