subversion/svn/delete-cmd.c

   1 /*
   2  * delete-cmd.c -- Delete/undelete commands
   3  *
   4  * ====================================================================
   5  * Copyright (c) 2000-2004 CollabNet.  All rights reserved.
   6  *
   7  * This software is licensed as described in the file COPYING, which
   8  * you should have received as part of this distribution.  The terms
   9  * are also available at http://subversion.tigris.org/license-1.html.
  10  * If newer versions of this license are posted there, you may use a
  11  * newer version instead, at your option.
  12  *
  13  * This software consists of voluntary contributions made by many
  14  * individuals.  For exact contribution history, see the revision
  15  * history and logs, available at http://subversion.tigris.org/.
  16  * ====================================================================
  17  */
  18
  19 /* ==================================================================== */
  20
  21
  22 \f
  23 /*** Includes. ***/
  24
  25 #include "svn_client.h"
  26 #include "svn_error.h"
  27 #include "svn_path.h"
  28 #include "cl.h"
  29
  30 #include "svn_private_config.h"
  31
  32 \f
  33 /*** Code. ***/
  34
  35 /* This implements the `svn_opt_subcommand_t' interface. */
  36 svn_error_t *
  37 svn_cl__delete(apr_getopt_t *os,
  38                void *baton,
  39                apr_pool_t *pool)
  40 {
  41   svn_cl__opt_state_t *opt_state = ((svn_cl__cmd_baton_t *) baton)->opt_state;
  42   svn_client_ctx_t *ctx = ((svn_cl__cmd_baton_t *) baton)->ctx;
  43   apr_array_header_t *targets;
  44   svn_commit_info_t *commit_info = NULL;
  45   svn_error_t *err;
  46
  47   SVN_ERR(svn_cl__args_to_target_array_print_reserved(&targets, os,
  48                                                       opt_state->targets,
  49                                                       ctx, pool));
  50
  51   if (! targets->nelts)
  52     return svn_error_create(SVN_ERR_CL_INSUFFICIENT_ARGS, 0, NULL);
  53
  54   if (! opt_state->quiet)
  55     svn_cl__get_notifier(&ctx->notify_func2, &ctx->notify_baton2, FALSE,
  56                          FALSE, FALSE, pool);
  57
  58   if (! svn_path_is_url(APR_ARRAY_IDX(targets, 0, const char *)))
  59     {
  60       ctx->log_msg_func3 = NULL;
  61       if (opt_state->message || opt_state->filedata || opt_state->revprop_table)
  62         {
  63           return svn_error_create
  64             (SVN_ERR_CL_UNNECESSARY_LOG_MESSAGE, NULL,
  65              _("Local, non-commit operations do not take a log message "
  66                "or revision properties"));
  67         }
  68     }
  69   else
  70     {
  71       SVN_ERR(svn_cl__make_log_msg_baton(&(ctx->log_msg_baton3), opt_state,
  72                                          NULL, ctx->config, pool));
  73     }
  74
  75   ctx->revprop_table = opt_state->revprop_table;
  76
  77   err = svn_client_delete3(&commit_info, targets, opt_state->force,
  78                            opt_state->keep_local, ctx, pool);
  79   if (err)
  80     err = svn_cl__may_need_force(err);
  81
  82   if (ctx->log_msg_func3)
  83     SVN_ERR(svn_cl__cleanup_log_msg(ctx->log_msg_baton3, err));
  84   else if (err)
  85     return err;
  86
  87   if (commit_info && ! opt_state->quiet)
  88     SVN_ERR(svn_cl__print_commit_info(commit_info, pool));
  89
  90   return SVN_NO_ERROR;
  91 }