Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch tool Excluding Merge-Ins
This is equivalent to a diff from 7ee3399c6e to 64f22bd586
2018-11-17
| ||
17:00 | Pulling in tool snapshot from the tool support branch check-in: c515d11a3d user: hypnotoad tags: hypnotoad | |
16:58 | Starting a branch to develop a version of tool that is new-version-of-tcllib proof, to support IRM, with a snapshot in time embedded version of cron, oodialect, dicttool, and oometa. Closed-Leaf check-in: 64f22bd586 user: hypnotoad tags: tool | |
2018-08-28
| ||
14:12 | Pulling changes from trunk check-in: c057f36dc1 user: hypnotoad tags: hypnotoad | |
2018-07-18
| ||
15:03 | Updates to the clay module check-in: 7ee3399c6e user: hypnotoad tags: hypnotoad | |
2018-07-13
| ||
19:01 | Updating a bit in httpd's implementation that used to rely on access to a private variable. Added a binary encode around the grab of raw random data on unix to prevent Tcl from trying to interpret the string. check-in: 3ee985049d user: hypnotoad tags: hypnotoad | |
Changes to modules/cron/cron.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | - + + + | ### # This file implements a process table # Instead of having individual components try to maintain their own timers # we centrally manage how often tasks should be kicked off here. ### # # Author: Sean Woods (for T&E Solutions) package require Tcl 8.6 ;# See coroutine package require coroutine |
︙ | |||
397 398 399 400 401 402 403 | 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 | - + + + + + - + + + + + | foreach task $tasks { dict set processTable($task) lastrun $now if {[dict exists processTable($task) foreground] && [dict set processTable($task) foreground]} continue if {[dict exists processTable($task) running] && [dict set processTable($task) running]} continue if {$::cron::trace > 2} { puts [list RUNNING $task [task info $task]] } |
︙ | |||
611 612 613 614 615 616 617 | 621 622 623 624 625 626 627 628 | - | idle 0 wake 0 } } } ::cron::wake STARTUP |
Changes to modules/cron/cron.test.
︙ | |||
12 13 14 15 16 17 18 | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | - - + | devtools testutilities.tcl] package require tcltest testsNeedTcl 8.6 testsNeedTcltest 1.0 support { |
︙ | |||
210 211 212 213 214 215 216 | 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 | - + | method exit_loop {} { my variable doloop set doloop 0 if {$::cron::trace} { puts [list [self] SIGNAL TO EXIT] } } |
︙ | |||
358 359 360 361 362 363 364 | 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 | - + | set delay [expr {($::my_coro_end - $::my_coro_start)}] if {$delay < 1000 || $delay > 2000} { puts "TIME DELAY OUT OF RANGE: $delay" return 1 } else { return 0 } |
︙ |
Changes to modules/cron/pkgIndex.tcl.
1 | 1 2 | - + | if {![package vsatisfies [package provide Tcl] 8.6]} {return} |
Changes to modules/dicttool/dicttool.tcl.
︙ | |||
24 25 26 27 28 29 30 | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | - + | } foreach item [lsort -unique $args] { while {[set i [lsearch $var $item]]>=0} { set var [lreplace $var $i $i] } } return $var |
︙ | |||
57 58 59 60 61 62 63 | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | - + | } else { ::append buffer \n "[::string repeat " " $indent]\{" ::incr indent 2 foreach {sf sv} $item { _putb buffer $indent $sf $sv } ::incr indent -2 |
︙ | |||
86 87 88 89 90 91 92 | 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | - + | proc ::tcl::dict::print dict { ::set buffer {} ::foreach {field value} $dict { _putb buffer 0 $field $value } return $buffer } |
︙ | |||
125 126 127 128 129 130 131 | 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 | - + | # Element names that end in ":" are assumed to be literals set result $k $v } elseif { [dict exists $result $k] } { # key exists in a and b? let's see if both values are dicts # both are dicts, so merge the dicts if { [is_dict [get $result $k]] && [is_dict $v] } { set result $k [rmerge [get $result $k] $v] |
︙ | |||
148 149 150 151 152 153 154 | 148 149 150 151 152 153 154 155 | - + | if {![exists $dictionary {*}$args]} {return 1} return [expr {[get $dictionary {*}$args] in {{} NULL null}}] } namespace ensemble configure dict -map [dict replace\ [namespace ensemble configure dict -map] isnull ::tcl::dict::isnull] } |
Changes to modules/tool/build/build.tcl.
1 2 3 | 1 2 3 4 5 6 7 8 9 10 11 | - + | set srcdir [file dirname [file normalize [file join [pwd] [info script]]]] set moddir [file dirname $srcdir] |
︙ | |||
22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | + + + + | # Track what files we have included so far set loaded {} lappend loaded build.tcl # These files must be loaded in a particular order foreach file { dicttool.tcl dialect.tcl oometa.tcl cron.tcl core.tcl uuid.tcl ensemble.tcl metaclass.tcl option.tcl event.tcl pipeline.tcl |
︙ |
Changes to modules/tool/build/core.tcl.
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 | - + - - + | package require Tcl 8.6 ;# try in pipeline.tcl. Possibly other things. |
︙ |
Added modules/tool/build/cron.tcl.