Re: jump-to-debugger (like Python's pdb.set_trace)

[Matt Wette <matt.wette@gmail.com>]

On 3/13/22 1:47 PM, Matt Wette wrote:
> Hi All,
>
> I've put my "jump to debugger" code on github:
> https://github.com/mwette/guile-jtd
>
> jump-to-debugger is a procedure that, when called,
> stops execution and fires up a REPL.  It is much like
> Python's pdb.set_trace() function.
>

Hi All,

I've pushed version v220319a to my github repo.
1) Now requires --debug flag to script session:
     on-the-fly switching to debug vm is not reliable
2) added ,set-local! command
3) misc cleanup

Also, I believe I found the bug that was making line stepping swing back.
In guile-3.0.8, I changed line 913 of language/tree-il/compile-bytecode.scm
from
   (maybe-emit-source src)
to
   ;;(maybe-emit-source src)
That is, comment the line out.

Remember, this is all still experimental.

Regards,
Matt


mwette$ guile
GNU Guile 3.0.8
Copyright (C) 1995-2021 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (load "foo.scm")
scheme@(guile-user)> (foo)
foo.scm: line 7
         (if (< c 4)
*           (jump-to-debugger))
         (simple-format #t "foo a= ~S\n" (*a*))
scheme@(guile-user) [1]> ,next-line
foo.scm: line 8
             (jump-to-debugger))
*       (simple-format #t "foo a= ~S\n" (*a*))
         (simple-format #t "foo b= ~S\n" b)
scheme@(guile-user) [1]> ,locals
   Local variables:
   $1 = closure = #<procedure foo args>
   $2 = args = ()
   $3 = b = 1
   $4 = c = 3
scheme@(guile-user) [1]> ,set-local! b 2
Setting b from 1 to 2
scheme@(guile-user) [1]> ,locals
   Local variables:
   $5 = closure = #<procedure foo args>
   $6 = args = ()
   $7 = b = 2
   $8 = c = 3
scheme@(guile-user) [1]> ,next-line
foo a= 0
foo.scm: line 9
         (simple-format #t "foo a= ~S\n" (*a*))
*       (simple-format #t "foo b= ~S\n" b)
         (simple-format #t "foo c= ~S\n" c)))
scheme@(guile-user) [1]> ,next-line
foo b= 2
foo.scm: line 10
         (simple-format #t "foo b= ~S\n" b)
*       (simple-format #t "foo c= ~S\n" c)))
   #<eof>
scheme@(guile-user) [1]> ,q
foo c= 3
scheme@(guile-user)>