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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.15.6.1 - (show annotations)
Sat Oct 12 22:32:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0, mcvs-0-99, mcvs-0-98, mcvs-1-0-5, mcvs-1-0-4, mcvs-1-0-1, mcvs-1-0-2
Changes since 1.15: +1 -1 lines
* code/mcvs-main.lisp (*update-options*): Added -C option.

* code/update.lisp (mcvs-update): Fall back on the mcvs-generic
if --metaonly or --nometa is specified to run CVS on specific
files.
1 ;;; This source file is part of the Meta-CVS program,
2 ;;; which is distributed under the GNU license.
3 ;;; Copyright 2002 Kaz Kylheku
4
5 (require "dirwalk")
6 (require "chatter")
7 (require "mapping")
8 (require "options")
9 (require "generic")
10 (provide "update")
11
12 (defun mcvs-update (&optional cvs-options cvs-update-options files)
13 (let ((need-sync (not (find "p" cvs-update-options
14 :key #'first :test #'string=))))
15 (if (or files *metaonly-option* *nometa-option*)
16 (mcvs-generic "update" cvs-options cvs-update-options nil
17 files :need-sync-after need-sync
18 :need-update-after t
19 :default-include-meta-files nil)
20 (in-sandbox-root-dir
21 (if need-sync
22 (progn
23 (chatter-debug "Synchronizing.~%")
24 (mapping-synchronize)
25
26 (current-dir-restore
27 (chdir *mcvs-dir*)
28 (tagbody
29 :again
30 (chatter-debug "Invoking CVS.~%")
31 (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
32 "up" ,@(format-opt cvs-update-options))))
33 (restart-case (error "CVS update failed.")
34 (continue () :report "Update file structure and re-synchronize.")
35 (retry () :report "Try invoking CVS again." (go :again))))))
36
37 (chatter-debug "Updating file structure.~%")
38 (mapping-update)
39 (chatter-debug "Synchronizing again.~%")
40 (mapping-synchronize))
41 (current-dir-restore
42 (chdir *mcvs-dir*)
43 (chatter-debug "Invoking CVS.~%")
44 (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
45 "up" ,@(format-opt cvs-update-options))))
46 (error "CVS update failed.")))))))
47 (values))
48
49 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
50 (mcvs-update cvs-options cvs-command-options mcvs-args))

  ViewVC Help
Powered by ViewVC 1.1.5