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

Add require syntax for multiple files in the same directory/collect.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-18 17:08:18 -04:00
parent c5973bea99
commit 011d43b688
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/racket/require.rkt
View File

@ -96,3 +96,26 @@
"file not found in any parent directory"
stx ps)))))))])
(syntax/loc stx (combine-in paths ...))))]))
(provide sub-in)
(define-require-syntax (sub-in stx)
(syntax-case stx ()
[(_ dir files ...)
(or (andmap (lambda (f) ; directory + all files
(let ([s (syntax-e f)]) (and (string? s) (module-path? s))))
(syntax->list #'(files ...)))
(andmap (lambda (f) (symbol? (syntax-e f))) ; collects path
(syntax->list #'(files ...))))
(let ([dir (syntax-e #'dir)])
(with-syntax
([(paths ...)
(map (lambda (f)
(datum->syntax
stx (if (string? dir)
(string-append dir "/" (syntax-e f))
(string->symbol
(string-append (symbol->string dir) "/"
(symbol->string (syntax-e f)))))
stx stx))
(syntax->list #'(files ...)))])
(syntax/loc stx (combine-in paths ...))))]))