Posted to tcl by dgp at Thu Jun 25 16:21:30 GMT 2015view raw

  1.  
  2. $ cat del.tcl
  3.  
  4. namespace eval one {
  5. proc a {} {puts A}
  6. namespace export a
  7. namespace ensemble create
  8. }
  9. namespace eval two {
  10. proc b {} {puts B}
  11. namespace export b
  12. proc Unknown {e s args} {
  13. return [list ::one $s]
  14. }
  15. namespace ensemble create -unknown [namespace which Unknown]
  16. }
  17.  
  18. two a
  19. two b
  20. two c
  21.  
  22. $ tclsh del.tcl
  23. A
  24. B
  25. unknown or ambiguous subcommand "c": must be a
  26. while executing
  27. "two c"
  28. (file "del.tcl" line 18)
  29.