TABLE OF CONTENTS

::pwtk::is_expr

SYNOPSIS

proc ::pwtk::is_expr {expression} {

PURPOSE

Return 1 if the supplied string is "expression", 0 otherwise. Beware that fortran "D" exponential syntax, i.e 1.0d0, is taken care of.

SOURCE

    if { [catch {expr [f2c_number $expression]}] } {
        return 0
    } else {
        return 1
    }
}