xref: /Universal-ctags/Units/parser-tcl.r/namespace.d/input.tcl (revision 23da13bd8401b94f0632bcabcb77e667aa45a1cb) 
1namespace eval A::B {
2}
3
4namespace eval A {
5    proc pr1 {s} {
6	puts $s
7    }
8    pr1 "a"
9    proc B::pr2 {s} {
10	puts "$s"
11    }
12    namespace eval C {
13	proc pr3 {s} {
14	    puts $s
15	}
16    }
17    proc ::pr4 {s} {
18	puts "$s"
19    }
20
21}
22
23proc ::pr5 {s} {
24    puts "$s"
25}
26
27proc pr6 {s} {
28    puts "$s"
29}
30
31A::pr1 "b"
32
33A::B::pr2 "c"
34
35A::C::pr3 "d"
36
37pr4 "e"
38
39pr5 "f"
40
41pr6 "g"
42