contrib/subversion/subversion/svn/checkout-cmd.c

   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 \f
  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 \f
  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 *
  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 }