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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.14 - (hide annotations)
Tue Apr 2 23:33:35 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: old-convert-hacking-branch~branch-point, mcvs-0-15, mcvs-0-14, mcvs-0-11, mcvs-0-10, mcvs-0-13, mcvs-0-12, deferred-adds-branch~branch-point
Branch point for: deferred-adds-branch, old-convert-hacking-branch
Changes since 1.13: +1 -1 lines
Remove spurious empty expression.
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.13 (require "generic")
10 kaz 1.1 (provide "update")
11    
12 kaz 1.13 (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 files
16     (let ((*nometa-option* t))
17     (mcvs-generic "update" cvs-options cvs-update-options nil
18     files :need-sync-after need-sync))
19 kaz 1.14 (in-sandbox-root-dir
20 kaz 1.13 (if need-sync
21     (progn
22     (chatter-debug "Synchronizing.~%")
23     (mapping-synchronize)
24 kaz 1.1
25 kaz 1.13 (current-dir-restore
26     (chdir *mcvs-dir*)
27     (tagbody
28     :again
29     (chatter-debug "Invoking CVS.~%")
30     (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
31     "up" ,@(format-opt cvs-update-options))))
32     (restart-case (error "CVS update failed.")
33     (continue () :report "Update file structure and re-synchronize.")
34     (retry () :report "Try invoking CVS again." (go :again))))))
35 kaz 1.1
36 kaz 1.13 (chatter-debug "Updating file structure.~%")
37     (mapping-update)
38     (chatter-debug "Synchronizing again.~%")
39     (mapping-synchronize))
40     (current-dir-restore
41     (chdir *mcvs-dir*)
42     (chatter-debug "Invoking CVS.~%")
43     (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
44     "up" ,@(format-opt cvs-update-options))))
45     (error "CVS update failed.")))))))
46 kaz 1.1 (values))
47 kaz 1.4
48 kaz 1.6 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
49 kaz 1.13 (mcvs-update cvs-options cvs-command-options mcvs-args))

  ViewVC Help
Powered by ViewVC 1.1.5