#include "svn_pools.h"
#include "svn_client.h"
#include "svn_subst.h"
#include "svn_path.h"
#include "svn_error_codes.h"
#include "svn_error.h"
#include "svn_cmdline.h"
#include "cl.h"
#include "svn_private_config.h"
static svn_error_t *
get_comment(const char **comment, svn_client_ctx_t *ctx,
svn_cl__opt_state_t *opt_state, apr_pool_t *pool)
{
svn_string_t *comment_string;
if (opt_state->filedata)
{
if (strlen(opt_state->filedata->data) < opt_state->filedata->len)
{
return svn_error_create(SVN_ERR_CL_BAD_LOG_MESSAGE, NULL,
_("Lock comment contains a zero byte"));
}
comment_string = svn_string_create(opt_state->filedata->data, pool);
}
else if (opt_state->message)
{
comment_string = svn_string_create(opt_state->message, pool);
}
else
{
*comment = NULL;
return SVN_NO_ERROR;
}
SVN_ERR(svn_subst_translate_string2(&comment_string, NULL, NULL,
comment_string, opt_state->encoding,
FALSE, pool, pool));
*comment = comment_string->data;
return SVN_NO_ERROR;
}
struct notify_lock_baton_t
{
void *inner_baton;
svn_wc_notify_func2_t inner_notify;
svn_boolean_t had_failure;
};
static void
notify_lock_handler(void *baton,
const svn_wc_notify_t *notify,
apr_pool_t *scratch_pool)
{
struct notify_lock_baton_t *nlb = baton;
if (notify->action == svn_wc_notify_failed_lock)
nlb->had_failure = TRUE;
if (nlb->inner_notify)
nlb->inner_notify(nlb->inner_baton, notify, scratch_pool);
}
svn_error_t *
svn_cl__lock(apr_getopt_t *os,
void *baton,
apr_pool_t *pool)
{
svn_cl__opt_state_t *opt_state = ((svn_cl__cmd_baton_t *) baton)->opt_state;
svn_client_ctx_t *ctx = ((svn_cl__cmd_baton_t *) baton)->ctx;
apr_array_header_t *targets;
const char *comment;
struct notify_lock_baton_t nlb;
SVN_ERR(svn_cl__args_to_target_array_print_reserved(&targets, os,
opt_state->targets,
ctx, FALSE, pool));
if (! targets->nelts)
return svn_error_create(SVN_ERR_CL_INSUFFICIENT_ARGS, 0, NULL);
SVN_ERR(svn_cl__assert_homogeneous_target_type(targets));
SVN_ERR(get_comment(&comment, ctx, opt_state, pool));
SVN_ERR(svn_cl__eat_peg_revisions(&targets, targets, pool));
nlb.inner_notify = ctx->notify_func2;
nlb.inner_baton = ctx->notify_baton2;
nlb.had_failure = FALSE;
ctx->notify_func2 = notify_lock_handler;
ctx->notify_baton2 = &nlb;
SVN_ERR(svn_client_lock(targets, comment, opt_state->force, ctx, pool));
if (nlb.had_failure)
return svn_error_create(SVN_ERR_ILLEGAL_TARGET, NULL,
_("One or more locks could not be obtained"));
return SVN_NO_ERROR;
}