TABLE OF CONTENTS

::pwtk::dos

SYNOPSIS

proc ::pwtk::dos {dos} {

PURPOSE

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

RETURN VALUE

The value of the dos.

SOURCE

    variable QEprog

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