/[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 - (show 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 ;;; 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 files
16 (let ((*nometa-option* t))
17 (mcvs-generic "update" cvs-options cvs-update-options nil
18 files :need-sync-after need-sync))
19 (in-sandbox-root-dir
20 (if need-sync
21 (progn
22 (chatter-debug "Synchronizing.~%")
23 (mapping-synchronize)
24
25 (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
36 (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 (values))
47
48 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
49 (mcvs-update cvs-options cvs-command-options mcvs-args))

  ViewVC Help
Powered by ViewVC 1.1.5