Changeset 13783 in project


Ignore:
Timestamp:
03/16/09 20:52:28 (11 years ago)
Author:
felix winkelmann
Message:

added initial attempt at script to generate egg-index page

Location:
chicken/trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r13709 r13783  
    7575*** test define-rewrite-rule
    7676*** (csc) generate object-files in /tmp (or TMPDIR)?
     77*** warning on unused local variable
    7778
    7879** setup/install
     
    103104    .SECONDARY help?
    104105*** using "touch" with WINDOWS_SHELL won't work (need alternative)
     106*** script for guessing PLATFORM
    105107
    106108** documentation
    107109*** document qs, normalize-pathname
     110*** compatibility notes for `define-macro' in FAQ, manual
    108111
    109112
     
    114117*** fully compiled ec-tests
    115118** 3-stage bootstrap with compiler-output comparison
     119** distribution-test script
    116120
    117121
  • chicken/trunk/setup-download.scm

    r13548 r13783  
    3333                        locate-egg/svn
    3434                        locate-egg/http
     35                        gather-egg-information
    3536                        list-extensions
    3637                        temporary-directory)
     
    8788                (values trunkdir "trunk")
    8889                (values eggdir "") ) ) ) ) )
     90
     91  (define (gather-egg-information dir)
     92    (let ((ls (directory dir)))
     93      (filter-map
     94       (lambda (egg)
     95         (let-values (((loc version) (locate-egg/local egg dir)))
     96           (let ((meta (make-pathname (list dir loc) egg "meta")))
     97             (and (file-exists? meta)
     98                  (cons (string->symbol egg)
     99                        (cons (list 'version version)
     100                              (with-input-from-file meta read)))))))
     101       ls)))
    89102
    90103  (define (make-svn-ls-cmd uarg parg pnam #!key recursive?)
Note: See TracChangeset for help on using the changeset viewer.