Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL 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 |
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
314
315
316
317
318
319
320
321
...
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
#
# Sideeffects
# May add paths to the list of defaults.
proc ::tcl::tm::Defaults {} {
global env tcl_platform
lassign [split [info tclversion] .] 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] \
................................................................................
# 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 present 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
}
|
|
|
|
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
...
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
#
# 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] \
................................................................................
# 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 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]
lassign [split [package present 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
|
| |
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
|