/[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.7.2.8 by kaz, Sun Feb 1 05:10:15 2004 UTC revision 1.7.2.9 by kaz, Tue Feb 3 11:49:12 2004 UTC
# Line 7  Line 7 
7  (require "chatter")  (require "chatter")
8  (require "split")  (require "split")
9  (require "mapping")  (require "mapping")
10    (require "types")
11  (require "rcs-utils")  (require "rcs-utils")
12  (provide "convert")  (provide "convert")
13    
# Line 93  Line 94 
94        (chatter-info "writing ~a~%" *mcvs-map-name*)        (chatter-info "writing ~a~%" *mcvs-map-name*)
95        (mapping-write filemap *mcvs-map-name* :sort-map t)        (mapping-write filemap *mcvs-map-name* :sort-map t)
96    
97        (execute-program `("ci" "-mMeta-CVS MAP file created by mcvs convert."        (chatter-info "writing ~a~%" *mcvs-types-name*)
98                           "-t/dev/null" ,*mcvs-map-name*))        (with-open-file (f *mcvs-types-name* :direction :output)
99            (prin1 nil f)
100            (terpri f))
101    
102          (chatter-info "writing .cvsignore~%")
103          (with-open-file (f (make-pathname :name ".cvsignore") :direction :output)
104            (write-line *mcvs-map-local-name* f)
105            (write-line *mcvs-displaced-name* f))
106    
107          (execute-program `("ci" "-mCreated by Meta-CVS convert operation."
108                             "-t/dev/null" ,*mcvs-map-name*
109                             ,*mcvs-types-name* ".cvsignore"))
110        (execute-program `("chmod" "ug+rw" ,(format nil "~A,v" *mcvs-map-name*)))        (execute-program `("chmod" "ug+rw" ,(format nil "~A,v" *mcvs-map-name*)))
111    
112        (chatter-info "setting up version and branch tags in ~a~%" *mcvs-map-name*)        (chatter-info "setting up version and branch tags in ~a, ~a and .cvsignore~%"
113                        *mcvs-map-name* *mcvs-types-name*)
114        (unless (null all-version-tags)        (unless (null all-version-tags)
115          (execute-program-xargs '("rcs")          (execute-program-xargs '("rcs")
116                                 (mapcar #'(lambda (tag)                                 (mapcar #'(lambda (tag)
117                                             (format nil "-n~A:1.1" tag))                                             (format nil "-n~A:1.1" tag))
118                                         all-version-tags)                                         all-version-tags)
119                                 (list *mcvs-map-name*)))                                 (list *mcvs-map-name* *mcvs-types-name*
120                                         ".cvsignore")))
121    
122        (let ((branch-counter 0))        (let ((branch-counter 0))
123          (unless (null all-branch-tags)          (unless (null all-branch-tags)
# Line 114  Line 128 
128                                                       tag (incf branch-counter                                                       tag (incf branch-counter
129                                                                 2)))                                                                 2)))
130                                           all-branch-tags)                                           all-branch-tags)
131                                   (list *mcvs-map-name*)))))))                                   (list *mcvs-map-name* *mcvs-types-name*
132                                           ".cvsignore")))))))
133    
134  (defun mcvs-convert-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-convert-wrapper (cvs-options cvs-command-options mcvs-args)
135    (declare (ignore cvs-options cvs-command-options))    (declare (ignore cvs-options cvs-command-options))

Legend:
Removed from v.1.7.2.8  
changed lines
  Added in v.1.7.2.9

  ViewVC Help
Powered by ViewVC 1.1.5