Changeset 15872 in project


Ignore:
Timestamp:
09/15/09 01:55:56 (10 years ago)
Author:
iraikov
Message:

fixes to salmonella's handling of egg repository

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/salmonella/trunk/salmonella

    r15189 r15872  
    1717
    1818
    19 (define env-vars      (make-parameter (string-append
    20                                        "CHICKEN_INSTALL_PREFIX=" (repo-test-dir)
    21                                        " "
    22                                        "CHICKEN_INCLUDE_PATH=" (repo-test-lib-dir))))
     19(define env-vars      (make-parameter
     20                       (string-append
     21                        "CHICKEN_INSTALL_PREFIX=" (repo-test-dir)
     22                        " "
     23                        "CHICKEN_INCLUDE_PATH=" (repo-test-lib-dir))))
    2324(define skip-eggs     (make-parameter '()))
    2425(define verbose       (make-parameter #f))
     
    165166       (map ->string (cdr deps))))))
    166167
    167 (define (create-directory-recursively dir)
    168   (let ((done '()))
    169     (for-each (lambda (d)
    170                 (let ((to-create (make-pathname done d)))
    171                   (if (directory? to-create)
    172                       'skip
    173                       (unless (string-null? to-create)
    174                         (create-directory to-create)))
    175                   (set! done (append done (list d)))))
    176               (let* ((sep (->string ##sys#pathname-directory-separator))
    177                      (dirs (string-split dir sep)))
    178                 (if (absolute-pathname? dir)
    179                     (cons sep dirs)
    180                     dirs)))))
    181 
    182168(define (create-repo-test-dir)
    183   (create-directory-recursively (repo-test-lib-dir)))
     169  (if (not (file-exists? (repo-test-lib-dir)))
     170      (create-directory (repo-test-lib-dir) #t)))
    184171
    185172(define egg-dependencies
     
    241228   
    242229    (clean-repo-test-dir)
    243     (unless (directory? (repo-test-dir))
    244       (create-repo-test-dir))
     230    (create-repo-test-dir)
     231
    245232    (report-env)
    246233
     
    268255                    (set-installed egg)
    269256                    (show "Cleaning up " (repo-test-dir) "...")
    270                     (clean-repo-test-dir)))
     257                    (clean-repo-test-dir)
     258                    (create-repo-test-dir)
     259                    ))
    271260                ((eggs))))))
    272261
Note: See TracChangeset for help on using the changeset viewer.