Posted to tcl by dgp at Thu Jun 25 16:21:30 GMT 2015view raw
- $ cat del.tcl
- namespace eval one {
- proc a {} {puts A}
- namespace export a
- namespace ensemble create
- }
- namespace eval two {
- proc b {} {puts B}
- namespace export b
- proc Unknown {e s args} {
- return [list ::one $s]
- }
- namespace ensemble create -unknown [namespace which Unknown]
- }
- two a
- two b
- two c
- $ tclsh del.tcl
- A
- B
- unknown or ambiguous subcommand "c": must be a
- while executing
- "two c"
- (file "del.tcl" line 18)