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

Diff of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15.6.6 by kaz, Wed Jul 16 15:44:11 2003 UTC revision 1.26 by kaz, Tue Nov 28 07:47:21 2006 UTC
# Line 2  Line 2 
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
5  (require "dirwalk")  (in-package :meta-cvs)
 (require "chatter")  
 (require "mapping")  
 (require "options")  
 (require "generic")  
 (provide "update")  
6    
7  (defun mcvs-update (&optional cvs-options cvs-update-options files)  (defun update (&optional cvs-options cvs-update-options files)
8    (let ((need-sync (not (find "p" cvs-update-options    (let ((need-sync (not (find "p" cvs-update-options
9                                :key #'first :test #'string=))))                                :key #'first :test #'string=))))
10      (if (or files *metaonly-option* *nometa-option*)      (if (or files *metaonly-option* *nometa-option*)
11        (mcvs-generic "update" cvs-options cvs-update-options nil        (generic "update" cvs-options cvs-update-options nil
12                      files :need-sync-after need-sync                 files :need-sync-after need-sync
13                      :need-update-after t)                 :need-update-after t)
14        (in-sandbox-root-dir        (in-sandbox-root-dir
15          (if need-sync          (if need-sync
16            (progn            (progn
# Line 25  Line 20 
20              (mapping-synchronize :direction :left)              (mapping-synchronize :direction :left)
21    
22              (current-dir-restore              (current-dir-restore
23                (chdir *mcvs-dir*)                (chdir *admin-dir*)
24                (super-restart-case                (super-restart-case
25                  (progn                  (progn
26                    (chatter-debug "Invoking CVS.~%")                    (chatter-debug "Invoking CVS.~%")
# Line 45  Line 40 
40              (chatter-debug "Synchronizing again.~%")              (chatter-debug "Synchronizing again.~%")
41              (mapping-synchronize :direction :right))              (mapping-synchronize :direction :right))
42            (current-dir-restore            (current-dir-restore
43              (chdir *mcvs-dir*)              (chdir *admin-dir*)
44              (chatter-debug "Invoking CVS.~%")              (chatter-debug "Invoking CVS.~%")
45              (unless (execute-program `("cvs" ,@(format-opt cvs-options)              (unless (execute-program `("cvs" ,@(format-opt cvs-options)
46                                         "up" ,@(format-opt cvs-update-options))))                                         "up" ,@(format-opt cvs-update-options))))
47                (error "CVS update failed."))))))                (error "CVS update failed."))))))
48    (values))    (values))
49    
50  (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)  (defun update-wrapper (cvs-options cvs-command-options mcvs-args)
51    (mcvs-update cvs-options cvs-command-options mcvs-args))    (update cvs-options cvs-command-options mcvs-args))

Legend:
Removed from v.1.15.6.6  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5