TABLE OF CONTENTS

::pwtk::is_int

SYNOPSIS

proc ::pwtk::is_int {expression} {

PURPOSE

Return 1 if the supplied $expression is of int type, 0 otherwise.

SOURCE

    if { [catch {set result [expr $expression]}] } {
        return 0
    } else {
        return [string is integer -strict $result]
    }
}