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

deleted obsolete stuff MzTake Publicity, Talk, and interface

Browse Source 
svn: r185
This commit is contained in:
Guillaume Marceau 2005-06-14 16:06:28 +00:00
parent e82a136fbe
commit cf34a57f36
7 changed files with 495 additions and 503 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mztake/demos/dijkstra/dijkstra-mztake-uncommented.ss
View File

@ -1,11 +1,9 @@
(require "dijkstra-solver.ss"
(require (lib "mztake.ss" "mztake")
"dijkstra-solver.ss"
(lib "match.ss"))
(define-mztake-process p
("dijkstra.ss")
("heap.ss" [inserts 49 6 bind 'item]
[removes 67 10 bind 'result]))
(define/bind (loc "heap.ss" 49 6) item)
(define/bind (loc "heap.ss" 67 10) result)
(define (not-in-order e)
(filter-e
@ -39,4 +37,4 @@
(define inserters (accum-b (inserts . ==> . insert-in-model) empty))
(define removers (accum-b (removes . ==> . remove-from-model) inserters))
(start/resume p)
(set-running-e! (violations . -=> . false))

8
collects/mztake/demos/exception/exception-mztake-uncommented.ss
View File

@ -1,7 +1,7 @@
(define-mztake-process p ("exception.ss"))
(set-main! "exception.ss")
(printf-b "exception.ss exited? ~a" (process:exited? p))
(printf-b "exception.ss exited? ~a" (process:exited?))
(printf-b "last exception seen: ~a" (hold (process:exceptions p)))
(printf-b "last exception seen: ~a" (hold (process:exceptions)))
(start/resume p)
(set-running! true)

9
collects/mztake/demos/first-class/first-class-mztake-uncommented.ss
View File

@ -1,6 +1,7 @@
(define-mztake-process p ("first-class.ss" [x-before-let 3 29 bind 'x]
[x-in-let 4 25 bind 'x]
[x-after-let 5 11 bind 'x]))
(define x-before-let (trace (loc "first-class.ss" 3 29) (bind (x) x)))
(define x-in-let (trace (loc "first-class.ss" 4 25) (bind (x) x)))
(define x-after-let (trace (loc "first-class.ss" 5 11) (bind (x) x)))
(printf-b "Number of times x updates, should be 12: ~a"
(count-b (merge-e x-before-let
@ -11,4 +12,4 @@
(printf-b "x in let, should be (6 10 14 16): ~a" (history-b 4 x-in-let))
(printf-b "x after let, should be (5 9 13 15): ~a" (history-b 4 x-after-let))
(start/resume p)
(set-running! true)

8
collects/mztake/demos/highway/highway-mztake-uncommented.ss
View File

@ -1,7 +1,7 @@
(require (lib "animation.ss" "frtime"))
(define-mztake-process radar-program ("highway.ss" [values-of-speed 3 4 bind 'speed]))
(require (lib "mztake.ss" "mztake")
(lib "animation.ss" "frtime"))
(define/bind (loc "highway.ss" 3 4) speed)
(printf-b "current speed: ~a" (hold values-of-speed))
(printf-b "last ten speeds: ~a" (history-b 10 values-of-speed))
@ -25,4 +25,4 @@
(display-shapes (make-speed-gauge (hold values-of-speed)))
(start/resume radar-program)
(set-runnning! true)

20
collects/mztake/demos/montecarlo/montecarlo-mztake-uncommented.ss
View File

@ -1,19 +1,11 @@
(require (lib "graphics.ss" "graphics"))
(require (lib "graphics.ss" "graphics")
(lib "match.ss"))
(open-graphics)
(define window (open-viewport "Debugger" 400 400))
(define-mztake-process p ("montecarlo.ss" [x/y/pi-trace 13 13 bind '(x y pi)]))
(define x/y/pi (hold x/y/pi-trace))
(define x (+ 200 (first x/y/pi)))
(define y (+ 200 (second x/y/pi)))
(define current-pi (third x/y/pi))
(define/bind (loc "montecarlo.ss" 13 13) x y pi)
(printf-b "total points chosen: ~a" (count-b (changes x)))
@ -26,8 +18,8 @@
((draw-solid-ellipse window) (make-posn 0 0) 400 400 "sienna")
(map-e (lambda (x/y) ((draw-solid-ellipse window) (make-posn (first x/y) (second x/y))
3 3 "black"))
(map-e (match-lambda [(x y) ((draw-solid-ellipse window) (make-posn x y)
3 3 "black")])
(changes (list x y)))
(start/resume p)
(set-running! true)

7
collects/mztake/demos/random/random-mztake-uncommented.ss
View File

@ -1,5 +1,6 @@
(require (lib "graphics.ss" "graphics")
(lifted mzscheme
(lib "mztake.ss" "mztake")
(lifted mzscheme
make-hash-table
hash-table-put!
hash-table-get))
@ -10,7 +11,7 @@
((draw-viewport window) (make-rgb 0.95 0.95 0.95))
(define-mztake-process p ("random.ss" [x-trace 4 6 bind 'x]))
(define/bind (loc "random.ss" 4 6) x)
(define largest-bin 0)
@ -40,4 +41,4 @@
(printf-b "count: ~a" (count-b x-trace))
(start/resume p)
(set-running! true)

2
collects/mztake/mztake.ss
View File

@ -23,7 +23,7 @@
[set-running! (frp:value-nowable? . -> . void?)]
[rename debug-process-exceptions
process:exceptions
(debug-process? . -> . frp:event?)]
(() (debug-process?) . opt-> . frp:event?)]
[rename debug-process-exited?
process:exited?
(debug-process? . -> . frp:behavior?)])