Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed a typo in practcl. Tweak to ensure inside of the practcl::module class that the make_object dict exists |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
64bde17a6da4a9367d1a584ef57374e8 |
| User & Date: | hypnotoad 2018-10-28 06:50:48.265 |
Context
|
2018-12-05
| ||
| 15:31 | Updating Practcl from tcllib check-in: 8171d2845f user: hypnotoad tags: practcl | |
|
2018-10-28
| ||
| 06:50 | Fixed a typo in practcl. Tweak to ensure inside of the practcl::module class that the make_object dict exists check-in: 64bde17a6d user: hypnotoad tags: practcl | |
|
2018-10-25
| ||
| 17:53 | Updated practcl check-in: 4519879c71 user: hypnotoad tags: practcl | |
Changes
Changes to practcl.tcl.
| ︙ | ︙ | |||
6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 |
# END: class product.tcl
###
###
# START: class module.tcl
###
::clay::define ::practcl::module {
superclass ::practcl::object ::practcl::product.dynamic
method _MorphPatterns {} {
return {{@name@} {::practcl::module.@name@} ::practcl::module}
}
method add args {
my variable links
set object [::practcl::object new [self] {*}$args]
foreach linktype [$object linktype] {
lappend links($linktype) $object
}
return $object
}
| > < > > > | 6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 6166 6167 6168 6169 6170 6171 6172 6173 6174 6175 6176 6177 6178 6179 |
# END: class product.tcl
###
###
# START: class module.tcl
###
::clay::define ::practcl::module {
superclass ::practcl::object ::practcl::product.dynamic
Dict make_object {}
method _MorphPatterns {} {
return {{@name@} {::practcl::module.@name@} ::practcl::module}
}
method add args {
my variable links
set object [::practcl::object new [self] {*}$args]
foreach linktype [$object linktype] {
lappend links($linktype) $object
}
return $object
}
method install-headers args {}
Ensemble make::_preamble {} {
my variable make_object
if {![info exists make_object]} {
set make_object {}
}
}
Ensemble make::pkginfo {} {
###
# Build local variables needed for install
###
package require platform
set result {}
|
| ︙ | ︙ | |||
6276 6277 6278 6279 6280 6281 6282 |
foreach {name obj} $make_object {
if {[$obj do]} {
lappend result $name
}
}
return $result
}
| | | 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 |
foreach {name obj} $make_object {
if {[$obj do]} {
lappend result $name
}
}
return $result
}
Ensemble make::do {} {
global CWD SRCDIR project SANDBOX
foreach {name obj} $make_object {
if {[$obj do]} {
eval [$obj define get action]
}
}
}
|
| ︙ | ︙ |