TABLE OF CONTENTS

::pwtk::input::push

SYNOPSIS

proc ::pwtk::input::push {} {

PURPOSE

The "push" proc for the input data stack. The push/pop meschanism for the input data is similar to OpenGL's glPush()/glPop(). It works as follows: 

      ... set some default input data (#1) ...


      ::pwtk::input::push
         ... modify input data ...
         ... do some calculations with it ...
      ::pwtk::input::pop


      ... here the input data is the same as those labeled (#1) above

SOURCE

    variable stack 
    variable stackLevel

    if { ! [info exists stackLevel] } {
        set stackLevel 0
    }
    
    incr stackLevel
    lappend stack [list \
                       ::pwtk::input::namelist     [array get ::pwtk::input::namelist] \
                       ::pwtk::input::card         [array get ::pwtk::input::card] \
                       ::pwtk::input::card_flags   [array get ::pwtk::input::card_flags] \
                       ::pwtk::input::card_content [array get ::pwtk::input::card_content] \
                       ::pwtk::RUNopt              [array get ::pwtk::RUNopt] \
                       ::pwtk::QEdir               [array get ::pwtk::QEdir] \
                       ::pwtk::QEprog              [array get ::pwtk::QEprog] \
                       ::pwtk::state               [array get ::pwtk::state] \
                       ::pwtk::eos::eos            [array get ::pwtk::eos::eos] \
                      ]

    # BEWARE: do not put ::pwtk::difden::difden on stack, it breaks DIFDEN !!!
}