Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Re-introduced ZipFS workaround (as I have some older projects that need it.) Removed duplicate implementation for tool::object_create and tool::object_destroy |
|---|---|
| Timelines: | family | ancestors | descendants | both | odie |
| Files: | files | file ages | folders |
| SHA1: |
8c92016c7574baeffd0d9479ff69545f |
| User & Date: | tne 2016-07-06 14:50:17 |
Context
|
2016-07-07
| ||
| 13:19 | TOOL's pipeline system now utilizes the coro::auto facilities to provide coroutine safe version of after,vwait, etc check-in: de8f0cfec7 user: tne tags: odie | |
|
2016-07-06
| ||
| 14:50 | Re-introduced ZipFS workaround (as I have some older projects that need it.) Removed duplicate implementation for tool::object_create and tool::object_destroy check-in: 8c92016c75 user: tne tags: odie | |
|
2016-06-29
| ||
| 20:51 | Removed a VFS workaround that is no longer needed for zipfs check-in: 272f9fe736 user: tne tags: odie | |
Changes
Changes to modules/tool/index.tcl.
| ︙ | ︙ | |||
12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
# topic: 27196ce57a9fd09198a0b277aabdb0a96b432cb9
###
proc ::tool::pathload {path {order {}} {skip {}}} {
###
# On windows while running under a VFS, the system sometimes
# gets confused about the volume we are running under
###
set loaded {pkgIndex.tcl index.tcl}
foreach item $skip {
lappend loaded [file tail $skip]
}
if {[file exists [file join $path metaclass.tcl]]} {
lappend loaded metaclass.tcl
uplevel #0 [list source [file join $path metaclass.tcl]]
| > > > > > | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
# topic: 27196ce57a9fd09198a0b277aabdb0a96b432cb9
###
proc ::tool::pathload {path {order {}} {skip {}}} {
###
# On windows while running under a VFS, the system sometimes
# gets confused about the volume we are running under
###
if {$::tcl_platform(platform) eq "windows"} {
if {[string range $path 1 6] eq ":/zvfs"} {
set path [string range $path 2 end]
}
}
set loaded {pkgIndex.tcl index.tcl}
foreach item $skip {
lappend loaded [file tail $skip]
}
if {[file exists [file join $path metaclass.tcl]]} {
lappend loaded metaclass.tcl
uplevel #0 [list source [file join $path metaclass.tcl]]
|
| ︙ | ︙ |
Changes to modules/tool/metaclass.tcl.
| ︙ | ︙ | |||
243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 |
}
return $result
}
proc ::tool::object_create objname {
foreach varname {
object_info
object_subscribe
} {
variable $varname
set ${varname}($objname) {}
}
set object_info($objname) [list class [info object class $objname]]
}
proc ::tool::object_destroy objname {
::tool::event::generate $objname object_destroy [list objname $objname]
foreach varname {
object_info
object_subscribe
} {
variable $varname
unset -nocomplain ${varname}($objname)
}
}
#-------------------------------------------------------------------------
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 |
}
return $result
}
proc ::tool::object_create objname {
foreach varname {
object_info
object_signal
object_subscribe
object_coroutine
} {
variable $varname
set ${varname}($objname) {}
}
set object_info($objname) [list class [info object class $objname]]
}
proc ::tool::object_rename {object newname} {
foreach varname {
object_info
object_signal
object_subscribe
object_coroutine
} {
variable $varname
if {[info exists ${varname}($object)]} {
set ${varname}($newname) [set ${varname}($object)]
unset ${varname}($object)
}
}
variable coroutine_object
foreach {coro coro_objname} [array get coroutine_object] {
if { $object eq $coro_objname } {
set coroutine_object($coro) $newname
}
}
rename $object ::[string trimleft $newname]
::tool::event::generate $object object_rename [list newname $newname]
}
proc ::tool::object_destroy objname {
::tool::event::generate $objname object_destroy [list objname $objname]
::tool::event::cancel $objname *
variable coroutine_object
foreach {coro coro_objname} [array get coroutine_object] {
if { $objname eq $coro_objname } {
coroutine_unregister $coro
}
}
foreach varname {
object_info
object_signal
object_subscribe
object_coroutine
} {
variable $varname
unset -nocomplain ${varname}($objname)
}
}
#-------------------------------------------------------------------------
|
| ︙ | ︙ |
Changes to modules/tool/pipeline.tcl.
| ︙ | ︙ | |||
177 178 179 180 181 182 183 |
}
if {${::tool::busy} == 0} {
after cancel $panic
}
}
}
| < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 177 178 179 180 181 182 183 184 185 186 187 188 189 190 |
}
if {${::tool::busy} == 0} {
after cancel $panic
}
}
}
namespace eval ::tool {
variable trace 0
variable event_loops
if {![info exists event_loops]} {
set event_loops 0
}
if {![info exists ::tool::loops]} {
|
| ︙ | ︙ |