1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
# -*- tcl -*-
#
# Copyright (c) 2019 Andreas Kupries <andreas_kupries@sourceforge.net>
# Freely redistributable.
#
# _text_cstack.tcl -- Stack of contexts and accessors
global contexts ; set contexts {}
################################################################
# Management of the stack
proc ContextReset {} { global contexts ; set contexts {} ; return }
proc ContextPush {} {
global contexts
lappend contexts [set id [CAttrCurrent]]
#puts_stderr "Push:[llength $contexts]>> [CAttrName $id]"
return
}
proc ContextPop {} {
global contexts
set id [lindex $contexts end]
set contexts [lrange $contexts 0 end-1]
#puts_stderr "<<Pop:[llength $contexts] [CAttrName $id]"
ContextSet $id
return
}
|