/[meta-cvs]/meta-cvs/F-9A67B1893CE1CF23455CD1EF0F486B65
ViewVC logotype

Diff of /meta-cvs/F-9A67B1893CE1CF23455CD1EF0F486B65

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

revision 1.10 by kaz, Thu Jan 29 05:31:32 2004 UTC revision 1.11 by kaz, Thu Jan 29 06:26:13 2004 UTC
# Line 17  Line 17 
17    (let* ((split-path (nreverse (split-fields path "/"))))    (let* ((split-path (nreverse (split-fields path "/"))))
18      (when (string= (first split-path) "Attic")      (when (string= (first split-path) "Attic")
19        (pop split-path))        (pop split-path))
20      (reduce #'(lambda (x y) (format nil "~a/~a" x y)) (nreverse split-path))))      (reduce #'(lambda (x y) (format nil "~a/~a" x y))
21                (nreverse split-path)
22                :initial-value ".")))
23    
24  (defun classify-tags (tags)  (defun classify-tags (tags)
25    (let (version-tags branch-tags)    (let (version-tags branch-tags)
# Line 44  Line 46 
46        (chatter-info "descending into ~a~%" source-dir)        (chatter-info "descending into ~a~%" source-dir)
47        (chdir source-dir)        (chdir source-dir)
48        (for-each-file-info (fi ".")        (for-each-file-info (fi ".")
49            (when (and (directory-p fi)
50                       (path-equal (basename (file-name fi)) "CVS"))
51              (skip))
52          (when (regular-p fi)          (when (regular-p fi)
53            (let ((canon-name (canonicalize-path (file-name fi))))            (let ((canon-name (canonicalize-path (file-name fi))))
54              (multiple-value-bind (suffix basename dir)              (multiple-value-bind (suffix basename dir)
# Line 81  Line 86 
86      (current-dir-restore      (current-dir-restore
87        (chdir target-dir)        (chdir target-dir)
88        (chatter-info "writing ~a~%" *mcvs-map-name*)        (chatter-info "writing ~a~%" *mcvs-map-name*)
89        (mapping-write filemap *mcvs-map-name*)        (mapping-write filemap *mcvs-map-name* :sort-map t)
90    
91        (execute-program `("ci" "-mMeta-CVS MAP file created by mcvs convert."        (execute-program `("ci" "-mMeta-CVS MAP file created by mcvs convert."
92                           "-t/dev/null" ,*mcvs-map-name*))                           "-t/dev/null" ,*mcvs-map-name*))

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

  ViewVC Help
Powered by ViewVC 1.1.5