Changeset 8650 in project


Ignore:
Timestamp:
02/23/08 11:51:30 (12 years ago)
Author:
felix winkelmann
Message:

created tags and branches

Location:
release/3/egg-post-commit
Files:
8 added
4 moved

Legend:

Unmodified
Added
Removed
  • release/3/egg-post-commit/branches/rrb2/egg-post-commit

    r8637 r8650  
    120120   "[[tags: eggs]]\n[[toc:]]\n\n"
    121121   "== Eggs Unlimited\n\n"
    122    (if *major-version* (conc "== Version " *major-version* "\n\n") "")
     122   (conc "== Version " *major-version* "\n\n")
    123123   "A library of extensions for the Chicken Scheme system.\n\n"
    124124   "=== Installation\n\n"
     
    198198    (ftp:set-type! ftp 'binary)
    199199    (ftp:change-directory ftp "eggs")
    200     (when *major-version*
     200    (unless (string=? "2" *major-version*)
    201201      (ftp:change-directory ftp *major-version*))
    202202    (for-each out files)
     
    309309(define (post-commit eggnames pack-only?)
    310310  (set! *egg-dir*
    311     (if *major-version*
     311    (if (not (string=? "2" *major-version*))
    312312        (conc +call/cc-eggs-url+ "/" *major-version*)
    313313        +call/cc-eggs-url+ ) )
     
    315315    (make-pathname
    316316     *wiki-dir*
    317      (if *major-version*
     317     (if (not (string=? "2" *major-version*)) ; svn mv 'Eggs Unlimited' 'Eggs Unlimited 2' ?
    318318         (conc "Eggs Unlimited " *major-version*)
    319319         "Eggs Unlimited")))
     
    410410(define (usage code)
    411411  (print #<<EOF
    412 usage: egg-post-commit [ OPTION ... ] USERNAME PASSWORD EGGNAME ...
     412usage: egg-post-commit [ OPTION ... ] -rel MAJORVERSION USERNAME PASSWORD EGGNAME ...
    413413       egg-post-commit [ OPTION ... ] -pack EGGNAME ...
    414414       egg-post-commit [ OPTION ... ] -count
     
    416416  -help                 show this message
    417417  -tar TARCMD           command for tar'ing the created egg
    418   -rel MAJORVERSION     number of release branch to use
    419   -cd DIR               cd to this directory and proceed
     418  -rel MAJORVERSION     number of release branch to use (implicitly
     419                        cd's to "release/MAJORVERSION" subdirector)
    420420  -pack                 create eggs but don't upload
    421421  -count                count number of eggs
     
    438438         (set! *tar-cmd* tar)
    439439         (loop more) )
    440         (("-cd" dir . more)
    441          (change-directory dir)
    442          (loop more))
    443440        (("-rel" rel . more)
    444441         (set! *major-version* rel)
     442         (change-directory (string-append "release/" rel))
    445443         (loop more) )
    446444        (("-pack" file1 ...)
     
    451449         (set! username u)
    452450         (set! password p)
     451         (unless *major-version*
     452           (usage 1))
    453453         (post-commit files #f))
    454454        (_ (usage 1))))
  • release/3/egg-post-commit/branches/rrb2/egg-post-commit.setup

    r8637 r8650  
    22 'egg-post-commit
    33 "egg-post-commit"
    4  '((version 0.4)
     4 '((version 0.5)
    55   (documentation "egg-post-commit.html")))
  • release/3/egg-post-commit/branches/rrb2/post-commit.scm

    r8637 r8650  
    103103    ("release/(\\d+)/([^/]+).*" (_ rel ename)
    104104     (values (conc "release/" rel "/" ename) rel ename) )
    105     (else (values dir #f dir))))
     105    (else (values dir "2" dir))))
    106106
    107107(define (compute-changed-eggs missing)
     
    219219                         (match-lambda
    220220                           ((rel eggs ...)
    221                             (or (runcmd (sprintf "egg-post-commit ~a ~a ~a ~a ~a"
     221                            (or (runcmd (sprintf "egg-post-commit ~a ~a ~a ~a"
    222222                                                 (if rel (conc "-rel " rel) "")
    223                                                  (if rel (conc "-cd release/" rel) "")
    224223                                                 user passwd
    225224                                                 (string-intersperse eggs)))
Note: See TracChangeset for help on using the changeset viewer.