projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5766ad6
)
moar docstrings
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 17:27:10 +0000
(11:27 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 17:27:10 +0000
(11:27 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index 603a75a47e19afc1be2208530ce05b0d9a078a26..1c26a2f3b211a31d48c4746e70edd6901c31b4de 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-87,6
+87,8
@@
(except-port-map (make-hash-table))
(schedule (make-schedule))
(time (gettimeofday)))
(except-port-map (make-hash-table))
(schedule (make-schedule))
(time (gettimeofday)))
+ ;; TODO: document arguments
+ "Make a fresh agenda."
(make-agenda-intern queue prompt
read-port-map write-port-map except-port-map
schedule time))
(make-agenda-intern queue prompt
read-port-map write-port-map except-port-map
schedule time))
@@
-351,6
+353,7
@@
Will produce (0 . 0) instead of a negative number, if needed."
(define %current-agenda (make-parameter #f))
(define (update-agenda-from-select! agenda)
(define %current-agenda (make-parameter #f))
(define (update-agenda-from-select! agenda)
+ "Potentially (select) on ports specified in agenda, adding items to queue"
(define (hash-keys hash)
(hash-map->list (lambda (k v) k) hash))
(define (get-wait-time)
(define (hash-keys hash)
(hash-map->list (lambda (k v) k) hash))
(define (get-wait-time)
@@
-429,6
+432,8
@@
Will produce (0 . 0) instead of a negative number, if needed."
#:key stop-condition
(get-time gettimeofday)
(handle-ports update-agenda-from-select!))
#:key stop-condition
(get-time gettimeofday)
(handle-ports update-agenda-from-select!))
+ ;; TODO: Document fields
+ "Start up the AGENDA"
(let loop ((agenda agenda))
(let ((agenda
;; @@: Hm, maybe here would be a great place to handle
(let loop ((agenda agenda))
(let ((agenda
;; @@: Hm, maybe here would be a great place to handle