/[meta-cvs]/meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8
ViewVC logotype

Diff of /meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8

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

revision 1.58 by kaz, Thu Feb 13 07:22:35 2003 UTC revision 1.59 by kaz, Tue Mar 4 05:55:11 2003 UTC
# Line 438  whether they came from the CVS repositor Line 438  whether they came from the CVS repositor
438                        (push item clobber-move-pairs)))))))                        (push item clobber-move-pairs)))))))
439    
440            (when (or clobber-add-items clobber-move-pairs)            (when (or clobber-add-items clobber-move-pairs)
441              (block nil              (super-restart-case
442                (restart-bind                (error "some moves or adds want to overwrite local files or directories.")
443                  ((print-clobbers                (print-clobbers ()
444                     #'(lambda ()                  :report "Print list of adds or moves which want to overwrite."
445                         (dolist (item clobber-add-items)                  (dolist (item clobber-add-items)
446                           (format t "add: ~a~%"                    (format t "add: ~a~%"
447                                   (abstract-to-real-path (mapping-entry-path item))))                            (abstract-to-real-path (mapping-entry-path item))))
448                         (dolist (pair clobber-move-pairs)                  (dolist (pair clobber-move-pairs)
449                           (format t "move ~a -> ~a~%"                    (format t "move ~a -> ~a~%"
450                                   (abstract-to-real-path (mapping-entry-path                            (abstract-to-real-path (mapping-entry-path
451                                                            (first pair)))                                                     (first pair)))
452                                   (abstract-to-real-path (mapping-entry-path                            (abstract-to-real-path (mapping-entry-path
453                                                            (second pair))))))                                                     (second pair))))))
454                    :report-function                (do-clobber ()
455                    #'(lambda (stream)                  :report "Go ahead and overwrite the target files."
456                        (write-string "Print list of adds or moves which want to overwrite."                  (unwind)))))
                                     stream)))  
                  (do-clobber  
                    #'(lambda ()  
                        (return))  
                    :report-function  
                    #'(lambda (stream)  
                        (write-string "Go ahead and overwrite the target files."  
                                      stream))))  
                 (error "some moves or adds want to overwrite local files or directories.")))))  
457    
458          ;; Sanity check passed, complete moves and adds.          ;; Sanity check passed, complete moves and adds.
459          (dolist (item moved-pairs)          (dolist (item moved-pairs)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5