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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.24 - (hide annotations)
Fri Nov 24 04:53:49 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.23: +1 -1 lines
Stylistic change.

* code/add.lisp: Change in-package calls not to use the all-caps
"META-CVS" string string, but rather the :meta-cvs keyword.
* code/branch.lisp: Likewise.
* code/chatter.lisp: Likewise.
* code/checkout.lisp: Likewise.
* code/clisp-unix.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/convert.lisp: Likewise.
* code/create.lisp: Likewise.
* code/dirwalk.lisp: Likewise.
* code/error.lisp: Likewise.
* code/execute.lisp: Likewise.
* code/filt.lisp: Likewise.
* code/find-bind.lisp: Likewise.
* code/generic.lisp: Likewise.
* code/grab.lisp: Likewise.
* code/link.lisp: Likewise.
* code/main.lisp: Likewise.
* code/mapping.lisp: Likewise.
* code/memoize.lisp: Likewise.
* code/move.lisp: Likewise.
* code/multi-hash.lisp: Likewise.
* code/options.lisp: Likewise.
* code/paths.lisp: Likewise.
* code/print.lisp: Likewise.
* code/prop.lisp: Likewise.
* code/purge.lisp: Likewise.
* code/rcs-utils.lisp: Likewise.
* code/remap.lisp: Likewise.
* code/remove.lisp: Likewise.
* code/restart.lisp: Likewise.
* code/restore.lisp: Likewise.
* code/seqfuncs.lisp: Likewise.
* code/slot-refs.lisp: Likewise.
* code/split.lisp: Likewise.
* code/sync.lisp: Likewise.
* code/types.lisp: Likewise.
* code/unix.lisp: Likewise.
* code/update.lisp: Likewise.
* code/watch.lisp: Likewise.
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.24 (in-package :meta-cvs)
6 kaz 1.1
7 kaz 1.13 (defun mcvs-update (&optional cvs-options cvs-update-options files)
8     (let ((need-sync (not (find "p" cvs-update-options
9     :key #'first :test #'string=))))
10 kaz 1.16 (if (or files *metaonly-option* *nometa-option*)
11 kaz 1.15 (mcvs-generic "update" cvs-options cvs-update-options nil
12     files :need-sync-after need-sync
13 kaz 1.22 :need-update-after t)
14 kaz 1.14 (in-sandbox-root-dir
15 kaz 1.13 (if need-sync
16     (progn
17 kaz 1.19 ;; Push changes in tree to CVS sandbox, so they can be merged
18     ;; with stuff coming from repository.
19 kaz 1.13 (chatter-debug "Synchronizing.~%")
20 kaz 1.19 (mapping-synchronize :direction :left)
21 kaz 1.1
22 kaz 1.13 (current-dir-restore
23     (chdir *mcvs-dir*)
24 kaz 1.18 (super-restart-case
25     (progn
26     (chatter-debug "Invoking CVS.~%")
27     (unless (execute-program `("cvs" ,@(format-opt cvs-options)
28     "up" ,@(format-opt
29     cvs-update-options)))
30     (error "CVS update failed.")))
31 kaz 1.21 (continue ()
32 kaz 1.18 :report "Update file structure and re-synchronize."
33     (unwind))
34     (retry ()
35     :report "Try invoking CVS again."
36     (retry))))
37 kaz 1.1
38 kaz 1.13 (chatter-debug "Updating file structure.~%")
39     (mapping-update)
40     (chatter-debug "Synchronizing again.~%")
41 kaz 1.19 (mapping-synchronize :direction :right))
42 kaz 1.13 (current-dir-restore
43     (chdir *mcvs-dir*)
44     (chatter-debug "Invoking CVS.~%")
45 kaz 1.18 (unless (execute-program `("cvs" ,@(format-opt cvs-options)
46     "up" ,@(format-opt cvs-update-options))))
47     (error "CVS update failed."))))))
48 kaz 1.1 (values))
49 kaz 1.4
50 kaz 1.6 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
51 kaz 1.13 (mcvs-update cvs-options cvs-command-options mcvs-args))

  ViewVC Help
Powered by ViewVC 1.1.5