Tcl Library Source Code

Differences From Artifact [0595a19368]:

• File modules/struct/pkgIndex.tcl — part of check-in [4cabcb175c] at 2018-11-22 05:22:09 on branch kbk-refactor-disjointset — Small fixes in the disjoint code (removed references to pairs, slight typos). Added references to data structure overview, and papers with time/complexity proofs. Fixed up dependent packages (now requiring 8.6 as well). Fixed package index of the module. (user: aku size: 1752) [more...]

To Artifact [ce1371d228]:

• File modules/struct/pkgIndex.tcl — part of check-in [c02f41029b] at 2019-01-05 19:47:12 on branch tkt-6e778502b8 — 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". (user: andrewm size: 1752) [more...]

13
14
15
16
17
18
19
20

21
22
23
24
25
26
27

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}
package ifneeded struct::list      1.8.3  [list source [file join $dir list.tcl]]
package ifneeded struct::list      1.8.4  [list source [file join $dir list.tcl]]
package ifneeded struct::graph     2.4.1  [list source [file join $dir graph.tcl]]

if {![package vsatisfies [package provide Tcl] 8.5]} {return}

if {![package vsatisfies [package provide Tcl] 8.6]} {return}
package ifneeded struct::disjointset 1.1 [list source [file join $dir disjointset.tcl]]
package ifneeded struct::graph::op 0.11.3 [list source [file join $dir graphops.tcl]]