suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

provide example for in-directory

Browse Source
This commit is contained in:
Juan M Uys 2015-11-04 11:13:33 +00:00 committed by Matthew Flatt
parent 66f89cb6f6
commit 348cd7976f
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
pkgs/racket-doc/scribblings/reference/sequences.scrbl
View File

@ -384,7 +384,31 @@ each element in the sequence.
content of a directory, use the result of @racket[directory-list] as
a sequence.
@history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.}]}
@history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.}]
Examples:
@racketblock[
(code:comment @#,t{Given a directory tree:})
(code:comment @#,t{})
(code:comment @#,t{ /example})
(code:comment @#,t{ ├── a})
(code:comment @#,t{ │ ├── alpha})
(code:comment @#,t{ │ └── apple})
(code:comment @#,t{ ├── b})
(code:comment @#,t{ │ └── beta})
(code:comment @#,t{ └── c})
(code:comment @#,t{})
(code:comment @#,t{Output:})
(code:comment @#,t{})
(code:comment @#,t{/example/c})
(code:comment @#,t{/example/b})
(code:comment @#,t{/example/b/beta})
(code:comment @#,t{/example/a})
(code:comment @#,t{})
(let ([f (lambda (path) (regexp-match? #rx"/example/b.*" (path->string path)))])
(for ([p (in-directory "/example" f)])
(printf "~a\n" p)))]}
@defproc*[([(in-producer [producer procedure?])