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

   1 /*
   2  * delete-cmd.c -- Delete/undelete commands
   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_error.h"
  32 #include "svn_path.h"
  33 #include "cl.h"
  34
  35 #include "svn_private_config.h"
  36
  37 \f
  38 /*** Code. ***/
  39
  40 /* This implements the `svn_opt_subcommand_t' interface. */
  41 svn_error_t *
  42 svn_cl__delete(apr_getopt_t *os,
  43                void *baton,
  44                apr_pool_t *pool)
  45 {
  46   svn_cl__opt_state_t *opt_state = ((svn_cl__cmd_baton_t *) baton)->opt_state;
  47   svn_client_ctx_t *ctx = ((svn_cl__cmd_baton_t *) baton)->ctx;
  48   apr_array_header_t *targets;
  49   svn_error_t *err;
  50   svn_boolean_t is_url;
  51
  52   SVN_ERR(svn_cl__args_to_target_array_print_reserved(&targets, os,
  53                                                       opt_state->targets,
  54                                                       ctx, FALSE, pool));
  55
  56   if (! targets->nelts)
  57     return svn_error_create(SVN_ERR_CL_INSUFFICIENT_ARGS, 0, NULL);
  58
  59   SVN_ERR(svn_cl__assert_homogeneous_target_type(targets));
  60   is_url = svn_path_is_url(APR_ARRAY_IDX(targets, 0, const char *));
  61
  62   if (! is_url)
  63     {
  64       ctx->log_msg_func3 = NULL;
  65       if (opt_state->message || opt_state->filedata || opt_state->revprop_table)
  66         {
  67           return svn_error_create
  68             (SVN_ERR_CL_UNNECESSARY_LOG_MESSAGE, NULL,
  69              _("Local, non-commit operations do not take a log message "
  70                "or revision properties"));
  71         }
  72     }
  73   else
  74     {
  75       SVN_ERR(svn_cl__make_log_msg_baton(&(ctx->log_msg_baton3), opt_state,
  76                                          NULL, ctx->config, pool));
  77     }
  78
  79   SVN_ERR(svn_cl__eat_peg_revisions(&targets, targets, pool));
  80
  81   err = svn_client_delete4(targets, opt_state->force, opt_state->keep_local,
  82                            opt_state->revprop_table,
  83                            (opt_state->quiet
  84                             ? NULL : svn_cl__print_commit_info),
  85                            NULL, ctx, pool);
  86   if (err)
  87     err = svn_cl__may_need_force(err);
  88
  89   if (ctx->log_msg_func3)
  90     SVN_ERR(svn_cl__cleanup_log_msg(ctx->log_msg_baton3, err, pool));
  91   else if (err)
  92     return svn_error_trace(err);
  93
  94   return SVN_NO_ERROR;
  95 }