| /* |
| * crop.c: Cropping the WC |
| * |
| * ==================================================================== |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * ==================================================================== |
| */ |
| |
| /* ==================================================================== */ |
| |
| #include "svn_wc.h" |
| #include "svn_pools.h" |
| #include "svn_error.h" |
| #include "svn_error_codes.h" |
| #include "svn_dirent_uri.h" |
| #include "svn_path.h" |
| |
| #include "wc.h" |
| #include "workqueue.h" |
| |
| #include "svn_private_config.h" |
| |
| /* Helper function that crops the children of the LOCAL_ABSPATH, under the |
| * constraint of NEW_DEPTH. The DIR_PATH itself will never be cropped. The |
| * whole subtree should have been locked. |
| * |
| * DIR_DEPTH is the current depth of LOCAL_ABSPATH as stored in DB. |
| * |
| * If NOTIFY_FUNC is not null, each file and ROOT of subtree will be reported |
| * upon remove. |
| */ |
| static svn_error_t * |
| crop_children(svn_wc__db_t *db, |
| const char *local_abspath, |
| svn_depth_t dir_depth, |
| svn_depth_t new_depth, |
| svn_wc_notify_func2_t notify_func, |
| void *notify_baton, |
| svn_cancel_func_t cancel_func, |
| void *cancel_baton, |
| apr_pool_t *scratch_pool) |
| { |
| const apr_array_header_t *children; |
| apr_pool_t *iterpool; |
| int i; |
| |
| SVN_ERR_ASSERT(new_depth >= svn_depth_empty |
| && new_depth <= svn_depth_infinity); |
| |
| if (cancel_func) |
| SVN_ERR(cancel_func(cancel_baton)); |
| |
| iterpool = svn_pool_create(scratch_pool); |
| |
| if (dir_depth == svn_depth_unknown) |
| dir_depth = svn_depth_infinity; |
| |
| /* Update the depth of target first, if needed. */ |
| if (dir_depth > new_depth) |
| SVN_ERR(svn_wc__db_op_set_base_depth(db, local_abspath, new_depth, |
| iterpool)); |
| |
| /* Looping over current directory's SVN entries: */ |
| SVN_ERR(svn_wc__db_base_get_children(&children, db, local_abspath, |
| scratch_pool, iterpool)); |
| |
| for (i = 0; i < children->nelts; i++) |
| { |
| const char *child_name = APR_ARRAY_IDX(children, i, const char *); |
| const char *child_abspath; |
| svn_wc__db_status_t child_status; |
| svn_node_kind_t kind; |
| svn_depth_t child_depth; |
| svn_boolean_t have_work; |
| svn_depth_t remove_below; |
| |
| svn_pool_clear(iterpool); |
| |
| /* Get the next node */ |
| child_abspath = svn_dirent_join(local_abspath, child_name, iterpool); |
| |
| SVN_ERR(svn_wc__db_read_info(&child_status, &kind, NULL, NULL, NULL, |
| NULL,NULL, NULL, NULL, &child_depth, |
| NULL, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, NULL, &have_work, |
| db, child_abspath, iterpool, iterpool)); |
| |
| if (have_work) |
| { |
| svn_boolean_t modified, all_deletes; |
| |
| if (child_status != svn_wc__db_status_deleted) |
| { |
| /* ### TODO: Check for issue #4636 constraints, but not only on |
| this node, but also at all its descendants: We don't want |
| to remove moved_from information here! */ |
| continue; /* Leave local additions alone */ |
| } |
| |
| SVN_ERR(svn_wc__node_has_local_mods(&modified, &all_deletes, |
| db, child_abspath, FALSE, |
| cancel_func, cancel_baton, |
| iterpool)); |
| |
| if (modified && !all_deletes) |
| continue; /* Something interesting is still there */ |
| } |
| |
| remove_below = (kind == svn_node_dir) |
| ? svn_depth_immediates |
| : svn_depth_files; |
| |
| if ((child_status == svn_wc__db_status_server_excluded || |
| child_status == svn_wc__db_status_excluded || |
| child_status == svn_wc__db_status_not_present)) |
| { |
| if (new_depth < remove_below) |
| SVN_ERR(svn_wc__db_base_remove(db, child_abspath, |
| FALSE /* keep_as_working */, |
| FALSE, FALSE, |
| SVN_INVALID_REVNUM, |
| NULL, NULL, iterpool)); |
| |
| continue; /* No recurse */ |
| } |
| |
| if (new_depth < remove_below) |
| { |
| svn_boolean_t modified, all_deletes; |
| |
| SVN_ERR(svn_wc__node_has_local_mods(&modified, &all_deletes, |
| db, child_abspath, FALSE, |
| cancel_func, cancel_baton, |
| iterpool)); |
| |
| if (!modified || all_deletes) |
| { |
| SVN_ERR(svn_wc__db_base_remove(db, child_abspath, |
| FALSE, FALSE, FALSE, |
| SVN_INVALID_REVNUM, |
| NULL, NULL, iterpool)); |
| if (notify_func) |
| { |
| svn_wc_notify_t *notify; |
| notify = svn_wc_create_notify(child_abspath, |
| svn_wc_notify_delete, |
| iterpool); |
| (*notify_func)(notify_baton, notify, iterpool); |
| } |
| |
| continue; /* No recurse */ |
| } |
| |
| /* Fall through: recurse:*/ |
| } |
| |
| if (kind == svn_node_dir) |
| { |
| SVN_ERR(crop_children(db, child_abspath, |
| child_depth, svn_depth_empty, |
| notify_func, notify_baton, |
| cancel_func, cancel_baton, |
| iterpool)); |
| } |
| } |
| |
| svn_pool_destroy(iterpool); |
| |
| return SVN_NO_ERROR; |
| } |
| |
| svn_error_t * |
| svn_wc_exclude(svn_wc_context_t *wc_ctx, |
| const char *local_abspath, |
| svn_cancel_func_t cancel_func, |
| void *cancel_baton, |
| svn_wc_notify_func2_t notify_func, |
| void *notify_baton, |
| apr_pool_t *scratch_pool) |
| { |
| svn_boolean_t is_root, is_switched; |
| svn_wc__db_status_t status; |
| svn_node_kind_t kind; |
| svn_revnum_t revision; |
| svn_depth_t depth; |
| svn_boolean_t modified, all_deletes; |
| const char *repos_relpath, *repos_root, *repos_uuid; |
| |
| SVN_ERR(svn_wc__db_is_switched(&is_root, &is_switched, NULL, |
| wc_ctx->db, local_abspath, scratch_pool)); |
| |
| if (is_root) |
| { |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot exclude '%s': " |
| "it is a working copy root"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| } |
| if (is_switched) |
| { |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot exclude '%s': " |
| "it is a switched path"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| } |
| |
| SVN_ERR(svn_wc__db_read_info(&status, &kind, &revision, &repos_relpath, |
| &repos_root, &repos_uuid, NULL, NULL, NULL, |
| &depth, NULL, NULL, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, |
| wc_ctx->db, local_abspath, |
| scratch_pool, scratch_pool)); |
| |
| switch (status) |
| { |
| case svn_wc__db_status_server_excluded: |
| case svn_wc__db_status_excluded: |
| case svn_wc__db_status_not_present: |
| return svn_error_createf(SVN_ERR_WC_PATH_NOT_FOUND, NULL, |
| _("The node '%s' was not found."), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| |
| case svn_wc__db_status_added: |
| /* Would have to check parents if we want to allow this */ |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot exclude '%s': it is to be added " |
| "to the repository. Try commit instead"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| case svn_wc__db_status_deleted: |
| /* Would have to check parents if we want to allow this */ |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot exclude '%s': it is to be deleted " |
| "from the repository. Try commit instead"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| |
| case svn_wc__db_status_normal: |
| case svn_wc__db_status_incomplete: |
| default: |
| break; /* Ok to exclude */ |
| } |
| |
| SVN_ERR(svn_wc__node_has_local_mods(&modified, &all_deletes, |
| wc_ctx->db, local_abspath, FALSE, |
| cancel_func, cancel_baton, |
| scratch_pool)); |
| |
| if (!modified || all_deletes) |
| { |
| /* Remove all working copy data below local_abspath */ |
| SVN_ERR(svn_wc__db_base_remove(wc_ctx->db, local_abspath, |
| FALSE /* keep_working */, |
| FALSE, TRUE, |
| revision, |
| NULL, NULL, |
| scratch_pool)); |
| |
| SVN_ERR(svn_wc__wq_run(wc_ctx->db, local_abspath, |
| cancel_func, cancel_baton, |
| scratch_pool)); |
| |
| if (notify_func) |
| { |
| svn_wc_notify_t *notify; |
| notify = svn_wc_create_notify(local_abspath, |
| svn_wc_notify_exclude, |
| scratch_pool); |
| notify_func(notify_baton, notify, scratch_pool); |
| } |
| } |
| else |
| { |
| /* Do the next best thing: retry below this path */ |
| SVN_ERR(crop_children(wc_ctx->db, local_abspath, depth, svn_depth_empty, |
| notify_func, notify_baton, |
| cancel_func, cancel_baton, |
| scratch_pool)); |
| } |
| |
| return SVN_NO_ERROR; |
| } |
| |
| svn_error_t * |
| svn_wc_crop_tree2(svn_wc_context_t *wc_ctx, |
| const char *local_abspath, |
| svn_depth_t depth, |
| svn_cancel_func_t cancel_func, |
| void *cancel_baton, |
| svn_wc_notify_func2_t notify_func, |
| void *notify_baton, |
| apr_pool_t *scratch_pool) |
| { |
| svn_wc__db_t *db = wc_ctx->db; |
| svn_wc__db_status_t status; |
| svn_node_kind_t kind; |
| svn_depth_t dir_depth; |
| |
| /* Only makes sense when the depth is restrictive. */ |
| if (depth == svn_depth_infinity) |
| return SVN_NO_ERROR; /* Nothing to crop */ |
| if (!(depth >= svn_depth_empty && depth < svn_depth_infinity)) |
| return svn_error_create(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Can only crop a working copy with a restrictive depth")); |
| |
| SVN_ERR(svn_wc__db_read_info(&status, &kind, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, &dir_depth, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, NULL, NULL, NULL, NULL, |
| NULL, NULL, NULL, NULL, NULL, NULL, |
| db, local_abspath, |
| scratch_pool, scratch_pool)); |
| |
| if (kind != svn_node_dir) |
| return svn_error_create(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Can only crop directories")); |
| |
| switch (status) |
| { |
| case svn_wc__db_status_not_present: |
| case svn_wc__db_status_server_excluded: |
| return svn_error_createf(SVN_ERR_WC_PATH_NOT_FOUND, NULL, |
| _("The node '%s' was not found."), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| |
| case svn_wc__db_status_deleted: |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot crop '%s': it is going to be removed " |
| "from repository. Try commit instead"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| |
| case svn_wc__db_status_added: |
| return svn_error_createf(SVN_ERR_UNSUPPORTED_FEATURE, NULL, |
| _("Cannot crop '%s': it is to be added " |
| "to the repository. Try commit instead"), |
| svn_dirent_local_style(local_abspath, |
| scratch_pool)); |
| case svn_wc__db_status_excluded: |
| return SVN_NO_ERROR; /* Nothing to do */ |
| |
| case svn_wc__db_status_normal: |
| case svn_wc__db_status_incomplete: |
| break; |
| |
| default: |
| SVN_ERR_MALFUNCTION(); |
| } |
| |
| SVN_ERR(crop_children(db, local_abspath, dir_depth, depth, |
| notify_func, notify_baton, |
| cancel_func, cancel_baton, scratch_pool)); |
| |
| return svn_error_trace(svn_wc__wq_run(db, local_abspath, |
| cancel_func, cancel_baton, |
| scratch_pool)); |
| } |
