Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated practcl. Wrappers now make the teapot directory unique for each platform |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
a16bf8330697c7cfe787a25c5c67defa |
| User & Date: | hypnotoad 2017-11-30 20:14:59.346 |
Context
|
2017-12-02
| ||
| 01:10 | Tweak to how kits index teapot caches check-in: bc30af25be user: hypnotoad tags: practcl | |
|
2017-11-30
| ||
| 20:14 | Updated practcl. Wrappers now make the teapot directory unique for each platform check-in: a16bf83306 user: hypnotoad tags: practcl | |
|
2017-11-29
| ||
| 22:09 | Updating to practcl 0.10.1 from tcllib check-in: 8526551d20 user: hypnotoad tags: practcl | |
Changes
Changes to practcl.tcl.
| ︙ | ︙ | |||
1106 1107 1108 1109 1110 1111 1112 |
}
set path_indexed($base) 1
set path_indexed([file join $base boot tcl]) 1
foreach teapath [glob -nocomplain [file join $base teapot *]] {
set pkg [file tail $teapath]
append buffer [list set pkg $pkg]
append buffer {
| | | 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 |
}
set path_indexed($base) 1
set path_indexed([file join $base boot tcl]) 1
foreach teapath [glob -nocomplain [file join $base teapot *]] {
set pkg [file tail $teapath]
append buffer [list set pkg $pkg]
append buffer {
set pkginstall [file join $::tcl_teapot $pkg]
if {![file exists $pkginstall]} {
installDir [file join $dir teapot $pkg] $pkginstall
}
}
}
foreach path $paths {
if {$path_indexed($path)} continue
|
| ︙ | ︙ | |||
4692 4693 4694 4695 4696 4697 4698 4699 4700 4701 4702 4703 4704 4705 4706 |
# ::practcl::copyDir [file join [my define get installdir] [string trimleft [my define get prefix] /] lib] [file join $vfspath lib]
#}
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath packages.tcl] w]
puts $fout {
set ::PKGIDXFILE [info script]
set dir [file dirname $::PKGIDXFILE]
if {$::tcl_platform(platform) eq "windows"} {
set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl]
} else {
set ::g(HOME) [file normalize ~/tcl]
}
| > | > | 4692 4693 4694 4695 4696 4697 4698 4699 4700 4701 4702 4703 4704 4705 4706 4707 4708 4709 4710 4711 4712 4713 4714 4715 4716 4717 |
# ::practcl::copyDir [file join [my define get installdir] [string trimleft [my define get prefix] /] lib] [file join $vfspath lib]
#}
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath packages.tcl] w]
puts $fout [string map [list %platform% [my define get TEACUP_PROFILE]] {set ::tcl_teapot_profile {%platform%}}]
puts $fout {
set ::PKGIDXFILE [info script]
set dir [file dirname $::PKGIDXFILE]
if {$::tcl_platform(platform) eq "windows"} {
set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl]
} else {
set ::g(HOME) [file normalize ~/tcl]
}
set ::tcl_teapot [file join $::g(HOME) teapot $::tcl_teapot_profile]
}
puts $fout {lappend ::auto_path $::tcl_teapot}
puts $fout [list proc installDir [info args ::practcl::installDir] [info body ::practcl::installDir]]
set EXEEXT [my define get EXEEXT]
set tclkit_bare [my define get tclkit_bare]
set buffer [::practcl::pkgindex_path $vfspath]
puts $fout $buffer
puts $fout {
# Advertise statically linked packages
|
| ︙ | ︙ |