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

Contents of /meta-cvs/F-A7A64FB1054A27E5F51A7E95C6A80309

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Sun Jan 20 07:12:03 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Adding all existing source files.
1 kaz 1.1 (require "dirwalk")
2     (require "chatter")
3     (require "sync")
4     (provide "checkout")
5    
6     (defun mcvs-checkout (module &optional cvs-args)
7     ;; checkout module from cvs
8    
9     (when (ignore-errors (stat module))
10     (error "mcvs-checkout: a directory or file called ~a exists here already."
11     module))
12    
13     (multiple-value-bind (path created)
14     (ensure-directories-exist (path-cat module *mcvs-dir*))
15     (if (not created)
16     (error "mcvs-import: unable to create directory ~a." module)))
17    
18     (current-dir-restore
19     (chdir module)
20     (chatter-info "Invoking CVS.~%")
21     (execute-program `("cvs" "checkout" "-d" ,*mcvs-dir* ,@cvs-args ,module))
22    
23     (if (not (ignore-errors (stat *mcvs-dir*)))
24     (error "mcvs-checkout: checkout failed to create ~a directory."
25     *mcvs-dir*))
26    
27     (chatter-info "Generating file structure.~%")
28    
29     (let (filemap)
30     (with-open-file (file *mcvs-map* :direction :input)
31     (setf filemap (read file))
32     (dolist (item filemap)
33     (chatter-info "~a -> ~a~%" (first item) (second item))
34     (synchronize-files (first item) (second item))))
35    
36     (with-open-file (file *mcvs-map-local* :direction :output)
37     (let ((*print-right-margin* 1))
38     (prin1 filemap file)
39     (terpri file)))))
40     (values))

  ViewVC Help
Powered by ViewVC 1.1.5