suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r105

Browse Source
This commit is contained in:
Jono Spiro 2004-07-17 22:48:27 +00:00
parent e9465f293e
commit 847aa49832
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mztake/info.ss
View File

@ -1,6 +1,6 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "Debugger") (define name "Debugger")
(define tools '(("debugger-tool.ss"))) (define tools '(("debugger-tool.ss")))
(define tool-names '("The Debugger")) (define tool-names '("MzTake Debugger"))
(define tool-icons '(("emblem-ohno.png" "mztake"))) (define tool-icons '(("emblem-ohno.png" "mztake")))
) )

16
collects/mztake/mztake.ss
View File

@ -1,4 +1,6 @@
#| TODO #| TODO
CAN I CATCH FRTIME EXCEPTIONS AND RETHROW THOSE TOO?
LOOK AT (require (lifted mzscheme random)) in demos/random-xs-test.ss -- there seems to be a problem with requires that do lifting for FrTime in the target program, we need to do requires in the script for some reason. random becomes random3 and throws an exception. LOOK AT (require (lifted mzscheme random)) in demos/random-xs-test.ss -- there seems to be a problem with requires that do lifting for FrTime in the target program, we need to do requires in the script for some reason. random becomes random3 and throws an exception.
@ -10,6 +12,7 @@ will break the behavior ... it gets set!'d. Fix this!
rethink start/resume and kill -- do we want people to be able to restart after a kill or the progam exits (we have a behavior to check for that)? rethink start/resume and kill -- do we want people to be able to restart after a kill or the progam exits (we have a behavior to check for that)?
RETHROW EXCEPTIONS CAUGHT ON THE STREAM FOR A CLIENT -- OFFER A WAY TO DISABLE IT RETHROW EXCEPTIONS CAUGHT ON THE STREAM FOR A CLIENT -- OFFER A WAY TO DISABLE IT
WHO is catching (thread (lambda () (raise 'first-raise)))? It never gets to the exn evstream
Need a way to define which language to evaluate the target with. Robby should know how: robby@cs.uchicago.edu Need a way to define which language to evaluate the target with. Robby should know how: robby@cs.uchicago.edu
Does this work with modules? with frtime? Does this work with modules? with frtime?
@ -193,7 +196,12 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(define (script-error err) (define (script-error err)
; TODO I made this a syntax error so that the little 'goto' clickable box wouldnt show up ; TODO I made this a syntax error so that the little 'goto' clickable box wouldnt show up
; it could easily be an (error) ; it could easily be an (error)
(display (format "script-error: ~a~n" err))) (display (format "mztake:script-error: ~a~n" err)))
(define (client-error err)
; TODO I made this a syntax error so that the little 'goto' clickable box wouldnt show up
; it could easily be an (error)
(display (format "mztake:client-error: ~a~n" err)))
(define (fatal-script-error err client) (define (fatal-script-error err client)
(script-error err) (script-error err)
@ -262,7 +270,11 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; all errors and raises from the TARGET program will be caught here ; all errors and raises from the TARGET program will be caught here
; FrTime errors from the script have their own eventstream ; FrTime errors from the script have their own eventstream
(with-handlers ([(lambda (exn) #t) (with-handlers ([(lambda (exn) #t)
(lambda (exn) (frp:send-event (client-exceptions client) exn))]) (lambda (exn)
(frp:send-event (client-exceptions client) exn)
(client-error (if (exn? exn)
(format "exception: ~a" (exn-message exn))
exn)))])
(go)))))]) (go)))))])
(thread (lambda () (thread (lambda ()
(thread-wait evaluation-thread) (thread-wait evaluation-thread)