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

assume a binary package only when a shared libary is included

Browse Source
This commit is contained in:
Matthew Flatt 2014-12-08 12:36:12 -07:00
parent 4caf53c03b
commit e2fde3acbf
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
distro-build-server/pack-built.rkt
View File

@ -39,11 +39,15 @@
(define i (get-info/full dir))
(define mode (and i (i 'distribution-preference (lambda () #f))))
(or (eq? mode 'binary)
;; Any ".rkt" or ".scrbl" other than "info.rkt"?
(not (for/or ([f (in-directory dir)])
(and (regexp-match? #rx"[.](scrbl|rkt)$" f)
(not (let-values ([(base name dir?) (split-path f)])
(equal? #"info.rkt" (path->bytes name)))))))))
(and
;; Any ".rkt" or ".scrbl" other than "info.rkt"?
(not (for/or ([f (in-directory dir)])
(and (regexp-match? #rx"[.](scrbl|rkt)$" f)
(not (let-values ([(base name dir?) (split-path f)])
(equal? #"info.rkt" (path->bytes name)))))))
;; Any native library?
(for/or ([f (in-directory dir)])
(regexp-match? #rx"[.](dll|so(|[.][-.0-9]+)|dylib|framework)$" f)))))
(for ([pkg (in-list (installed-pkg-names))])
(define ht (hash-ref pkg-details pkg (hash)))