commit e2fde3acbff09774d593a8df473976e8b3a05624 parent 4caf53c03bf3abc345a6f8da8604c899533bcf13 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Mon, 8 Dec 2014 12:36:12 -0700 assume a binary package only when a shared libary is included Diffstat:
| M | distro-build-server/pack-built.rkt | | | 14 | +++++++++----- |
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/distro-build-server/pack-built.rkt b/distro-build-server/pack-built.rkt @@ -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)))