69 lines
1.6 KiB
Tcl
69 lines
1.6 KiB
Tcl
#// objective: tests correct namespace resolution, only references/referencedby relations are relevant
|
|
#// check: namespacen1.xml
|
|
#// check: namespacen2.xml
|
|
#// check: namespacen3.xml
|
|
#// config: REFERENCED_BY_RELATION = yes
|
|
#// config: REFERENCES_RELATION = yes
|
|
#// config: EXTRACT_ALL = yes
|
|
#// config: INLINE_SOURCES = yes
|
|
|
|
# now: combine namespace eval and qualified names
|
|
namespace eval n1 {
|
|
proc p1 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
p2
|
|
return
|
|
}
|
|
proc p2 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
namespace eval n1 {
|
|
proc p1 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
}
|
|
}
|
|
# same thing, but fully qualified proc names
|
|
namespace eval ::n2 {}
|
|
namespace eval ::n2::n2 {}
|
|
proc ::n2::p1 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
p2
|
|
return
|
|
}
|
|
proc ::n2::p2 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
proc ::n2::n2::p2 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
# same thing, without leading ::
|
|
namespace eval n3 {}
|
|
namespace eval n3::n3 {}
|
|
proc n3::p1 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
p2
|
|
return
|
|
}
|
|
proc n3::p2 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
proc n3::n3::p2 args {
|
|
array set info [info frame 0]; puts -nonewline ->$info(proc)
|
|
return
|
|
}
|
|
# now, check with tcl what is called
|
|
n1::p1
|
|
puts ""
|
|
n2::p1
|
|
puts ""
|
|
n3::p1
|
|
puts ""
|
|
exit
|
|
|