/[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.11 by kaz, Sun Feb 10 16:43:12 2002 UTC revision 1.12 by kaz, Tue Mar 12 19:54:58 2002 UTC
# Line 10  Line 10 
10    
11  (defun mcvs-update (&optional cvs-options cvs-update-options)  (defun mcvs-update (&optional cvs-options cvs-update-options)
12    (in-sandbox-root-dir ()    (in-sandbox-root-dir ()
13      (chatter-info "Synchronizing.~%")      (chatter-debug "Synchronizing.~%")
14      (mapping-synchronize)      (mapping-synchronize)
15    
16      (current-dir-restore      (current-dir-restore
17        (chdir *mcvs-dir*)        (chdir *mcvs-dir*)
18        (tagbody        (tagbody
19          :again          :again
20          (chatter-info "Invoking CVS.~%")          (chatter-debug "Invoking CVS.~%")
21          (if (not (execute-program `("cvs" ,@(format-opt cvs-options)          (if (not (execute-program `("cvs" ,@(format-opt cvs-options)
22                                      "up" ,@(format-opt cvs-update-options))))                                      "up" ,@(format-opt cvs-update-options))))
23            (restart-case (error "CVS update failed.")            (restart-case (error "CVS update failed.")
24              (continue () :report "Update file structure and re-synchronize.")              (continue () :report "Update file structure and re-synchronize.")
25              (retry () :report "Try invoking CVS again." (go :again))))))              (retry () :report "Try invoking CVS again." (go :again))))))
26    
27      (chatter-info "Updating file structure.~%")      (chatter-debug "Updating file structure.~%")
28      (mapping-update)      (mapping-update)
29      (chatter-info "Synchronizing again.~%")      (chatter-debug "Synchronizing again.~%")
30      (mapping-synchronize))      (mapping-synchronize))
31    (values))    (values))
32    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5