Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [e5f3dfc055c]: Tcllib 2.0 installer fails with default Tcl build |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | trunk | main |
| Files: | files | file ages | folders |
| SHA3-256: |
20d3697afb33cc902c587030a5762b7c |
| User & Date: | culler 2025-06-10 01:34:09.505 |
Context
|
2025-06-10
| ||
| 01:34 | Fix [e5f3dfc055c]: Tcllib 2.0 installer fails with default Tcl build Leaf check-in: 20d3697afb user: culler tags: trunk, main | |
| 00:59 | Oops. string match does not accept regular expressions. Closed-Leaf check-in: f3ae895f6d user: culler tags: bug-e5f3dfc055c | |
|
2025-02-09
| ||
| 15:47 | Fixed a typo in permutations proc. check-in: 61f5d52a95 user: arjenmarkus tags: trunk, main | |
Changes
Changes to installer.tcl.
| ︙ | ︙ | |||
290 291 292 293 294 295 296 297 |
# tclkit. Detect this and derive the location from the
# location of the executable itself for that case.
if {[string match [info nameofexecutable]* [info library]]} {
# Starkit
set libdir [file join [file dirname [file dirname [info nameofexecutable]]] lib]
} else {
# Unwrapped.
| > > > | < > | > > | | > | 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 |
# tclkit. Detect this and derive the location from the
# location of the executable itself for that case.
if {[string match [info nameofexecutable]* [info library]]} {
# Starkit
set libdir [file join [file dirname [file dirname [info nameofexecutable]]] lib]
} else {
puts "$::auto_path"
# Unwrapped.
foreach path $::auto_path {
puts $path
if {[string match "*zipfs:*" $path]} {
continue
}
set libdir $path
break
}
}
puts "libdir is $libdir"
set basedir [file dirname $libdir]
set bindir [file join $basedir bin]
if {[string compare $tcl_platform(platform) windows] == 0} {
set mandir {}
set htmldir [file join $basedir ${package_name}_doc]
} else {
|
| ︙ | ︙ |