Posted to tcl by Stu at Mon Sep 26 09:19:11 GMT 2022view raw

  1. # This works but not when called from any namespace
  2. namespace eval config {
  3. proc config {args} {
  4. variable conf
  5. namespace path [namespace parent]
  6. set me [namespace tail [lindex [info level 0] 0]]
  7. namespace ensemble create -prefixes no -command $me -map [dict create \
  8. open openConfig \
  9. save configSave \
  10. savelater configDelayedSave \
  11. autoload autoloadConfig \
  12. ]
  13. rename $me _$me
  14. set conf(cfgNS) [namespace current]
  15. tailcall $me {*}$args
  16. }
  17. }