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

refine in-directory example

Browse Source 
Extend Juan's nice example to show simpler modes, too.
This commit is contained in:
Matthew Flatt 2015-11-07 08:56:05 -07:00
parent 348cd7976f
commit b5224743b8
1 changed files with 33 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -384,11 +384,7 @@ 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.}]
Examples:
@racketblock[
@examples[
(code:comment @#,t{Given a directory tree:})
(code:comment @#,t{})
(code:comment @#,t{ /example})
@ -399,16 +395,38 @@ Examples:
(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)))]}
(eval:alts
(parameterize ([current-directory "/example"])
(for ([p (in-directory)])
(printf "~a\n" p)))
(for ([p (in-list '("a"
"a/alpha"
"a/apple"
"b"
"b/beta"
"c"))])
(printf "~a\n" p)))
(eval:alts
(for ([p (in-directory "/example")])
(printf "~a\n" p))
(for ([p (in-list '("/example/a"
"/example/a/alpha"
"/example/a/apple"
"/example/b"
"/example/b/beta"
"/example/c"))])
(printf "~a\n" p)))
(eval:alts
(let ([f (lambda (path) (regexp-match? #rx"/example/b.*" path))])
(for ([p (in-directory "/example" f)])
(printf "~a\n" p)))
(for ([p (in-list '("/example/a"
"/example/b"
"/example/b/beta"
"/example/c"))])
(printf "~a\n" p)))]
@history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.}]}
@defproc*[([(in-producer [producer procedure?])