auxil.tcl

::pwtk::error

::pwtk::error

SYNOPSIS

proc ::pwtk::error {msg {exit_status 0}} {

DESCRIPTION

Print the error message and raise an error if exit_status >= 0.

ARGUMENTS

msg -- error message to print to stderr
exit_status -- if exit_status > 0, PWTK either exists or raises an error in interactive-mode or in catch-status

SOURCE

    global debug
    variable catch_error

    stderr_msg_ ERROR $msg
    
    if { $exit_status } {
        if { ([info exists debug] && $debug) || $::tcl_interactive || $catch_error } {
            ::error ""
        } else {
            puts stderr "Aborting ..."
            exit $exit_status
        }
    }
}

TABLE OF CONTENTS

::pwtk::error