TABLE OF CONTENTS

::pwtk::abort

SYNOPSIS

proc ::pwtk::abort {{msg {}}} {

DESCRIPTION

Like a C abort() function. Prints the message and aborts the application.

ARGUMENTS

SOURCE

    if { $msg != {} } {
        foreach line [split $msg \n] {
            incr i
            if { $i == 1 } {
                puts stderr  "ABORT: $line"
            } else {
                puts stderr  "       $line"
            }
        }
    }
    puts stderr "ABORT statement executed in [procName -2]"
    exit
}