Есть Tcl 8.6, со встроенным TclOO.
Задача такова, есть команда в Tcl, например
proc generate-class {n} {
oo::class create my-cool-class-$n {
# Тело класса зависит от n
# Для простоты это будет обычный puts
puts $n
}
}
Можно сделать так
proc generate-class {n} {
oo::class create my-cool-class-$n "
# Теперь нам нужно еще и экранирование
puts $n
"
}
Есть ли более элегантный способ решения задачи? upvar ругается
upvar won't create namespace variable that refers to procedure variable
Ответ на вопрос не сильно критичен, исходную задачу я переформулировал без необходимости упарываться тяжелыми веществами.
