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

contracted all script functions

Browse Source 
working on better syntax errors

svn: r123
This commit is contained in:
Jono Spiro 2004-08-03 04:57:06 +00:00
parent f03dbc8d9a
commit ef45b36a50
1 changed files with 56 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
collects/mztake/mztake.ss
View File

@ -1,11 +1,9 @@
#| TODO #| TODO
turn script errors into syntax errors
make sure that the main client for a process is in the list of clients being annotated make sure that the main client for a process is in the list of clients being annotated
provide a body to bind instead or returning an eventstream, like (list x y)
breaks dont pause at a client -- they just send a ping when they get hit -- if you want to pause you should say ((when-e breakpoint) . -=> . (pause p)); maybe take a thunk to do when the breakpoint is hit?
make syntax errors work for invalid bindings ... take the syntax when the binding is made and save it in a hashtable make syntax errors work for invalid bindings ... take the syntax when the binding is made and save it in a hashtable
---------LOAD ANNOTATOR BUGS:::::::::::::: ---------LOAD ANNOTATOR BUGS::::::::::::::
@ -15,15 +13,9 @@ make syntax errors work for invalid bindings ... take the syntax when the bindin
;do I want to parameterize it over a given namespace? ;do I want to parameterize it over a given namespace?
:::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
offer a way to install a special handler for exceptions -- somehow identify which client an exceptions comes from
CONTRACT ALL SCRIPT FUNCTIONS
------------------- -------------------
does this work on binary drscheme files? does this work on binary drscheme files?
create client takes either a lib or relative or absolute path string
make all exposed cells and evstreams read-only by lifting the identity function on them make all exposed cells and evstreams read-only by lifting the identity function on them
does this handle module prefixes? does this handle module prefixes?
@ -32,10 +24,6 @@ what happens if two modules have the same name in different directories
MAKE SURE THERE WONT BE COLLISIONS WHEN EVAL'NG MODULES...GIVE THEM UNIQUE NAMES BASED ON PATH! MAKE SURE THERE WONT BE COLLISIONS WHEN EVAL'NG MODULES...GIVE THEM UNIQUE NAMES BASED ON PATH!
---------------- ----------------
Remove client from runtime setters
------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------
Problem: Problem:
When debugging multiple files ... When debugging multiple files ...
@ -61,8 +49,6 @@ With the syntax for debugging, you will not have to provide ways to create clien
Need to know where the program breaks at -- need to know *when* it breaks too -- print something out Need to know where the program breaks at -- need to know *when* it breaks too -- print something out
CAN I take "(lib ...)" as a path to the file being debugged?
DEMOS--------------------------------------------------------------------------------------- DEMOS---------------------------------------------------------------------------------------
Data structure examples Data structure examples
Binary search over a tree, show which node is being examined, or the most commonly taken path Binary search over a tree, show which node is being examined, or the most commonly taken path
@ -85,6 +71,11 @@ make script errors highlight the location of the error
let traces take a line number without offset and find the first bindable location. let traces take a line number without offset and find the first bindable location.
provide a body to bind instead or returning an eventstream, like (list x y)
breaks dont pause at a client -- they just send a ping when they get hit -- if you want to pause you should say ((when-e breakpoint) . -=> . (pause p)); maybe take a thunk to do when the breakpoint is hit?
offer a way to install a special handler for exceptions -- somehow identify which client an exceptions comes from
OPTIMIZATIONS------------------------------------------------------------------------------- OPTIMIZATIONS-------------------------------------------------------------------------------
@ -96,8 +87,6 @@ improve speed of functions in (run)
ERROR-CHECKING------------------------------------------------------------------------------ ERROR-CHECKING------------------------------------------------------------------------------
Make sure that you do not define more than one client for the same file.
Test what happens when you bind to variables that don't exist. Test what happens when you bind to variables that don't exist.
@ -106,7 +95,7 @@ Does user interaction work? Can we step through loops one line at a time waitin
We want a way to interactively step through code one line at a time when we hit a breakpoint. Provide way to check bindings at the same time -- EVEN IF NOT BOUND USING TRACE/BIND We want a way to interactively step through code one line at a time when we hit a breakpoint. Provide way to check bindings at the same time -- EVEN IF NOT BOUND USING TRACE/BIND
trace/bind what kind of interface do we want to dig into frames what kind of interface do we want to dig into frames
write a nested syntax for bind so that you can take a first-class function that defines a way to return variables, not just as a list write a nested syntax for bind so that you can take a first-class function that defines a way to return variables, not just as a list
What do we do about binding to a variable and following it EVERYWHERE it goes. Even if it is assigned to something else. Need to talk to Shriram, Greg, and Guillaume about this. What do we do about binding to a variable and following it EVERYWHERE it goes. Even if it is assigned to something else. Need to talk to Shriram, Greg, and Guillaume about this.
@ -117,6 +106,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(module mztake mzscheme (module mztake mzscheme
(require (lib "match.ss") (require (lib "match.ss")
(lib "unit.ss") (lib "unit.ss")
(lib "contract.ss")
(lib "marks.ss" "stepper/private") (lib "marks.ss" "stepper/private")
(prefix frp: (lib "frp.ss" "frtime")) (prefix frp: (lib "frp.ss" "frtime"))
"private/useful-code.ss" "private/useful-code.ss"
@ -125,22 +115,31 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
"debugger-model.ss") "debugger-model.ss")
; Provides come from the script section at the bottom of the code ; Provides come from the script section at the bottom of the code
(provide create-debug-process (provide/contract [create-debug-process (-> debug-process?)]
create-debug-client [create-debug-client (debug-process? (union string? (listof (union symbol? string?))) . -> . debug-client?)]
trace/bind [trace/bind (debug-client? number? number? (union symbol? (listof (union symbol? string?))) . -> . frp:event?)]
trace/break [trace/break (debug-client? number? number? . -> . frp:event?)]
start/resume [start/resume (debug-process? . -> . void?)]
kill [kill (debug-process? . -> . void?)]
kill-all [kill-all (-> void?)]
pause [pause (debug-process? . -> . void?)]
(rename debug-process-exceptions process:exceptions) [rename debug-process-exceptions
(rename runtime/seconds process:runtime/seconds) process:exceptions
(rename runtime/milliseconds process:runtime/milliseconds) (debug-process? . -> . frp:behavior?)]
(rename debug-process-exited? process:exited?) [rename runtime/seconds
;TODO HACK!!! process:runtime/seconds
set-debug-process-main-client! (debug-process? . -> . frp:behavior?)]
;; process:running? ; disabled until it works [rename runtime/milliseconds
) process:runtime/milliseconds
(debug-process? . -> . frp:behavior?)]
[rename debug-process-exited?
process:exited?
(debug-process? . -> . frp:behavior?)]
;; process:running? ; disabled until it works
;TODO HACK!
[set-debug-process-main-client! (debug-process? debug-client? . -> . void?)])
; ; ; ; ; ; ; ;
; ;;;;;; ; ; ; ; ; ; ;;;;;; ; ; ; ; ;
@ -237,9 +236,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; wrapper for errors related to the script only ; wrapper for errors related to the script only
(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 (raise-syntax-error 'mztake:script-error: (format "~a" err))
; it could easily be an (error)
(display (format "mztake:script-error: ~a~n---~n" err))
(kill-all)) (kill-all))
@ -281,7 +278,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
[values (map (lambda (var) [values (map (lambda (var)
(let ([val (binding event var)]) (let ([val (binding event var)])
(if (empty? val) (if (empty? val)
(script-error (format "No binding found in trace for symbol '~a" var)) (script-error (format "trace/bind: No binding found in trace for symbol '~a" var))
(cadar (binding event var))))) (cadar (binding event var)))))
vars)]) vars)])
(list evnt-rcvr (list evnt-rcvr
@ -369,7 +366,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(define (main-client-name process) (define (main-client-name process)
(let-values ([(_ name __) (let-values ([(_ name __)
(split-path (debug-client-modpath (debug-process-main-client process)))]) (split-path (debug-client-modpath (debug-process-main-client process)))])
name)) name))
; Switches the running state on or off ; Switches the running state on or off
@ -482,7 +479,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; Creates a debugger client ; Creates a debugger client
; ((union (listof (union string? symbol?)) string?) . -> . debug-file?) ; (debug-process? require-path. -> . debug-file?)
(define (create-debug-client process filename) (define (create-debug-client process filename)
; throwaway namespace so the module-name-resolver doesn't load an unannotated module ; throwaway namespace so the module-name-resolver doesn't load an unannotated module
(parameterize ([current-namespace (make-namespace)]) (parameterize ([current-namespace (make-namespace)])
@ -505,11 +502,17 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
[client (create-empty-debug-client)]) [client (create-empty-debug-client)])
(for-each (lambda (c)
(when (equal? modpath (debug-client-modpath c))
(raise-syntax-error 'mztake:script-error:create-debug-client
(format "A client for `~a' is already defined for this process." modpath))))
(debug-process-clients process))
(print-debug (format "'~a' -> '~a'" filename modpath)) (print-debug (format "'~a' -> '~a'" filename modpath))
(set-debug-client-modpath! client modpath) (set-debug-client-modpath! client modpath)
(set-debug-client-process! client process) (set-debug-client-process! client process)
(set-debug-client-line-col->pos! client (line-col->pos filename)) (set-debug-client-line-col->pos! client (line-col->pos modpath))
(set-debug-process-clients! process (set-debug-process-clients! process
(append (list client) (debug-process-clients process))) (append (list client) (debug-process-clients process)))
@ -518,19 +521,17 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; (client (offset | line column) (symbol | listof symbols) -> (frp:event-receiver) ; (client (offset | line column) (symbol | listof symbols) -> (frp:event-receiver)
; (debug-client? number? number? (union symbol? (listof symbol?)) . -> . frp:event?) ; (debug-client? number? number? (union symbol? (listof symbol?)) . -> . frp:event?)
(define-syntax trace/bind (define (trace/bind client line col binding-symbol)
(syntax-rules () (with-handlers ([(lambda (exn) #t)
[(_ client line col binding-symbol) (lambda (exn) (raise-syntax-error 'mztake:script-error:trace/bind exn))])
(with-handlers ([(lambda (exn) #t) (let ([trace-hash (debug-client-tracepoints client)]
(lambda (exn) (raise-syntax-error 'trace/bind exn))]) [trace (create-bind-trace binding-symbol)]
(let ([trace-hash (debug-client-tracepoints client)] [pos ((debug-client-line-col->pos client) line col)])
[trace (create-bind-trace binding-symbol)] ; add the trace to the list of traces for that byte-offset
[pos ((debug-client-line-col->pos client) line col)]) (hash-put! trace-hash pos
; add the trace to the list of traces for that byte-offset (cons trace
(hash-put! trace-hash pos (hash-get trace-hash pos (lambda () '()))))
(cons trace (trace-struct-evnt-rcvr trace))))
(hash-get trace-hash pos (lambda () '()))))
(trace-struct-evnt-rcvr trace)))]))
;(debug-file? number? number? . -> . frp:event?) ;(debug-file? number? number? . -> . frp:event?)