/[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.1 by kaz, Fri Jan 25 02:04:45 2002 UTC revision 1.2 by kaz, Sat Jan 26 01:38:37 2002 UTC
# Line 5  Line 5 
5    
6  (defun simple-rename (filemap source dest-file)  (defun simple-rename (filemap source dest-file)
7    (let ((dir-expansion (filemap-extract-paths    (let ((dir-expansion (filemap-extract-paths
8                           (filemap-prefix-lookup filemap source))))                           (filemap-prefix-matches filemap source))))
9      (if (second dir-expansion)      (if (second dir-expansion)
10        (filemap-rename-files filemap dir-expansion source dest-file)        (filemap-rename-files filemap dir-expansion source dest-file)
11        (filemap-rename-files filemap (list source) source dest-file))))        (filemap-rename-files filemap (list source) source dest-file))))
12    
13  (defun simple-move-to-dir (filemap source dest-dir)  (defun simple-move-to-dir (filemap source dest-dir)
14    (let ((dir-expansion (filemap-extract-paths    (let ((dir-expansion (filemap-extract-paths
15                           (filemap-prefix-lookup filemap source))))                           (filemap-prefix-matches filemap source))))
16      (if (second dir-expansion)      (if (second dir-expansion)
17        (filemap-rename-files filemap dir-expansion source dest-dir)        (filemap-rename-files filemap dir-expansion source dest-dir)
18        (multiple-value-bind (base dir) (basename source)        (multiple-value-bind (base dir) (basename source)
# Line 47  Line 47 
47             (sources (mapcar #'sandbox-translate-path (butlast files)))             (sources (mapcar #'sandbox-translate-path (butlast files)))
48             (destination (sandbox-translate-path (first (last files)))))             (destination (sandbox-translate-path (first (last files)))))
49    
50          (when (path-prefix-equal *mcvs-dir* destination)
51            (error "mcvs-move: destination path ~a is in a MCVS meta-data area."
52                   destination))
53    
54        (setf filemap (move-guts filemap sources destination))        (setf filemap (move-guts filemap sources destination))
55    
56        (chatter-info "Synchronizing.~%")        (chatter-info "Synchronizing.~%")
# Line 58  Line 62 
62        (chatter-info "Updating file structure.~%")        (chatter-info "Updating file structure.~%")
63        (mapping-update))        (mapping-update))
64    (values)))    (values)))
65    
66    (defun mcvs-move-wrapper (cvs-options cvs-specific-options mcvs-args)
67      (when (cvs-options cvs-specific-options)
68        (error
69          #.(concatenate 'string
70              "mcvs-move: CVS options specified, "
71              "but this operation does not invoke CVS.")))
72      (apply #'mcvs-move mcvs-args))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5