Browse Source

missing repl changes

master
Julian Noble 6 months ago
parent
commit
54890f72ff
  1. 13
      src/punk86.vfs/lib/app-punk/repl.tcl
  2. 2
      src/punk86.vfs/lib/app-shellspy/shellspy.tcl

13
src/punk86.vfs/lib/app-punk/repl.tcl

@ -98,12 +98,18 @@ if {[llength $currentdir_modules]} {
package require Thread
catch {package require tcllibc}
#These are strong dependencies
# - the repl requires Threading and punk,shellfilter,shellrun to call and display properly.
# - the repl requires Threading and shellfilter to call and display properly.
# tm list already indexed - 'package forget' to find modules based on current tcl::tm::list
#set required [list\
# shellfilter\
# shellrun\
# punk\
# ]
#punk & shellrun should be in codethreads - but not required in the parent repl threads
set required [list\
shellfilter\
shellrun\
punk\
]
catch {
@ -134,6 +140,7 @@ foreach pkg $required {
}
package require punk::repl
repl::init -safe 0
repl::start stdin -title app-punk

2
src/punk86.vfs/lib/app-shellspy/shellspy.tcl

@ -412,6 +412,7 @@ namespace eval shellspy {
package require shellrun
package require punk::repl
puts stdout "quit to exit"
repl::init -safe 0
repl::start stdin -defaultresult %r%
}]]
}
@ -714,6 +715,7 @@ source [file normalize $scriptname]
#append repl_lines {puts stderr "starting repl [chan names]"} \n
#append repl_lines {puts stderr "stdin [chan configure stdin]"} \n
append repl_lines {package require punk::repl} \n
append repl_lines {repl::init -safe 0} \n
append repl_lines {repl::start stdin} \n
#append repl_lines {puts stdout "shutdown message"} \n

Loading…
Cancel
Save