Changeset 8895 in project


Ignore:
Timestamp:
02/25/08 08:02:10 (12 years ago)
Author:
felix winkelmann
Message:

updates, update info in generated wikipage

Location:
release/3/egg-post-commit/trunk
Files:
2 edited
1 moved

Legend:

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

    r8891 r8895  
    1 #!/bin/sh
    2 #| -*- Scheme -*-
    3 exec csi -s $0 "$@"
    4 |#
    5 ;;;; egg-post-commit
     1;;;; egg-post-commit.scm
    62;
    73; Usage: egg-post-commit USERNAME PASSWORD EGGNAME
     
    1713(define-constant +call/cc-eggs-url+ "http://www.call-with-current-continuation.org/eggs")
    1814(define +wiki-url+ "http://chicken.wiki.br")
    19 (define-constant +extension-path+ "stream-wiki/tags/1.9/extensions")
     15(define-constant +extension-path+ "release/2/stream-wiki/tags/1.9/extensions")
    2016
    2117(use syntax-case
     
    119115  (print
    120116   "[[tags: eggs]]\n[[toc:]]\n\n"
    121    "== Eggs Unlimited\n\n"
    122    (if *major-version* (conc "== Version " *major-version* "\n\n") "")
     117   "== Eggs Unlimited (release branch " *major-version* ", updated "
     118   (string-chomp (seconds->string (current-seconds)))
     119   ")\n\n"
    123120   "A library of extensions for the Chicken Scheme system.\n\n"
    124121   "=== Installation\n\n"
     
    133130   "  $ chicken-setup -fetch EXTENSIONNAME\n\n"
    134131   "By default the archive will be unpacked into a temporary directory (named "
    135    "{{EXTENSIONNAME.egg.dir}} and the directory will be removed if the "
     132   "{{EXTENSIONNAME.egg-dir}} and the directory will be removed if the "
    136133   "installation completed successfully. To keep the extracted files add "
    137134   "{{-keep}} to the options passed to {{chicken-setup}}.\n\n"
     
    150147      (for-each
    151148       entry
    152        (filter (lambda (info)
    153                  (and (eq? cat (cadr (assq 'category (cdr info))))
    154                       (not (assq 'hidden (cdr info)))))
    155                eggs) )
     149       (sort
     150        (filter (lambda (info)
     151                  (and (eq? cat (cadr (assq 'category (cdr info))))
     152                       (not (assq 'hidden (cdr info)))))
     153                eggs)
     154        (lambda (e1 e2)
     155          (string<? (symbol->string (car e1)) (symbol->string (car e2))))))
    156156      (print "\n</table>") ] )
    157157   categories) )
     
    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/trunk/egg-post-commit.setup

    r8650 r8895  
    1 (install-script
     1(compile egg-post-commit.scm)
     2
     3(install-program
    24 'egg-post-commit
    35 "egg-post-commit"
    4  '((version 0.4)
     6 '((version 0.6)
    57   (documentation "egg-post-commit.html")))
  • release/3/egg-post-commit/trunk/post-commit.scm

    r8650 r8895  
    1313(define +police-file+ "post-commit-police")
    1414(define +recipients-file+ "post-commit-recipients")
     15(define +tasks-file+ "post-commit-tasks.scm")
    1516
    1617
     
    103104    ("release/(\\d+)/([^/]+).*" (_ rel ename)
    104105     (values (conc "release/" rel "/" ename) rel ename) )
    105     (else (values dir #f dir))))
     106    (else (values dir "2" dir))))
    106107
    107108(define (compute-changed-eggs missing)
     
    189190           (print-call-chain)
    190191           (set! problems #t) ) )
    191       (cond ((not (runcmd "svn revert wiki/* && svn up"))
     192      (cond ((and (not *report*) (not (runcmd "svn revert wiki/* && svn up")))
    192193             (with-output (cut print "Updating the repository failed."))
    193194             (set! problems #t) )
     
    219220                         (match-lambda
    220221                           ((rel eggs ...)
    221                             (or (runcmd (sprintf "egg-post-commit ~a ~a ~a ~a ~a"
     222                            (or (runcmd (sprintf "./egg-post-commit ~a ~a ~a ~a"
    222223                                                 (if rel (conc "-rel " rel) "")
    223                                                  (if rel (conc "-cd release/" rel) "")
    224224                                                 user passwd
    225225                                                 (string-intersperse eggs)))
     
    242242        (with-output (cut printf "Setting top revision to ~a~%" *top-revision*))
    243243        (with-output-to-file +last-revision-file+
    244           (cut pp *top-revision*)) ) )
     244          (cut pp *top-revision*)) )
     245      (when (file-exists? +tasks-file+)
     246        (with-output (cut print "running post-commit-tasks..."))
     247        (load +tasks-file+)) )
    245248    (with-output (cut print "(post-commit) Finished."))
    246249    (if *report*
Note: See TracChangeset for help on using the changeset viewer.