Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
baa255d019717ff2959062d5c5f01cf2 |
| User & Date: | jan.nijtmans 2019-09-11 11:35:59.495 |
Context
|
2019-09-11
| ||
| 16:02 | merge 8.6 check-in: 6043096a5d user: dgp tags: core-8-branch | |
| 11:37 | Merge 8.7 check-in: ed3d3db77d user: jan.nijtmans tags: trunk | |
| 11:35 | Merge 8.6 check-in: baa255d019 user: jan.nijtmans tags: core-8-branch | |
| 11:14 | Merge 8.5 check-in: ee7bfb8b85 user: jan.nijtmans tags: core-8-6-branch | |
|
2019-09-10
| ||
| 13:30 | Merge 8.6 check-in: ae4f6ef118 user: jan.nijtmans tags: core-8-branch | |
Changes
Changes to library/tm.tcl.
| ︙ | ︙ | |||
307 308 309 310 311 312 313 |
#
# Sideeffects
# May add paths to the list of defaults.
proc ::tcl::tm::Defaults {} {
global env tcl_platform
| | | 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
#
# Sideeffects
# May add paths to the list of defaults.
proc ::tcl::tm::Defaults {} {
global env tcl_platform
regexp {^(\d+)\.(\d+)} [package provide Tcl] - major minor
set exe [file normalize [info nameofexecutable]]
# Note that we're using [::list], not [list] because [list] means
# something other than [::list] in this namespace.
roots [::list \
[file dirname [info library]] \
[file join [file dirname [file dirname $exe]] lib] \
|
| ︙ | ︙ | |||
350 351 352 353 354 355 356 |
# Results
# No result.
#
# Sideeffects
# Calls 'path add' to paths to the list of module search paths.
proc ::tcl::tm::roots {paths} {
| | | 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 |
# Results
# No result.
#
# Sideeffects
# Calls 'path add' to paths to the list of module search paths.
proc ::tcl::tm::roots {paths} {
regexp {^(\d+)\.(\d+)} [package provide Tcl] - major minor
foreach pa $paths {
set p [file join $pa tcl$major]
for {set n $minor} {$n >= 0} {incr n -1} {
set px [file join $p ${major}.${n}]
if {![interp issafe]} {set px [file normalize $px]}
path add $px
}
|
| ︙ | ︙ |
Changes to tests/tm.test.
| ︙ | ︙ | |||
196 197 198 199 200 201 202 |
::tcl::tm::path list
} -result {geode snarf foo}
proc genpaths {base} {
# Normalizing picks up drive letters on windows [Bug 1053568]
set base [file normalize $base]
| | | 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 |
::tcl::tm::path list
} -result {geode snarf foo}
proc genpaths {base} {
# Normalizing picks up drive letters on windows [Bug 1053568]
set base [file normalize $base]
regexp {^(\d+)\.(\d+)} [package provide Tcl] - major minor
set results {}
set base [file join $base tcl$major]
lappend results [file join $base site-tcl]
for {set i 0} {$i <= $minor} {incr i} {
lappend results [file join $base ${major}.$i]
}
return $results
|
| ︙ | ︙ |