Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Changed the name of the ::kitpkg() array to ::starkit::static_package() to avoid polluting the global namespace |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
a20ae3035386e6cdfcc4eeadd91b949a |
| User & Date: | hypnotoad 2019-04-11 15:40:46.633 |
Context
|
2019-04-11
| ||
| 16:27 | Closing a fork check-in: f49f632755 user: hypnotoad tags: hypnotoad | |
| 15:40 | Changed the name of the ::kitpkg() array to ::starkit::static_package() to avoid polluting the global namespace check-in: a20ae30353 user: hypnotoad tags: hypnotoad | |
|
2019-04-10
| ||
| 20:06 | Adding loads for modules that httpd's dependencies have a dependency on check-in: 365742ea93 user: hypnotoad tags: hypnotoad | |
Changes
Changes to modules/practcl/build/class/project/tclkit.tcl.
| ︙ | ︙ | |||
186 187 188 189 190 191 192 |
if {![dict exists $info version]} {
error "$statpkg HAS NO VERSION"
}
# We employ a NULL to prevent the package system from thinking the
# package is actually loaded into the interpreter
$PROJECT code header "extern Tcl_PackageInitProc $initfunc\;\n"
set script [list package ifneeded $statpkg [dict get $info version] [list ::load {} $statpkg]]
| | | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 |
if {![dict exists $info version]} {
error "$statpkg HAS NO VERSION"
}
# We employ a NULL to prevent the package system from thinking the
# package is actually loaded into the interpreter
$PROJECT code header "extern Tcl_PackageInitProc $initfunc\;\n"
set script [list package ifneeded $statpkg [dict get $info version] [list ::load {} $statpkg]]
append main_init_script \n [list set ::starkit::static_packages(${statpkg}) $script]
if {[dict get $info autoload]} {
::practcl::cputs appinit " if(${initfunc}(interp)) return TCL_ERROR\;"
::practcl::cputs appinit " Tcl_StaticPackage(interp,\"$statpkg\",$initfunc,NULL)\;"
} else {
::practcl::cputs appinit "\n Tcl_StaticPackage(NULL,\"$statpkg\",$initfunc,NULL)\;"
append main_init_script \n $script
|
| ︙ | ︙ | |||
349 350 351 352 353 354 355 |
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
| | | 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 |
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
foreach {pkg script} [array get ::starkit::static_packages] {
eval $script
}
}
puts $fout {
###
# Cache binary packages distributed as dynamic libraries in a known location
###
|
| ︙ | ︙ |
Changes to modules/practcl/practcl.tcl.
| ︙ | ︙ | |||
7198 7199 7200 7201 7202 7203 7204 |
if {![dict exists $info version]} {
error "$statpkg HAS NO VERSION"
}
# We employ a NULL to prevent the package system from thinking the
# package is actually loaded into the interpreter
$PROJECT code header "extern Tcl_PackageInitProc $initfunc\;\n"
set script [list package ifneeded $statpkg [dict get $info version] [list ::load {} $statpkg]]
| | | 7198 7199 7200 7201 7202 7203 7204 7205 7206 7207 7208 7209 7210 7211 7212 |
if {![dict exists $info version]} {
error "$statpkg HAS NO VERSION"
}
# We employ a NULL to prevent the package system from thinking the
# package is actually loaded into the interpreter
$PROJECT code header "extern Tcl_PackageInitProc $initfunc\;\n"
set script [list package ifneeded $statpkg [dict get $info version] [list ::load {} $statpkg]]
append main_init_script \n [list set ::starkit::static_packages(${statpkg}) $script]
if {[dict get $info autoload]} {
::practcl::cputs appinit " if(${initfunc}(interp)) return TCL_ERROR\;"
::practcl::cputs appinit " Tcl_StaticPackage(interp,\"$statpkg\",$initfunc,NULL)\;"
} else {
::practcl::cputs appinit "\n Tcl_StaticPackage(NULL,\"$statpkg\",$initfunc,NULL)\;"
append main_init_script \n $script
|
| ︙ | ︙ | |||
7357 7358 7359 7360 7361 7362 7363 |
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
| | | 7357 7358 7359 7360 7361 7362 7363 7364 7365 7366 7367 7368 7369 7370 7371 |
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
foreach {pkg script} [array get ::starkit::static_packages] {
eval $script
}
}
puts $fout {
###
# Cache binary packages distributed as dynamic libraries in a known location
###
|
| ︙ | ︙ |