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;
}
/* Print the properties in PROPS to the stream OUT. PROPS is a hash mapping
* (const char *) path to (svn_string_t) property value.
* If IS_URL is true, all paths are URLs, else all paths are local paths.
* PNAME_UTF8 is the property name of all the properties.
* If PRINT_FILENAMES is true, print the item's path before each property.
* If OMIT_NEWLINE is true, don't add a newline at the end of each property.
* If LIKE_PROPLIST is true, print everything in a more verbose format
* like "svn proplist -v" does.
* */
static svn_error_t *
print_properties(svn_stream_t *out,
svn_boolean_t is_url,
const char *pname_utf8,
apr_hash_t *props,
svn_boolean_t print_filenames,
svn_boolean_t omit_newline,
svn_boolean_t like_proplist,
apr_pool_t *pool)
{
apr_array_header_t *sorted_props;
int i;
apr_pool_t *iterpool = svn_pool_create(pool);
const char *path_prefix;
SVN_ERR(svn_dirent_get_absolute(&path_prefix, "", pool));
sorted_props = svn_sort__hash(props, svn_sort_compare_items_as_paths, pool);
for (i = 0; i < sorted_props->nelts; i++)
{
svn_sort__item_t item = APR_ARRAY_IDX(sorted_props, i, svn_sort__item_t);
const char *filename = item.key;
svn_string_t *propval = item.value;
svn_pool_clear(iterpool);
if (print_filenames)
{
const char *header;
/* Print the file name. */
if (! is_url)
filename = svn_cl__local_style_skip_ancestor(path_prefix, filename,
iterpool);
/* In verbose mode, print exactly same as "proplist" does;
* otherwise, print a brief header. */
header = apr_psprintf(iterpool, like_proplist
? _("Properties on '%s':\n")
: "%s - ", filename);
SVN_ERR(svn_cmdline_cstring_from_utf8(&header, header, iterpool));
SVN_ERR(svn_subst_translate_cstring2(header, &header,
APR_EOL_STR, /* 'native' eol */
FALSE, /* no repair */
NULL, /* no keywords */
FALSE, /* no expansion */
iterpool));
SVN_ERR(stream_write(out, header, strlen(header)));
}
if (like_proplist)
{
/* Print the property name and value just as "proplist -v" does */
apr_hash_t *hash = apr_hash_make(iterpool);
apr_hash_set(hash, pname_utf8, APR_HASH_KEY_STRING, propval);
SVN_ERR(svn_cl__print_prop_hash(out, hash, FALSE, iterpool));
}
else
{
/* If this is a special Subversion property, it is stored as
UTF8, so convert to the native format. */
if (svn_prop_needs_translation(pname_utf8))
SVN_ERR(svn_subst_detranslate_string(&propval, propval,
TRUE, iterpool));
SVN_ERR(stream_write(out, propval->data, propval->len));
if (! omit_newline)
SVN_ERR(stream_write(out, APR_EOL_STR,
strlen(APR_EOL_STR)));
}
}
svn_pool_destroy(iterpool);
return SVN_NO_ERROR;
}
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;
}
static svn_error_t *
print_line_info(svn_stream_t *out,
svn_revnum_t revision,
const char *author,
const char *date,
const char *path,
svn_boolean_t verbose,
svn_revnum_t end_revnum,
apr_pool_t *pool)
{
const char *time_utf8;
const char *time_stdout;
const char *rev_str;
int rev_maxlength;
/* The standard column width for the revision number is 6 characters.
If the revision number can potentially be larger (i.e. if the end_revnum
is larger than 1000000), we increase the column width as needed. */
rev_maxlength = 6;
while (end_revnum >= 1000000)
{
rev_maxlength++;
end_revnum = end_revnum / 10;
}
rev_str = SVN_IS_VALID_REVNUM(revision)
? apr_psprintf(pool, "%*ld", rev_maxlength, revision)
: apr_psprintf(pool, "%*s", rev_maxlength, "-");
if (verbose)
{
if (date)
{
SVN_ERR(svn_cl__time_cstring_to_human_cstring(&time_utf8,
date, pool));
SVN_ERR(svn_cmdline_cstring_from_utf8(&time_stdout, time_utf8,
pool));
}
else
{
/* ### This is a 44 characters long string. It assumes the current
format of svn_time_to_human_cstring and also 3 letter
abbreviations for the month and weekday names. Else, the
line contents will be misaligned. */
time_stdout = " -";
}
SVN_ERR(svn_stream_printf(out, pool, "%s %10s %s ", rev_str,
author ? author : " -",
time_stdout));
if (path)
SVN_ERR(svn_stream_printf(out, pool, "%-14s ", path));
}
else
{
return svn_stream_printf(out, pool, "%s %10.10s ", rev_str,
author ? author : " -");
}
return SVN_NO_ERROR;
}
