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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
a16bf8330697c7cfe787a25c5c67defa |
| User & Date: | hypnotoad 2017-11-30 20:14:59 |
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
1113
1114
1115
1116
1117
1118
1119
1120
....
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
|
}
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 $::g(HOME) teapot $pkg]
if {![file exists $pkginstall]} {
installDir [file join $dir teapot $pkg] $pkginstall
}
}
}
foreach path $paths {
if {$path_indexed($path)} continue
................................................................................
# ::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]
}
lappend ::auto_path [file join $::g(HOME) 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
|
|
>
|
>
|
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
....
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
|
}
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
................................................................................
# ::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
|