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 |
|---|---|
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
20d0246bc674a1a5dd3705669392f435 |
| User & Date: | hypnotoad 2018-12-12 01:08:28 |
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 343 344 345 346 347 348 349 350 351 352 353 354 |
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"} {
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]
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
|
> | | | |
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
701
702
703
704
705
706
707
708
709
710
711
712
713
....
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
|
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 {} {
................................................................................
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"} {
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]
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
|
<
|
|
|
|
|
>
>
|
|
|
|
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
....
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
|
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 {} {
................................................................................
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
|