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

Diff of /meta-cvs/F-A7A64FB1054A27E5F51A7E95C6A80309

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

revision 1.25 by kaz, Wed Sep 18 04:15:54 2002 UTC revision 1.26 by kaz, Sat Oct 5 18:09:48 2002 UTC
# Line 13  Line 13 
13                               &key no-generate)                               &key no-generate)
14    (when subdir    (when subdir
15      (when (path-absolute-p subdir)      (when (path-absolute-p subdir)
16        (error "mcvs: subdirectory path must be relative"))        (error "subdirectory path must be relative"))
17      (multiple-value-bind (canon-subdir out-of-bounds)      (multiple-value-bind (canon-subdir out-of-bounds)
18                           (canonicalize-path subdir)                           (canonicalize-path subdir)
19        (declare (ignore canon-subdir))        (declare (ignore canon-subdir))
20        (when out-of-bounds        (when out-of-bounds
21          (error "mcvs: subdirectory path ~a leads outside of module."          (error "subdirectory path ~a leads outside of module."
22                 subdir))))                 subdir))))
23    (find-bind (:key #'first :test #'string= :take #'second)    (find-bind (:key #'first :test #'string= :take #'second)
24               (cvs-checkout-options (dir "d" (or subdir module)))               (cvs-checkout-options (dir "d" (or subdir module)))
# Line 32  Line 32 
32            (chdir checkout-dir)            (chdir checkout-dir)
33    
34            (when (ignore-errors (stat *mcvs-dir*))            (when (ignore-errors (stat *mcvs-dir*))
35              (error "mcvs-checkout: directory ~a seems to be the root of an existing sandbox."              (error "directory ~a seems to be the root of an existing sandbox."
36                     checkout-dir))                     checkout-dir))
37    
38            (chatter-debug "Invoking CVS.~%")            (chatter-debug "Invoking CVS.~%")
# Line 43  Line 43 
43              (error "CVS checkout failed."))              (error "CVS checkout failed."))
44    
45            (unless (ignore-errors (stat *mcvs-dir*))            (unless (ignore-errors (stat *mcvs-dir*))
46              (error "mcvs-checkout: checkout failed to create ~a directory."              (error "checkout failed to create ~a directory."
47                     *mcvs-dir*))                     *mcvs-dir*))
48    
49            (setf created-mcvs-dir t)            (setf created-mcvs-dir t)
# Line 67  Line 67 
67    
68  (defun mcvs-checkout-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-checkout-wrapper (cvs-options cvs-command-options mcvs-args)
69    (if (< (length mcvs-args) 1)    (if (< (length mcvs-args) 1)
70      (error "mcvs-checkout: specify module, and optional subdirectory."))      (error "specify module, and optional subdirectory."))
71    (destructuring-bind (module &optional subdir &rest superfluous) mcvs-args    (destructuring-bind (module &optional subdir &rest superfluous) mcvs-args
72      (when superfluous      (when superfluous
73        (error "mcvs-checkout: specify one module and optional subdirectory to check out."))        (error "specify one module and optional subdirectory to check out."))
74      (mcvs-checkout module subdir cvs-options cvs-command-options)))      (mcvs-checkout module subdir cvs-options cvs-command-options)))
75    
76  (defconstant *checkout-help*  (defconstant *checkout-help*

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5