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

recurse into prefix etc require specs, ignore symbols

Browse Source 
svn: r7341
This commit is contained in:
Eli Barzilay 2007-09-15 00:09:29 +00:00
parent 33311ab211
commit d35939f5ed
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/mzlib/sandbox.ss
View File

@ -142,6 +142,8 @@
(map (lambda (b) `(read ,(build-path b "compiled"))) bases) (map (lambda (b) `(read ,(build-path b "compiled"))) bases)
(map (lambda (b) `(exists ,b)) bases))) (map (lambda (b) `(exists ,b)) bases)))
(require (only (lib "modhelp.ss" "syntax" "private") module-path-v?))
;; takes a module-spec list and returns all module paths that are needed ;; takes a module-spec list and returns all module paths that are needed
;; ==> ignores (lib ...) modules ;; ==> ignores (lib ...) modules
(define (module-specs->non-lib-paths mods) (define (module-specs->non-lib-paths mods)
@ -149,12 +151,22 @@
(if (module-path-index? x) (if (module-path-index? x)
(let-values ([(m base) (module-path-index-split x)]) (lib? m)) (let-values ([(m base) (module-path-index-split x)]) (lib? m))
(and (pair? x) (eq? 'lib (car x))))) (and (pair? x) (eq? 'lib (car x)))))
(let loop ([todo (filter values ;; turns a module spec to a simple one (except for lib specs)
(map (lambda (mod) (define (simple-modspec mod)
(and (not (lib? mod)) (cond [(and (pair? mod) (eq? 'lib (car mod))) #f]
(simplify-path* [(module-path-v? mod)
(resolve-module-path mod #f)))) (simplify-path* (resolve-module-path mod #f))]
mods))] [(not (and (pair? mod) (pair? (cdr mod))))
;; don't know what this is, leave as is
#f]
[(eq? 'only (car mod))
(simple-modspec (cadr mod))]
[(eq? 'rename (car mod))
(simple-modspec (cadr mod))]
[(and (eq? 'prefix (car mod)) (pair? (cddr mod)))
(simple-modspec (caddr mod))]
[else #f]))
(let loop ([todo (filter values (map simple-modspec mods))]
[r '()]) [r '()])
(cond (cond
[(null? todo) r] [(null? todo) r]