TABLE OF CONTENTS

::pwtk::queryMathParsing

SYNOPSIS

proc ::pwtk::queryMathParsing {namelist variable} {

PURPOSE

Query if reuqested variable should be math-parsed.

ARGUMENTS

SOURCE

    variable mathparse_real_variables
    variable mathparse_int_variables
    variable mathparse_variables

    # the new mathparse_real_variables and mathparse_int_variables
    
    if { [info exists mathparse_real_variables($namelist)] } {
        foreach pattern $mathparse_real_variables($namelist) {
            if { [string match -nocase $pattern $variable] } {
                return 1
            }
        }
    }
    if { [info exists mathparse_int_variables($namelist)] } {
        foreach pattern $mathparse_int_variables($namelist) {
            if { [string match -nocase $pattern $variable] } {
                return 1
            }
        }
    }

    # the old mathparse_variables
    if { [info exists mathparse_variables($namelist)] } {
        foreach pattern $mathparse_variables($namelist) {
            if { [string match -nocase $pattern $variable] } {
                return 1
            }
        }
    }

    return 0
}