Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Replacing a global g(HOME) which means something in a TOBE kit with ::starkit::localHome if the application is looking for somewhere to grap preferences/etc |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
20d0246bc674a1a5dd3705669392f435 |
| User & Date: | hypnotoad 2018-12-12 01:08:28.714 |
Context
|
2019-04-10
| ||
| 20:06 | Adding loads for modules that httpd's dependencies have a dependency on check-in: 365742ea93 user: hypnotoad tags: hypnotoad | |
|
2018-12-12
| ||
| 01:08 | Replacing a global g(HOME) which means something in a TOBE kit with ::starkit::localHome if the application is looking for somewhere to grap preferences/etc check-in: 20d0246bc6 user: hypnotoad tags: hypnotoad | |
|
2018-12-09
| ||
| 12:20 | Nettool's build script wasn't implementing the ladd command. Clay was missing a fix that kept it's loader from accidentally creating variables in the global namespace as a side effect of a foreach loop check-in: ae3d36ca11 user: hypnotoad tags: hypnotoad | |
Changes
Changes to modules/practcl/build/class/project/tclkit.tcl.
| ︙ | ︙ | |||
333 334 335 336 337 338 339 340 341 342 |
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath pkgIndex.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"} {
| > | | | | 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 |
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath pkgIndex.tcl] w]
puts $fout [string map [list %platform% [my define get TEACUP_PROFILE]] {set ::tcl_teapot_profile {%platform%}}]
puts $fout {
namespace eval ::starkit {}
set ::PKGIDXFILE [info script]
set dir [file dirname $::PKGIDXFILE]
if {$::tcl_platform(platform) eq "windows"} {
set ::starkit::localHome [file join [file normalize $::env(LOCALAPPDATA)] tcl]
} else {
set ::starkit::localHome [file normalize ~/tcl]
}
set ::tcl_teapot [file join $::starkit::localHome teapot $::tcl_teapot_profile]
lappend ::auto_path $::tcl_teapot
}
puts $fout [list proc installDir [info args ::practcl::installDir] [info body ::practcl::installDir]]
set buffer [::practcl::pkgindex_path $vfspath]
puts $fout $buffer
puts $fout {
# Advertise statically linked packages
|
| ︙ | ︙ |
Changes to modules/practcl/practcl.tcl.
| ︙ | ︙ | |||
694 695 696 697 698 699 700 |
set result {}
append result "::dictargs::parse \{$argspec\} \$args" \;
append result $body
oo::define $class method $name [list [list args [list dictargs $argspec]]] $result
}
namespace eval ::clay::dialect {
namespace export create
| < | | | | | > | 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 |
set result {}
append result "::dictargs::parse \{$argspec\} \$args" \;
append result $body
oo::define $class method $name [list [list args [list dictargs $argspec]]] $result
}
namespace eval ::clay::dialect {
namespace export create
foreach {flag test} {
tip470 {package vsatisfies [package provide Tcl] 8.7}
} {
if {![info exists ::clay::dialect::has($flag)]} {
set ::clay::dialect::has($flag) [eval $test]
}
}
}
proc ::clay::dialect::Push {class} {
::variable class_stack
lappend class_stack $class
}
proc ::clay::dialect::Peek {} {
|
| ︙ | ︙ | |||
7341 7342 7343 7344 7345 7346 7347 7348 7349 7350 |
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath pkgIndex.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"} {
| > | | | | 7341 7342 7343 7344 7345 7346 7347 7348 7349 7350 7351 7352 7353 7354 7355 7356 7357 7358 7359 7360 7361 7362 7363 |
foreach arg $args {
::practcl::copyDir $arg $vfspath
}
set fout [open [file join $vfspath pkgIndex.tcl] w]
puts $fout [string map [list %platform% [my define get TEACUP_PROFILE]] {set ::tcl_teapot_profile {%platform%}}]
puts $fout {
namespace eval ::starkit {}
set ::PKGIDXFILE [info script]
set dir [file dirname $::PKGIDXFILE]
if {$::tcl_platform(platform) eq "windows"} {
set ::starkit::localHome [file join [file normalize $::env(LOCALAPPDATA)] tcl]
} else {
set ::starkit::localHome [file normalize ~/tcl]
}
set ::tcl_teapot [file join $::starkit::localHome teapot $::tcl_teapot_profile]
lappend ::auto_path $::tcl_teapot
}
puts $fout [list proc installDir [info args ::practcl::installDir] [info body ::practcl::installDir]]
set buffer [::practcl::pkgindex_path $vfspath]
puts $fout $buffer
puts $fout {
# Advertise statically linked packages
|
| ︙ | ︙ |