./src/namelist.tcl

::pwtk::input::namelistGetVarValue

::pwtk::input::namelistGetVarValue

SYNOPSIS

proc ::pwtk::input::namelistGetVarValue {name varName {trim ""}} {

PURPOSE

Get a value of a given namelist variable.

ARGUMENTS

name -- name of namelist
varName -- name of variable to query
trim -- do we get rid of " or ' (any value of trim except empty string means to trim)

EXAMPLE

set my_outdir [::pwtk::input::namelistGetVarValue CONTROL outdir]

SOURCE

    global pwtk::input::namelist

    if { ! [info exists pwtk::input::namelist($name) ] } { 
        # pertinent namelist does not even exist !
        return "" 
    }
        
    if { [info exists pwtk::input::namelist($name,var=$varName)] } {

        set value $::pwtk::input::namelist($name,var=$varName)

        # check if the variables should be math-parsed as to evaluate
        # the math-expressions

        if { $value != {} && [::pwtk::queryMathParsing $name $varName] } {
            
            # parse only if $value is math-expression

            set number       [::pwtk::f2c_number $value]
            set parsedNumber [::pwtk::evalExpr $value]
            #set parsedNumber [::pwtk::mathParser $value]
            
            if { ! [string is double $value] } {
                set value $parsedNumber
            }

            #if { ! [string is double $number] } {
            #   set value $parsedNumber
            #}
        } else {
            set value [trimValue_ $value $trim]
        }
        
        return $value
    }

    return ""
}

TABLE OF CONTENTS

::pwtk::input::namelistGetVarValue