Lines Matching refs:program
140 variable program {} ; # list (string)
240 # Note: We are saving the current program and restore it
243 set saved $program
244 set program $alist
246 while {[llength $program]} {
249 set program $saved
255 while {[llength $program] && [struct::set contains $accept [$self peek]]} {
263 while {[llength $program] && ![struct::set contains $reject [$self peek]]} {
271 if {[llength $program] && [struct::set contains $accept [$self peek]]} {
279 if {[llength $program] && ![struct::set contains $reject [$self peek]]} {
290 set c [lindex $program 0]
293 set program [lrange $program 1 end]
302 if {[llength $program] <= $n} {
307 set cargs [lrange $program 1 $n]
311 # the program. This is done before the dispatch so that the
314 set program [lrange $program $n end]
332 set w [lindex $program 0]
333 set program [lrange $program 1 end]
339 return [lindex $program 0]
342 # Retrieve the whole current program
344 return $program
349 set program $args
353 set program $alist
359 set program [linsert $program $at {*}$args]
363 set program [linsert $program $at {*}$alist]
369 set program [linsert $program 0 {*}$args]
373 set program [linsert $program 0 {*}$alist]
379 set program [linsert $program end {*}$args]
383 set program [linsert $program end {*}$alist]