2003-01-28 05:59:51 -05:00
|
|
|
(define-interface dir-streams-interface
|
2003-02-13 07:00:40 -05:00
|
|
|
(export dir-stream-from-dir-name
|
2003-01-28 05:59:51 -05:00
|
|
|
dir-stream-for-each
|
|
|
|
|
dir-stream-map
|
|
|
|
|
dir-stream-filter
|
|
|
|
|
dir-stream-filter-map
|
|
|
|
|
fs-object-parent
|
|
|
|
|
fs-object-name
|
|
|
|
|
fs-object-info
|
2003-02-13 06:59:11 -05:00
|
|
|
fs-object-file-name))
|
2003-01-28 05:59:51 -05:00
|
|
|
|
|
|
|
|
(define-interface dir-stream-predicates-interfaces
|
|
|
|
|
(export fs-object-size-less-then?
|
|
|
|
|
fs-object-size-greater-then?
|
|
|
|
|
days->seconds
|
|
|
|
|
hours->seconds
|
|
|
|
|
minutes->seconds
|
|
|
|
|
fs-object-last-modified-in?
|
|
|
|
|
fs-object-last-accessed-in?
|
|
|
|
|
fs-object-created-in?
|
|
|
|
|
fs-object-name-matches?
|
2003-02-13 06:59:11 -05:00
|
|
|
ds-object-file-name-matches?))
|
2003-01-28 05:59:51 -05:00
|
|
|
|
|
|
|
|
(define-interface streams-interface
|
|
|
|
|
(export the-empty-stream
|
|
|
|
|
make-empty-stream
|
|
|
|
|
make-stream
|
|
|
|
|
make-stream-lazily
|
|
|
|
|
(stream :syntax)
|
|
|
|
|
stream-empty?
|
|
|
|
|
stream-head
|
|
|
|
|
stream-tail
|
|
|
|
|
stream-map
|
|
|
|
|
stream-zip-with
|
|
|
|
|
stream-for-each
|
|
|
|
|
stream-filter
|
|
|
|
|
stream-filter-map
|
|
|
|
|
stream-unfold
|
|
|
|
|
stream-transform
|
|
|
|
|
stream-take
|
|
|
|
|
stream-drop
|
|
|
|
|
stream-fold-right
|
|
|
|
|
stream-fold-right-lazily
|
|
|
|
|
stream-prepend
|
|
|
|
|
list->stream
|
|
|
|
|
stream-from
|
|
|
|
|
stream-from-to
|
|
|
|
|
stream-from-then
|
|
|
|
|
stream-from-then-to
|
|
|
|
|
stream-ref
|
|
|
|
|
stream-iterate
|
|
|
|
|
stream-cycle
|
|
|
|
|
stream-take-while
|
|
|
|
|
stream-drop-while))
|
