From c8066e2eb731e7df539a7e9cd27609ac6e518465 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 8 May 2015 00:01:59 +0900 Subject: [PATCH] don't install meta pkg info for tests --- tools/generate-install-meta.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/tools/generate-install-meta.scm b/tools/generate-install-meta.scm index accfb87c..2fa398d4 100755 --- a/tools/generate-install-meta.scm +++ b/tools/generate-install-meta.scm @@ -18,12 +18,23 @@ ((eqv? #\return ch) (lp)) (else (lp (cons ch res))))))) +(define (install-library? name) + (and (list? name) + (>= (length name) 2) + (let ((x (car (reverse name)))) + (and (not (and (eq? 'test x) + (number? (cadr (reverse name))))) + (let* ((s (if (number? x) (number->string x) (symbol->string x))) + (len (string-length s))) + (not (and (> len 5) + (equal? "-test" (substring s (- len 5) len))))))))) + (define (parse-library file) (protect (exn (else #f)) (let ((x (call-with-input-file file read))) (and (pair? x) (eq? 'define-library (car x)) - (list? (cadr x)) + (install-library? (cadr x)) (cadr x))))) (define (extract-libraries)