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

Diff of /meta-cvs/F-BE2DE9340254D8E8E6E2649A55D3A742

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

revision 1.7 by kaz, Thu Oct 31 04:06:01 2002 UTC revision 1.8 by kaz, Mon Nov 4 02:09:17 2002 UTC
# Line 29  happens, and NIL is returned. If either Line 29  happens, and NIL is returned. If either
29          ((or (directory-p left) (directory-p right))          ((or (directory-p left) (directory-p right))
30            :dir)            :dir)
31          ((not right)          ((not right)
32            (ensure-directories-exist right-file)            (honor-dry-run (left-file right-file)
33            (link left-file right-file)              (ensure-directories-exist right-file)
34            (exec-check left-file)              (link left-file right-file)
35                (exec-check left-file))
36            :left)            :left)
37          ((not left)          ((not left)
38            (ensure-directories-exist left-file)            (honor-dry-run (left-file right-file)
39            (link right-file left-file)              (ensure-directories-exist left-file)
40            (exec-check right-file)              (link right-file left-file)
41                (exec-check right-file))
42            :right)            :right)
43          ((same-file-p right left)          ((same-file-p right left)
44            (exec-check right-file)            (honor-dry-run (right-file)
45                (exec-check right-file))
46            :same)            :same)
47          ((older-p left right)          ((older-p left right)
48            (unlink left-file)            (honor-dry-run (left-file right-file)
49            (link right-file left-file)              (unlink left-file)
50            (exec-check right-file)              (link right-file left-file)
51                (exec-check right-file))
52            :right)            :right)
53          ((older-p right left)          ((older-p right left)
54            (unlink right-file)            (honor-dry-run (left-file right-file)
55            (link left-file right-file)              (unlink right-file)
56            (exec-check left-file)              (link left-file right-file)
57                (exec-check left-file))
58            :left)            :left)
59          (t          (t
60            (restart-case            (restart-case
# Line 58  happens, and NIL is returned. If either Line 63  happens, and NIL is returned. If either
63              (:choose-left () :report (lambda (s)              (:choose-left () :report (lambda (s)
64                                         (format s "take ~a; clobber ~a."                                         (format s "take ~a; clobber ~a."
65                                                 left-file right-file))                                                 left-file right-file))
66                (unlink right-file)                (honor-dry-run (left-file right-file)
67                (link left-file right-file)                  (unlink right-file)
68                (exec-check left-file)                  (link left-file right-file)
69                    (exec-check left-file))
70                :left)                :left)
71              (:choose-right () :report (lambda (s)              (:choose-right () :report (lambda (s)
72                                          (format s "take ~a; clobber ~a."                                          (format s "take ~a; clobber ~a."
73                                                  right-file left-file))                                                  right-file left-file))
74                (unlink left-file)                (honor-dry-run (left-file right-file)
75                (link right-file left-file)                  (unlink left-file)
76                (exec-check right-file)                  (link right-file left-file)
77                    (exec-check right-file))
78                :right)))))))                :right)))))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5