/* * propget-cmd.c -- Print properties and values of files/dirs * * ==================================================================== * Copyright (c) 2000-2004 CollabNet. All rights reserved. * * This software is licensed as described in the file COPYING, which * you should have received as part of this distribution. The terms * are also available at http://subversion.tigris.org/license-1.html. * If newer versions of this license are posted there, you may use a * newer version instead, at your option. * * This software consists of voluntary contributions made by many * individuals. For exact contribution history, see the revision * history and logs, available at http://subversion.tigris.org/. * ==================================================================== */ /* ==================================================================== */ /*** Includes. ***/ #include "svn_cmdline.h" #include "svn_pools.h" #include "svn_client.h" #include "svn_string.h" #include "svn_error.h" #include "svn_utf.h" #include "svn_subst.h" #include "svn_path.h" #include "svn_props.h" #include "cl.h" /*** Code. ***/ static svn_error_t * stream_write(svn_stream_t *out, const char *data, apr_size_t len) { apr_size_t write_len = len; /* We're gonna bail on an incomplete write here only because we know that this stream is really stdout, which should never be blocking on us. */ SVN_ERR(svn_stream_write(out, data, &write_len)); if (write_len != len) return svn_error_create(SVN_ERR_STREAM_UNEXPECTED_EOF, NULL, "Error writing to stream"); return SVN_NO_ERROR; } /* This implements the `svn_opt_subcommand_t' interface. */ svn_error_t * svn_cl__propget(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; const char *pname, *pname_utf8; apr_array_header_t *args, *targets; svn_stream_t *out; int i; /* PNAME is first argument (and PNAME_UTF8 will be a UTF-8 version thereof) */ SVN_ERR(svn_opt_parse_num_args(&args, os, 1, pool)); pname = ((const char **) (args->elts))[0]; SVN_ERR(svn_utf_cstring_to_utf8(&pname_utf8, pname, pool)); /* suck up all the remaining arguments into a targets array */ SVN_ERR(svn_opt_args_to_target_array2(&targets, os, opt_state->targets, pool)); /* Add "." if user passed 0 file arguments */ svn_opt_push_implicit_dot_target(targets, pool); /* Open a stream to stdout. */ SVN_ERR(svn_stream_for_stdout(&out, pool)); if (opt_state->revprop) /* operate on a revprop */ { svn_revnum_t rev; const char *URL; svn_string_t *propval; SVN_ERR(svn_cl__revprop_prepare(&opt_state->start_revision, targets, &URL, pool)); /* Let libsvn_client do the real work. */ SVN_ERR(svn_client_revprop_get(pname_utf8, &propval, URL, &(opt_state->start_revision), &rev, ctx, pool)); if (propval != NULL) { svn_string_t *printable_val = propval; /* If this is a special Subversion property, it is stored as UTF8 and LF, so convert to the native locale and eol-style. */ if (svn_prop_needs_translation(pname_utf8)) SVN_ERR(svn_subst_detranslate_string(&printable_val, propval, TRUE, pool)); SVN_ERR(stream_write(out, printable_val->data, printable_val->len)); if (! opt_state->strict) SVN_ERR(stream_write(out, APR_EOL_STR, strlen(APR_EOL_STR))); } } else /* operate on a normal, versioned property (not a revprop) */ { apr_pool_t *subpool = svn_pool_create(pool); for (i = 0; i < targets->nelts; i++) { const char *target = ((const char **) (targets->elts))[i]; apr_hash_t *props; apr_hash_index_t *hi; svn_boolean_t print_filenames = FALSE; svn_boolean_t is_url = svn_path_is_url(target); const char *truepath; svn_opt_revision_t peg_revision; svn_pool_clear(subpool); SVN_ERR(svn_cl__check_cancel(ctx->cancel_baton)); /* Check for a peg revision. */ SVN_ERR(svn_opt_parse_path(&peg_revision, &truepath, target, subpool)); SVN_ERR(svn_client_propget2(&props, pname_utf8, truepath, &peg_revision, &(opt_state->start_revision), opt_state->recursive, ctx, subpool)); /* Any time there is more than one thing to print, or where the path associated with a printed thing is not obvious, we'll print filenames. That is, unless we've been told not to do so with the --strict option. */ print_filenames = ((opt_state->recursive || targets->nelts > 1 || apr_hash_count(props) > 1) && (! opt_state->strict)); for (hi = apr_hash_first(pool, props); hi; hi = apr_hash_next(hi)) { const void *key; void *val; const char *filename; svn_string_t *propval; apr_hash_this(hi, &key, NULL, &val); filename = key; propval = val; /* 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, subpool)); } if (print_filenames) { const char *filename_stdout; if (! is_url) { SVN_ERR(svn_cmdline_path_local_style_from_utf8 (&filename_stdout, filename, subpool)); } else { SVN_ERR(svn_cmdline_cstring_from_utf8 (&filename_stdout, filename, subpool)); } SVN_ERR(stream_write(out, filename_stdout, strlen(filename_stdout))); SVN_ERR(stream_write(out, " - ", 3)); } SVN_ERR(stream_write(out, propval->data, propval->len)); if (! opt_state->strict) SVN_ERR(stream_write(out, APR_EOL_STR, strlen(APR_EOL_STR))); } } svn_pool_destroy(subpool); } return SVN_NO_ERROR; }