Browse Source

missing repl changes

master
Julian Noble 5 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 package require Thread
catch {package require tcllibc} catch {package require tcllibc}
#These are strong dependencies #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 # 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\ set required [list\
shellfilter\ shellfilter\
shellrun\
punk\
] ]
catch { catch {
@ -134,6 +140,7 @@ foreach pkg $required {
} }
package require punk::repl package require punk::repl
repl::init -safe 0
repl::start stdin -title app-punk 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 shellrun
package require punk::repl package require punk::repl
puts stdout "quit to exit" puts stdout "quit to exit"
repl::init -safe 0
repl::start stdin -defaultresult %r% 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 "starting repl [chan names]"} \n
#append repl_lines {puts stderr "stdin [chan configure stdin]"} \n #append repl_lines {puts stderr "stdin [chan configure stdin]"} \n
append repl_lines {package require punk::repl} \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 {repl::start stdin} \n
#append repl_lines {puts stdout "shutdown message"} \n #append repl_lines {puts stdout "shutdown message"} \n

Loading…
Cancel
Save