/[meta-cvs]/meta-cvs/F-205A90D152A06EE04D552B256CDAF850
ViewVC logotype

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (hide annotations)
Sun Feb 10 04:39:03 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.8: +7 -2 lines
Adding some restarts around cvs update.

* posix.lisp (execute-command-xargs): Bail with nil return
value if any command line fails.

* update.lisp (mcvs-update): Tests return value of execute-program
and signal condition if it's nil. Provides a continue restart
as well as a retry restart to try the command again.

* error.lisp (mcvs-error-handler): Show retry restarts as
a special menu item "R".
1 kaz 1.8 ;;; This source file is part of the Meta-CVS program,
2 kaz 1.5 ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.1 (require "dirwalk")
6     (require "chatter")
7     (require "mapping")
8 kaz 1.6 (require "options")
9 kaz 1.1 (provide "update")
10    
11 kaz 1.4 (defun mcvs-update (&optional cvs-options cvs-update-options)
12 kaz 1.3 (in-sandbox-root-dir ()
13     (chatter-info "Synchronizing.~%")
14     (mapping-synchronize)
15 kaz 1.1
16 kaz 1.3 (current-dir-restore
17     (chdir *mcvs-dir*)
18     (chatter-info "Invoking CVS.~%")
19 kaz 1.9 (tagbody
20     :again
21     (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
22     "up" ,@(format-opt cvs-update-options))))
23     (restart-case (error "CVS update failed.~%")
24     (continue () :report "Update file structure and re-synchronize.")
25     (retry () :report "Try invoking CVS again." (go :again))))))
26 kaz 1.1
27 kaz 1.3 (chatter-info "Updating file structure.~%")
28     (mapping-update)
29     (chatter-info "Synchronizing again.~%")
30     (mapping-synchronize))
31 kaz 1.1 (values))
32 kaz 1.4
33 kaz 1.6 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
34 kaz 1.4 (when mcvs-args
35 kaz 1.7 (error "mcvs-update: no arguments permitted."))
36 kaz 1.6 (mcvs-update cvs-options cvs-command-options))

  ViewVC Help
Powered by ViewVC 1.1.5