Changeset 11607 in project


Ignore:
Timestamp:
08/12/08 13:08:58 (13 years ago)
Author:
felix winkelmann
Message:

setup bugfixes

Location:
chicken/branches/hygienic
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/TODO

    r11597 r11607  
    5555*** handle needs/depends of builtin extension
    5656*** should cache extension-info
    57 ** test henrietta
    5857** manpages
    5958*** chicken-{status,install,uninstall}
     59*** document new .meta entries
     60    depends, test-depends
    6061** write manual pages and manual chapters
    6162*** remove "manual/chicken-setup", fix links
    6263*** add "manual/extensions"
    63 ** document current-extension-version
    6464** add .c files to distribution/manifest
    6565** remove all remnants of chicken-setup
  • chicken/branches/hygienic/chicken-install.scm

    r11573 r11607  
    6161  (define *prefix* #f)
    6262  (define *host-extension* #f)
     63  (define *run-tests* #f)
    6364
    6465  (define (load-defaults)
     
    7374      (pair? def)))
    7475
     76  (define (deps key meta)
     77    (or (and-let* ((d (assq key meta)))
     78          (cdr d))
     79        '()))
     80
    7581  (define (outdated-dependencies meta)
    76     (let ((a (or (assq 'depends meta)
    77                  (assq 'needs meta)) ) )
    78       (let loop ((deps (if a (cdr a) '())) (missing '()) (upgrade '()))
     82    (let ((ds (append
     83              (deps 'depends meta)
     84              (deps 'needs meta)
     85              (if *run-tests* (deps 'test-depends meta) '()))))
     86      (let loop ((deps ds) (missing '()) (upgrade '()))
    7987        (if (null? deps)
    8088            (values (reverse missing) (reverse upgrade))
     
    189197                           "")
    190198                       (make-pathname (cdr e+d) (car e+d) "setup"))))
    191              (system* cmd))))
     199             (system* cmd))
     200           (when (and *run-tests*
     201                      (file-exists? "tests")
     202                      (directory? "tests")
     203                      (file-exists? "tests/run.scm") )
     204             (current-directory "tests")
     205             (let ((cmd (sprintf "~a/csi -s run.scm ~a" *program-path* (car e+d))))
     206               (print cmd)
     207               (system* cmd)))))
    192208       *eggs+dirs*))
    193209
     
    210226  -p   -prefix PREFIX           change installation prefix to PREFIX
    211227       -host-extension          when cross-compiling, compile extension for host
     228       -test                    run included test-cases, if available
    212229EOF
    213230);|
     
    255272                     (set! *prefix* (cadr args))
    256273                     (loop (cddr args) eggs))
     274                    ((string=? "-test" arg)
     275                     (set! *run-tests* #t)
     276                     (loop (cdr args) eggs))
    257277                    ((string=? "-host-extension" arg)
    258278                     (set! *host-extension* #t)
    259                      (loop (cddr args) eggs))
     279                     (loop (cdr args) eggs))
    260280                    ((and (positive? (string-length arg))
    261281                          (char=? #\- (string-ref arg 0)))
  • chicken/branches/hygienic/henrietta.scm

    r11597 r11607  
    5353                name *default-transport* *default-location*
    5454                version #t)))
    55       (let walk ((dir dir) (prefix "./"))
     55      (let walk ((dir dir) (prefix "."))
    5656        (let ((files (directory dir)))
    5757          (for-each
    5858           (lambda (f)
    59              (cond ((directory? f)
    60                     (print "\n#|--------------------|# \"" f "/\" 0\n")
    61                     (walk
    62                      (string-append dir "/" f)
    63                      (string-append prefix f "/")))
    64                    (else
    65                     (let ((ff (string-append dir "/" f)))
    66                       (print "\n#|--------------------|# \"" f "\" " (file-size ff) "\n")
     59             (let ((ff (string-append dir "/" f))
     60                   (pf (string-append prefix "/" f)))
     61               (cond ((directory? ff)
     62                      (print "\n#|--------------------|# \"" pf "/\" 0\n")
     63                      (walk ff pf))
     64                     (else
     65                      (print "\n#|--------------------|# \"" pf "\" " (file-size ff) "\n")
    6766                      (display (read-all ff))))))
    6867           files)))))
  • chicken/branches/hygienic/setup-download.scm

    r11597 r11607  
    9292                    (and hastrunk "trunk") )
    9393                  ""))
    94              (tmpdir (get-temporary-directory))
    95              (cmd (sprintf "svn co \"~a/~a/~a\" \"~a\" ~a" repo egg filedir tmpdir
     94             (tmpdir (make-pathname (get-temporary-directory) egg))
     95             (cmd (sprintf "svn co \"~a/~a/~a\" \"~a\" ~a" repo egg filedir
     96                           tmpdir
    9697                           (if quiet "1>&2" ""))))
    9798        (fprintf (if quiet (current-error-port) (current-output-port)) "  ~a~%" cmd)
     
    112113                     (string-append "?version=" version)
    113114                     ""))))
     115      (create-directory (make-pathname tmpdir egg))
    114116      (http-fetch host port loc tmpdir quiet)
    115117      tmpdir))
Note: See TracChangeset for help on using the changeset viewer.