static int
l_move (lua_State *L) {
const char *src_path = luaL_checkstring (L, 1);
const char *dest_path = luaL_checkstring (L, 2);
const char *message = (lua_gettop (L) < 3 || lua_isnil (L, 3)) ? "" : luaL_checkstring (L, 3);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
src_path = svn_path_canonicalize (src_path, pool);
dest_path = svn_path_canonicalize (dest_path, pool);
svn_commit_info_t *commit_info = NULL;
if (svn_path_is_url (dest_path)) {
make_log_msg_baton (&(ctx->log_msg_baton2), message, NULL, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
}
err = svn_client_move4 (&commit_info, src_path, dest_path, FALSE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_checkout (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
const char *dir = luaL_checkstring (L, 2);
svn_opt_revision_t revision;
svn_opt_revision_t peg_revision;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
revision.kind = svn_opt_revision_head;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 3);
}
svn_boolean_t recursive = TRUE;
svn_boolean_t ignore_externals = FALSE;
int itable = 4;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "ignore_externals");
if (lua_isboolean (L, -1)) {
ignore_externals = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
dir = svn_path_canonicalize (dir, pool);
svn_revnum_t rev;
err = svn_client_checkout2 (&rev, path, dir, &peg_revision, &revision, recursive, ignore_externals, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_pushinteger (L, rev);
svn_pool_destroy (pool);
return 1;
}
static int
l_import (lua_State *L) {
const char *path = lua_isnil (L, 1) ? "" : luaL_checkstring (L, 1);
const char *url = luaL_checkstring (L, 2);
const char *message = (lua_gettop (L) < 3 || lua_isnil (L, 3)) ? "" : luaL_checkstring (L, 3);
svn_boolean_t recursive = TRUE;
svn_boolean_t no_ignore = FALSE;
int itable = 4;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "no_ignore");
if (lua_isboolean (L, -1)) {
no_ignore = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
url = svn_path_canonicalize (url, pool);
svn_commit_info_t *commit_info = NULL;
make_log_msg_baton (&(ctx->log_msg_baton2), message, NULL, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
err = svn_client_import2 (&commit_info, path, url, !recursive, no_ignore, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_merge (lua_State *L) {
const char *source1 = luaL_checkstring (L, 1);
svn_opt_revision_t rev1;
if (lua_isnil (L, 2)) {
rev1.kind = svn_opt_revision_head;
} else {
rev1.kind = svn_opt_revision_number;
rev1.value.number = lua_tointeger (L, 2);
}
const char *source2 = luaL_checkstring (L, 3);
svn_opt_revision_t rev2;
if (lua_isnil (L, 4)) {
rev2.kind = svn_opt_revision_head;
} else {
rev2.kind = svn_opt_revision_number;
rev2.value.number = lua_tointeger (L, 4);
}
const char *wcpath;
if (lua_gettop (L) < 5 || lua_isnil (L, 5)) {
wcpath = "";
} else {
wcpath = luaL_checkstring (L, 5);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
source1 = svn_path_canonicalize (source1, pool);
source2 = svn_path_canonicalize (source2, pool);
wcpath = svn_path_canonicalize (wcpath, pool);
err = svn_client_merge2 (source1, &rev1, source2, &rev2, wcpath,
TRUE, FALSE, FALSE, FALSE, NULL, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_update (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t revision;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = svn_opt_revision_head;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
svn_boolean_t recursive = TRUE;
svn_boolean_t ignore_externals = FALSE;
int itable = 3;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "ignore_externals");
if (lua_isboolean (L, -1)) {
ignore_externals = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
apr_array_header_t *array;
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
apr_array_header_t *result_revs = NULL;
err = svn_client_update2 (&result_revs, array, &revision, recursive, ignore_externals, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (result_revs == NULL) {
lua_pushnil (L);
} else {
int rev = (int) ((int **) (result_revs->elts))[0];
lua_pushinteger (L, rev);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_propset (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
const char *propname = luaL_checkstring (L, 2);
const char *propval = lua_isnil (L, 3) ? NULL : luaL_checkstring (L, 3);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
const char *propname_utf8;
err = svn_utf_cstring_to_utf8 (&propname_utf8, propname, pool);
IF_ERROR_RETURN (err, pool, L);
if (propval != NULL) {
svn_string_t *sstring = svn_string_create (propval, pool);
err = svn_client_propset2 (propname_utf8, sstring, path, TRUE, FALSE, ctx, pool);
} else {
err = svn_client_propset2 (propname_utf8, NULL, path, TRUE, FALSE, ctx, pool);
}
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
svn_error_t *
svn_opt__arg_canonicalize_path(const char **path_out, const char *path_in,
apr_pool_t *pool)
{
const char *apr_target;
char *truenamed_target; /* APR-encoded */
apr_status_t apr_err;
/* canonicalize case, and change all separators to '/'. */
SVN_ERR(svn_path_cstring_from_utf8(&apr_target, path_in, pool));
apr_err = apr_filepath_merge(&truenamed_target, "", apr_target,
APR_FILEPATH_TRUENAME, pool);
if (!apr_err)
/* We have a canonicalized APR-encoded target now. */
apr_target = truenamed_target;
else if (APR_STATUS_IS_ENOENT(apr_err))
/* It's okay for the file to not exist, that just means we
have to accept the case given to the client. We'll use
the original APR-encoded target. */
;
else
return svn_error_createf(apr_err, NULL,
_("Error resolving case of '%s'"),
svn_path_local_style(path_in, pool));
/* convert back to UTF-8. */
SVN_ERR(svn_path_cstring_to_utf8(path_out, apr_target, pool));
*path_out = svn_path_canonicalize(*path_out, pool);
return SVN_NO_ERROR;
}
svn_error_t *
svn_opt__arg_canonicalize_url(const char **url_out, const char *url_in,
apr_pool_t *pool)
{
const char *target;
/* Convert to URI. */
target = svn_path_uri_from_iri(url_in, pool);
/* Auto-escape some ASCII characters. */
target = svn_path_uri_autoescape(target, pool);
/* The above doesn't guarantee a valid URI. */
if (! svn_path_is_uri_safe(target))
return svn_error_createf(SVN_ERR_BAD_URL, 0,
_("URL '%s' is not properly URI-encoded"),
target);
/* Verify that no backpaths are present in the URL. */
if (svn_path_is_backpath_present(target))
return svn_error_createf(SVN_ERR_BAD_URL, 0,
_("URL '%s' contains a '..' element"),
target);
/* strip any trailing '/' and collapse other redundant elements */
target = svn_path_canonicalize(target, pool);
*url_out = target;
return SVN_NO_ERROR;
}
static int
l_list (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t revision;
svn_opt_revision_t peg_revision;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = get_revision_kind (path);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
lua_newtable (L);
err = svn_client_list (path, &peg_revision, &revision, TRUE, SVN_DIRENT_ALL,
TRUE, list_func, L, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 1;
}
static int
l_propget (lua_State *L) {
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
apr_hash_t *props;
const char *propname_utf8;
const void *key;
void *val;
apr_hash_index_t *hi;
svn_opt_revision_t peg_revision;
svn_opt_revision_t revision;
const char *path = luaL_checkstring (L, 1);
const char *propname = luaL_checkstring (L, 2);
int itable = 4;
svn_boolean_t recursive = FALSE;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
revision.kind = svn_opt_revision_unspecified;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 3);
}
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
}
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
err = svn_utf_cstring_to_utf8 (&propname_utf8, propname, pool);
IF_ERROR_RETURN (err, pool, L);
err = svn_client_propget2 (&props, propname_utf8, path, &peg_revision, &revision, recursive, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_newtable (L);
for (hi = apr_hash_first (pool, props); hi; hi = apr_hash_next (hi)) {
svn_string_t *s;
apr_hash_this (hi, &key, NULL, &val);
s = (svn_string_t *) val;
lua_pushstring (L, s->data);
lua_setfield (L, -2, (char *) key);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_revprop_list (lua_State *L) {
const char *url = luaL_checkstring (L, 1);
svn_opt_revision_t revision;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = get_revision_kind (url);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
url = svn_path_canonicalize (url, pool);
apr_hash_t *entries;
apr_hash_index_t *hi;
void *val;
const void *key;
svn_revnum_t rev;
err = svn_client_revprop_list (&entries, url, &revision, &rev, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_newtable (L);
for (hi = apr_hash_first (pool, entries); hi; hi = apr_hash_next (hi)) {
const char *pname;
svn_string_t *pval;
apr_hash_this (hi, &key, NULL, &val);
pname = key;
pval = (svn_string_t *) val;
if (svn_prop_needs_translation (pname)) {
err = svn_subst_translate_string (&pval, pval, APR_LOCALE_CHARSET, pool);
IF_ERROR_RETURN (err, pool, L);
}
err = svn_cmdline_cstring_from_utf8 (&pname, pname, pool);
IF_ERROR_RETURN (err, pool, L);
lua_pushstring (L, pval->data);
lua_setfield (L, -2, pname);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_copy (lua_State *L) {
const char *src_path = luaL_checkstring (L, 1);
const char *dest_path = luaL_checkstring (L, 2);
svn_opt_revision_t revision;
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
revision.kind = svn_opt_revision_unspecified;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 3);
}
const char *message = (lua_gettop (L) < 4 || lua_isnil (L, 4)) ? "" : luaL_checkstring (L, 4);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
src_path = svn_path_canonicalize (src_path, pool);
dest_path = svn_path_canonicalize (dest_path, pool);
svn_commit_info_t *commit_info = NULL;
if (svn_path_is_url (dest_path)) {
make_log_msg_baton (&(ctx->log_msg_baton2), message, NULL, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
}
err = svn_client_copy3 (&commit_info, src_path, &revision, dest_path, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_revprop_set (lua_State *L) {
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
svn_opt_revision_t revision;
svn_revnum_t rev;
const char *url = luaL_checkstring (L, 1);
const char *propname = luaL_checkstring (L, 2);
const char *propval = lua_isnil (L, 3) ? NULL : luaL_checkstring (L, 3);
const char *propname_utf8 = NULL;
int itable = 5;
svn_boolean_t force = FALSE;
if (lua_gettop (L) < 4 || lua_isnil (L, 4)) {
revision.kind = get_revision_kind (url);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 4);
}
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "force");
if (lua_isboolean (L, -1)) {
force = lua_toboolean (L, -1);
}
}
init_function (&ctx, &pool, L);
url = svn_path_canonicalize (url, pool);
err = svn_utf_cstring_to_utf8 (&propname_utf8, propname, pool);
IF_ERROR_RETURN (err, pool, L);
if (propval != NULL) {
svn_string_t *sstring = svn_string_create (propval, pool);
if (svn_prop_needs_translation (propname_utf8)) {
err = svn_subst_translate_string (&sstring, sstring, APR_LOCALE_CHARSET, pool);
IF_ERROR_RETURN (err, pool, L);
}
err = svn_client_revprop_set (propname_utf8, sstring, url, &revision, &rev, force, ctx, pool);
} else {
err = svn_client_revprop_set (propname_utf8, NULL, url, &revision, &rev, force, ctx, pool);
}
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_commit (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
const char *message = (lua_gettop (L) < 2 || lua_isnil (L, 2)) ? "" : luaL_checkstring (L, 2);
svn_boolean_t recursive = TRUE;
svn_boolean_t keep_locks = FALSE;
int itable = 3;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "keep_locks");
if (lua_isboolean (L, -1)) {
keep_locks = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
apr_array_header_t *array;
svn_commit_info_t *commit_info = NULL;
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
make_log_msg_baton (&(ctx->log_msg_baton2), message, path, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
err = svn_client_commit3 (&commit_info, array, recursive, keep_locks, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_propset (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
const char *propname = luaL_checkstring (L, 2);
const char *propval = lua_isnil (L, 3) ? NULL : luaL_checkstring (L, 3);
svn_boolean_t recursive = FALSE;
svn_boolean_t force = FALSE;
int itable = 4;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "force");
if (lua_isboolean (L, -1)) {
force = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
const char *propname_utf8;
err = svn_utf_cstring_to_utf8 (&propname_utf8, propname, pool);
IF_ERROR_RETURN (err, pool, L);
if (propval != NULL) {
svn_string_t *sstring = svn_string_create (propval, pool);
err = svn_client_propset2 (propname_utf8, sstring, path, recursive, force, ctx, pool);
} else {
err = svn_client_propset2 (propname_utf8, NULL, path, recursive, force, ctx, pool);
}
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_list (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t revision;
svn_opt_revision_t peg_revision;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = get_revision_kind (path);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
svn_boolean_t recursive = FALSE;
svn_boolean_t fetch_locks = FALSE;
int itable = 3;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "fetch_locks");
if (lua_isboolean (L, -1)) {
fetch_locks = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
lua_newtable (L);
err = svn_client_list (path, &peg_revision, &revision, recursive, SVN_DIRENT_ALL,
fetch_locks, list_func, L, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 1;
}
static int
l_checkout (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
const char *dir = luaL_checkstring (L, 2);
svn_opt_revision_t revision;
svn_opt_revision_t peg_revision;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
revision.kind = svn_opt_revision_head;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 3);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
dir = svn_path_canonicalize (dir, pool);
svn_revnum_t rev;
err = svn_client_checkout2 (&rev, path, dir, &peg_revision, &revision, TRUE, FALSE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_pushinteger (L, rev);
svn_pool_destroy (pool);
return 1;
}
static int
l_log (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t start, end;
svn_opt_revision_t peg_revision;
peg_revision.kind = svn_opt_revision_unspecified;
start.kind = svn_opt_revision_number;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
start.value.number = 0;
} else {
start.value.number = lua_tointeger (L, 2);
}
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
end.kind = get_revision_kind (path);
} else {
end.kind = svn_opt_revision_number;
end.value.number = lua_tointeger (L, 3);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
apr_array_header_t *array;
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
const int limit = 0;
lua_newtable (L);
err = svn_client_log3 (array, &peg_revision, &start, &end, limit,
FALSE, FALSE, log_receiver, L, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 1;
}
static int
l_delete (lua_State *L) {
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
apr_array_header_t *array;
const char *path = luaL_checkstring (L, 1);
const char *message = (lua_gettop (L) < 2 || lua_isnil (L, 2)) ? "" : luaL_checkstring (L, 2);
int itable = 3;
svn_boolean_t force = FALSE;
svn_commit_info_t *commit_info = NULL;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "force");
if (lua_isboolean (L, -1)) {
force = lua_toboolean (L, -1);
}
}
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
lua_newtable (L);
if (svn_path_is_url (path)) {
make_log_msg_baton (&(ctx->log_msg_baton2), message, NULL, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
}
err = svn_client_delete2 (&commit_info, array, force, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_revprop_get (lua_State *L) {
const char *url = luaL_checkstring (L, 1);
const char *propname = luaL_checkstring (L, 2);
svn_opt_revision_t revision;
if (lua_gettop (L) < 3 || lua_isnil (L, 3)) {
revision.kind = get_revision_kind (url);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 3);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
url = svn_path_canonicalize (url, pool);
const char *propname_utf8;
err = svn_utf_cstring_to_utf8 (&propname_utf8, propname, pool);
IF_ERROR_RETURN (err, pool, L);
svn_string_t *propval;
svn_revnum_t rev;
err = svn_client_revprop_get (propname_utf8, &propval, url, &revision, &rev, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_string_t *printable_val = propval;
if (svn_prop_needs_translation (propname_utf8)) {
err = svn_subst_detranslate_string (&printable_val, propval, TRUE, pool);
IF_ERROR_RETURN (err, pool, L);
}
lua_pushstring (L, printable_val->data);
svn_pool_destroy (pool);
return 1;
}
static int
l_repos_delete (lua_State *L) {
apr_pool_t *pool;
svn_error_t *err;
const char *path = luaL_checkstring (L, 1);
if (init_pool (&pool) != 0) {
return init_pool_error (L);
}
path = svn_path_canonicalize (path, pool);
err = svn_repos_delete (path, pool);
IF_ERROR_RETURN (err, pool, L);
return 0;
}
static int
l_add (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
err = svn_client_add3 (path, TRUE, FALSE, FALSE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_cleanup (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
err = svn_client_cleanup (path, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_cat (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
svn_opt_revision_t peg_revision;
svn_opt_revision_t revision;
peg_revision.kind = svn_opt_revision_unspecified;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = get_revision_kind (path);
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
svn_stream_t *stream;
stream = svn_stream_empty (pool);
svn_stream_set_write (stream, write_fn);
svn_stringbuf_t *buffer = svn_stringbuf_create ("\0", pool);
svn_stream_set_baton (stream, buffer);
err = svn_client_cat2 (stream, path, &peg_revision, &revision, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_pushstring (L, buffer->data);
svn_pool_destroy (pool);
return 1;
}
static int
l_update (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t revision;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = svn_opt_revision_head;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
apr_array_header_t *array;
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
apr_array_header_t *result_revs = NULL;
err = svn_client_update2 (&result_revs, array, &revision, TRUE, FALSE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (result_revs == NULL) {
lua_pushnil (L);
} else {
int rev = (int) ((int **) (result_revs->elts))[0];
lua_pushinteger (L, rev);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_add (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
svn_boolean_t recursive = TRUE;
svn_boolean_t force = FALSE;
svn_boolean_t no_ignore = FALSE;
int itable = 2;
if (lua_gettop (L) >= itable && lua_istable (L, itable)) {
lua_getfield (L, itable, "recursive");
if (lua_isboolean (L, -1)) {
recursive = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "force");
if (lua_isboolean (L, -1)) {
force = lua_toboolean (L, -1);
}
lua_getfield (L, itable, "no_ignore");
if (lua_isboolean (L, -1)) {
no_ignore = lua_toboolean (L, -1);
}
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
err = svn_client_add3 (path, recursive, force, no_ignore, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 0;
}
static int
l_mkdir (lua_State *L) {
const char *path = luaL_checkstring (L, 1);
const char *message = (lua_gettop (L) < 2 || lua_isnil (L, 2)) ? "" : luaL_checkstring (L, 2);
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
svn_commit_info_t *commit_info = NULL;
apr_array_header_t *array;
array = apr_array_make (pool, 1, sizeof (const char *));
(*((const char **) apr_array_push (array))) = path;
if (svn_path_is_url (path)) {
make_log_msg_baton (&(ctx->log_msg_baton2), message, NULL, ctx->config, pool, L);
ctx->log_msg_func2 = log_msg_func2;
}
err = svn_client_mkdir2 (&commit_info, array, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
if (commit_info == NULL) {
lua_pushnil (L);
} else {
lua_pushinteger (L, commit_info->revision);
}
svn_pool_destroy (pool);
return 1;
}
static int
l_status (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t revision;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = svn_opt_revision_head;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
svn_revnum_t rev;
status_bt baton;
baton.L = L;
baton.pool = pool;
lua_newtable (L);
err = svn_client_status2 (&rev, path, &revision, status_func, &baton,
TRUE, TRUE, TRUE, FALSE, FALSE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
svn_pool_destroy (pool);
return 1;
}
/* Opens a session */
char session_open(session_t *session)
{
svn_error_t *err;
svn_client_ctx_t *ctx;
svn_config_t *config;
svn_auth_baton_t *auth_baton;
const char *root;
const char *config_dir = NULL;
/* Make sure the URL is properly encoded */
session->encoded_url = svn_path_uri_encode(svn_path_canonicalize(session->url, session->pool), session->pool);
/* Do neccessary SVN library initialization */
if ((err = svn_fs_initialize(session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
if ((err = svn_ra_initialize(session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
if ((err = svn_config_ensure(NULL, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
/* Setup the client context */
if ((err = svn_client_create_context(&ctx, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
if ((err = svn_config_get_config(&(ctx->config), NULL, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
if (session->config_dir != NULL) {
const char *path;
if ((err = svn_utf_cstring_to_utf8(&path, session->config_dir, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
config_dir = svn_path_canonicalize(path, session->pool);
}
/* Setup auth baton */
config = apr_hash_get(ctx->config, SVN_CONFIG_CATEGORY_CONFIG, APR_HASH_KEY_STRING);
if ((err = svn_cmdline_setup_auth_baton(&auth_baton, (session->flags & SF_NON_INTERACTIVE), session->username, session->password, config_dir, (session->flags & SF_NO_AUTH_CACHE), config, NULL, NULL, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
ctx->auth_baton = auth_baton;
/* Setup the RA session */
if ((err = svn_client_open_ra_session(&(session->ra), session->encoded_url, ctx, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
/* Determine the root (and the prefix) of the URL */
if ((err = svn_ra_get_repos_root(session->ra, &root, session->pool))) {
utils_handle_error(err, stderr, FALSE, "ERROR: ");
svn_error_clear(err);
return 1;
}
session->root = root;
if (!strcmp(session->encoded_url, root)) {
session->prefix = apr_pstrdup(session->pool, "");
} else {
session->prefix = apr_pstrdup(session->pool, session->encoded_url + strlen(root) + 1);
}
session->prefix = session_obfuscate(session, session->pool, session->prefix);
return 0;
}
static int
l_proplist (lua_State *L) {
const char *path = (lua_gettop (L) < 1 || lua_isnil (L, 1)) ? "" : luaL_checkstring (L, 1);
svn_opt_revision_t peg_revision;
svn_opt_revision_t revision;
if (lua_gettop (L) < 2 || lua_isnil (L, 2)) {
revision.kind = svn_opt_revision_unspecified;
} else {
revision.kind = svn_opt_revision_number;
revision.value.number = lua_tointeger (L, 2);
}
peg_revision.kind = svn_opt_revision_unspecified;
apr_pool_t *pool;
svn_error_t *err;
svn_client_ctx_t *ctx;
init_function (&ctx, &pool, L);
path = svn_path_canonicalize (path, pool);
apr_array_header_t *props;
int is_url = svn_path_is_url (path);
err = svn_client_proplist2 (&props, path, &peg_revision, &revision, TRUE, ctx, pool);
IF_ERROR_RETURN (err, pool, L);
lua_newtable (L);
int i;
for (i = 0; i < props->nelts; ++i)
{
const void *key;
void *val;
svn_client_proplist_item_t *item = ((svn_client_proplist_item_t **)props->elts)[i];
const char *name_local;
if (is_url) {
name_local = svn_path_local_style (item->node_name->data, pool);
} else {
name_local = item->node_name->data;
}
lua_pushstring (L, name_local);
lua_newtable (L);
apr_hash_index_t *hi;
for (hi = apr_hash_first (pool, item->prop_hash); hi; hi = apr_hash_next (hi)) {
const char *pname;
svn_string_t *pval;
apr_hash_this (hi, &key, NULL, &val);
pname = key;
pval = (svn_string_t *) val;
err = svn_cmdline_cstring_from_utf8 (&pname, pname, pool);
IF_ERROR_RETURN (err, pool, L);
lua_pushstring (L, pval->data);
lua_setfield (L, -2, pname);
}
lua_settable (L, -3);
}
svn_pool_destroy (pool);
return 1;
}