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

Updated the demos for the new syntax.

Browse Source 
svn: r128
This commit is contained in:
Jono Spiro 2004-08-03 23:10:12 +00:00
parent 1fc5e1efea
commit c166ef81b4
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/mztake/mztake.ss
View File

@ -1,5 +1,8 @@
#| TODO
get time-per-event/milliseconds working
(printf-b "~a ms per event" (time-per-event/milliseconds p (changes (hold sin/x-trace))))
implies that the first client created is always the main module
turn script errors into syntax errors
@ -125,7 +128,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
[pause (debug-process? . -> . void?)]
[rename debug-process-exceptions
process:exceptions
(debug-process? . -> . frp:behavior?)]
(debug-process? . -> . frp:event?)]
[rename runtime/seconds
process:runtime/seconds
(debug-process? . -> . frp:behavior?)]
@ -135,7 +138,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
[rename debug-process-exited?
process:exited?
(debug-process? . -> . frp:behavior?)]
[rename time-per-event/milliseconds
#;[rename time-per-event/milliseconds
process:time-per-event/milliseconds
(debug-process? frp:behavior? . -> . frp:behavior?)])
@ -367,7 +370,8 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; run the process
(thread-wait (thread (lambda () (run))))
; program terminates
(kill process))))
(kill process)
(print-info (format "process terminated: ~a" (main-client-name process))))))
; predicate - is the debugee supposed to be running now?
@ -412,11 +416,13 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(main-client-name process)))
(set-running! process #t))))
; Kills the debugger process immediately and permanently
; Kills and prints out a message stating it
(define (kill process)
(print-info (format "killing debugger for ~a" (main-client-name process)))
(stop process))
; Kills the debugger process immediately and permanently
(define (stop process)
; remove the process from the process list
(set! all-debug-processes (remq process all-debug-processes))
@ -474,14 +480,14 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
; ;
(define (running? process)
#;(define (running? process)
(script-error "client-running? is broken")
(and (running-now? process)
(not (debug-process-exited? process))))
(define (time-per-event/milliseconds process behavior)
(truncate (/ (debug-process-runtime process)
(add1 (count-e (frp:changes behavior))))))
#;(define (time-per-event/milliseconds process behavior)
(frp:lift (truncate (/ (frp:value-now (debug-process-runtime process))
(add1 (frp:value-now (count-e (frp:changes behavior))))))))
(define (runtime/milliseconds process)
(debug-process-runtime process))