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

make compile-omit-paths' apply to scribblings' sources

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-13 07:43:56 -06:00
parent 461af202c5
commit f46a0e2519
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/compiler-unit.rkt
View File

@ -178,7 +178,8 @@
;; Add specified doc sources:
(if skip-docs?
null
(map car (info* 'scribblings (lambda () null)))))]
(map (lambda (s) (if (string? s) (string->path s) s))
(map car (info* 'scribblings (lambda () null))))))]
[sses (remove* omit-paths sses)])
(worker null sses)))])

19
collects/setup/setup-unit.rkt
View File

@ -317,19 +317,22 @@
;; coll/subcoll
[omit (omitted-paths ccp getinfo)])
(let-values ([(dirs files)
(if (eq? 'all omit)
(values null null)
(partition (lambda (x) (directory-exists? (build-path ccp x)))
(filter (lambda (p)
(not (or (member p omit)
(skip-path? p))))
(directory-list ccp))))])
(if (eq? 'all omit)
(values null null)
(partition (lambda (x) (directory-exists? (build-path ccp x)))
(filter (lambda (p)
(not (or (member p omit)
(skip-path? p))))
(directory-list ccp))))])
(let ([children-ccs (map build-collection-tree (filter-map (lambda (x) (make-child-cc cc x)) dirs))]
[srcs (append
(filter extract-base-filename/ss files)
(if (make-docs)
(map car (call-info info 'scribblings (lambda () null) (lambda (x) #f)))
(filter (lambda (p) (not (member p omit)))
(map
(lambda (s) (if (string? s) (string->path s) s))
(map car (call-info info 'scribblings (lambda () null) (lambda (x) #f)))))
null))])
(list cc srcs children-ccs)))))
(map build-collection-tree collections-to-compile))