/[meta-cvs]/meta-cvs/F-255EFD9E99EDDE6614CF2CD912CA4E5C
ViewVC logotype

Diff of /meta-cvs/F-255EFD9E99EDDE6614CF2CD912CA4E5C

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

revision 1.19.4.1 by kaz, Fri Jul 5 16:39:23 2002 UTC revision 1.19.4.2 by kaz, Sat Jul 6 04:49:54 2002 UTC
# Line 8  Line 8 
8  (provide "move")  (provide "move")
9    
10  (defun source-check (expansion source)  (defun source-check (expansion source)
11    (when (path-prefix-equal *mcvs-dir* source)    (let ((real (abstract-to-real-path source)))
12       (error "mcvs-move: source path ~a is in a reserved Meta-CVS area." source))      (when (path-prefix-equal *mcvs-dir* real)
13    (when (not expansion)         (error "mcvs-move: source path ~a is in a reserved Meta-CVS area." real))
14      (let ((real (abstract-to-real-path source)))      (when (not expansion)
15        (if (exists real)        (if (exists real)
16          (error "mcvs-move: ~a is local, not versioned under Meta-CVS." real)          (error "mcvs-move: ~a is local, not versioned under Meta-CVS." real)
17          (error "mcvs-move: ~a does not exist." real)))))          (error "mcvs-move: ~a does not exist." real)))))
# Line 70  Line 70 
70            (destination (real-to-abstract-path            (destination (real-to-abstract-path
71                           (sandbox-translate-path (first (last args))))))                           (sandbox-translate-path (first (last args))))))
72    
73        (when (path-prefix-equal *mcvs-dir* destination)        (let ((dest-real (abstract-to-real-path destination)))
74          (error "mcvs-move: destination path ~a is in a reserved Meta-CVS area."          (when (path-prefix-equal *mcvs-dir* dest-real)
75                 destination))            (error "mcvs-move: destination path ~a is in a reserved Meta-CVS area."
76                     dest-real)))
77    
78        (let ((edited-filemap (move-guts filemap sources destination))        (let ((edited-filemap (move-guts filemap sources destination))
79              (restore-map t))              (restore-map t))

Legend:
Removed from v.1.19.4.1  
changed lines
  Added in v.1.19.4.2

  ViewVC Help
Powered by ViewVC 1.1.5