jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

debug make.tcl

master
Julian Noble 3 months ago
parent
a81ffedfdf
commit
f50a088b15
1 changed files with 7 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 11
      src/make.tcl

11
src/make.tcl
Unescape View File

@ -1481,12 +1481,12 @@ if {$::punkboot::command eq "check"} {
} }
} }
flush stdout flush stdout
set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements]
foreach pkg_request [dict get $::punkboot::pkg_availability loaded] { foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
lassign $pkg_request pkgname vrequest lassign $pkg_request pkgname vrequest
package require $pkgname {*}$vrequest ;#todo? package require $pkgname {*}$vrequest ;#todo?
} }
flush stderr flush stderr
#punk::lib::showdict -channel stderr $::punkboot::pkg_availability #punk::lib::showdict -channel stderr $::punkboot::pkg_availability
set missing_out [::punkboot::get_display_missing_packages $::punkboot::pkg_availability] set missing_out [::punkboot::get_display_missing_packages $::punkboot::pkg_availability]
puts stdout $missing_out\n puts stdout $missing_out\n
@ -1563,10 +1563,13 @@ if {$::punkboot::command eq "check"} {
#puts stdout " $fld (not present)" #puts stdout " $fld (not present)"
} }
} }
set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] #set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements]
set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 0 $::punkboot::bootsupport_requirements]
foreach pkg_request [dict get $::punkboot::pkg_availability loaded] { foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
lassign $pkg_request pkgname vrequest lassign $pkg_request pkgname vrequest
catch {package require $pkgname {*}$vrequest} ;#todo if {[catch {package require $pkgname {*}$vrequest} errM]} {
puts stderr "failed to load $pkgname\n - $errM"
}
} }
flush stderr flush stderr
#punk::lib::showdict -channel stderr $::punkboot::pkg_availability #punk::lib::showdict -channel stderr $::punkboot::pkg_availability

Write Preview
Loading…
Cancel
Save