TABLE OF CONTENTS


::pwtk::engine_

SYNOPSIS

proc ::pwtk::engine_ {} {

PURPOSE

Parses $engine and sets the $runCmd variable.

SOURCE

    uplevel 1 {
        switch -nocase -- $engine {
            pw - pw.x { set runCmd runPW }
            cp - cp.x { set runCmd runCP }
            default {
                ::pwtk::error "wrong engine \"$engine\", must be pw.x or cp.x" 1
            }
        }
    }
}