Skip to content

Commit

Permalink
Add some debugging to the remove launcher
Browse files Browse the repository at this point in the history
  • Loading branch information
Ben Jackson committed Jan 27, 2020
1 parent ab3e5b3 commit abf2c07
Showing 1 changed file with 11 additions and 5 deletions.
16 changes: 11 additions & 5 deletions bin/remote_debug_wrapper
Original file line number Diff line number Diff line change
Expand Up @@ -13,17 +13,23 @@ if { [info exists ::env(TCLPRO_DEBUG_PORT)] } {
set port $::env(TCLPRO_DEBUG_PORT)
}


set script [lindex $argv 0]
set argv [lrange $argv 1 end]
set argv0 $script

puts "Preparing to execute $argv0 with args $argv"

puts "Using TCL interpreter: [info nameofexecutable]"
puts "Using TCL version: [info tclversion], [info patchlevel]"
puts "Using TCL library: [info library]"

puts stderr "Listening for connections on $port"
if { ! [debugger_init_accept $port] } {
puts stderr "Unable to connect?"
exit 1
}


set script [lindex $argv 0]
set argv [lrange $argv 1 end]
set argv0 $script

puts "Ready? Let's go. Running $argv0 with $argv"

source $argv0

0 comments on commit abf2c07

Please sign in to comment.