54 lines
1.1 KiB
Scheme
54 lines
1.1 KiB
Scheme
|
(define-interface dir-streams-interface
|
||
|
|
(export dir-stream-from-dirname
|
||
|
|
dir-stream-for-each
|
||
|
|
dir-stream-map
|
||
|
|
dir-stream-filter
|
||
|
|
dir-stream-filter-map
|
||
|
|
fs-object-parent
|
||
|
|
fs-object-name
|
||
|
|
fs-object-info
|
||
|
|
fs-object-filename))
|
||
|
|
|
||
|
|
(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?
|
||
|
|
ds-object-filename-matches?))
|
||
|
|
|
||
|
|
(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))
|