1/* 2 * cleanup-cmd.c -- Subversion cleanup 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_path.h" 32#include "svn_pools.h" 33#include "svn_error.h" 34#include "cl.h" 35 36#include "svn_private_config.h" 37 38 39/*** Code. ***/ 40 41/* This implements the `svn_opt_subcommand_t' interface. */ 42svn_error_t * 43svn_cl__cleanup(apr_getopt_t *os, 44 void *baton, 45 apr_pool_t *pool) 46{ 47 svn_cl__opt_state_t *opt_state = ((svn_cl__cmd_baton_t *) baton)->opt_state; 48 svn_client_ctx_t *ctx = ((svn_cl__cmd_baton_t *) baton)->ctx; 49 apr_array_header_t *targets; 50 apr_pool_t *subpool; 51 int i; 52 53 SVN_ERR(svn_cl__args_to_target_array_print_reserved(&targets, os, 54 opt_state->targets, 55 ctx, FALSE, pool)); 56 57 /* Add "." if user passed 0 arguments */ 58 svn_opt_push_implicit_dot_target(targets, pool); 59 60 SVN_ERR(svn_cl__check_targets_are_local_paths(targets)); 61 62 SVN_ERR(svn_cl__eat_peg_revisions(&targets, targets, pool)); 63 64 subpool = svn_pool_create(pool); 65 for (i = 0; i < targets->nelts; i++) 66 { 67 const char *target = APR_ARRAY_IDX(targets, i, const char *); 68 svn_error_t *err; 69 70 svn_pool_clear(subpool); 71 SVN_ERR(svn_cl__check_cancel(ctx->cancel_baton)); 72 err = svn_client_cleanup(target, ctx, subpool); 73 if (err && err->apr_err == SVN_ERR_WC_LOCKED) 74 { 75 const char *target_abspath; 76 svn_error_t *err2 = svn_dirent_get_absolute(&target_abspath, 77 target, subpool); 78 if (err2) 79 { 80 err = svn_error_compose_create(err, err2); 81 } 82 else 83 { 84 const char *wcroot_abspath; 85 86 err2 = svn_client_get_wc_root(&wcroot_abspath, target_abspath, 87 ctx, subpool, subpool); 88 if (err2) 89 err = svn_error_compose_create(err, err2); 90 else 91 err = svn_error_createf(SVN_ERR_WC_LOCKED, err, 92 _("Working copy locked; try running " 93 "'svn cleanup' on the root of the " 94 "working copy ('%s') instead."), 95 svn_dirent_local_style(wcroot_abspath, 96 subpool)); 97 } 98 } 99 SVN_ERR(err); 100 } 101 102 svn_pool_destroy(subpool); 103 return SVN_NO_ERROR; 104} 105