MagickWand/wandcli.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %     M   M  AA   GGG  III  CCC     W     W  AA  N   N DDD   CCC L    III     %
 %     MM MM A  A G      I  C        W     W A  A NN  N D  D C    L     I      %
 %     M M M AAAA G  GG  I  C        W  W  W AAAA N N N D  D C    L     I      %
 %     M   M A  A G   G  I  C         W W W  A  A N  NN D  D C    L     I      %
 %     M   M A  A  GGG  III  CCC       W W   A  A N   N DDD   CCC LLLL III     %
 %                                                                             %
 %                                                                             %
 %                         WandCLI Structure Methods                           %
 %                                                                             %
 %                              Dragon Computing                               %
 %                              Anthony Thyssen                                %
 %                                 April 2011                                  %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2012 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 % General methds for handling the WandCLI structure used for Command Line.
 %
 % Anthony Thyssen, April 2011
 */

 /*
   Include declarations.
 */
 #include "MagickWand/studio.h"
 #include "MagickWand/MagickWand.h"
 #include "MagickWand/wand.h"
 #include "MagickWand/magick-wand-private.h"
 #include "MagickWand/wandcli.h"
 #include "MagickWand/wandcli-private.h"
 #include "MagickCore/exception.h"

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   A c q u i r e W a n d C L I                                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  AcquireMagickCLI() creates a new CLI wand (an expanded form of Magick
 %  Wand). The given image_info and exception is included as is if provided.
 %
 %  Use DestroyMagickCLI() to dispose of the CLI wand when it is no longer
 %  needed.
 %
 %  The format of the NewMagickWand method is:
 %
 %      MagickCLI *AcquireMagickCLI(ImageInfo *image_info,
 %           ExceptionInfo *exception)
 %
 */
 WandExport MagickCLI *AcquireMagickCLI(ImageInfo *image_info,
     ExceptionInfo *exception)
 {
   MagickCLI
     *cli_wand;

   /* precaution - as per NewMagickWand() */
   {
      size_t depth = MAGICKCORE_QUANTUM_DEPTH;
      const char *quantum = GetMagickQuantumDepth(&depth);
      if (depth != MAGICKCORE_QUANTUM_DEPTH)
        ThrowWandFatalException(WandError,"QuantumDepthMismatch",quantum);
   }

   /* allocate memory for MgaickCLI */
   cli_wand=(MagickCLI *) AcquireMagickMemory(sizeof(*cli_wand));
   if (cli_wand == (MagickCLI *) NULL)
     {
       ThrowWandFatalException(ResourceLimitFatalError,"MemoryAllocationFailed",
         GetExceptionMessage(errno));
       return((MagickCLI *)NULL);
     }

   /* Initialize Wand Part of MagickCLI
      FUTURE: this is a repeat of code from NewMagickWand()
      However some parts may be given fro man external source!
   */
   cli_wand->wand.id=AcquireWandId();
   (void) FormatLocaleString(cli_wand->wand.name,MaxTextExtent,
            "%s-%.20g","MagickWandCLI", (double) cli_wand->wand.id);
   cli_wand->wand.images=NewImageList();
   if ( image_info == (ImageInfo *)NULL)
     cli_wand->wand.image_info=AcquireImageInfo();
   else
     cli_wand->wand.image_info=image_info;
   if ( exception == (ExceptionInfo *)NULL)
     cli_wand->wand.exception=AcquireExceptionInfo();
   else
     cli_wand->wand.exception=exception;
   cli_wand->wand.debug=IsEventLogging();
   cli_wand->wand.signature=WandSignature;

   /* Initialize CLI Part of MagickCLI */
   cli_wand->draw_info=CloneDrawInfo(cli_wand->wand.image_info,(DrawInfo *) NULL);
   cli_wand->quantize_info=AcquireQuantizeInfo(cli_wand->wand.image_info);
   cli_wand->process_flags=MagickCommandOptionFlags;  /* assume "magick" CLI */
   cli_wand->command=(const OptionInfo *)NULL;     /* no option at this time */
   cli_wand->image_list_stack=(Stack *)NULL;
   cli_wand->image_info_stack=(Stack *)NULL;

   /* default exception location...
      EG: sprintf(locaiton, filename, line, column);
   */
   cli_wand->location="from \"%s\"";   /* location format using arguments: */
                                       /*      filename, line, column */
   cli_wand->filename="unknown";       /* script filename, unknown source */
   cli_wand->line=0;                   /* line from script OR CLI argument */
   cli_wand->column=0;                 /* column from script */

   cli_wand->signature=WandSignature;
   if (IfMagickTrue(cli_wand->wand.debug))
     (void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);
   return(cli_wand);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   D e s t r o y W a n d C L I                                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  DestroyMagickCLI() destorys everything in a CLI wand, including image_info
 %  and any exceptions, if still present in the wand.
 %
 %  The format of the NewMagickWand method is:
 %
 %    MagickWand *DestroyMagickCLI()
 %            Exception *exception)
 %
 */
 WandExport MagickCLI *DestroyMagickCLI(MagickCLI *cli_wand)
 {
   Stack
     *node;

   assert(cli_wand != (MagickCLI *) NULL);
   assert(cli_wand->signature == WandSignature);
   assert(cli_wand->wand.signature == WandSignature);
   if (IfMagickTrue(cli_wand->wand.debug))
     (void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);

   /* Destroy CLI part of MagickCLI */
   if (cli_wand->draw_info != (DrawInfo *) NULL )
     cli_wand->draw_info=DestroyDrawInfo(cli_wand->draw_info);
   if (cli_wand->quantize_info != (QuantizeInfo *) NULL )
     cli_wand->quantize_info=DestroyQuantizeInfo(cli_wand->quantize_info);
   while(cli_wand->image_list_stack != (Stack *)NULL)
     {
       node=cli_wand->image_list_stack;
       cli_wand->image_list_stack=node->next;
       (void) DestroyImageList((Image *)node->data);
       (void) RelinquishMagickMemory(node);
     }
   while(cli_wand->image_info_stack != (Stack *)NULL)
     {
       node=cli_wand->image_info_stack;
       cli_wand->image_info_stack=node->next;
       (void) DestroyImageInfo((ImageInfo *)node->data);
       (void) RelinquishMagickMemory(node);
     }
   cli_wand->signature=(~WandSignature);

   /* Destroy Wand part MagickCLI */
   cli_wand->wand.images=DestroyImageList(cli_wand->wand.images);
   if (cli_wand->wand.image_info != (ImageInfo *) NULL )
     cli_wand->wand.image_info=DestroyImageInfo(cli_wand->wand.image_info);
   if (cli_wand->wand.exception != (ExceptionInfo *) NULL )
     cli_wand->wand.exception=DestroyExceptionInfo(cli_wand->wand.exception);
   RelinquishWandId(cli_wand->wand.id);
   cli_wand->wand.signature=(~WandSignature);

   return((MagickCLI *)NULL);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   C L I C a t c h E x c e p t i o n                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  CLICatchException() will report exceptions, either just non-fatal warnings
 %  only, or all errors, according to 'all_execeptions' boolean argument.
 %
 %  The function returns true if errors are fatal, in which case the caller
 %  should abort and re-call with an 'all_exceptions' argument of true before
 %  quitting.
 %
 %  The cut-off level between fatal and non-fatal may be controlled by options
 %  (FUTURE), but defaults to 'Error' exceptions.
 %
 %  The format of the CLICatchException method is:
 %
 %    MagickBooleanType CLICatchException(MagickCLI *cli_wand,
 %              const MagickBooleanType all_exceptions );
 %
 %  Arguments are
 %
 %    o cli_wand:   The Wand CLI that holds the exception Information
 %
 %    o all_exceptions:   Report all exceptions, including the fatal one
 %
 */
 WandExport MagickBooleanType CLICatchException(MagickCLI *cli_wand,
      const MagickBooleanType all_exceptions )
 {
   MagickBooleanType
     status;
   assert(cli_wand != (MagickCLI *) NULL);
   assert(cli_wand->signature == WandSignature);
   assert(cli_wand->wand.signature == WandSignature);
   if (IfMagickTrue(cli_wand->wand.debug))
     (void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);

   // FUTURE: '-regard_warning' should make this more sensitive.
   // Note pipelined options may like more control over this level

   status = IsMagickTrue(cli_wand->wand.exception->severity > ErrorException);

   if ( IfMagickFalse(status) || IfMagickTrue(all_exceptions) )
     CatchException(cli_wand->wand.exception); /* output and clear exceptions */

   return(status);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   C L I T h r o w E x c e p t i o n                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 % CLIThrowException() formats and records an exception condition, adding to
 % it the location of the option that caused the exception to occur.
 */
 WandExport MagickBooleanType CLIThrowException(MagickCLI *cli_wand,
        const char *module,const char *function,const size_t line,
        const ExceptionType severity,const char *tag,const char *format,...)
 {
   char
     new_format[MaxTextExtent];

   size_t
     len;

   MagickBooleanType
     status;

   va_list
     operands;

   /* HACK - append location to format string.
      The better way would be append location formats and add more arguments to
      operands, but that does not appear to be posible!
      Note:  ThrowMagickExceptionList() was exported specifically for
      the use of this function.
   */
   (void) CopyMagickString(new_format,format,MaxTextExtent);
   (void) ConcatenateMagickString(new_format," ",MaxTextExtent);

   len=strlen(new_format);
   (void) FormatLocaleString(new_format+len,MaxTextExtent-len,cli_wand->location,
        cli_wand->filename, cli_wand->line, cli_wand->column);

   va_start(operands,format);
   status=ThrowMagickExceptionList(cli_wand->wand.exception,
               module,function,line,
               severity,tag,new_format,operands);
   va_end(operands);
   return(status);
 }
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% M M AA GGG III CCC W W AA N N DDD CCC L III %
	% MM MM A A G I C W W A A NN N D D C L I %
	% M M M AAAA G GG I C W W W AAAA N N N D D C L I %
	% M M A A G G I C W W W A A N NN D D C L I %
	% M M A A GGG III CCC W W A A N N DDD CCC LLLL III %
	% %
	% %
	% WandCLI Structure Methods %
	% %
	% Dragon Computing %
	% Anthony Thyssen %
	% April 2011 %
	% %
	% %
	% Copyright 1999-2012 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% General methds for handling the WandCLI structure used for Command Line.
	%
	% Anthony Thyssen, April 2011
	*/

	/*
	Include declarations.
	*/
	#include "MagickWand/studio.h"
	#include "MagickWand/MagickWand.h"
	#include "MagickWand/wand.h"
	#include "MagickWand/magick-wand-private.h"
	#include "MagickWand/wandcli.h"
	#include "MagickWand/wandcli-private.h"
	#include "MagickCore/exception.h"

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ A c q u i r e W a n d C L I %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% AcquireMagickCLI() creates a new CLI wand (an expanded form of Magick
	% Wand). The given image_info and exception is included as is if provided.
	%
	% Use DestroyMagickCLI() to dispose of the CLI wand when it is no longer
	% needed.
	%
	% The format of the NewMagickWand method is:
	%
	% MagickCLI AcquireMagickCLI(ImageInfo image_info,
	% ExceptionInfo *exception)
	%
	*/
	WandExport MagickCLI AcquireMagickCLI(ImageInfo image_info,
	ExceptionInfo *exception)
	{
	MagickCLI
	*cli_wand;

	/* precaution - as per NewMagickWand() */
	{
	size_t depth = MAGICKCORE_QUANTUM_DEPTH;
	const char *quantum = GetMagickQuantumDepth(&depth);
	if (depth != MAGICKCORE_QUANTUM_DEPTH)
	ThrowWandFatalException(WandError,"QuantumDepthMismatch",quantum);
	}

	/* allocate memory for MgaickCLI */
	cli_wand=(MagickCLI ) AcquireMagickMemory(sizeof(cli_wand));
	if (cli_wand == (MagickCLI *) NULL)
	{
	ThrowWandFatalException(ResourceLimitFatalError,"MemoryAllocationFailed",
	GetExceptionMessage(errno));
	return((MagickCLI *)NULL);
	}

	/* Initialize Wand Part of MagickCLI
	FUTURE: this is a repeat of code from NewMagickWand()
	However some parts may be given fro man external source!
	*/
	cli_wand->wand.id=AcquireWandId();
	(void) FormatLocaleString(cli_wand->wand.name,MaxTextExtent,
	"%s-%.20g","MagickWandCLI", (double) cli_wand->wand.id);
	cli_wand->wand.images=NewImageList();
	if ( image_info == (ImageInfo *)NULL)
	cli_wand->wand.image_info=AcquireImageInfo();
	else
	cli_wand->wand.image_info=image_info;
	if ( exception == (ExceptionInfo *)NULL)
	cli_wand->wand.exception=AcquireExceptionInfo();
	else
	cli_wand->wand.exception=exception;
	cli_wand->wand.debug=IsEventLogging();
	cli_wand->wand.signature=WandSignature;

	/* Initialize CLI Part of MagickCLI */
	cli_wand->draw_info=CloneDrawInfo(cli_wand->wand.image_info,(DrawInfo *) NULL);
	cli_wand->quantize_info=AcquireQuantizeInfo(cli_wand->wand.image_info);
	cli_wand->process_flags=MagickCommandOptionFlags; /* assume "magick" CLI */
	cli_wand->command=(const OptionInfo )NULL; / no option at this time */
	cli_wand->image_list_stack=(Stack *)NULL;
	cli_wand->image_info_stack=(Stack *)NULL;

	/* default exception location...
	EG: sprintf(locaiton, filename, line, column);
	*/
	cli_wand->location="from \"%s\""; /* location format using arguments: */
	/* filename, line, column */
	cli_wand->filename="unknown"; /* script filename, unknown source */
	cli_wand->line=0; /* line from script OR CLI argument */
	cli_wand->column=0; /* column from script */

	cli_wand->signature=WandSignature;
	if (IfMagickTrue(cli_wand->wand.debug))
	(void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);
	return(cli_wand);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ D e s t r o y W a n d C L I %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% DestroyMagickCLI() destorys everything in a CLI wand, including image_info
	% and any exceptions, if still present in the wand.
	%
	% The format of the NewMagickWand method is:
	%
	% MagickWand *DestroyMagickCLI()
	% Exception *exception)
	%
	*/
	WandExport MagickCLI DestroyMagickCLI(MagickCLI cli_wand)
	{
	Stack
	*node;

	assert(cli_wand != (MagickCLI *) NULL);
	assert(cli_wand->signature == WandSignature);
	assert(cli_wand->wand.signature == WandSignature);
	if (IfMagickTrue(cli_wand->wand.debug))
	(void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);

	/* Destroy CLI part of MagickCLI */
	if (cli_wand->draw_info != (DrawInfo *) NULL )
	cli_wand->draw_info=DestroyDrawInfo(cli_wand->draw_info);
	if (cli_wand->quantize_info != (QuantizeInfo *) NULL )
	cli_wand->quantize_info=DestroyQuantizeInfo(cli_wand->quantize_info);
	while(cli_wand->image_list_stack != (Stack *)NULL)
	{
	node=cli_wand->image_list_stack;
	cli_wand->image_list_stack=node->next;
	(void) DestroyImageList((Image *)node->data);
	(void) RelinquishMagickMemory(node);
	}
	while(cli_wand->image_info_stack != (Stack *)NULL)
	{
	node=cli_wand->image_info_stack;
	cli_wand->image_info_stack=node->next;
	(void) DestroyImageInfo((ImageInfo *)node->data);
	(void) RelinquishMagickMemory(node);
	}
	cli_wand->signature=(~WandSignature);

	/* Destroy Wand part MagickCLI */
	cli_wand->wand.images=DestroyImageList(cli_wand->wand.images);
	if (cli_wand->wand.image_info != (ImageInfo *) NULL )
	cli_wand->wand.image_info=DestroyImageInfo(cli_wand->wand.image_info);
	if (cli_wand->wand.exception != (ExceptionInfo *) NULL )
	cli_wand->wand.exception=DestroyExceptionInfo(cli_wand->wand.exception);
	RelinquishWandId(cli_wand->wand.id);
	cli_wand->wand.signature=(~WandSignature);

	return((MagickCLI *)NULL);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ C L I C a t c h E x c e p t i o n %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% CLICatchException() will report exceptions, either just non-fatal warnings
	% only, or all errors, according to 'all_execeptions' boolean argument.
	%
	% The function returns true if errors are fatal, in which case the caller
	% should abort and re-call with an 'all_exceptions' argument of true before
	% quitting.
	%
	% The cut-off level between fatal and non-fatal may be controlled by options
	% (FUTURE), but defaults to 'Error' exceptions.
	%
	% The format of the CLICatchException method is:
	%
	% MagickBooleanType CLICatchException(MagickCLI *cli_wand,
	% const MagickBooleanType all_exceptions );
	%
	% Arguments are
	%
	% o cli_wand: The Wand CLI that holds the exception Information
	%
	% o all_exceptions: Report all exceptions, including the fatal one
	%
	*/
	WandExport MagickBooleanType CLICatchException(MagickCLI *cli_wand,
	const MagickBooleanType all_exceptions )
	{
	MagickBooleanType
	status;
	assert(cli_wand != (MagickCLI *) NULL);
	assert(cli_wand->signature == WandSignature);
	assert(cli_wand->wand.signature == WandSignature);
	if (IfMagickTrue(cli_wand->wand.debug))
	(void) LogMagickEvent(WandEvent,GetMagickModule(),"%s",cli_wand->wand.name);

	// FUTURE: '-regard_warning' should make this more sensitive.
	// Note pipelined options may like more control over this level

	status = IsMagickTrue(cli_wand->wand.exception->severity > ErrorException);

	if ( IfMagickFalse(status) \|\| IfMagickTrue(all_exceptions) )
	CatchException(cli_wand->wand.exception); /* output and clear exceptions */

	return(status);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ C L I T h r o w E x c e p t i o n %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% CLIThrowException() formats and records an exception condition, adding to
	% it the location of the option that caused the exception to occur.
	*/
	WandExport MagickBooleanType CLIThrowException(MagickCLI *cli_wand,
	const char module,const char function,const size_t line,
	const ExceptionType severity,const char tag,const char format,...)
	{
	char
	new_format[MaxTextExtent];

	size_t
	len;

	MagickBooleanType
	status;

	va_list
	operands;

	/* HACK - append location to format string.
	The better way would be append location formats and add more arguments to
	operands, but that does not appear to be posible!
	Note: ThrowMagickExceptionList() was exported specifically for
	the use of this function.
	*/
	(void) CopyMagickString(new_format,format,MaxTextExtent);
	(void) ConcatenateMagickString(new_format," ",MaxTextExtent);

	len=strlen(new_format);
	(void) FormatLocaleString(new_format+len,MaxTextExtent-len,cli_wand->location,
	cli_wand->filename, cli_wand->line, cli_wand->column);

	va_start(operands,format);
	status=ThrowMagickExceptionList(cli_wand->wand.exception,
	module,function,line,
	severity,tag,new_format,operands);
	va_end(operands);
	return(status);
	}