projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bbbf61a
)
More documentation!
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 17:14:16 +0000
(11:14 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 17:14:16 +0000
(11:14 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index cc1ee7889bcfdcb1a253b0ec0049c84a3a730890..b955c4a269d6c4ab5518d4dc682a125d91b8ea68 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-183,16
+183,19
@@
Will produce (0 . 0) instead of a negative number, if needed."
(else time)))
(define (time-delta+ time time-delta)
(else time)))
(define (time-delta+ time time-delta)
+ "Increment a TIME by the value of TIME-DELTA"
(time-carry-correct
(cons (+ (car time) (time-delta-sec time-delta))
(+ (cdr time) (time-delta-usec time-delta)))))
(define (time-minus time1 time2)
(time-carry-correct
(cons (+ (car time) (time-delta-sec time-delta))
(+ (cdr time) (time-delta-usec time-delta)))))
(define (time-minus time1 time2)
+ "Subtract TIME2 from TIME1"
(time-carry-correct
(cons (- (car time1) (car time2))
(- (cdr time2) (cdr time2)))))
(define (time-plus time1 time2)
(time-carry-correct
(cons (- (car time1) (car time2))
(- (cdr time2) (cdr time2)))))
(define (time-plus time1 time2)
+ "Add TIME1 and TIME2"
(time-carry-correct
(cons (+ (car time1) (car time2))
(+ (cdr time2) (cdr time2)))))
(time-carry-correct
(cons (+ (car time1) (car time2))
(+ (cdr time2) (cdr time2)))))
@@
-204,6
+207,7
@@
Will produce (0 . 0) instead of a negative number, if needed."
(segments schedule-segments set-schedule-segments!))
(define* (make-schedule #:optional segments)
(segments schedule-segments set-schedule-segments!))
(define* (make-schedule #:optional segments)
+ "Make a schedule, optionally pre-composed of SEGMENTS"
(make-schedule-intern (or segments '())))
(define (schedule-soonest-time schedule)
(make-schedule-intern (or segments '())))
(define (schedule-soonest-time schedule)
@@
-218,6
+222,7
@@
Will produce (0 . 0) instead of a negative number, if needed."
;; but at least it'll be reasonably easy to refactor to
;; a more functional setup?
(define (schedule-add! schedule time proc)
;; but at least it'll be reasonably easy to refactor to
;; a more functional setup?
(define (schedule-add! schedule time proc)
+ "Mutate SCHEDULE, adding PROC at an appropriate time segment for TIME"
(let ((time (time-segment-right-format time)))
(define (new-time-segment)
(let ((new-segment
(let ((time (time-segment-right-format time)))
(define (new-time-segment)
(let ((new-segment
@@
-255,6
+260,7
@@
Will produce (0 . 0) instead of a negative number, if needed."
(loop (schedule-segments schedule)))))
(define (schedule-empty? schedule)
(loop (schedule-segments schedule)))))
(define (schedule-empty? schedule)
+ "Check if the SCHEDULE is currently empty"
(eq? (schedule-segments schedule) '()))
(define (schedule-segments-split schedule time)
(eq? (schedule-segments schedule) '()))
(define (schedule-segments-split schedule time)