File: _text_cstack.tcl

package info (click to toggle)
tcllib 2.0%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 83,560 kB
  • sloc: tcl: 306,798; ansic: 14,272; sh: 3,035; xml: 1,766; yacc: 1,157; pascal: 881; makefile: 124; perl: 84; f90: 84; python: 33; ruby: 13; php: 11
file content (31 lines) | stat: -rw-r--r-- 753 bytes parent folder | download | duplicates (4)
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
}