Changeset 13166 in project


Ignore:
Timestamp:
02/03/09 05:12:14 (12 years ago)
Author:
Ivan Raikov
Message:

Bug fixes in the eggref-post-commit script.

Location:
release/3/eggref-post-commit/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/eggref-post-commit/trunk/chicken-eggref-post-commit.scm

    r13120 r13166  
    9090         (changed (if branch (collect-changes branch) (collect-changes))))
    9191    (let loop ((changed changed) (eggs '()))
    92       (print "changed = " changed)
    93       (print "eggs = " eggs)
    9492      (if (null? changed)  (delete-duplicates eggs)
    9593          (let* ((f1   (car changed))
     
    9795                 (dir  (if (and branch dir0) (string-append "release/" branch "/" dir0) dir0))
    9896                 )
    99             (print "f1 = " f1)
    100             (print "dir0 = " dir0)
    101             (print "dir = " dir)
     97
    10298            (if (and dir (not (string-match "release/\\d+" dir)))
    10399                (let-values (((ftop rel ename) (egg-info dir)))
  • release/3/eggref-post-commit/trunk/eggref-post-commit.scm

    r13120 r13166  
    1313 utils srfi-1 srfi-13 srfi-18 srfi-69 posix regex
    1414 ftp http-client format-modular uri base64 svn-client
    15  srfi-40 stream-ext html-stream stream-wiki versions )
     15 srfi-40 stream-ext html-stream stream-wiki svnwiki-extensions-support
     16 versions )
    1617
    1718(define-constant +call/cc-ftp-url+ "www.call-with-current-continuation.org")
    1819(define-constant +call/cc-eggs-url+ "http://www.call-with-current-continuation.org/eggs")
    19 (define-constant +extension-path+ "release/2/stream-wiki/tags/1.9/extensions")
    2020(define +wiki-url+ "http://chicken.wiki.br")
    2121
     
    230230  eggname))
    231231
    232 (define *loaded-extensions* (make-hash-table))
    233232
    234233(define (make-html-from-wiki egg-dir egg)
     
    269268                  (constantly stream-null)
    270269                  (constantly #t)
    271                   *loaded-extensions*) ))
     270                  ) ))
    272271              ((div id "footer")
    273272               (hr)
     
    287286  (set! *wiki-page*
    288287    (make-pathname
    289      (if *wiki-prefix* (make-pathname *wiki-dir* *wiki-prefix*) *wiki-dir*)
    290      (if (not (string=? "2" *major-version*)) ; svn mv 'Eggs Unlimited' 'Eggs Unlimited 2' ?
    291          (conc "Eggs Unlimited " *major-version*)
    292          "Eggs Unlimited")))
     288     (if *wiki-prefix* (make-pathname *wiki-dir* *wiki-prefix*) *wiki-dir*) "index"))
    293289  (print "Building egg list...")
    294290  (set! eggs (read-egg-list))
     
    317313                                          eggname))
    318314                           (print "Create HTML from wiki")
    319                            (make-html-from-wiki egg-dir eggname))
     315                           (make-html-from-wiki egg-dir eggname)
     316                           )
    320317                          (else (print "wiki page missing: " eggname))))
    321318                   ((assq 'eggdoc meta) =>
     
    349346    (print "Creating index page " *wiki-page* " ...")
    350347    (with-output-to-file *wiki-page* make-egg-index-page)
    351     (print "Uploading files:")
    352     (apply upload "repository" (reverse eggfiles))
     348    (print "Uploading files: " eggfiles)
     349    (apply upload (reverse eggfiles))
    353350    (commit-index)
    354351    (print "(eggref-post-commit) Finished.") ) )
     
    372369    (error "eggref-post-commit must be executed in root egg directory") )
    373370 
    374   (for-each
    375    (lambda (x)
    376      (unless (string=? ".svn" (pathname-file x))
    377        (load-extensions-from-file *loaded-extensions* x)))
    378    (glob (conc +extension-path+ "/*.scm")) )
    379 
    380371  (assert (conjoin directory? file-exists?) *wiki-dir*)
    381372  (handle-exceptions ex
     
    399390         (unless *major-version*
    400391           (usage 1))
    401          (post-commit files #f))
     392         (post-commit files))
    402393        (_ (usage 1))))
    403394    0) )
Note: See TracChangeset for help on using the changeset viewer.