Changeset 15098 in project


Ignore:
Timestamp:
06/29/09 09:04:22 (11 years ago)
Author:
Ivan Raikov
Message:

additional chicken-install-specific fixes to salmonella

File:
1 edited

Legend:

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

    r15097 r15098  
    66(use setup-download utils posix (srfi 1 13))
    77
    8 (define chicken-install (make-parameter "chicken-install"))
    9 (define lib-dir (make-pathname '("lib" "chicken") "4"))
    10 (define repo-test-dir (make-parameter (make-pathname (current-directory) "salmonella-repo")))
     8(define chicken-install   (make-parameter "chicken-install"))
     9(define lib-dir           (make-pathname '("lib" "chicken") "4"))
     10(define repo-test-dir     (make-parameter (make-pathname (current-directory) "salmonella-repo")))
    1111(define repo-test-lib-dir (make-parameter (make-pathname (repo-test-dir) lib-dir)))
    1212(define chicken-install-args (make-parameter (lambda () (string-append " -prefix " (repo-test-dir)))))
     13
     14(define default-chicken-eggs-dir (make-parameter (make-pathname '("chicken-eggs" "release") "4")))
    1315
    1416(define env-vars      (make-parameter (string-append
     
    5052    status))
    5153
    52 (define usage
    53   "Usage: salmonella -h | -help | --help | -?
    54           salmonella <conf-file>
    55           salmonella <options>
     54(define usage #<#EOF
     55Usage: salmonella -h | -help | --help | -?
     56       salmonella <conf-file>
     57       salmonella <options>
    5658
    5759<options> are Scheme expressions. <conf-file> is a file which may
     
    6668 (repo-test-dir \"<path to repo-test-dir>\")    `pwd`/salmonella-repo
    6769 (skip-eggs (list \"egg1\" \"egg2\" ...))         '()
    68  (verbose <bool>)                             #f
     70 (verbose <bool>)                               ##f
    6971 (logfile \"filename\")                         salmonella.log
    70  (egg-information (lambda () ...))              a procedure which returns egg information for all eggs found in ./chicken-eggs
    71  (eggs (lambda () ...))                         a procedure which returns the names of all eggs found in ./chicken-eggs
    72  (system-deps \"filename\")                     #f
    73  (pkg-manager \"system pkg manager & args\")    #f
    74  (resume <bool>)                              #f
    75  (dont-ask <bool>)                            #f
     72 (egg-information (lambda () ...))              a procedure which returns egg information for all eggs found in #(default-chicken-eggs-dir)
     73 (eggs (lambda () ...))                         a procedure which returns the names of all eggs found in #(default-chicken-eggs-dir)
     74 (system-deps \"filename\")                     ##f
     75 (pkg-manager \"system pkg manager & args\")    ##f
     76 (resume <bool>)                                ##f
     77 (dont-ask <bool>)                              ##f
    7678 (progress-file \"filename\")                   salmonella.progress
    77  (dont-ask <bool>)                            #f
     79 (dont-ask <bool>)                              ##f
    7880 (progress-file \"filename\")                   salmonella.progress
    79  (html-output \"dirname\")                      salmonella-report.  If #f, no HTML output
    80  (css-file \"filename\")                        #f
    81  (->html \"filename\")                          #f
     81 (html-output \"dirname\")                      salmonella-report.  If ##f, no HTML output
     82 (css-file \"filename\")                        ##f
     83 (->html \"filename\")                          ##f
    8284Example:
    8385
    84  salmonella '(chicken-install \"/usr/local/chicken/bin/chicken-install\") (verbose #t)'
    85 ")
     86 salmonella '(chicken-install \"/usr/local/chicken/bin/chicken-install\") (verbose ##t)'
     87EOF
     88)
    8689
    8790(define (delete-path . paths)
     
    126129      (lambda ()
    127130        (pp #<#EOF
    128 salmonella -- a tool for testing Chicken eggs (http://chicken.wiki.br/salmonella)
     131salmonella -- a tool for testing Chicken eggs (http://chicken.wiki.br/eggref/4/salmonella)
    129132#(string-trim-both (current-time))
    130133#(system:output (chicken-install) " -version")
     
    214217       (let ((egg-data #f))
    215218         (lambda () (if (not egg-data)
    216                         (set! egg-data (gather-egg-information "chicken-eggs"))
     219                        (begin
     220                          (set! egg-data (gather-egg-information (default-chicken-eggs-dir)))
     221                          egg-data)
    217222                        egg-data)))))
    218    
     223
    219224    (when (->html)
    220225      (logfile (->html))
     
    244249                  (unless (member egg (skip-eggs))
    245250                    (install-system-deps egg deps)
    246                     (show "Deleting " egg " egg source (if exists)...")
     251                    (show "Deleting " egg " egg source (if it exists)...")
    247252                    (delete-eggs-source)
    248253                    (display (string-append "Installing " egg))
     
    361366                                   page-title: egg))))
    362367               ;; generate the eggs table
    363                (map (lambda (info)
    364                       (a (make-pathname '() egg ".html") info))
     368               (let ((version-str (lambda (egg-data)
     369                                    (or (and egg-data (let ((x (alist-ref 'version egg-data)))
     370                                                        (and x (car x)))) ""))))
     371               (map (lambda (info) (a (make-pathname '() egg ".html") info))
    365372                    (let ((data
    366373                           (list egg
    367374                                 (let ((egg-data (alist-ref (string->symbol egg) ((egg-information)))))
    368                                    (if egg-data
    369                                        (cadaar egg-data)
    370                                        ""))
     375                                  (version-str egg-data))
    371376                                 (link-egg-doc egg)
    372377                                 (link-egg-deps egg))))
     
    378383                                                           (egg-dependencies egg)))
    379384                                              ",")))
    380                           data)))))
     385                          data))))))
    381386           (sort eggs (lambda (s1 s2) (string< (car s1) (car s2))))))))
    382387
Note: See TracChangeset for help on using the changeset viewer.