Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch tkt-6e778502b8 Excluding Merge-Ins
This is equivalent to a diff from 1aa3aa432f to bc477e224e
|
2019-02-26
| ||
| 06:07 | Tkt [6e778502b8]. Merged fix for -- handling in `flatten`. check-in: 7963b3dbaf user: aku tags: trunk | |
| 06:06 | Import trunk fixes Closed-Leaf check-in: bc477e224e user: aku tags: tkt-6e778502b8 | |
|
2019-02-22
| ||
| 07:02 | Corrected copy and paste error in test name check-in: 1aa3aa432f user: oehhar tags: trunk | |
| 00:54 | Added Roy Keene's new package, 'lazyset' (determine a value on 1st read of a variable) check-in: 49fdc19548 user: aku tags: trunk | |
|
2019-01-05
| ||
| 19:47 | Fix ticket [6e778502b8]. Minor code fix. Argument parsing for the "flatten" command executed a "break" when the "--" argument was found. This caused the execution to break out of the enclosing while loop. That, in turn, means the argument set was not adjusted for the "--" argument itself. Looks like a simple case of confusing "break" behavior in Tcl with "break" behavior in "C". check-in: c02f41029b user: andrewm tags: tkt-6e778502b8 | |
Changes to modules/struct/list.tcl.
| ︙ | |||
643 644 645 646 647 648 649 | 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 | - + + + + |
"wrong#args: should be \"::struct::list::Lflatten ?-full? ?--? sequence\""
}
set full 0
while {[string match -* [set opt [::lindex $args 0]]]} {
switch -glob -- $opt {
-full {set full 1}
|
| ︙ | |||
1821 1822 1823 1824 1825 1826 1827 | 1824 1825 1826 1827 1828 1829 1830 1831 | - + |
## Ready
namespace eval ::struct {
# Get 'list::list' into the general structure namespace.
namespace import -force list::list
namespace export list
}
|
Changes to modules/struct/list.test.
| ︙ | |||
386 387 388 389 390 391 392 393 394 395 396 397 398 399 | 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 | + + + + |
test flatten-1.5 {flatten command} {
flatten [list "'" "\""]
} {' {"}} ; # " help emacs highlighting
test flatten-1.6 {flatten command} {
flatten [list "{" "}"]
} "\\\{ \\\}"
test flatten-1.7 {check -- argument termination} {
flatten -full -- {1 2 3 {4 5} {6 7} {{8 9}} 10}
} {1 2 3 4 5 6 7 8 9 10}
test flatten-2.1 {flatten errors} {
list [catch {flatten} msg] $msg
} {1 {wrong#args: should be "::struct::list::Lflatten ?-full? ?--? sequence"}}
test flatten-2.2 {flatten errors} {
list [catch {flatten -all {a {b c d} {e {f g}}}} msg] $msg
|
| ︙ |
Changes to modules/struct/pkgIndex.tcl.
| ︙ | |||
13 14 15 16 17 18 19 | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | - + |
package ifneeded struct::skiplist 1.3 [list source [file join $dir skiplist.tcl]]
package ifneeded struct::graph 1.2.1 [list source [file join $dir graph1.tcl]]
package ifneeded struct::tree 1.2.2 [list source [file join $dir tree1.tcl]]
package ifneeded struct::matrix 1.2.1 [list source [file join $dir matrix1.tcl]]
if {![package vsatisfies [package provide Tcl] 8.4]} {return}
|
Changes to modules/struct/struct_list.man.
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + |
[comment {-*- tcl -*- doctools manpage}]
[comment {$Id: struct_list.man,v 1.24 2010/10/05 21:47:25 andreas_kupries Exp $}]
|
| ︙ |