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

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.16 by kaz, Sat May 4 18:01:04 2002 UTC revision 1.17 by kaz, Sun Jun 23 19:18:11 2002 UTC
# Line 8  Line 8 
8  (require "types")  (require "types")
9  (require "chatter")  (require "chatter")
10  (require "options")  (require "options")
11  (provide "import")  (provide "create")
12    
13  (defun mcvs-import (module vendor release  (defun mcvs-create (module vendor release
14                      &optional cvs-options import-options)                      &optional global-options command-options)
15    (multiple-value-bind (path created) (ensure-directories-exist *mcvs-map*)    (multiple-value-bind (path created) (ensure-directories-exist *mcvs-map*)
16      (declare (ignore path))      (declare (ignore path))
17      (if (not created)      (if (not created)
18        (error "mcvs-import: A ~a directory already exists here." *mcvs-dir*)))        (error "mcvs-create: A ~a directory already exists here." *mcvs-dir*)))
19    
20    (unwind-protect    (unwind-protect
21      (progn      (progn
# Line 62  Line 62 
62                (chdir *mcvs-dir*)                (chdir *mcvs-dir*)
63                (chatter-debug "Invoking CVS.~%")                (chatter-debug "Invoking CVS.~%")
64    
65                (if (not (execute-program `("cvs" ,@(format-opt cvs-options)                (if (not (execute-program `("cvs" ,@(format-opt global-options)
66                                           "import" "-I" "!"                                           "import" "-I" "!"
67                                           ,@(format-opt import-options)                                           ,@(format-opt command-options)
68                                           ,@(types-to-import-wrapper-args types)                                           ,@(types-to-import-wrapper-args types)
69                                           ,module ,vendor ,release)))                                           ,module ,vendor ,release)))
70                  (error "CVS import failed."))                  (error "CVS import failed."))
# Line 75  Line 75 
75      (delete-recursive *mcvs-dir*))      (delete-recursive *mcvs-dir*))
76    (values))    (values))
77    
78  (defun mcvs-import-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-create-wrapper (cvs-options cvs-command-options mcvs-args)
79    (if (< (length mcvs-args) 3)    (if (< (length mcvs-args) 3)
80      (error "mcvs-import: specify module, vendor tag and release tag."))      (error "mcvs-create: specify module, vendor tag and release tag."))
81    (destructuring-bind (module vendor release &rest superfluous) mcvs-args    (destructuring-bind (module vendor release &rest superfluous) mcvs-args
82      (when superfluous      (when superfluous
83        (error "mcvs-import: specify only module, vendor tag and release tag."))        (error "mcvs-create: specify only module, vendor tag and release tag."))
84      (mcvs-import module vendor release cvs-options cvs-command-options)))      (mcvs-create module vendor release cvs-options cvs-command-options)))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5