template::enclosing_tag (private)

 template::enclosing_tag tag

Defined in packages/acs-templating/tcl/parse-procs.tcl

Reach back into the tag stack for the last enclosing instance of a tag. Typically used where the usage of a tag depends on its context, such as the "group" tag within a "multiple" tag.

Parameters:

tag - the type (e.g. multiple) of the enclosing tag to look for.

Returns:

the tag identifier for the enclosing tag

Author:

Lee Denison <lee@runtime-collective.com>

Created:

2002-01-30

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set name ""

    variable tag_stack

    set last [expr {[llength $tag_stack] - 2}]

    for { set i $last } { $i >= 0 } { incr i -1 } {

        set pair [lindex $tag_stack $i]

        if {[lindex $pair 0] eq $tag} {
            set name [lindex $pair 1]
            break
        }
    }

    return $name

XQL Not present:

Generic, PostgreSQL, Oracle