subversion/svn/status-cmd.c - subversion - Git at Google

 /*
  * status-cmd.c -- Display status information in current directory
  *
  * ====================================================================
  * Copyright (c) 2000-2007 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_wc.h"
 #include "svn_client.h"
 #include "svn_error.h"
 #include "svn_pools.h"
 #include "svn_xml.h"
 #include "svn_path.h"
 #include "svn_cmdline.h"
 #include "cl.h"

 #include "svn_private_config.h"


 /*** Code. ***/

 struct status_baton
 {
   /* These fields all correspond to the ones in the
      svn_cl__print_status() interface. */
   svn_boolean_t detailed;
   svn_boolean_t show_last_committed;
   svn_boolean_t skip_unrecognized;
   svn_boolean_t repos_locks;
   apr_pool_t *pool;

   apr_hash_t *cached_changelists;

   svn_boolean_t had_print_error;  /* To avoid printing lots of errors if we get
                                      errors while printing to stdout */
   svn_boolean_t xml_mode;
 };


 struct status_cache
 {
   const char *path;
   svn_wc_status2_t *status;
 };


 /* Prints XML target element with path attribute TARGET, using POOL for
    temporary allocations. */
 static svn_error_t *
 print_start_target_xml(const char *target, apr_pool_t *pool)
 {
   svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

   svn_xml_make_open_tag(&sb, pool, svn_xml_normal, "target",
                         "path", target, NULL);

   return svn_cl__error_checked_fputs(sb->data, stdout);
 }


 /* Prints XML header using POOL for temporary allocations. */
 static svn_error_t *
 print_header_xml(apr_pool_t *pool)
 {
   svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

   svn_xml_make_header(&sb, pool);
   svn_xml_make_open_tag(&sb, pool, svn_xml_normal, "status", NULL);

   return svn_cl__error_checked_fputs(sb->data, stdout);
 }


 /* Prints XML footer using POOL for temporary allocations. */
 static svn_error_t *
 print_footer_xml(apr_pool_t *pool)
 {
   svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

   svn_xml_make_close_tag(&sb, pool, "status");

   return svn_cl__error_checked_fputs(sb->data, stdout);
 }

 /* Finish a target element by optionally printing an against element if
  * REPOS_REV is a valid revision number, and then printing an target end tag.
  * Use POOL for temporary allocations. */
 static svn_error_t *
 print_finish_target_xml(svn_revnum_t repos_rev,
                         apr_pool_t *pool)
 {
   svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

   if (SVN_IS_VALID_REVNUM(repos_rev))
     {
       const char *repos_rev_str;
       repos_rev_str = apr_psprintf(pool, "%ld", repos_rev);
       svn_xml_make_open_tag(&sb, pool, svn_xml_self_closing, "against",
                             "revision", repos_rev_str, NULL);
     }

   svn_xml_make_close_tag(&sb, pool, "target");

   return svn_cl__error_checked_fputs(sb->data, stdout);
 }


 /* Function which *actually* causes a status structure to be output to
    the user.  Called by both print_status() and svn_cl__status(). */
 static void
 print_status_normal_or_xml(void *baton,
                            const char *path,
                            svn_wc_status2_t *status)
 {
   struct status_baton *sb = baton;
   svn_error_t *err;

   if (sb->xml_mode)
     err = svn_cl__print_status_xml(path, status, sb->pool);
   else
     err = svn_cl__print_status(path, status, sb->detailed,
                                sb->show_last_committed,
                                sb->skip_unrecognized,
                                sb->repos_locks,
                                sb->pool);

   if (err)
     {
       /* Print if it is the first error. */
       if (!sb->had_print_error)
         {
           sb->had_print_error = TRUE;
           svn_handle_error2(err, stderr, FALSE, "svn: ");
         }
       svn_error_clear(err);
     }
 }


 /* A status callback function for printing STATUS for PATH. */
 static void
 print_status(void *baton,
              const char *path,
              svn_wc_status2_t *status)
 {
   struct status_baton *sb = baton;

   /* If there's a changelist attached to the entry, then we don't print
      the item, but instead dup & cache the status structure for later. */
   if (status->entry && status->entry->changelist)
     {
       /* The hash maps a changelist name to an array of status_cache
          structures. */
       apr_array_header_t *path_array;
       const char *cl_key = apr_pstrdup(sb->pool, status->entry->changelist);
       struct status_cache *scache = apr_pcalloc(sb->pool, sizeof(*scache));
       scache->path = apr_pstrdup(sb->pool, path);
       scache->status = svn_wc_dup_status2(status, sb->pool);

       path_array = (apr_array_header_t *)
         apr_hash_get(sb->cached_changelists, cl_key, APR_HASH_KEY_STRING);
       if (path_array == NULL)
         {
           path_array = apr_array_make(sb->pool, 1,
                                       sizeof(struct status_cache *));
           apr_hash_set(sb->cached_changelists, cl_key,
                        APR_HASH_KEY_STRING, path_array);
         }

       APR_ARRAY_PUSH(path_array, struct status_cache *) = scache;
       return;
     }

   print_status_normal_or_xml(baton, path, status);
 }

 /* Simpler helper to allow use of svn_cl__try. */
 static svn_error_t *
 do_status(svn_cl__opt_state_t *opt_state,
           const char *target,
           const svn_opt_revision_t *rev,
           void *status_baton,
           svn_client_ctx_t *ctx,
           apr_pool_t *pool)
 {
   svn_revnum_t repos_rev = SVN_INVALID_REVNUM;

   if (opt_state->xml)
     SVN_ERR(print_start_target_xml(svn_path_local_style(target, pool), pool));

   /* ### TODO: Yup, this needs to be real depth.*/
   SVN_ERR(svn_client_status2(&repos_rev, target, rev,
                              print_status, status_baton,
                              SVN_DEPTH_TO_RECURSE(opt_state->depth),
                              opt_state->verbose,
                              opt_state->update,
                              opt_state->no_ignore,
                              opt_state->ignore_externals,
                              ctx, pool));

   if (opt_state->xml)
     SVN_ERR(print_finish_target_xml(repos_rev, pool));

   return SVN_NO_ERROR;
 }

 /* This implements the `svn_opt_subcommand_t' interface. */
 svn_error_t *
 svn_cl__status(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;
   apr_pool_t * subpool;
   int i;
   svn_opt_revision_t rev;
   struct status_baton sb;

   SVN_ERR(svn_opt_args_to_target_array2(&targets, os,
                                         opt_state->targets, pool));

   /* We want our -u statuses to be against HEAD. */
   rev.kind = svn_opt_revision_head;

   /* The notification callback, leave the notifier as NULL in XML mode */
   if (! opt_state->xml)
     svn_cl__get_notifier(&ctx->notify_func2, &ctx->notify_baton2, FALSE,
                          FALSE, FALSE, pool);

   /* Add "." if user passed 0 arguments */
   svn_opt_push_implicit_dot_target(targets, pool);

   /* ### TODO: I don't think we need to convert to default depth here;
      ### rather, depth should stay unknown, because it may depend on
      ### what the working copy says.  On the other hand, if no -u
      ### flag was passed, then does depth matter? */

   subpool = svn_pool_create(pool);

   sb.had_print_error = FALSE;

   if (opt_state->xml)
     {
       /* If output is not incremental, output the XML header and wrap
          everything in a top-level element. This makes the output in
          its entirety a well-formed XML document. */
       if (! opt_state->incremental)
         SVN_ERR(print_header_xml(pool));
     }
   else
     {
       if (opt_state->incremental)
         return svn_error_create(SVN_ERR_CL_ARG_PARSING_ERROR, NULL,
                                 _("'incremental' option only valid in XML "
                                   "mode"));
     }

   for (i = 0; i < targets->nelts; i++)
     {
       const char *target = APR_ARRAY_IDX(targets, i, const char *);

       svn_pool_clear(subpool);

       SVN_ERR(svn_cl__check_cancel(ctx->cancel_baton));

       /* Retrieve a hash of status structures with the information
          requested by the user. */

       sb.detailed = (opt_state->verbose || opt_state->update);
       sb.show_last_committed = opt_state->verbose;
       sb.skip_unrecognized = opt_state->quiet;
       sb.repos_locks = opt_state->update;
       sb.xml_mode = opt_state->xml;
       sb.pool = subpool;
       sb.cached_changelists = apr_hash_make(sb.pool);

       SVN_ERR(svn_cl__try(do_status(opt_state, target, &rev, &sb, ctx,
                                     subpool),
                           NULL, opt_state->quiet,
                           SVN_ERR_WC_NOT_DIRECTORY, /* not versioned */
                           SVN_NO_ERROR));

       /* If any paths were cached as changelists, we can now display
          them as groups. */
       if (apr_hash_count(sb.cached_changelists) > 0)
         {
           apr_hash_index_t *hi;
           for (hi = apr_hash_first(subpool, sb.cached_changelists); hi;
                hi = apr_hash_next(hi))
             {
               const char *changelist_name;
               apr_array_header_t *path_array;
               const void *key;
               void *val;
               int j;

               apr_hash_this(hi, &key, NULL, &val);
               changelist_name = key;
               path_array = val;

               /* ### TODO(sussman): should be able to output XML too: */
               SVN_ERR(svn_cmdline_printf(subpool,
                                          _("\n--- Changelist '%s':\n"),
                                          changelist_name));

               for (j = 0; j < path_array->nelts; j++)
                 {
                   struct status_cache *scache =
                     APR_ARRAY_IDX(path_array, j, struct status_cache *);
                   print_status_normal_or_xml(&sb, scache->path, scache->status);
                 }
             }
         }
     }

   svn_pool_destroy(subpool);
   if (opt_state->xml && (! opt_state->incremental))
     SVN_ERR(print_footer_xml(pool));

   return SVN_NO_ERROR;
 }
	/*
	* status-cmd.c -- Display status information in current directory
	*
	* ====================================================================
	* Copyright (c) 2000-2007 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_wc.h"
	#include "svn_client.h"
	#include "svn_error.h"
	#include "svn_pools.h"
	#include "svn_xml.h"
	#include "svn_path.h"
	#include "svn_cmdline.h"
	#include "cl.h"

	#include "svn_private_config.h"



	/* Code. */

	struct status_baton
	{
	/* These fields all correspond to the ones in the
	svn_cl__print_status() interface. */
	svn_boolean_t detailed;
	svn_boolean_t show_last_committed;
	svn_boolean_t skip_unrecognized;
	svn_boolean_t repos_locks;
	apr_pool_t *pool;

	apr_hash_t *cached_changelists;

	svn_boolean_t had_print_error; /* To avoid printing lots of errors if we get
	errors while printing to stdout */
	svn_boolean_t xml_mode;
	};


	struct status_cache
	{
	const char *path;
	svn_wc_status2_t *status;
	};


	/* Prints XML target element with path attribute TARGET, using POOL for
	temporary allocations. */
	static svn_error_t *
	print_start_target_xml(const char target, apr_pool_t pool)
	{
	svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

	svn_xml_make_open_tag(&sb, pool, svn_xml_normal, "target",
	"path", target, NULL);

	return svn_cl__error_checked_fputs(sb->data, stdout);
	}


	/* Prints XML header using POOL for temporary allocations. */
	static svn_error_t *
	print_header_xml(apr_pool_t *pool)
	{
	svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

	svn_xml_make_header(&sb, pool);
	svn_xml_make_open_tag(&sb, pool, svn_xml_normal, "status", NULL);

	return svn_cl__error_checked_fputs(sb->data, stdout);
	}


	/* Prints XML footer using POOL for temporary allocations. */
	static svn_error_t *
	print_footer_xml(apr_pool_t *pool)
	{
	svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

	svn_xml_make_close_tag(&sb, pool, "status");

	return svn_cl__error_checked_fputs(sb->data, stdout);
	}

	/* Finish a target element by optionally printing an against element if
	* REPOS_REV is a valid revision number, and then printing an target end tag.
	* Use POOL for temporary allocations. */
	static svn_error_t *
	print_finish_target_xml(svn_revnum_t repos_rev,
	apr_pool_t *pool)
	{
	svn_stringbuf_t *sb = svn_stringbuf_create("", pool);

	if (SVN_IS_VALID_REVNUM(repos_rev))
	{
	const char *repos_rev_str;
	repos_rev_str = apr_psprintf(pool, "%ld", repos_rev);
	svn_xml_make_open_tag(&sb, pool, svn_xml_self_closing, "against",
	"revision", repos_rev_str, NULL);
	}

	svn_xml_make_close_tag(&sb, pool, "target");

	return svn_cl__error_checked_fputs(sb->data, stdout);
	}


	/* Function which actually causes a status structure to be output to
	the user. Called by both print_status() and svn_cl__status(). */
	static void
	print_status_normal_or_xml(void *baton,
	const char *path,
	svn_wc_status2_t *status)
	{
	struct status_baton *sb = baton;
	svn_error_t *err;

	if (sb->xml_mode)
	err = svn_cl__print_status_xml(path, status, sb->pool);
	else
	err = svn_cl__print_status(path, status, sb->detailed,
	sb->show_last_committed,
	sb->skip_unrecognized,
	sb->repos_locks,
	sb->pool);

	if (err)
	{
	/* Print if it is the first error. */
	if (!sb->had_print_error)
	{
	sb->had_print_error = TRUE;
	svn_handle_error2(err, stderr, FALSE, "svn: ");
	}
	svn_error_clear(err);
	}
	}


	/* A status callback function for printing STATUS for PATH. */
	static void
	print_status(void *baton,
	const char *path,
	svn_wc_status2_t *status)
	{
	struct status_baton *sb = baton;

	/* If there's a changelist attached to the entry, then we don't print
	the item, but instead dup & cache the status structure for later. */
	if (status->entry && status->entry->changelist)
	{
	/* The hash maps a changelist name to an array of status_cache
	structures. */
	apr_array_header_t *path_array;
	const char *cl_key = apr_pstrdup(sb->pool, status->entry->changelist);
	struct status_cache scache = apr_pcalloc(sb->pool, sizeof(scache));
	scache->path = apr_pstrdup(sb->pool, path);
	scache->status = svn_wc_dup_status2(status, sb->pool);

	path_array = (apr_array_header_t *)
	apr_hash_get(sb->cached_changelists, cl_key, APR_HASH_KEY_STRING);
	if (path_array == NULL)
	{
	path_array = apr_array_make(sb->pool, 1,
	sizeof(struct status_cache *));
	apr_hash_set(sb->cached_changelists, cl_key,
	APR_HASH_KEY_STRING, path_array);
	}

	APR_ARRAY_PUSH(path_array, struct status_cache *) = scache;
	return;
	}

	print_status_normal_or_xml(baton, path, status);
	}

	/* Simpler helper to allow use of svn_cl__try. */
	static svn_error_t *
	do_status(svn_cl__opt_state_t *opt_state,
	const char *target,
	const svn_opt_revision_t *rev,
	void *status_baton,
	svn_client_ctx_t *ctx,
	apr_pool_t *pool)
	{
	svn_revnum_t repos_rev = SVN_INVALID_REVNUM;

	if (opt_state->xml)
	SVN_ERR(print_start_target_xml(svn_path_local_style(target, pool), pool));

	/* ### TODO: Yup, this needs to be real depth.*/
	SVN_ERR(svn_client_status2(&repos_rev, target, rev,
	print_status, status_baton,
	SVN_DEPTH_TO_RECURSE(opt_state->depth),
	opt_state->verbose,
	opt_state->update,
	opt_state->no_ignore,
	opt_state->ignore_externals,
	ctx, pool));

	if (opt_state->xml)
	SVN_ERR(print_finish_target_xml(repos_rev, pool));

	return SVN_NO_ERROR;
	}

	/* This implements the `svn_opt_subcommand_t' interface. */
	svn_error_t *
	svn_cl__status(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;
	apr_pool_t * subpool;
	int i;
	svn_opt_revision_t rev;
	struct status_baton sb;

	SVN_ERR(svn_opt_args_to_target_array2(&targets, os,
	opt_state->targets, pool));

	/* We want our -u statuses to be against HEAD. */
	rev.kind = svn_opt_revision_head;

	/* The notification callback, leave the notifier as NULL in XML mode */
	if (! opt_state->xml)
	svn_cl__get_notifier(&ctx->notify_func2, &ctx->notify_baton2, FALSE,
	FALSE, FALSE, pool);

	/* Add "." if user passed 0 arguments */
	svn_opt_push_implicit_dot_target(targets, pool);

	/* ### TODO: I don't think we need to convert to default depth here;
	### rather, depth should stay unknown, because it may depend on
	### what the working copy says. On the other hand, if no -u
	### flag was passed, then does depth matter? */

	subpool = svn_pool_create(pool);

	sb.had_print_error = FALSE;

	if (opt_state->xml)
	{
	/* If output is not incremental, output the XML header and wrap
	everything in a top-level element. This makes the output in
	its entirety a well-formed XML document. */
	if (! opt_state->incremental)
	SVN_ERR(print_header_xml(pool));
	}
	else
	{
	if (opt_state->incremental)
	return svn_error_create(SVN_ERR_CL_ARG_PARSING_ERROR, NULL,
	_("'incremental' option only valid in XML "
	"mode"));
	}

	for (i = 0; i < targets->nelts; i++)
	{
	const char target = APR_ARRAY_IDX(targets, i, const char );

	svn_pool_clear(subpool);

	SVN_ERR(svn_cl__check_cancel(ctx->cancel_baton));

	/* Retrieve a hash of status structures with the information
	requested by the user. */

	sb.detailed = (opt_state->verbose \|\| opt_state->update);
	sb.show_last_committed = opt_state->verbose;
	sb.skip_unrecognized = opt_state->quiet;
	sb.repos_locks = opt_state->update;
	sb.xml_mode = opt_state->xml;
	sb.pool = subpool;
	sb.cached_changelists = apr_hash_make(sb.pool);

	SVN_ERR(svn_cl__try(do_status(opt_state, target, &rev, &sb, ctx,
	subpool),
	NULL, opt_state->quiet,
	SVN_ERR_WC_NOT_DIRECTORY, /* not versioned */
	SVN_NO_ERROR));

	/* If any paths were cached as changelists, we can now display
	them as groups. */
	if (apr_hash_count(sb.cached_changelists) > 0)
	{
	apr_hash_index_t *hi;
	for (hi = apr_hash_first(subpool, sb.cached_changelists); hi;
	hi = apr_hash_next(hi))
	{
	const char *changelist_name;
	apr_array_header_t *path_array;
	const void *key;
	void *val;
	int j;

	apr_hash_this(hi, &key, NULL, &val);
	changelist_name = key;
	path_array = val;

	/* ### TODO(sussman): should be able to output XML too: */
	SVN_ERR(svn_cmdline_printf(subpool,
	_("\n--- Changelist '%s':\n"),
	changelist_name));

	for (j = 0; j < path_array->nelts; j++)
	{
	struct status_cache *scache =
	APR_ARRAY_IDX(path_array, j, struct status_cache *);
	print_status_normal_or_xml(&sb, scache->path, scache->status);
	}
	}
	}
	}

	svn_pool_destroy(subpool);
	if (opt_state->xml && (! opt_state->incremental))
	SVN_ERR(print_footer_xml(pool));

	return SVN_NO_ERROR;
	}