mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-14 01:16:48 +00:00
Code Issues 1 Releases Wiki Activity

Update sample debugger.

Browse Source 
Add .break and .step.
This commit is contained in:
Calvin Rose 2019-11-25 18:21:53 -06:00
parent 6988fd3cab
commit a0a980e0ef
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/debugger.janet
View File

@ -52,7 +52,6 @@
(def func (frame :function)) (def func (frame :function))
(disasm func)) (disasm func))
(defn .bytecode (defn .bytecode
"Get the bytecode for the current function." "Get the bytecode for the current function."
[&opt n] [&opt n]
@ -113,10 +112,19 @@
(debug/unfbreak fun i)) (debug/unfbreak fun i))
(print "Cleared " (length bytecode) " breakpoints in " fun)) (print "Cleared " (length bytecode) " breakpoints in " fun))
(defn .break
"Set breakpoint at the current pc."
[]
(def frame (.frame))
(def fun (frame :function))
(def pc (frame :pc))
(debug/fbreak fun pc)
(print "Set breakpoint in " fun " at pc=" pc))
(defn .clear (defn .clear
"Clear the current breakpoint" "Clear the current breakpoint"
[] []
(def frame (-> (.fiber) debug/stack first)) (def frame (.frame))
(def fun (frame :function)) (def fun (frame :function))
(def pc (frame :pc)) (def pc (frame :pc))
(debug/unfbreak fun pc) (debug/unfbreak fun pc)
@ -135,3 +143,11 @@
[&opt n] [&opt n]
(.clear) (.clear)
(.next n)) (.next n))
(defn .step
"Execute the next n instructions."
[&opt n]
(var res nil)
(for i 0 (or n 1)
(set res (debug/step (.fiber))))
res)