# Based on code at http://mini.net/cgi-bin/wikit/401.html
package require XOTcl ;# http://www.xotcl.org/
# We dynamically install this method for the "Class" meta-class. This
# means all classes will be provided with this method. One could
# also create a separate meta-class to do this and create classes from it
# instead.
@ Class instproc instFromTemplate {
procName {Name of instproc to create.}
object {Object containing template proc}
template {Name of proc to use as template.}
subList {
Key-value substitution list where the key is a regexp and the value
is a subSpec as in [regsub].
}
} {
description {
Creates an instproc from a template proc by copying the template and
replacing specified data. Extremely useful for meta-programming.
}
}
Class instproc instFromTemplate {procName object template subList} {
set body [$object info body $template]
foreach {regexp subSpec} $subList {
regsub -all -- $regexp $body $subSpec body
}
[self] instproc $procName [$object info args $template] $body
}
