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 |
|---|---|
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
a20ae3035386e6cdfcc4eeadd91b949a |
| User & Date: | hypnotoad 2019-04-11 15:40:46 |
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
193
194
195
196
197
198
199
200
...
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
|
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 ::kitpkg(${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
................................................................................
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 ::kitpkg] {
eval $script
}
}
puts $fout {
###
# Cache binary packages distributed as dynamic libraries in a known location
###
|
|
|
|
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
...
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
|
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
................................................................................
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
7205
7206
7207
7208
7209
7210
7211
7212
....
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
|
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 ::kitpkg(${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
................................................................................
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 ::kitpkg] {
eval $script
}
}
puts $fout {
###
# Cache binary packages distributed as dynamic libraries in a known location
###
|
|
|
|
7198
7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
....
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
|
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
................................................................................
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
###
|