TABLE OF CONTENTS

::pwtk::input::pop

SYNOPSIS

proc ::pwtk::input::pop {} {

PURPOSE

The "pop" proc for the input data stack.

SEE ALSO

For more explanation see ::pwtk::input::push

SOURCE

    variable stack 
    variable stackLevel

    if { ! [info exists stackLevel] || $stackLevel < 1 } {
        pwtk::error "can't pop an empty stack"
    }

    incr stackLevel -1

    set data [lindex $stack end]
    ::tclu::lpop stack 

    foreach {arr arrData} $data {
        upvar #0 $arr arrVar
        if { [info exists arrVar] } { 
            unset arrVar 
        }
        if { $arrData != "" } { 
            array set arrVar $arrData
        }
    }
}