1 /*
2 * checkout-cmd.c -- Subversion checkout command
3 *
4 * ====================================================================
5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements. See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership. The ASF licenses this file
9 * to you under the Apache License, Version 2.0 (the
10 * "License"); you may not use this file except in compliance
11 * with the License. You may obtain a copy of the License at
12 *
13 * http://www.apache.org/licenses/LICENSE-2.0
14 *
15 * Unless required by applicable law or agreed to in writing,
16 * software distributed under the License is distributed on an
17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
18 * KIND, either express or implied. See the License for the
19 * specific language governing permissions and limitations
20 * under the License.
21 * ====================================================================
22 */
23
24 /* ==================================================================== */
25
26
27
28 /*** Includes. ***/
29
30 #include "svn_client.h"
31 #include "svn_dirent_uri.h"
32 #include "svn_path.h"
33 #include "svn_error.h"
34 #include "svn_pools.h"
35 #include "cl.h"
36
37 #include "svn_private_config.h"
38
39
40 /*** Code. ***/
41
42 /*
43 This is what it does
44
45 - case 1: one URL
46 $ svn co http://host/repos/module
47 checkout into ./module/
48
49 - case 2: one URL and explicit path
50 $ svn co http://host/repos/module path
51 checkout into ./path/
52
53 - case 3: multiple URLs
54 $ svn co http://host1/repos1/module1 http://host2/repos2/module2
55 checkout into ./module1/ and ./module2/
56
57 - case 4: multiple URLs and explicit path
58 $ svn co http://host1/repos1/module1 http://host2/repos2/module2 path
59 checkout into ./path/module1/ and ./path/module2/
60
61 Is this the same as CVS? Does it matter if it is not?
62 */
63
64
65 /* This implements the `svn_opt_subcommand_t' interface. */
66 svn_error_t *
svn_cl__checkout(apr_getopt_t * os,void * baton,apr_pool_t * pool)67 svn_cl__checkout(apr_getopt_t *os,
68 void *baton,
69 apr_pool_t *pool)
70 {
71 svn_cl__opt_state_t *opt_state = ((svn_cl__cmd_baton_t *) baton)->opt_state;
72 svn_client_ctx_t *ctx = ((svn_cl__cmd_baton_t *) baton)->ctx;
73 apr_pool_t *subpool;
74 apr_array_header_t *targets;
75 struct svn_cl__check_externals_failed_notify_baton nwb;
76 const char *last_target, *local_dir;
77 int i;
78
79 SVN_ERR(svn_cl__args_to_target_array_print_reserved(&targets, os,
80 opt_state->targets,
81 ctx, FALSE, pool));
82
83 if (! targets->nelts)
84 return svn_error_create(SVN_ERR_CL_INSUFFICIENT_ARGS, NULL, NULL);
85
86 /* Determine LOCAL_DIR (case 1: URL basename; 2,4: specified; 3: "")
87 * and leave TARGETS holding just the source URLs. */
88 last_target = APR_ARRAY_IDX(targets, targets->nelts - 1, const char *);
89 if (svn_path_is_url(last_target))
90 {
91 if (targets->nelts == 1)
92 {
93 svn_opt_revision_t pegrev;
94
95 /* Use the URL basename, discarding any peg revision. */
96 SVN_ERR(svn_opt_parse_path(&pegrev, &local_dir, last_target, pool));
97 local_dir = svn_uri_basename(local_dir, pool);
98 }
99 else
100 {
101 local_dir = "";
102 }
103 }
104 else
105 {
106 if (targets->nelts == 1)
107 /* What? They gave us one target, and it wasn't a URL. */
108 return svn_error_create(SVN_ERR_CL_ARG_PARSING_ERROR, NULL, NULL);
109
110 apr_array_pop(targets);
111 local_dir = last_target;
112 }
113
114 if (! opt_state->quiet)
115 SVN_ERR(svn_cl__notifier_mark_checkout(ctx->notify_baton2));
116
117 nwb.wrapped_func = ctx->notify_func2;
118 nwb.wrapped_baton = ctx->notify_baton2;
119 nwb.had_externals_error = FALSE;
120 ctx->notify_func2 = svn_cl__check_externals_failed_notify_wrapper;
121 ctx->notify_baton2 = &nwb;
122
123 subpool = svn_pool_create(pool);
124 for (i = 0; i < targets->nelts; ++i)
125 {
126 const char *repos_url = APR_ARRAY_IDX(targets, i, const char *);
127 const char *target_dir;
128 const char *true_url;
129 svn_opt_revision_t revision = opt_state->start_revision;
130 svn_opt_revision_t peg_revision;
131
132 svn_pool_clear(subpool);
133
134 SVN_ERR(svn_cl__check_cancel(ctx->cancel_baton));
135
136 /* Validate the REPOS_URL */
137 if (! svn_path_is_url(repos_url))
138 return svn_error_createf
139 (SVN_ERR_BAD_URL, NULL,
140 _("'%s' does not appear to be a URL"), repos_url);
141
142 /* Get a possible peg revision. */
143 SVN_ERR(svn_opt_parse_path(&peg_revision, &true_url, repos_url,
144 subpool));
145
146 /* Use sub-directory of destination if checking-out multiple URLs */
147 if (targets->nelts == 1)
148 {
149 target_dir = local_dir;
150 }
151 else
152 {
153 target_dir = svn_dirent_join(local_dir,
154 svn_uri_basename(true_url, subpool),
155 subpool);
156 }
157
158 /* Checkout doesn't accept an unspecified revision, so default to
159 the peg revision, or to HEAD if there wasn't a peg. */
160 if (revision.kind == svn_opt_revision_unspecified)
161 {
162 if (peg_revision.kind != svn_opt_revision_unspecified)
163 revision = peg_revision;
164 else
165 revision.kind = svn_opt_revision_head;
166 }
167
168 SVN_ERR(svn_client_checkout3
169 (NULL, true_url, target_dir,
170 &peg_revision,
171 &revision,
172 opt_state->depth,
173 opt_state->ignore_externals,
174 opt_state->force,
175 ctx, subpool));
176 }
177 svn_pool_destroy(subpool);
178
179 if (nwb.had_externals_error)
180 return svn_error_create(SVN_ERR_CL_ERROR_PROCESSING_EXTERNALS, NULL,
181 _("Failure occurred processing one or "
182 "more externals definitions"));
183
184 return SVN_NO_ERROR;
185 }
186