Changeset 7367 in project


Ignore:
Timestamp:
01/16/08 13:47:22 (12 years ago)
Author:
felix winkelmann
Message:

added dry run option and safety check

File:
1 edited

Legend:

Unmodified
Added
Removed
  • maintenance/make-branch.scm

    r7366 r7367  
    1515  '("maintenance"
    1616    "release"
     17    "wiki"
    1718    "chicken") )
    1819
     
    4849     *ignore*)))
    4950
     51(unless (dry-run)
     52  (print* "\nCopying " (length *eggs*) " eggs into release branch " *release*
     53          ".\n\n  Do you want to continue? ")
     54  (unless (string=? "yes" (read-line))
     55    (print "aborted.")
     56    (exit) ) )
     57
    5058(for-each
    5159 (lambda (egg)
     
    5361          (print egg ": branch already exists") )
    5462         (else
    55           (run (svn cp ,(make-pathname *repository* egg)
    56                     ,(make-pathname (list *repository* *release*) egg) ) ) ) ) )
     63          (when (or (file-exists? (make-pathname egg "trunk"))
     64                    (file-exists? (make-pathname egg egg "setup"))
     65                    (begin
     66                      (print* "\n`" egg "' doesn't seem to be an egg. Copy? ")
     67                      (string=? "yes" (readline))))
     68            (run (svn cp ,(make-pathname *repository* egg)
     69                      ,(make-pathname (list *repository* *release*) egg) ) ) ) ) ) )
    5770 (reverse *eggs*))
Note: See TracChangeset for help on using the changeset viewer.