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

punk::repl more stderr debug output

master
Julian Noble 1 week ago
parent
d405689e28
commit
927017a7dc
2 changed files with 14 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
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 9
      src/bootsupport/modules/punk/repl-0.1.2.tm
  2. 9
      src/modules/punk/repl-999999.0a1.0.tm

9
src/bootsupport/modules/punk/repl-0.1.2.tm
Unescape View File

@ -52,7 +52,10 @@ if {[package provide punk::libunknown] eq ""} {
if {$libunknown ne ""} {
uplevel 1 [list source $libunknown]
if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} {
puts "error initialising punk::libunknown\n$errM"
puts stderr "error initialising punk::libunknown during punk::repl package load of script [info script]"
puts stderr "sourcing from: $libunknown"
puts stderr "tcl::tm::list: [tcl::tm::list]"
puts stderr $errM
}
}
}}
@ -3593,7 +3596,9 @@ namespace eval repl {
if {$libunknown ne ""} {
uplevel 1 [list ::source $libunknown]
if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} {
puts "error initialising punk::libunknown\n from: '$libunknown'\n error: $errM"
puts stderr "error initialising punk::libunknown\n from: '$libunknown'"
puts stderr "tcl::tm::list: [tcl::tm::list]"
puts stderr "error: $errM"
}
}
}}

9
src/modules/punk/repl-999999.0a1.0.tm
Unescape View File

@ -52,7 +52,10 @@ if {[package provide punk::libunknown] eq ""} {
if {$libunknown ne ""} {
uplevel 1 [list source $libunknown]
if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} {
puts "error initialising punk::libunknown\n$errM"
puts stderr "error initialising punk::libunknown during punk::repl package load of script [info script]"
puts stderr "sourcing from: $libunknown"
puts stderr "tcl::tm::list: [tcl::tm::list]"
puts stderr $errM
}
}
}}
@ -3593,7 +3596,9 @@ namespace eval repl {
if {$libunknown ne ""} {
uplevel 1 [list ::source $libunknown]
if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} {
puts "error initialising punk::libunknown\n from: '$libunknown'\n error: $errM"
puts stderr "error initialising punk::libunknown\n from: '$libunknown'"
puts stderr "tcl::tm::list: [tcl::tm::list]"
puts stderr "error: $errM"
}
}
}}

Write Preview
Loading…
Cancel
Save