syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More tweaks

This commit is contained in:
Tony Garnock-Jones 2016-03-01 17:00:57 -05:00
parent ed3877e7b1
commit 30a5a924a3
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
prospect/examples/actor/file-system-lll.rkt
View File

@ -15,23 +15,6 @@
(spawn-timer-driver)
(define (update-file old-content name new-content)
(transition new-content
(patch-seq (retract (file name old-content))
(core:assert (file name new-content)))))
(define ((file-observation-event-handler name) e content)
(match-event e
[(? patch? p)
(if (set-empty? (project-assertions (patch-removed p) (observe (file (?!) ?))))
#f
(begin (printf "No remaining readers exist for ~v\n" name)
(quit)))]
[(message (save (file (== name) new-content)))
(update-file content name new-content)]
[(message (delete (== name)))
(update-file content name #f)]))
(define (file-system-event-handler e files)
(match-event e
[(? patch? p)
@ -56,6 +39,22 @@
(sub (save (file ? ?)))
(sub (delete ?))))
(define (update-file old-content name new-content)
(transition new-content
(patch-seq (retract (file name old-content))
(core:assert (file name new-content)))))
(define ((file-observation-event-handler name) e content)
(match-event e
[(? patch? p)
(when (not (set-empty? (project-assertions (patch-removed p) (observe (file (?!) ?)))))
(printf "No remaining readers exist for ~v\n" name)
(quit))]
[(message (save (file (== name) new-content)))
(update-file content name new-content)]
[(message (delete (== name)))
(update-file content name #f)]))
(define (sleep sec)
(define timer-id (gensym 'sleep))
(until (message (timer-expired timer-id _))