/*
 * This file was generated automatically by ExtUtils::ParseXS version 3.63 from the
 * contents of Magick.xs. Do not edit this file, edit Magick.xs instead.
 *
 *    ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "Magick.xs"
/*
% Copyright (C) 2003-2026 GraphicsMagick Group
% Copyright (C) 2002 ImageMagick Studio
% Copyright (C) 1991-1999 E. I. du Pont de Nemours and Company
%
% This program is covered by multiple licenses, which are described in
% Copyright.txt. You should have received a copy of Copyright.txt with this
% package; otherwise see http://www.graphicsmagick.org/www/Copyright.html.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                         PPPP   EEEEE  RRRR   L                              %
%                         P   P  E      R   R  L                              %
%                         PPPP   EEE    RRRR   L                              %
%                         P      E      R  R   L                              %
%                         P      EEEEE  R   R  LLLLL                          %
%                                                                             %
%                  M   M   AAA    GGGG  IIIII   CCCC  K   K                   %
%                  MM MM  A   A  G        I    C      K  K                    %
%                  M M M  AAAAA  G GGG    I    C      KKK                     %
%                  M   M  A   A  G   G    I    C      K  K                    %
%                  M   M  A   A   GGGG  IIIII   CCCC  K   K                   %
%                                                                             %
%                                                                             %
%              Object-oriented Perl interface to GraphicsMagick               %
%                                                                             %
%                                                                             %
%                            Software Design                                  %
%                              Kyle Shorter                                   %
%                              John Cristy                                    %
%                             February 1997                                   %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PerlMagick is an objected-oriented Perl interface to GraphicsMagick.  Use
% the module to read, manipulate, or write an image or image sequence from
% within a Perl script.  This makes PerlMagick suitable for Web CGI scripts.
%
*/

/*
  Include declarations.
*/
#define MAGICK_IMPLEMENTATION 1
#if !defined(WIN32)
#define MagickExport
#endif

#ifdef __cplusplus
extern "C" {
#endif /* ifdef __cplusplus */
#define MAGICK_COMMA_DELIM_COLORS 1 /* set to 0 to report color names */
#define PERL_NO_GET_CONTEXT  /* faster */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <math.h>
#define MAGICK_IMPLEMENTATION 1
#include <magick/api.h>
#include <magick/locale_c.h>
#undef tainted
#if !defined(WIN32)
#include <setjmp.h>
#else
#undef setjmp
#undef longjmp
#include <setjmpex.h>
#endif

#ifdef __cplusplus
  #define register
}
#endif

/*
  Define declarations.
*/
#define ArrayReference  (const char **) 4
#ifndef aTHX_
#define aTHX_
#define pTHX_
#define dTHX
#endif
#define DegreesToRadians(x) ((x)*3.14159265358979323846/180.0)
#define DoubleReference  (const char **) 2
#define EndOf(array)  (&array[NumberOf(array)])
#define False  0
#define NullReference  (const char **) 0
#define ImageReference  (const char **) 3
#define IntegerReference  (const char **) 1
#define MaxArguments  28
#define MY_CXT_KEY  PackageName "::ContextKey_" XS_VERSION
#ifndef START_MY_CXT
#define MY_CXT_INIT
#define MY_CXT  my_cxt
#define dMY_CXT
#endif
#ifndef na
#define na  PL_na
#endif
#define NumberOf(array)  (sizeof(array)/sizeof(*array))
#define PackageName   "Graphics::Magick"
#ifndef PerlIO_findFILE
#define PerlIO_findFILE(f)  (FILE *) (f)
#endif
#define StringReference  (const char **) 0
#ifndef sv_undef
#define sv_undef  PL_sv_undef
#endif
#define True  1

/*
  Typedef and structure declarations.
*/
typedef struct _Arguments
{
  const char
    *method,
    **type;
} Arguments;

struct ArgumentList
{
  long
    int_reference;

  double
    double_reference;

  const char
    *string_reference;

  Image
    *image_reference;

  SV
    *array_reference;

  size_t
    length;
};

typedef struct _my_cxt_t
{
  jmp_buf
    *error_jump;  /* long jump return for FATAL errors */

  SV
    *error_list;  /* Perl variable for storing messages */
} my_cxt_t;

struct PackageInfo
{
  ImageInfo
    *image_info;

  DrawInfo
    *draw_info;

  QuantizeInfo
    *quantize_info;
};

typedef void
  *Graphics__Magick;  /* data type for the Graphics::Magick package */

/*
  Static declarations.  The strings in this list must be expressed
  in the exact same order as the equivalent enumeration.
*/
static const char
  *AlignTypes[] =
  {
    "Undefined", "Left", "Center", "Right", (const char *) NULL
  },
  *BooleanTypes[] =
  {
    "False", "True", (const char *) NULL
  },
  *ChannelTypes[] =
  {
    "Undefined", "Red", "Cyan", "Green", "Magenta", "Blue", "Yellow",
    "Opacity", "Black", "Matte", "All", "Gray", (const char *) NULL
  },
  *ClassTypes[] =
  {
    "Undefined", "DirectClass", "PseudoClass", (const char *) NULL
  },
  *ColorspaceTypes[] =
  {
    "Undefined", "RGB", "Gray", "Transparent", "OHTA", "XYZ", "YCC",
    "YIQ", "YPbPr", "YUV", "CMYK", "sRGB", "HSL", "HWB", "LAB",  "CineonLog",
    "Rec601Luma", "Rec601YCbCr", "Rec709Luma", "Rec709YCbCr", (const char *) NULL
  },
  *CompositeTypes[] =
  {
    "Undefined", "Over", "In", "Out", "Atop", "Xor", "Plus", "Minus",
    "Add", "Subtract", "Difference", "Multiply", "Bumpmap", "Copy",
    "CopyRed", "CopyGreen", "CopyBlue", "CopyOpacity", "Clear", "Dissolve",
    "Displace", "Modulate", "Threshold", "No", "Darken", "Lighten",
    "Hue", "Saturate", "Colorize", "Luminize", "Screen", "Overlay",
    "CopyCyan", "CopyMagenta", "CopyYellow", "CopyBlack", "Divide",
    "HardLight", "Exclusion", "ColorDodge", "ColorBurn", "SoftLight",
    "LinearBurn", "LinearDodge", "LinearLight", "VividLight", "PinLight",
    "HardMix",
    (const char *) NULL
  },
  *CompressionTypes[] =
  {
    "Undefined", "None", "BZip", "Fax", "Group4", "JPEG", "LosslessJPEG",
    "LZW", "RLE", "Zip", "LZMA", "JPEG2000", "JBIG1", "JBIG2", "ZSTD",
    "WebP","LERC",
    (const char *) NULL
  },
  *DecorationTypes[] =
  {
    "None", "Underline", "Overline", "LineThrough",
    (const char *) NULL
  },
  *DisposeTypes[] =
  {
    "Undefined", "None", "Background", "Previous", (const char *) NULL
  },
  *EndianTypes[] =
  {
    "Undefined", "LSB", "MSB", "Native", (const char *) NULL
  },
  *FilterTypess[] =
  {
    "Undefined", "Point", "Box", "Triangle", "Hermite", "Hanning",
    "Hamming", "Blackman", "Gaussian", "Quadratic", "Cubic", "Catrom",
    "Mitchell", "Lanczos", "Bessel", "Sinc", (const char *) NULL
  },
  *GravityTypes[] =
  {
    "Forget", "NorthWest", "North", "NorthEast", "West", "Center",
    "East", "SouthWest", "South", "SouthEast", "Static", (const char *) NULL
  },
  *ImageTypes[] =
  {
    "Undefined", "Bilevel", "Grayscale", "GrayscaleMatte", "Palette",
    "PaletteMatte", "TrueColor", "TrueColorMatte", "ColorSeparation",
    "ColorSeparationMatte", "Optimize", (const char *) NULL
  },
  *IntentTypes[] =
  {
    "Undefined", "Saturation", "Perceptual", "Absolute", "Relative",
    (const char *) NULL
  },
  *InterlaceTypes[] =
  {
    "Undefined", "None", "Line", "Plane", "Partition", (const char *) NULL
  },
/*
  *LogEventTypes[] =
  {
    "No", "Configure", "Annotate", "Render", "Transform", "Locale",
    "Coder", "X11", "Cache", "Blob", "Deprecate", "User", "Resource",
    "TemporaryFile", "Exception", "All", (const char *) NULL
  },
*/
  *MethodTypes[] =
  {
    "Point", "Replace", "Floodfill", "FillToBorder", "Reset", (const char *) NULL
  },
  *ModeTypes[] =
  {
    "Undefined", "Frame", "Unframe", "Concatenate", (const char *) NULL
  },
  *NoiseTypes[] =
  {
    "Uniform", "Gaussian", "Multiplicative", "Impulse", "Laplacian",
    "Poisson", "Random", (const char *) NULL
  },
  *PreviewTypes[] =
  {
    "Undefined", "Rotate", "Shear", "Roll", "Hue", "Saturation",
    "Brightness", "Gamma", "Spiff", "Dull", "Grayscale", "Quantize",
    "Despeckle", "ReduceNoise", "AddNoise", "Sharpen", "Blur",
    "Threshold", "EdgeDetect", "Spread", "Solarize", "Shade", "Raise",
    "Segment", "Swirl", "Implode", "Wave", "OilPaint", "Charcoal",
    "JPEG", (const char *) NULL
  },
  *PrimitiveTypes[] =
  {
    "Undefined", "point", "line", "rectangle", "roundRectangle", "arc",
    "ellipse", "circle", "polyline", "polygon", "bezier", "path", "color",
    "matte", "text", "image", (const char *) NULL
  },
  *ResolutionTypes[] =
  {
    "Undefined", "PixelsPerInch", "PixelsPerCentimeter", (const char *) NULL
  },
  *StretchTypes[] =
  {
    "Normal", "UltraCondensed", "ExtraCondensed", "Condensed",
    "SemiCondensed", "SemiExpanded", "Expanded", "ExtraExpanded",
    "UltraExpanded", "Any", (const char *) NULL
  },
  *StyleTypes[] =
  {
    "Normal", "Italic", "Oblique", "Any", (const char *) NULL
  },
  *VirtualPixelMethods[] =
  {
    "Undefined", "", "Constant", "Edge", "Mirror", "Tile",
    (const char *) NULL
  };

static struct
  Methods
  {
    const char
      *name;

    Arguments
      arguments[MaxArguments];
  } Methods[] =
  {
    { "comment", { {"comment", StringReference} } },
    { "label", { {"label", StringReference} } },
    { "AddNoise", { {"noise", NoiseTypes} } },
    { "Colorize", { {"fill", StringReference}, {"opacity", StringReference} } },
    { "Border", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"fill", StringReference},
      {"color", StringReference} } },
    { "Blur", { {"geometry", StringReference}, {"radius", DoubleReference},
      {"sigma", DoubleReference} } },
    { "Chop", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"x", IntegerReference},
      {"y", IntegerReference} } },
    { "Crop", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"x", IntegerReference},
      {"y", IntegerReference} } },
    { "Despeckle", { { NULL, NullReference } } },
    { "Edge", { {"radius", DoubleReference} } },
    { "Emboss", { {"geometry", StringReference}, {"radius", DoubleReference},
      {"sigma", DoubleReference} } },
    { "Enhance", { { NULL, NullReference } } },
    { "Flip", { { NULL, NullReference } } },
    { "Flop", { { NULL, NullReference } } },
    { "Frame", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"inner", IntegerReference},
      {"outer", IntegerReference}, {"fill", StringReference},
      {"color", StringReference} } },
    { "Implode", { {"amount", DoubleReference} } },
    { "Magnify", { { NULL, NullReference } } },
    { "MedianFilter", { {"radius", DoubleReference} } },
    { "Minify", { { NULL, NullReference } } },
    { "OilPaint", { {"radius", DoubleReference} } },
    { "ReduceNoise", { {"radius", DoubleReference} } },
    { "Roll", { {"geometry", StringReference}, {"x", IntegerReference},
      {"y", IntegerReference} } },
    { "Rotate", { {"degrees", DoubleReference},
      {"color", StringReference} } },
    { "Sample", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference} } },
    { "Scale", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference} } },
    { "Shade", { {"geometry", StringReference}, {"azimuth", DoubleReference},
      {"elevation", DoubleReference}, {"gray", BooleanTypes} } },
    { "Sharpen", { {"geometry", StringReference}, {"radius", DoubleReference},
      {"sigma", DoubleReference} } },
    { "Shear", { {"geometry", StringReference}, {"x", IntegerReference},
      {"y", DoubleReference}, {"color", StringReference} } },
    { "Spread", { {"radius", IntegerReference} } },
    { "Swirl", { {"degrees", DoubleReference} } },
    { "Resize", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"filter", FilterTypess},
      {"blur", DoubleReference } } },
    { "Zoom", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"filter", FilterTypess},
      {"blur", DoubleReference } } },
    { "Annotate", { {"text", StringReference}, {"font", StringReference},
      {"point", DoubleReference}, {"density", StringReference},
      {"undercolor", StringReference}, {"stroke", StringReference},
      {"fill", StringReference}, {"geometry", StringReference},
      {"sans", StringReference}, {"x", IntegerReference},
      {"y", IntegerReference}, {"gravity", GravityTypes},
      {"translate", StringReference}, {"scale", StringReference},
      {"rotate", DoubleReference}, {"skewX", DoubleReference},
      {"skewY", DoubleReference}, {"strokewidth", IntegerReference},
      {"antialias", BooleanTypes}, {"family", StringReference},
      {"style", StyleTypes}, {"stretch", StretchTypes},
      {"weight", IntegerReference}, {"align", AlignTypes},
      {"encoding", StringReference}, {"affine", ArrayReference},
      {"decorate", DecorationTypes}} },
    { "ColorFloodfill", { {"geometry", StringReference},
      {"x", IntegerReference}, {"y", IntegerReference},
      {"fill", StringReference}, {"bordercolor", StringReference},
      {"fuzz", DoubleReference} } },
    { "Composite", { {"image", ImageReference}, {"compose", CompositeTypes},
      {"geometry", StringReference}, {"x", IntegerReference},
      {"y", IntegerReference}, {"gravity", GravityTypes},
      {"opacity", DoubleReference}, {"tile", BooleanTypes},
      {"rotate", DoubleReference}, {"color", StringReference},
      {"mask", ImageReference} } },
    { "Contrast", { {"sharp", BooleanTypes} } },
    { "CycleColormap", { {"display", IntegerReference} } },
    { "Draw", { {"primitive", PrimitiveTypes}, {"points", StringReference},
      {"method", MethodTypes}, {"stroke", StringReference},
      {"fill", StringReference}, {"strokewidth", DoubleReference},
      {"font", StringReference}, {"bordercolor", StringReference},
      {"x", DoubleReference}, {"y", DoubleReference},
      {"translate", StringReference}, {"scale", StringReference},
      {"rotate", DoubleReference}, {"skewX", DoubleReference},
      {"skewY", DoubleReference}, {"tile", ImageReference},
      {"pointsize", DoubleReference}, {"antialias", BooleanTypes},
      {"density", StringReference}, {"linewidth", DoubleReference},
      {"affine", ArrayReference} } },
    { "Equalize", { { NULL, NullReference } } },
    { "Gamma", { {"gamma", StringReference}, {"red", DoubleReference},
      {"green", DoubleReference}, {"blue", DoubleReference} } },
    { "Map", { {"image", ImageReference}, {"dither", BooleanTypes} } },
    { "MatteFloodfill", { {"geometry", StringReference},
      {"x", IntegerReference}, {"y", IntegerReference},
      {"opacity", IntegerReference}, {"bordercolor", StringReference},
      {"fuzz", DoubleReference} } },
    { "Modulate", { {"factor", StringReference}, {"bright", DoubleReference},
      {"saturation", DoubleReference}, {"hue", DoubleReference} } },
    { "Negate", { {"gray", BooleanTypes} } },
    { "Normalize", { { NULL, NullReference } } },
    { "NumberColors", { { NULL, NullReference } } },
    { "Opaque", { {"color", StringReference}, {"fill", StringReference},
      {"fuzz", DoubleReference} } },
    { "Quantize", { {"colors", IntegerReference}, {"tree", IntegerReference},
      {"colorspace", ColorspaceTypes}, {"dither", BooleanTypes},
      {"measure", BooleanTypes}, {"global", BooleanTypes} } },
    { "Raise", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference}, {"raise", BooleanTypes} } },
    { "Segment", { {"geometry", StringReference}, {"cluster", DoubleReference},
      {"smooth", DoubleReference}, {"colorspace", ColorspaceTypes},
      {"verbose", BooleanTypes} } },
    { "Signature", { { NULL, NullReference } } },
    { "Solarize", { {"threshold", DoubleReference} } },
    { "Sync", { { NULL, NullReference } } },
    { "Texture", { {"texture", ImageReference} } },
    { "Sans", { {"geometry", StringReference}, {"crop", StringReference},
      {"filter", FilterTypess} } },
    { "Transparent", { {"color", StringReference},
      {"opacity", IntegerReference}, {"fuzz", DoubleReference} } },
    { "Threshold", { {"threshold", StringReference} } },
    { "Charcoal", { {"geometry", StringReference}, {"radius", DoubleReference},
      {"sigma", DoubleReference} } },
    { "Trim", { {"fuzz", DoubleReference} } },
    { "Wave", { {"geometry", StringReference}, {"amplitude", DoubleReference},
      {"wavelength", DoubleReference} } },
    { "Channel", { {"channel", ChannelTypes} } },
    { "Condense", { { NULL, NullReference } } },
    { "Stereo", { {"image", ImageReference} } },
    { "Stegano", { {"image", ImageReference}, {"offset", IntegerReference} } },
    { "Deconstruct", { { NULL, NullReference } } },
    { "GaussianBlur", { {"geometry", StringReference},
      {"radius", DoubleReference}, {"sigma", DoubleReference} } },
    { "Convolve", { {"coefficients", ArrayReference} } },
    { "Profile", { {"name", StringReference}, {"profile", StringReference} } },
    { "UnsharpMask", { {"geometry", StringReference},
      {"radius", DoubleReference}, {"sigma", DoubleReference},
      {"amount", DoubleReference}, {"threshold", DoubleReference} } },
    { "MotionBlur", { {"geometry", StringReference},
      {"radius", DoubleReference}, {"sigma", DoubleReference},
      {"angle", DoubleReference} } },
    { "OrderedDither", { { NULL, NullReference } } },
    { "Shave", { {"geometry", StringReference}, {"width", IntegerReference},
      {"height", IntegerReference} } },
    { "Level", { {"level", StringReference}, {"black-point", DoubleReference},
      {"mid-point", DoubleReference}, {"white-point", DoubleReference} } },
    { "Clip", { { NULL, NullReference } } },
    { "AffineTransform", { {"affine", ArrayReference},
      {"translate", StringReference}, {"scale", StringReference},
      {"rotate", DoubleReference}, {"skewX", DoubleReference},
      {"skewY", DoubleReference} } },
    { "Compare", { {"image", ImageReference} } },
    { "AdaptiveThreshold", { {"geometry", StringReference},
      {"width", IntegerReference}, {"height", IntegerReference},
      {"offset", IntegerReference} } },
  };

#ifdef START_MY_CXT
  START_MY_CXT
#else
  static my_cxt_t
    my_cxt = { (jmp_buf *) NULL, (SV *) NULL };
#endif

/*
  Forward declarations.
*/
#if !defined(MAGICK_FUNC_PURE)
#  define MAGICK_FUNC_PURE
#endif
static Image
  *SetupList(pTHX_ SV *,struct PackageInfo **,SV ***);

static int
  strEQcase(const char *,const char *) MAGICK_FUNC_PURE;

static int
  LookupStr(const char **list,const char *string) MAGICK_FUNC_PURE;

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   C l o n e P a c k a g e I n f o                                           %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method ClonePackageInfo makes a duplicate of the given info, or if info is
%  NULL, a new one.
%
%  The format of the ClonePackageInfo routine is:
%
%      struct PackageInfo *ClonePackageInfo(struct PackageInfo *info)
%
%  A description of each parameter follows:
%
%    o clone_info: Method ClonePackageInfo returns a duplicate of the given
%      info, or if info is NULL, a new one.
%
%    o info: a structure of type info.
%
%
*/
static struct PackageInfo *ClonePackageInfo(struct PackageInfo *info)
{
  struct PackageInfo
    *clone_info;

  clone_info=MagickAllocateMemory(struct PackageInfo *,sizeof(struct PackageInfo));
  if (!info)
    {
      clone_info->image_info=CloneImageInfo((ImageInfo *) NULL);
      clone_info->draw_info=
        CloneDrawInfo(clone_info->image_info,(DrawInfo *) NULL);
      clone_info->quantize_info=CloneQuantizeInfo((QuantizeInfo *) NULL);
      return(clone_info);
    }
  *clone_info=(*info);
  clone_info->image_info=CloneImageInfo(info->image_info);
  clone_info->draw_info=CloneDrawInfo(info->image_info,info->draw_info);
  clone_info->quantize_info=CloneQuantizeInfo(info->quantize_info);
  return(clone_info);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   c o n s t a n t                                                           %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method constant returns a double value for the specified name.
%
%  The format of the constant routine is:
%
%      double constant(char *name,int sans)
%
%  A description of each parameter follows:
%
%    o value: Method constant returns a double value for the specified name.
%
%    o name: The name of the constant.
%
%    o sans: This integer value is not used.
%
%
*/
static double constant(char *name,int sans)
{
  (void) sans;

  errno=0;
  switch (*name)
  {
    case 'B':
    {
      if (strEQ(name,"BlobError"))
        return(BlobError);
      if (strEQ(name,"BlobWarning"))
        return(BlobWarning);
      break;
    }
    case 'C':
    {
      if (strEQ(name,"CacheError"))
        return(CacheError);
      if (strEQ(name,"CacheWarning"))
        return(CacheWarning);
      if (strEQ(name,"CoderError"))
        return(CoderError);
      if (strEQ(name,"CoderWarning"))
        return(CoderWarning);
      if (strEQ(name,"ConfigureError"))
        return(ConfigureError);
      if (strEQ(name,"ConfigureWarning"))
        return(ConfigureWarning);
      if (strEQ(name,"CorruptImageError"))
        return(CorruptImageError);
      if (strEQ(name,"CorruptImageWarning"))
        return(CorruptImageWarning);
      break;
    }
    case 'D':
    {
      if (strEQ(name,"DelegateError"))
        return(DelegateError);
      if (strEQ(name,"DelegateWarning"))
        return(DelegateWarning);
      if (strEQ(name,"DrawError"))
        return(DrawError);
      if (strEQ(name,"DrawWarning"))
        return(DrawWarning);
      break;
    }
    case 'E':
    {
      if (strEQ(name,"ErrorException"))
        return(ErrorException);
      break;
    }
    case 'F':
    {
      if (strEQ(name,"FatalErrorException"))
        return(FatalErrorException);
      if (strEQ(name,"FileOpenError"))
        return(FileOpenError);
      if (strEQ(name,"FileOpenWarning"))
        return(FileOpenWarning);
      break;
    }
    case 'I':
    {
      if (strEQ(name,"ImageError"))
        return(ImageError);
      if (strEQ(name,"ImageWarning"))
        return(ImageWarning);
      break;
    }
    case 'M':
    {
      if (strEQ(name,"MaxRGB"))
        return(MaxRGB);
      if (strEQ(name,"MissingDelegateError"))
        return(MissingDelegateError);
      if (strEQ(name,"MissingDelegateWarning"))
        return(MissingDelegateWarning);
      if (strEQ(name,"ModuleError"))
        return(ModuleError);
      if (strEQ(name,"ModuleWarning"))
        return(ModuleWarning);
      break;
    }
    case 'O':
    {
      if (strEQ(name,"Opaque"))
        return(OpaqueOpacity);
      if (strEQ(name,"OptionError"))
        return(OptionError);
      if (strEQ(name,"OptionWarning"))
        return(OptionWarning);
      break;
    }
    case 'R':
    {
      if (strEQ(name,"ResourceLimitError"))
        return(ResourceLimitError);
      if (strEQ(name,"ResourceLimitWarning"))
        return(ResourceLimitWarning);
      if (strEQ(name,"RegistryError"))
        return(RegistryError);
      if (strEQ(name,"RegistryWarning"))
        return(RegistryWarning);
      break;
    }
    case 'S':
    {
      if (strEQ(name,"StreamError"))
        return(StreamError);
      if (strEQ(name,"StreamWarning"))
        return(StreamWarning);
      if (strEQ(name,"Success"))
        return(0);
      break;
    }
    case 'T':
    {
      if (strEQ(name,"Transparent"))
        return(TransparentOpacity);
      if (strEQ(name,"TypeError"))
        return(TypeError);
      if (strEQ(name,"TypeWarning"))
        return(TypeWarning);
      break;
    }
    case 'W':
    {
      if (strEQ(name,"WarningException"))
        return(WarningException);
      break;
    }
    case 'X':
    {
      if (strEQ(name,"XServerError"))
        return(XServerError);
      if (strEQ(name,"XServerWarning"))
        return(XServerWarning);
      break;
    }
  }
  errno=EINVAL;
  return(0);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   D e s t r o y P a c k a g e I n f o                                       %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method DestroyPackageInfo frees a previously created info structure.
%
%  The format of the DestroyPackageInfo routine is:
%
%      DestroyPackageInfo(struct PackageInfo *info)
%
%  A description of each parameter follows:
%
%    o info: a structure of type info.
%
%
*/
static void DestroyPackageInfo(struct PackageInfo *info)
{
  DestroyImageInfo(info->image_info);
  DestroyDrawInfo(info->draw_info);
  DestroyQuantizeInfo(info->quantize_info);
  MagickFreeMemory(info);
}
/*
  Quiet warnings which are due to Perl's Macros.  Don't do a 'pop' since
  more auto-generated stuff is written to the end of the output file which
  while appear after the pop
*/
#if (defined(__GNUC__) && __GNUC__ >= 5)
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wunused-variable"
#pragma GCC diagnostic ignored "-Wclobbered"
#pragma GCC diagnostic ignored "-Winline"
#endif

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   G e t L i s t                                                             %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method GetList is recursively called by SetupList to traverse the
%  Graphics__Magick reference.  If building an reference_vector (see SetupList),
%  *current is the current position in *reference_vector and *last is the final
%  entry in *reference_vector.
%
%  The format of the GetList routine is:
%
%      GetList(info)
%
%  A description of each parameter follows:
%
%    o info: a structure of type info.
%
%
*/
static Image *GetList(pTHX_ SV *reference,SV ***reference_vector,int *current,
  int *last)
{
  Image
    *image;

  if (!reference)
    return(NULL);
  switch (SvTYPE(reference))
  {
    case SVt_PVAV:
    {
      AV
        *av;

      Image
        *head,
        *previous;

      int
        n;

      register int
        i;

      /*
        Array of images.
      */
      previous=(Image *) NULL;
      head=(Image *) NULL;
      av=(AV *) reference;
      n=av_len(av);
      for (i=0; i <= n; i++)
      {
        SV
          **rv;

        rv=av_fetch(av,i,0);
        if (rv && *rv && sv_isobject(*rv))
          {
            image=GetList(aTHX_ SvRV(*rv),reference_vector,current,last);
            if (!image)
              continue;
            if (image == previous)
              {
                ExceptionInfo
                  exception;

                GetExceptionInfo(&exception);
                image=CloneImage(image,0,0,True,&exception);
                if (exception.severity != UndefinedException)
                  CatchException(&exception);
                DestroyExceptionInfo(&exception);
                if (image == (Image *) NULL)
                  return(NULL);
              }
            image->previous=previous;
            *(previous ? &previous->next : &head)=image;
            for (previous=image; previous->next; previous=previous->next);
          }
      }
      return(head);
    }
    case SVt_PVMG:
    {
      /*
        Blessed scalar, one image.
      */
      image=(Image *) (magick_uintptr_t)SvIV(reference);
      if (!image)
        return(NULL);
      image->previous=(Image *) NULL;
      image->next=(Image *) NULL;
      if (reference_vector)
        {
          if (*current == *last)
            {
              *last+=256;
              if (*reference_vector)
                {
                  MagickReallocMemory(SV **,*reference_vector,*last*sizeof(*reference_vector));
                }
              else
                {
                  *reference_vector=
                    MagickAllocateMemory(SV **,*last*sizeof(*reference_vector));
                }
            }
          if (*reference_vector)
            {
              (*reference_vector)[*current]=reference;
              (*reference_vector)[++(*current)]=NULL;
            }
      }
      return(image);
    }
  default:
    {
    }
  }
  (void) fprintf(stderr,"GetList: UnrecognizedType %ld\n",
    (long) SvTYPE(reference));
  return((Image *) NULL);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   G e t P a c k a g e I n f o                                               %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method GetPackageInfo looks up or creates an info structure for the given
%  Graphics__Magick reference.  If it does create a new one, the information in
%  package_info is used to initialize it.
%
%  The format of the GetPackageInfo routine is:
%
%      struct PackageInfo *GetPackageInfo(void *reference,
%        struct PackageInfo *package_info)
%
%  A description of each parameter follows:
%
%    o info: a structure of type info.
%
%
*/
static struct PackageInfo *GetPackageInfo(pTHX_ void *reference,
  struct PackageInfo *package_info)
{
  char
    message[MaxTextExtent];

  struct PackageInfo
    *clone_info;

  SV
    *sv;

  MagickFormatString(message,sizeof(message),"%s::Ref%lx_%s",PackageName,(long) reference,
   XS_VERSION);
  sv=perl_get_sv(message,(TRUE | 0x02));
  if (!sv)
    {
      MagickError(ResourceLimitError,UnableToGetPackageInfo,message);
      return(package_info);
    }
  if (SvREFCNT(sv) == 0)
    (void) SvREFCNT_inc(sv);
  if (SvIOKp(sv) && (clone_info=(struct PackageInfo *) (magick_uintptr_t)SvIV(sv)))
    return(clone_info);
  clone_info=ClonePackageInfo(package_info);
  sv_setiv(sv,(IV) (magick_uintptr_t)clone_info);
  return(clone_info);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   L o o k u p S t r                                                         %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method LookupStr searches through a list of strings matching it to string
%  and return its index in the list, or -1 for not found. The caller of this
%  method casts the return index into the enumeration value.
%
%  The format of the LookupStr routine is:
%
%      int LookupStr(char **list,const char *string)
%
%  A description of each parameter follows:
%
%    o status: Method LookupStr returns the index of string in the list
%      otherwise -1.
%
%    o list: a list of strings.
%
%    o string: a character string.
%
%
*/
static int LookupStr(const char **list,const char *string)
{
  int
    longest,
    offset;

  register const char
    **p;

  offset=(-1);
  longest=0;
  for (p=list; *p; p++)
    if (strEQcase(string,*p) > longest)
      {
        offset=p-list;
        longest=strEQcase(string,*p);
      }
  return(offset);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   M a g i c k E r r o r H a n d l e r                                       %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method MagickErrorHandler replaces GraphicsMagick's fatal error handler.  This
%  stores the message in a Perl variable,and longjmp's to return the error to
%  Perl.  If the error_flag variable is set, it also calls the Perl warn
%  routine.  Note that this doesn't exit but returns control to Perl; the
%  Graphics::Magick handle may be left in a bad state.
%
%  The format of the MagickErrorHandler routine is:
%
%      MagickErrorHandler(const ExceptionType severity,const char *reason,
%        const char *qualifier)
%
%  A description of each parameter follows:
%
%    o severity: The severity of the exception.
%
%    o reason: The reason of the exception.
%
%    o description: The exception description.
%
%
*/
static void MagickErrorHandler(const ExceptionType severity,const char *reason,
                               const char *description)
{
  char
    text[MaxTextExtent];

  dTHX;  /* perl context */
  dMY_CXT;
  errno=0;
  MagickFormatString(text,sizeof(text),
                     "Exception %d: %.1024s%s%.1024s%s%s%.64s%s",severity,
                     (reason ? GetLocaleExceptionMessage(severity,reason) : "ERROR"),
                     description ? " (" : "",
                     description ? GetLocaleExceptionMessage(severity,description) : "",
                     description ? ")" : "",errno ? " [" : "",errno ? strerror(errno) : "",
                     errno? "]" : "");
  if ((MY_CXT.error_list == NULL) || (MY_CXT.error_jump == NULL))
    {
      /*
        Set up error buffer.
      */
      warn("%s",text);
      if (MY_CXT.error_jump == NULL)
        exit((int) severity % 100);
    }
  if (MY_CXT.error_list)
    {
      if (SvCUR(MY_CXT.error_list))
        sv_catpv(MY_CXT.error_list,"\n");
      sv_catpv(MY_CXT.error_list,text);
    }
  longjmp(*MY_CXT.error_jump,(int) severity);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   M a g i c k W a r n i n g H a n d l e r                                   %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method MagickWarningHandler replaces the GraphicsMagick warning handler.  This
%  stores the (possibly multiple) reasons in a Perl variable for later
%  returning.
%
%  The format of the MagickWarningHandler routine is:
%
%      MagickWarningHandler(const ExceptionType severity,const char *reason,
%        const char *description)
%
%  A description of each parameter follows:
%
%    o severity: Specifies the numeric severity category.
%
%    o reason: The reason of the exception.
%
%    o description: Specifies any description to the reason.
%
%
*/

static void MagickWarningHandler(const ExceptionType severity,
                                 const char *reason,const char *description)
{
  char
    text[MaxTextExtent];

  dTHX;  /* perl context */
  dMY_CXT;
  errno=0;
  if (!reason)
    return;
  MagickFormatString(text,sizeof(text),
                     "Exception %d: %.1024s%s%.1024s%s%s%.64s%s",severity,
                     (reason ? GetLocaleExceptionMessage(severity,reason) : "WARNING"),
                     description ? " (" : "",
                     description ? GetLocaleExceptionMessage(severity,description) : "",
                     description ? ")" : "",errno ? " [" : "",errno ? strerror(errno) : "",
                     errno? "]" : "");
  if (MY_CXT.error_list == NULL)
    {
      /*
        Set up reason buffer.
      */
      warn("%s",text);
      if (MY_CXT.error_list == NULL)
        return;
    }
  if (SvCUR(MY_CXT.error_list))
    sv_catpv(MY_CXT.error_list,"\n");  /* add \n separator between reasons */
  sv_catpv(MY_CXT.error_list,text);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   S e t A t t r i b u t e                                                   %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method SetAttribute sets the attribute to the value in sval.  This can
%  change either or both of image or info.
%
%  The format of the SetAttribute routine is:
%
%      SetAttribute(struct PackageInfo *info,Image *image,char *attribute,
%        SV *sval)
%
%  A description of each parameter follows:
%
%    o status: Method SetAttribute returns the index of string in the list
%      otherwise -1.
%
%    o list: a list of strings.
%
%    o string: a character string.
%
%
*/
static void SetAttribute(pTHX_ struct PackageInfo *info,Image *image,
                         const char *attribute,SV *sval)
{
  DoublePixelPacket
    pixel;

  ExceptionInfo
    exception;

  int
    sp;

  long
    x,
    y;

  PixelPacket
    *color,
    target_color;

  GetExceptionInfo(&exception);
  switch (*attribute)
    {
    case 'A':
    case 'a':
      {
        if (LocaleCompare(attribute,"adjoin") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->adjoin=sp != 0;
            return;
          }
        if (LocaleCompare(attribute,"antialias") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              {
                info->image_info->antialias=sp != 0;
                info->draw_info->text_antialias=sp != 0;
              }
            return;
          }
        if (LocaleCompare(attribute,"authenticate") == 0)
          {
            if (info)
              (void) CloneString(&info->image_info->authenticate,SvPV(sval,na));
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'B':
    case 'b':
      {
        if (LocaleCompare(attribute,"background") == 0)
          {
            (void) QueryColorDatabase(SvPV(sval,na),&target_color,
                                      image ? &image->exception : &exception);
            if (info)
              info->image_info->background_color=target_color;
            for ( ; image; image=image->next)
              image->background_color=target_color;
            return;
          }
        if (LocaleCompare(attribute,"blue-primary") == 0)
          {
            for ( ; image; image=image->next)
              (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf",
                            &image->chromaticity.blue_primary.x,
                            &image->chromaticity.blue_primary.y);
            return;
          }
        if (LocaleCompare(attribute,"bordercolor") == 0)
          {
            (void) QueryColorDatabase(SvPV(sval,na),&target_color,
                                      image ? &image->exception : &exception);
            if (info)
              {
                info->image_info->border_color=target_color;
                info->draw_info->border_color=target_color;
              }
            for ( ; image; image=image->next)
              image->border_color=target_color;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'C':
    case 'c':
      {
        if (LocaleCompare(attribute,"cache-threshold") == 0)
          {
            SetMagickResourceLimit(MemoryResource,SvIV(sval));
            SetMagickResourceLimit(MapResource,2*SvIV(sval));
            return;
          }
        if (LocaleCompare(attribute,"clip-mask") == 0)
          {
            Image
              *clip_mask;

            clip_mask=SetupList(aTHX_ SvRV(sval),&info,(SV ***) NULL);
            for ( ; image; image=image->next)
              SetImageClipMask(image,clip_mask);
            return;
          }
        if (LocaleNCompare(attribute,"colormap",8) == 0)
          {
            for ( ; image; image=image->next)
              {
                int
                  i;

                if (image->storage_class == DirectClass)
                  continue;
                i=0;
                (void) sscanf(attribute,"%*[^[][%d",&i);
                if (i > (long) image->colors)
                  i%=image->colors;
                if (strchr(SvPV(sval,na),',') == 0)
                  QueryColorDatabase(SvPV(sval,na),image->colormap+i,
                                     image ? &image->exception : &exception);
                else
                  {
                    color=image->colormap+i;
                    pixel.red=color->red;
                    pixel.green=color->green;
                    pixel.blue=color->blue;
                    (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf%*[,/]%lf",&pixel.red,
                                  &pixel.green,&pixel.blue);
                    color->red=(Quantum) ((pixel.red < 0) ? 0 :
                                          (pixel.red > MaxRGB) ? MaxRGB : pixel.red+0.5);
                    color->green=(Quantum) ((pixel.green < 0) ? 0 :
                                            (pixel.green > MaxRGB) ? MaxRGB : pixel.green+0.5);
                    color->blue=(Quantum) ((pixel.blue < 0) ? 0 :
                                           (pixel.blue > MaxRGB) ? MaxRGB : pixel.blue+0.5);
                  }
              }
            return;
          }
        if (LocaleCompare(attribute,"colorspace") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(ColorspaceTypes,SvPV(sval,na)) :
              SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedColorspace,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->colorspace=(ColorspaceType) sp;
            for ( ; image; image=image->next)
              TransformColorspace(image,(ColorspaceType) sp);
            return;
          }
        if (LocaleCompare(attribute,"compression") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(CompressionTypes,SvPV(sval,na)) :
              SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedImageCompression,
                            SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->compression=(CompressionType) sp;
            for ( ; image; image=image->next)
              image->compression=(CompressionType) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'D':
    case 'd':
      {
        if (LocaleCompare(attribute,"debug") == 0)
          {
            SetLogEventMask(SvPV(sval,na));
            return;
          }
        if (LocaleCompare(attribute,"delay") == 0)
          {
            for ( ; image; image=image->next)
              image->delay=SvIV(sval);
            return;
          }
        if (LocaleCompare(attribute,"disk-limit") == 0)
          {
            SetMagickResourceLimit(DiskResource,SvIV(sval));
            return;
          }
        if (LocaleCompare(attribute,"density") == 0)
          {
            if (!IsGeometry(SvPV(sval,na)))
              {
                MagickError(OptionError,MissingGeometry,SvPV(sval,na));
                return;
              }
            if (info)
              {
                (void) CloneString(&info->image_info->density,SvPV(sval,na));
                (void) CloneString(&info->draw_info->density,SvPV(sval,na));
              }
            for ( ; image; image=image->next)
              {
                int
                  count;

                count=sscanf(info->image_info->density,"%lfx%lf",
                             &image->x_resolution,&image->y_resolution);
                if (count != 2)
                  image->y_resolution=image->x_resolution;
              }
            return;
          }
        if (LocaleCompare(attribute,"depth") == 0)
          {
            if (info)
              info->image_info->depth=SvIV(sval);
            for ( ; image; image=image->next)
              SetImageDepth(image,SvIV(sval));
            return;
          }
        if (LocaleCompare(attribute,"dispose") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(DisposeTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              sp=SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedDisposeMethod,
                            SvPV(sval,na));
                return;
              }
            for ( ; image; image=image->next)
              image->dispose=(DisposeType) sp;
            return;
          }
        if (LocaleCompare(attribute,"dither") == 0)
          {
            if (info)
              {
                sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) :
                  SvIV(sval);
                if (sp < 0)
                  {
                    MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                    return;
                  }
                info->image_info->dither=sp != 0;
              }
            return;
          }
        if (LocaleCompare(attribute,"display") == 0)
          {
          display:
            if (info)
              {
                (void) CloneString(&info->image_info->server_name,SvPV(sval,na));
                (void) CloneString(&info->draw_info->server_name,SvPV(sval,na));
              }
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'E':
    case 'e':
      {
        if (LocaleCompare(attribute,"endian") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(EndianTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedEndianType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->endian=(EndianType) sp;
            for ( ; image; image=image->next)
              image->endian=(EndianType) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'F':
    case 'f':
      {
        if (LocaleCompare(attribute,"filename") == 0)
          {
            if (info)
              (void) MagickStrlCpy(info->image_info->filename,SvPV(sval,na),
                                   sizeof(info->image_info->filename));
            for ( ; image; image=image->next)
              (void) MagickStrlCpy(image->filename,SvPV(sval,na),sizeof(image->filename));
            return;
          }
        if (LocaleCompare(attribute,"file") == 0)
          {
            if (info)
              info->image_info->file=PerlIO_findFILE(IoIFP(sv_2io(sval)));
            return;
          }
        if (LocaleCompare(attribute,"fill") == 0)
          {
            if (info)
              {
                (void) QueryColorDatabase(SvPV(sval,na),&info->draw_info->fill,
                                          image ? &image->exception : &exception);
                (void) QueryColorDatabase(SvPV(sval,na),&info->image_info->pen,
                                          image ? &image->exception : &exception);
              }
            return;
          }
        if (LocaleCompare(attribute,"font") == 0)
          {
            if (info)
              {
                (void) CloneString(&info->image_info->font,SvPV(sval,na));
                (void) CloneString(&info->draw_info->font,SvPV(sval,na));
              }
            return;
          }
        if (LocaleCompare(attribute,"fuzz") == 0)
          {
            if (info)
              info->image_info->fuzz=SvNV(sval);
            for ( ; image; image=image->next)
              image->fuzz=SvNV(sval);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'G':
    case 'g':
      {
        if (LocaleCompare(attribute,"gamma") == 0)
          {
            for ( ; image; image=image->next)
              image->gamma=SvNV(sval);
            return;
          }
        if (LocaleCompare(attribute,"gravity") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(GravityTypes,SvPV(sval,na)) :
              SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedGravityType,SvPV(sval,na));
                return;
              }
            for ( ; image; image=image->next)
              image->gravity=(GravityType) sp;
            return;
          }
        if (LocaleCompare(attribute,"green-primary") == 0)
          {
            for ( ; image; image=image->next)
              (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf",
                            &image->chromaticity.green_primary.x,
                            &image->chromaticity.green_primary.y);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'I':
    case 'i':
      {
        if (LocaleNCompare(attribute,"index",5) == 0)
          {
            long
              index;

            IndexPacket
              *indexes;

            register PixelPacket
              *p;

            for ( ; image; image=image->next)
              {
                if (image->storage_class != PseudoClass)
                  continue;
                x=0;
                y=0;
                (void) sscanf(attribute,"%*[^[][%ld%*[,/]%ld",&x,&y);
                p=GetImagePixels(image,(long) (x % image->columns),
                                 (long) (y % image->rows),1,1);
                if (p == (PixelPacket *) NULL)
                  break;
                indexes=AccessMutableIndexes(image);
                (void) sscanf(SvPV(sval,na),"%ld",&index);
                if ((index >= 0) && (index < (long) image->colors))
                  *indexes=(IndexPacket) index;
                (void) SyncImagePixels(image);
              }
            return;
          }
        if (LocaleCompare(attribute,"iterations") == 0)
          {
          iterations:
            for ( ; image; image=image->next)
              image->iterations=SvIV(sval);
            return;
          }
        if (LocaleCompare(attribute,"interlace") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(InterlaceTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedInterlaceType,
                            SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->interlace=(InterlaceType) sp;
            for ( ; image; image=image->next)
              image->interlace=(InterlaceType) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'L':
    case 'l':
      {
        if (LocaleCompare(attribute,"loop") == 0)
          goto iterations;
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'M':
    case 'm':
      {
        if (LocaleCompare(attribute,"magick") == 0)
          {
            if (info)
              {
                ExceptionInfo
                  exception;

                GetExceptionInfo(&exception);
                MagickFormatString(info->image_info->filename,sizeof(info->image_info->filename),"%.1024s:",SvPV(sval,na));
                SetImageInfo(info->image_info,SETMAGICK_WRITE,&exception);
                if (*info->image_info->magick == '\0')
                  MagickError(OptionError,UnrecognizedImageFormat,
                              info->image_info->filename);
                else
                  for ( ; image; image=image->next)
                    (void) MagickStrlCpy(image->magick,info->image_info->magick,
                                         sizeof(image->magick));
                DestroyExceptionInfo(&exception);
              }
            return;
          }
        if (LocaleCompare(attribute,"map-limit") == 0)
          {
            SetMagickResourceLimit(MapResource,SvIV(sval));
            return;
          }
        if (LocaleCompare(attribute,"mattecolor") == 0)
          {
            (void) QueryColorDatabase(SvPV(sval,na),&target_color,
                                      image ? &image->exception : &exception);
            if (info)
              info->image_info->matte_color=target_color;
            for ( ; image; image=image->next)
              image->matte_color=target_color;
            return;
          }
        if (LocaleCompare(attribute,"matte") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            for ( ; image; image=image->next)
              image->matte=sp != 0;
            return;
          }
        if (LocaleCompare(attribute,"memory-limit") == 0)
          {
            SetMagickResourceLimit(MemoryResource,SvIV(sval));
            return;
          }
        if (LocaleCompare(attribute,"monochrome") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->monochrome=sp != 0;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'P':
    case 'p':
      {
        if (LocaleCompare(attribute,"page") == 0)
          {
            char
              *geometry;

            geometry=GetPageGeometry(SvPV(sval,na));
            if (info)
              (void) CloneString(&info->image_info->page,geometry);
            for ( ; image; image=image->next)
              (void) GetImageGeometry(image,geometry,False,&image->page);
            MagickFreeMemory(geometry);
            return;
          }
        if (LocaleCompare(attribute,"pen") == 0)
          {
            if (info)
              {
                (void) QueryColorDatabase(SvPV(sval,na),&info->draw_info->fill,
                                          image ? &image->exception : &exception);
                (void) QueryColorDatabase(SvPV(sval,na),&info->image_info->pen,
                                          image ? &image->exception : &exception);
              }
            return;
          }
        if (LocaleNCompare(attribute,"pixel",5) == 0)
          {
            register PixelPacket
              *p;

            for ( ; image; image=image->next)
              {
                x=0;
                y=0;
                (void) sscanf(attribute,"%*[^[][%ld%*[,/]%ld",&x,&y);
                p=GetImagePixels(image,(long) (x % image->columns),
                                 (long) (y % image->rows),1,1);
                if (p == (PixelPacket *) NULL)
                  break;
                image->storage_class=DirectClass;
                if (strchr(SvPV(sval,na),',') == 0)
                  QueryColorDatabase(SvPV(sval,na),p,
                                     image ? &image->exception : &exception);
                else
                  {
                    pixel.red=p->red;
                    pixel.green=p->green;
                    pixel.blue=p->blue;
                    pixel.opacity=p->opacity;
                    (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf%*[,/]%lf%*[,/]%lf",
                                  &pixel.red,&pixel.green,&pixel.blue,&pixel.opacity);
                    p->red=(Quantum) ((pixel.red < 0) ? 0 :
                                      (pixel.red > MaxRGB) ? MaxRGB : pixel.red+0.5);
                    p->green=(Quantum) ((pixel.green < 0) ? 0 :
                                        (pixel.green > MaxRGB) ? MaxRGB : pixel.green+0.5);
                    p->blue=(Quantum) ((pixel.blue < 0) ? 0 :
                                       (pixel.blue > MaxRGB) ? MaxRGB : pixel.blue+0.5);
                    p->opacity=(Quantum) ((pixel.opacity < 0) ? 0 :
                                          (pixel.opacity > MaxRGB) ? MaxRGB : pixel.opacity+0.5);
                  }
                (void) SyncImagePixels(image);
              }
            return;
          }
        if (LocaleCompare(attribute,"pointsize") == 0)
          {
            if (info)
              {
                (void) sscanf(SvPV(sval,na),"%lf",&info->image_info->pointsize);
                (void) sscanf(SvPV(sval,na),"%lf",&info->draw_info->pointsize);
              }
            return;
          }
        if (LocaleCompare(attribute,"preview") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(PreviewTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->preview_type=(PreviewType) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'Q':
    case 'q':
      {
        if (LocaleCompare(attribute,"quality") == 0)
          {
            if (info)
              info->image_info->quality=SvIV(sval);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'R':
    case 'r':
      {
        if (LocaleCompare(attribute,"red-primary") == 0)
          {
            for ( ; image; image=image->next)
              (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf",
                            &image->chromaticity.red_primary.x,
                            &image->chromaticity.red_primary.y);
            return;
          }
        if (LocaleCompare(attribute,"render") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(IntentTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedIntentType,SvPV(sval,na));
                return;
              }
            for ( ; image; image=image->next)
              image->rendering_intent=(RenderingIntent) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'S':
    case 's':
      {
        if (LocaleCompare(attribute,"sampling-factor") == 0)
          {
            if (!IsGeometry(SvPV(sval,na)))
              {
                MagickError(OptionError,MissingGeometry,SvPV(sval,na));
                return;
              }
            if (info)
              (void) CloneString(&info->image_info->sampling_factor,
                                 SvPV(sval,na));
            return;
          }
        if (LocaleCompare(attribute,"scene") == 0)
          {
            for ( ; image; image=image->next)
              image->scene=SvIV(sval);
            return;
          }
        if (LocaleCompare(attribute,"subimage") == 0)
          {
            if (info)
              info->image_info->subimage=SvIV(sval);
            return;
          }
        if (LocaleCompare(attribute,"subrange") == 0)
          {
            if (info)
              info->image_info->subrange=SvIV(sval);
            return;
          }
        if (LocaleCompare(attribute,"server") == 0)
          goto display;
        if (LocaleCompare(attribute,"size") == 0)
          {
            if (info)
              {
                if (!IsGeometry(SvPV(sval,na)))
                  {
                    MagickError(OptionError,MissingGeometry,SvPV(sval,na));
                    return;
                  }
                (void) CloneString(&info->image_info->size,SvPV(sval,na));
              }
            return;
          }
        if (LocaleCompare(attribute,"stroke") == 0)
          {
            if (info)
              (void) QueryColorDatabase(SvPV(sval,na),&info->draw_info->stroke,
                                        image ? &image->exception : &exception);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'T':
    case 't':
      {
        if (LocaleCompare(attribute,"tile") == 0)
          {
            if (info)
              (void) CloneString(&info->image_info->tile,SvPV(sval,na));
            return;
          }
        if (LocaleCompare(attribute,"texture") == 0)
          {
            if (info)
              (void) CloneString(&info->image_info->texture,SvPV(sval,na));
            return;
          }
        if (LocaleCompare(attribute,"type") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(ImageTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->type=(ImageType) sp;
            for ( ; image; image=image->next)
              if (SetImageType(image,(ImageType) sp) == MagickFail)
                {
                  /* FIXME: Explicitly report error? */
                }
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'U':
    case 'u':
      {
        if (LocaleCompare(attribute,"units") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(ResolutionTypes,SvPV(sval,na)) :
              SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,MissingType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->units=(ResolutionType) sp;
            for ( ; image; image=image->next)
              image->units=(ResolutionType) sp;
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'V':
    case 'v':
      {
        if (LocaleCompare(attribute,"verbose") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(BooleanTypes,SvPV(sval,na)) : SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedType,SvPV(sval,na));
                return;
              }
            if (info)
              info->image_info->verbose=sp != 0;
            return;
          }
        if (LocaleCompare(attribute,"view") == 0)
          {
            if (info)
              (void) CloneString(&info->image_info->view,SvPV(sval,na));
            return;
          }
        if (LocaleCompare(attribute,"virtual-pixel") == 0)
          {
            sp=SvPOK(sval) ? LookupStr(VirtualPixelMethods,SvPV(sval,na)) :
              SvIV(sval);
            if (sp < 0)
              {
                MagickError(OptionError,UnrecognizedVirtualPixelMethod,
                            SvPV(sval,na));
                return;
              }
            for ( ; image; image=image->next)
              SetImageVirtualPixelMethod(image,(VirtualPixelMethod) sp);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    case 'W':
    case 'w':
      {
        if (LocaleCompare(attribute,"white-point") == 0)
          {
            for ( ; image; image=image->next)
              (void) sscanf(SvPV(sval,na),"%lf%*[,/]%lf",
                            &image->chromaticity.white_point.x,
                            &image->chromaticity.white_point.y);
            return;
          }
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    default:
      {
        MagickError(OptionError,UnrecognizedAttribute,attribute);
        break;
      }
    }
  DestroyExceptionInfo(&exception);
  if (image == (Image *) NULL)
    MagickError(OptionError,UnrecognizedAttribute,attribute);
  for ( ; image; image=image->next)
    {
      if ((LocaleCompare(attribute,"comment") == 0) ||
          (LocaleCompare(attribute,"label") == 0))
        {
          char *translated_text;
          translated_text=TranslateText(info->image_info,image,SvPV(sval,na));
          if (translated_text != (char *) NULL)
            {
              (void) SetImageAttribute(image,attribute,translated_text);
              MagickFreeMemory(translated_text);
            }
        }
      else
        {
          (void) SetImageAttribute(image,attribute,SvPV(sval,na));
        }
    }
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   S e t u p L i s t                                                         %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method SetupList returns the list of all the images linked by their
%  image->next and image->previous link lists for use with GraphicsMagick.  If
%  info is non-NULL, an info structure is returned in *info.  If
%  reference_vector is non-NULL,an array of SV* are returned in
%  *reference_vector.  Reference_vector is used when the images are going to be
%  replaced with new Image*'s.
%
%  The format of the SetupList routine is:
%
%      Image *SetupList(SV *reference,struct PackageInfo **info,
%        SV ***reference_vector)
%
%  A description of each parameter follows:
%
%    o status: Method SetupList returns the index of string in the list
%      otherwise -1.
%
%    o list: a list of strings.
%
%    o string: a character string.
%
%
*/
static Image *SetupList(pTHX_ SV *reference,struct PackageInfo **info,
  SV ***reference_vector)
{
  Image
    *image;

  int
    current,
    last;

  if (reference_vector)
    *reference_vector=NULL;
  if (info)
    *info=NULL;
  current=0;
  last=0;
  image=GetList(aTHX_ reference,reference_vector,&current,&last);
  if (info && (SvTYPE(reference) == SVt_PVAV))
    *info=GetPackageInfo(aTHX_ (void *) reference,(struct PackageInfo *) NULL);
  return(image);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   s t r E Q c a s e                                                         %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Method strEQcase compares two strings and returns 0 if they are the
%  same or if the second string runs out first.  The comparison is case
%  insensitive.
%
%  The format of the strEQcase routine is:
%
%      int strEQcase(const char *p,const char *q)
%
%  A description of each parameter follows:
%
%    o status: Method strEQcase returns zero if strings p and q are the
%      same or if the second string runs out first.
%
%    o p: a character string.
%
%    o q: a character string.
%
%
*/
static int strEQcase(const char *p,const char *q)
{
  char
    c;

  register int
    i;

  for (i=0 ; (c=(*q)) != 0; i++)
  {
    if ((isUPPER(c) ? toLOWER(c) : c) != (isUPPER(*p) ? toLOWER(*p) : *p))
      return(0);
    p++;
    q++;
  }
  return(i);
}

/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                             %
%                                                                             %
%                                                                             %
%   G r a p h i c s : : M a g i c k                                           %
%                                                                             %
%                                                                             %
%                                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
*/
#line 2131 "Magick.c"
#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(var) if (0) var = var
#endif

#ifndef dVAR
#  define dVAR		dNOOP
#endif


/* This stuff is not part of the API! You have been warned. */
#ifndef PERL_VERSION_DECIMAL
#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
#endif
#ifndef PERL_DECIMAL_VERSION
#  define PERL_DECIMAL_VERSION \
	  PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
#endif
#ifndef PERL_VERSION_GE
#  define PERL_VERSION_GE(r,v,s) \
	  (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
#endif
#ifndef PERL_VERSION_LE
#  define PERL_VERSION_LE(r,v,s) \
	  (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
#endif

/* XS_INTERNAL is the explicit static-linkage variant of the default
 * XS macro.
 *
 * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
 * "static", ie. it exports XSUB symbols. You probably don't want that
 * for anything but the BOOT XSUB.
 *
 * See XSUB.h in core!
 */


/* TODO: This might be compatible further back than 5.10.0. */
#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
#  undef XS_EXTERNAL
#  undef XS_INTERNAL
#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
#    define XS_INTERNAL(name) static XSPROTO(name)
#  endif
#  if defined(__SYMBIAN32__)
#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
#    define XS_INTERNAL(name) EXPORT_C static XSPROTO(name)
#  endif
#  ifndef XS_EXTERNAL
#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
#      define XS_INTERNAL(name) static void name(pTHX_ CV* cv __attribute__unused__)
#    else
#      ifdef __cplusplus
#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
#        define XS_INTERNAL(name) static XSPROTO(name)
#      else
#        define XS_EXTERNAL(name) XSPROTO(name)
#        define XS_INTERNAL(name) static XSPROTO(name)
#      endif
#    endif
#  endif
#endif

/* perl >= 5.10.0 && perl <= 5.15.1 */


/* The XS_EXTERNAL macro is used for functions that must not be static
 * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
 * macro defined, the best we can do is assume XS is the same.
 * Dito for XS_INTERNAL.
 */
#ifndef XS_EXTERNAL
#  define XS_EXTERNAL(name) XS(name)
#endif
#ifndef XS_INTERNAL
#  define XS_INTERNAL(name) XS(name)
#endif

/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
 * internal macro that we're free to redefine for varying linkage due
 * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
 * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
 */

#undef XS_EUPXS
#if defined(PERL_EUPXS_ALWAYS_EXPORT)
#  define XS_EUPXS(name) XS_EXTERNAL(name)
#else
   /* default to internal */
#  define XS_EUPXS(name) XS_INTERNAL(name)
#endif

#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)

/* prototype to pass -Wmissing-prototypes */
static void
S_croak_xs_usage(const CV *const cv, const char *const params);

static void
S_croak_xs_usage(const CV *const cv, const char *const params)
{
    const GV *const gv = CvGV(cv);

    PERL_ARGS_ASSERT_CROAK_XS_USAGE;

    if (gv) {
        const char *const gvname = GvNAME(gv);
        const HV *const stash = GvSTASH(gv);
        const char *const hvname = stash ? HvNAME(stash) : NULL;

        if (hvname)
	    Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params);
        else
	    Perl_croak_nocontext("Usage: %s(%s)", gvname, params);
    } else {
        /* Pants. I don't think that it should be possible to get here. */
	Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
    }
}
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#define croak_xs_usage        S_croak_xs_usage

#endif

/* NOTE: the prototype of newXSproto() is different in versions of perls,
 * so we define a portable version of newXSproto()
 */
#ifdef newXS_flags
#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
#else
#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
#endif /* !defined(newXS_flags) */

#if PERL_VERSION_LE(5, 21, 5)
#  define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file)
#else
#  define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b)
#endif

/* simple backcompat versions of the TARGx() macros with no optimisation */
#ifndef TARGi
#  define TARGi(iv, do_taint) sv_setiv_mg(TARG, iv)
#  define TARGu(uv, do_taint) sv_setuv_mg(TARG, uv)
#  define TARGn(nv, do_taint) sv_setnv_mg(TARG, nv)
#endif

#line 2282 "Magick.c"

XS_EUPXS(XS_Graphics__Magick_constant); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_constant)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, argument");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	int	argument = (int)SvIV(ST(1))
;
	double	RETVAL;
	dXSTARG;

	RETVAL = constant(name, argument);
	TARGn((double)RETVAL, 1);
	ST(0) = TARG;
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Graphics__Magick_AccessDefinition); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_AccessDefinition)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2156 "Magick.xs"
  {
    Image
      *image;

    ExceptionInfo
      exception;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference,    /* reference is the SV* of ref=SvIV(reference) */
      *return_value; /* value returned by function */

    /* parameters to AccessDefinition */
    const char
      *magick,
      *key,
      *value;

    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        XSRETURN_EMPTY;
      }
    reference=SvRV(ST(0));
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image && !info)
      {
        MagickError(OptionError,ReferenceIsNotMyType,NULL);
        XSRETURN_EMPTY;
      }

    value        = NULL;
    return_value = NULL;

    if (items == 3) {
      magick = SvPV(ST(1),na);
      key    = SvPV(ST(2),na);
      value = AccessDefinition( info->image_info, magick, key );
    }

    if ( value ) {
      return_value = newSVpv(value,0);
    }

    if (return_value) {
       ST(0) = return_value;
      sv_2mortal(ST(0));
    } else {
       ST(0) = &sv_undef;
    }
    XSRETURN(1);
  }
#line 2375 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_AddDefinition); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_AddDefinition)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2234 "Magick.xs"
  {
    ExceptionInfo
      exception;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    /* parameters to AddDefinition */
    const char
      *magick,
      *key,
      *value;

    MagickPassFail
      return_value;  /* return value */

    return_value = MagickFail;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (!sv_isobject(ST(0)))
      {
        goto MethodException;
      }
    reference=SvRV(ST(0));
    (void)SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (info && items == 4) {
      magick = SvPV(ST(1),na);
      key    = SvPV(ST(2),na);
      value  = SvPV(ST(3),na);
      return_value = AddDefinition( info->image_info, magick, key, value, &exception );
    }

    GetExceptionInfo(&exception);
    if (exception.severity != UndefinedException) {
      CatchException(&exception);
      return_value = MagickFail;
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    ST(0) = newSViv(return_value);
    sv_2mortal(ST(0));
    XSRETURN(1);
  }
#line 2445 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_AddDefinitions); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_AddDefinitions)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2306 "Magick.xs"
  {
    ExceptionInfo
      exception;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    const char
      *values;  /* parameters to AddDefinitions */

    MagickPassFail
      return_value;  /* return value */

    return_value = MagickFail;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (!sv_isobject(ST(0)))
      {
        goto MethodException;
      }
    reference=SvRV(ST(0));
    (void)SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (info && items == 2) {
      values = SvPV(ST(1),na);
      return_value = AddDefinitions( info->image_info, values, &exception );
    }

    GetExceptionInfo(&exception);
    if (exception.severity != UndefinedException) {
      CatchException(&exception);
      return_value = MagickFail;
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    ST(0) = newSViv(return_value);
    sv_2mortal(ST(0));
    XSRETURN(1);
  }
#line 2510 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_RemoveDefinitions); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_RemoveDefinitions)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2371 "Magick.xs"
  {
    ExceptionInfo
      exception;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    const char
      *values;  /* parameters to RemoveDefinitions */

    MagickPassFail
      return_value;  /* return value */

    return_value = MagickFail;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (!sv_isobject(ST(0)))
      {
        goto MethodException;
      }
    reference=SvRV(ST(0));
    (void)SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (info && items == 2) {
      values = SvPV(ST(1),na);
      return_value = RemoveDefinitions( info->image_info, values );
    }

    GetExceptionInfo(&exception);
    if (exception.severity != UndefinedException) {
      CatchException(&exception);
      return_value = MagickFail;
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    ST(0) = newSViv(return_value);
    sv_2mortal(ST(0));
    XSRETURN(1);
  }
#line 2575 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Animate); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Animate)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2438 "Magick.xs"
  {
    jmp_buf
      error_jmp;

    Image
      *image;

    register int
      i;

    struct PackageInfo
      *info,
      *package_info;

    SV
      *reference;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    package_info=(struct PackageInfo *) NULL;
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    package_info=ClonePackageInfo(info);
    if (items == 2)
      SetAttribute(aTHX_ package_info,NULL,"server",ST(1));
    else
      if (items > 2)
        for (i=2; i < items; i+=2)
          SetAttribute(aTHX_ package_info,image,SvPV(ST(i-1),na),ST(i));
    AnimateImages(package_info->image_info,image);
    (void) CatchImageException(image);

  MethodException:
    if (package_info)
      DestroyPackageInfo(package_info);
    sv_setiv(MY_CXT.error_list,(IV)
      (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 2655 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Append); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Append)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2520 "Magick.xs"
  {
    AV
      *av;

    char
      *attribute;

    ExceptionInfo
      exception;

    HV
      *hv;

    jmp_buf
      error_jmp;

    Image
      *image;

    int
      stack;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *av_reference,
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    attribute=NULL;
    av=NULL;
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    av=newAV();
    av_reference=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    info=GetPackageInfo(aTHX_ (void *) av,info);
    /*
      Get options.
    */
    stack=True;
    for (i=2; i < items; i+=2)
    {
      attribute=(char *) SvPV(ST(i-1),na);
      switch (*attribute)
      {
        case 'S':
        case 's':
        {
          if (LocaleCompare(attribute,"stack") == 0)
            {
              stack=LookupStr(BooleanTypes,SvPV(ST(i),na));
              if (stack < 0)
                {
                  MagickError(OptionError,UnrecognizedType,SvPV(ST(i),na));
                  return;
                }
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
    }
    GetExceptionInfo(&exception);
    image=AppendImages(image,stack,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      sv=newSViv((IV) (magick_uintptr_t)image);
      rv=newRV(sv);
      av_push(av,sv_bless(rv,hv));
      SvREFCNT_dec(sv);
    }
    ST(0)=av_reference;
    MY_CXT.error_jump=NULL;
    SvREFCNT_dec(MY_CXT.error_list);  /* can't return warning messages */
    MY_CXT.error_list=NULL;
    XSRETURN(1);

  MethodException:
    MY_CXT.error_jump=NULL;
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 2796 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Average); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Average)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2663 "Magick.xs"
  {
    AV
      *av;

    char
      *p;

    ExceptionInfo
      exception;

    HV
      *hv;

    jmp_buf
      error_jmp;

    Image
      *image;

    struct PackageInfo
      *info;

    SV
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    GetExceptionInfo(&exception);
    image=AverageImages(image,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    /*
      Create blessed Perl array for the returned image.
    */
    av=newAV();
    ST(0)=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    sv=newSViv((IV) (magick_uintptr_t)image);
    rv=newRV(sv);
    av_push(av,sv_bless(rv,hv));
    SvREFCNT_dec(sv);
    info=GetPackageInfo(aTHX_ (void *) av,info);
    MagickFormatString(info->image_info->filename,sizeof(info->image_info->filename),"average-%.*s",MaxTextExtent-9,
      ((p=strrchr(image->filename,'/')) ? p+1 : image->filename));
    (void) MagickStrlCpy(image->filename,info->image_info->filename,sizeof(image->filename));
    SetImageInfo(info->image_info,SETMAGICK_WRITE,&image->exception);
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_jump=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);  /* return messages in string context */
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 2897 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_BlobToImage); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_BlobToImage)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2766 "Magick.xs"
  {
    AV
      *av;

    char
      **keep,
      **list;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *image;

    int
      ac;

    volatile int
      n;

    jmp_buf
      error_jmp;

    register char
      **p;

    register int
      i;

    struct PackageInfo
      *info;

    STRLEN
      *length;

    SV
      *reference,
      *rv,
      *sv;

    volatile int
      number_images;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    number_images=0;
    ac=(items < 2) ? 1 : items-1;
    list=MagickAllocateMemory(char **,(ac+1)*sizeof(*list));
    length=MagickAllocateMemory(STRLEN *,(ac+1)*sizeof(length));
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto ReturnIt;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    if (SvTYPE(reference) != SVt_PVAV)
      {
        MagickError(OptionError,ReferenceIsNotMyType,NULL);
        goto ReturnIt;
      }
    av=(AV *) reference;
    info=GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
    n=1;
    if (items <= 1)
      {
        MagickError(OptionError,NoBlobDefined,NULL);
        goto ReturnIt;
      }
    for (n=0, i=0; i < ac; i++)
    {
      list[n]=(char *) (SvPV(ST(i+1),length[n]));
      if ((items >= 3) && strEQcase((char *) SvPV(ST(i+1),na),"blob"))
        {
          list[n]=(char *) (SvPV(ST(i+2),length[n]));
          continue;
        }
      n++;
    }
    list[n]=(char *) NULL;
    keep=list;
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto ReturnIt;
    GetExceptionInfo(&exception);
    for (i=number_images=0; i < n; i++)
    {
      image=BlobToImage(info->image_info,list[i],length[i],&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      for ( ; image; image=image->next)
      {
        sv=newSViv((IV) (magick_uintptr_t)image);
        rv=newRV(sv);
        av_push(av,sv_bless(rv,hv));
        SvREFCNT_dec(sv);
        number_images++;
      }
    }
    DestroyExceptionInfo(&exception);
    /*
      Free resources.
    */
    for (i=0; i < n; i++)
      if (list[i])
        for (p=keep; list[i] != *p++; )
          if (*p == NULL)
            {
              MagickFreeMemory(list[i]);
              break;
            }

  ReturnIt:
    MagickFreeMemory(list);
    MagickFreeMemory(length);
    sv_setiv(MY_CXT.error_list,(IV) number_images);
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 3041 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Coalesce); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Coalesce)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 2912 "Magick.xs"
  {
    AV
      *av;

    ExceptionInfo
      exception;

    HV
      *hv;

    jmp_buf
      error_jmp;

    Image
      *image;

    struct PackageInfo
      *info;

    SV
      *av_reference,
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    av=newAV();
    av_reference=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    GetExceptionInfo(&exception);
    image=CoalesceImages(image,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      sv=newSViv((IV) (magick_uintptr_t)image);
      rv=newRV(sv);
      av_push(av,sv_bless(rv,hv));
      SvREFCNT_dec(sv);
    }
    ST(0)=av_reference;
    MY_CXT.error_jump=NULL;
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 3137 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Copy); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Copy)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 3014 "Magick.xs"
  {
    AV
      *av;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *clone,
      *image;

    jmp_buf
      error_jmp;

    struct PackageInfo
      *info;

    SV
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (image == (Image *) NULL)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    /*
      Create blessed Perl array for the returned image.
    */
    av=newAV();
    ST(0)=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    GetExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      clone=CloneImage(image,0,0,True,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      sv=newSViv((IV) (magick_uintptr_t)clone);
      rv=newRV(sv);
      av_push(av,sv_bless(rv,hv));
      SvREFCNT_dec(sv);
    }
    DestroyExceptionInfo(&exception);
    info=GetPackageInfo(aTHX_ (void *) av,info);
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_jump=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 3235 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_DESTROY); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_DESTROY)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 3110 "Magick.xs"
  {
    SV
      *reference;

    if (!sv_isobject(ST(0)))
      croak("ReferenceIsNotMyType");
    reference=SvRV(ST(0));
    switch (SvTYPE(reference))
    {
      case SVt_PVAV:
      {
        char
          message[MaxTextExtent];

        struct PackageInfo
          *info;

        SV
          *sv;

        /*
          Array (AV *) reference
        */
        MagickFormatString(message,sizeof(message),"%s::Ref%lx_%s",PackageName,(long) reference,
          XS_VERSION);
        sv=perl_get_sv(message,FALSE);
        if (sv)
          {
            if ((SvREFCNT(sv) == 1) && SvIOK(sv) &&
                (info=(struct PackageInfo *) (magick_uintptr_t)SvIV(sv)))
              {
                DestroyPackageInfo(info);
                sv_setiv(sv,0);
              }
          }
        break;
      }
      case SVt_PVMG:
      {
        Image
          *image;

        /*
          Blessed scalar = (Image *) SvIV(reference)
        */
        image=(Image *) (magick_uintptr_t)SvIV(reference);
        if (image)
          {
            if (image->previous && image->previous->next == image)
              image->previous->next=0;
            if (image->next && image->next->previous == image)
              image->next->previous=0;
            DestroyImage(image);
            sv_setiv(reference,0);
          }
        break;
      }
      default:
        break;
    }
  }
#line 3314 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Display); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Display)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 3192 "Magick.xs"
  {
    jmp_buf
      error_jmp;

    Image
      *image;

    register int
      i;

    struct PackageInfo
      *info,
      *package_info;

    SV
      *reference;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    package_info=(struct PackageInfo *) NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (image == (Image *) NULL)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    package_info=ClonePackageInfo(info);
    if (items == 2)
      SetAttribute(aTHX_ package_info,NULL,"server",ST(1));
    else
      if (items > 2)
        for (i=2; i < items; i+=2)
          SetAttribute(aTHX_ package_info,image,SvPV(ST(i-1),na),ST(i));
    DisplayImages(package_info->image_info,image);
    (void) CatchImageException(image);

  MethodException:
    if (package_info)
      DestroyPackageInfo(package_info);
    sv_setiv(MY_CXT.error_list,(IV) status);
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 3393 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Flatten); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Flatten)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 3273 "Magick.xs"
  {
    AV
      *av;

    char
      *p;

    ExceptionInfo
      exception;

    HV
      *hv;

    jmp_buf
      error_jmp;

    Image
      *image;

    struct PackageInfo
      *info;

    SV
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    GetExceptionInfo(&exception);
    image=FlattenImages(image,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    /*
      Create blessed Perl array for the returned image.
    */
    av=newAV();
    ST(0)=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    sv=newSViv((IV) (magick_uintptr_t)image);
    rv=newRV(sv);
    av_push(av,sv_bless(rv,hv));
    SvREFCNT_dec(sv);
    info=GetPackageInfo(aTHX_ (void *) av,info);
    MagickFormatString(info->image_info->filename,sizeof(info->image_info->filename),"average-%.*s",MaxTextExtent-9,
      ((p=strrchr(image->filename,'/')) ? p+1 : image->filename));
    (void) MagickStrlCpy(image->filename,info->image_info->filename,sizeof(image->filename));
    SetImageInfo(info->image_info,SETMAGICK_WRITE,&image->exception);
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_jump=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);  /* return messages in string context */
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 3494 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Get); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Get)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 3378 "Magick.xs"
  {
    char
      *attribute,
      color[MaxTextExtent];

    const ImageAttribute
      *image_attribute;

    Image
      *image;

    const unsigned char *
      profile_info;

    size_t
      profile_length;

    int
      j;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference,
      *s;

    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        XSRETURN_EMPTY;
      }
    reference=SvRV(ST(0));
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image && !info)
      {
        MagickError(OptionError,ReferenceIsNotMyType,NULL);
        XSRETURN_EMPTY;
      }
    EXTEND(sp,items);
    for (i=1; i < items; i++)
    {
      attribute=(char *) SvPV(ST(i),na);
      s=NULL;
      switch (*attribute)
      {
        case 'A':
        case 'a':
        {
          if (LocaleCompare(attribute,"adjoin") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->adjoin);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"antialias") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->antialias);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"authenticate") == 0)
            {
              if (info)
                s=newSVpv(info->image_info->authenticate,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'B':
        case 'b':
        {
          if (LocaleCompare(attribute,"background") == 0)
            {
              if (!image)
                break;
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",image->background_color.red,
                image->background_color.green,image->background_color.blue,
                image->background_color.opacity);
#else
              (void) QueryColorname(image,&image->background_color,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"base-columns") == 0)
            {
              if (image)
                s=newSViv((long) image->magick_columns);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"base-filename") == 0)
            {
              if (image)
                s=newSVpv(image->magick_filename,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"base-height") == 0)
            {
              if (image)
                s=newSViv((long) image->magick_rows);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"base-rows") == 0)
            {
              if (image)
                s=newSViv((long) image->magick_rows);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"base-width") == 0)
            {
              if (image)
                s=newSViv((long) image->magick_columns);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"blue-primary") == 0)
            {
              if (!image)
                break;
              MagickFormatString(color,sizeof(color),"%g,%g",image->chromaticity.blue_primary.x,
                image->chromaticity.blue_primary.y);
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"bordercolor") == 0)
            {
              if (!image)
                break;
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",image->border_color.red,
                image->border_color.green,image->border_color.blue,
                image->border_color.opacity);
#else
              (void) QueryColorname(image, &image->border_color,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'C':
        case 'c':
        {
          if (LocaleCompare(attribute,"class") == 0)
            {
              if (!image)
                break;
              j=image->storage_class;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(ClassTypes)-1))
                {
                  (void) sv_setpv(s,ClassTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"clip-mask") == 0)
            {
              if (image)
                {
                  SV
                    *sv;

                  if (GetImageClipMask(image,&image->exception) == (Image *) NULL)
                    ClipImage(image);
                  sv=newSViv((IV) (magick_uintptr_t)GetImageClipMask(image,&image->exception));
                  s=sv_bless(newRV(sv),SvSTASH(reference));
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"compression") == 0)
            {
              j=info ? info->image_info->compression : image->compression;
              if (info)
                if (info->image_info->compression == UndefinedCompression)
                  j=image->compression;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(CompressionTypes)-1))
                {
                  (void) sv_setpv(s,CompressionTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"colorspace") == 0)
            {
              j=image ? image->colorspace : RGBColorspace;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(ColorspaceTypes)-1))
                {
                  (void) sv_setpv(s,ColorspaceTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"colors") == 0)
            {
              if (image)
                s=newSViv((long) GetNumberColors(image,(FILE *) NULL,
                  &image->exception));
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleNCompare(attribute,"colormap",8) == 0)
            {
              if (!image || !image->colormap)
                break;
              j=0;
              (void) sscanf(attribute,"%*[^[][%d",&j);
              if (j > (long) image->colors)
                j%=image->colors;
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",image->colormap[j].red,
                image->colormap[j].green,image->colormap[j].blue,
                image->colormap[j].opacity);
#else
              (void) QueryColorname(image, &image->colormap[j],AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"columns") == 0)
            {
              if (image)
                s=newSViv((long) image->columns);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"comment") == 0)
            {
              const ImageAttribute
                *attribute;

              attribute=GetImageAttribute(image,"comment");
              if (attribute != (ImageAttribute *) NULL)
                s=newSVpv(attribute->value,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'D':
        case 'd':
        {
          if (LocaleCompare(attribute,"density") == 0)
            {
              char
                geometry[MaxTextExtent];

              if (!image)
                break;
              MagickFormatString(geometry,sizeof(geometry),"%gx%g",image->x_resolution,
                image->y_resolution);
              s=newSVpv(geometry,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"dispose") == 0)
            {
              if (!image)
                break;

              j=image->dispose;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(DisposeTypes)-1))
                {
                  (void) sv_setpv(s,DisposeTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"delay") == 0)
            {
              if (image)
                s=newSViv((long) image->delay);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"depth") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->depth);
              if (image)
                s=newSViv((long) GetImageDepth(image,&image->exception));
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"dither") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->dither);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"display") == 0)  /* same as server */
            {
              if (info && info->image_info->server_name)
                s=newSVpv(info->image_info->server_name,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"directory") == 0)
            {
              if (image && image->directory)
                s=newSVpv(image->directory,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'E':
        case 'e':
        {
          if (LocaleCompare(attribute,"endian") == 0)
            {
              j=info ? info->image_info->endian : image->endian;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(EndianTypes)-1))
                {
                  (void) sv_setpv(s,EndianTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"error") == 0)
            {
              if (image)
                s=newSVnv(image->error.mean_error_per_pixel);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'F':
        case 'f':
        {
          if (LocaleCompare(attribute,"filesize") == 0)
            {
              if (image)
                s=newSViv((long) GetBlobSize(image));
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"filename") == 0)
            {
              if (image)
                s=newSVpv(image->filename,0);
              else
                if (info && info->image_info->filename[0])
                  s=newSVpv(info->image_info->filename,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"fill") == 0)
            {
              if (!info)
                break;
              /* Value duplicated in info->image_info->pen */
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",info->draw_info->fill.red,
                                 info->draw_info->fill.green,info->draw_info->fill.blue,
                                 info->draw_info->fill.opacity);
#else
              (void) QueryColorname(image, &info->draw_info->fill,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"filter") == 0)
            {
              j=image->filter;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(FilterTypess)-1))
                {
                  (void) sv_setpv(s,FilterTypess[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"font") == 0)
            {
              if (info && info->image_info->font)
                s=newSVpv(info->image_info->font,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"format") == 0)
            {
              ExceptionInfo
                exception;

              const MagickInfo
                *magick_info;

              magick_info=(const MagickInfo *) NULL;
              if (info && (*info->image_info->magick != '\0'))
                {
                  GetExceptionInfo(&exception);
                  magick_info=
                    GetMagickInfo(info->image_info->magick,&exception);
                  DestroyExceptionInfo(&exception);
                }
              else
                if (image)
                  magick_info=GetMagickInfo(image->magick,&image->exception);
                if ((magick_info != (const MagickInfo *) NULL) &&
                    (*magick_info->description != '\0'))
                  s=newSVpv((char *) magick_info->description,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"fuzz") == 0)
            {
              if (info)
                s=newSVnv(info->image_info->fuzz);
              else
                if (image)
                  s=newSVnv(image->fuzz);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'G':
        case 'g':
        {
          if (LocaleCompare(attribute,"gamma") == 0)
            {
              if (image)
                s=newSVnv(image->gamma);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"geometry") == 0)
            {
              if (image && image->geometry)
                s=newSVpv(image->geometry,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"gravity") == 0)
            {
              j=image->gravity;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(GravityTypes)-1))
                {
                  (void) sv_setpv(s,GravityTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"green-primary") == 0)
            {
              if (!image)
                break;
              MagickFormatString(color,sizeof(color),"%g,%g",image->chromaticity.green_primary.x,
                                 image->chromaticity.green_primary.y);
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'H':
        case 'h':
        {
          if (LocaleCompare(attribute,"height") == 0)
            {
              if (image)
                s=newSViv((long) image->rows);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'I':
        case 'i':
        {
          if (LocaleCompare(attribute,"icm") == 0)
            {
              if (image)
                {
                  profile_info=GetImageProfile(image,"ICM",&profile_length);
                  s=newSVpv((const char *) profile_info,profile_length);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"id") == 0)
            {
              if (image)
                s=newSViv(SetMagickRegistry(ImageRegistryType,image,0,
                  &image->exception));
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleNCompare(attribute,"index",5) == 0)
            {
              char
                name[MaxTextExtent];

              const IndexPacket
                *indexes;

              long
                x,
                y;

              if (!image)
                break;
              if (image->storage_class != PseudoClass)
                break;
              x=0;
              y=0;
              (void) sscanf(attribute,"%*[^[][%ld%*[,/]%ld",&x,&y);
              (void) AcquireImagePixels(image,(long) (x % image->columns),
                                        (long) (y % image->rows),1,1,&image->exception);
              indexes=AccessImmutableIndexes(image);
              MagickFormatString(name,sizeof(name),"%u",*indexes);
              s=newSVpv(name,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"iptc") == 0)
            {
              if (image)
                {
                  profile_info=GetImageProfile(image,"IPTC",&profile_length);
                  s=newSVpv((const char *) profile_info,profile_length);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"iterations") == 0)  /* same as loop */
            {
              if (image)
                s=newSViv((long) image->iterations);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"interlace") == 0)
            {
              j=info ? info->image_info->interlace : image->interlace;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(InterlaceTypes)-1))
                {
                  (void) sv_setpv(s,InterlaceTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'L':
        case 'l':
        {
          if (LocaleCompare(attribute,"label") == 0)
            {
              const ImageAttribute
                *attribute;

              if (!image)
                break;
              attribute=GetImageAttribute(image,"label");
              if (attribute != (ImageAttribute *) NULL)
                s=newSVpv(attribute->value,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"loop") == 0)  /* same as iterations */
            {
              if (image)
                s=newSViv((long) image->iterations);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'M':
        case 'm':
        {
          if (LocaleCompare(attribute,"magick") == 0)
            {
              if (info && *info->image_info->magick)
                s=newSVpv(info->image_info->magick,0);
              else
                if (image)
                  s=newSVpv(image->magick,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"maximum-error") == 0)
            {
              if (image)
                s=newSVnv(image->error.normalized_maximum_error);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"mean-error") == 0)
            {
              if (image)
                s=newSVnv(image->error.normalized_mean_error);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"monochrome") == 0)
            {
              if (!image)
                continue;
              j=info ? info->image_info->monochrome :
                IsMonochromeImage(image,&image->exception);
              s=newSViv(j);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"mattecolor") == 0)
            {
              if (!image)
                break;
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",image->matte_color.red,
                image->matte_color.green,image->matte_color.blue,
                image->matte_color.opacity);
#else
              (void) QueryColorname(image, &image->matte_color,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"matte") == 0)
            {
              if (image)
                s=newSViv((long) image->matte);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"montage") == 0)
            {
              if (image && image->montage)
                s=newSVpv(image->montage,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'P':
        case 'p':
        {
          if (LocaleCompare(attribute,"page") == 0)
            {
              if (info && info->image_info->page)
                s=newSVpv(info->image_info->page,0);
              else
                if (image)
                  {
                    char
                      geometry[MaxTextExtent];

                    MagickFormatString(geometry,sizeof(geometry),"%lux%lu%+ld%+ld",image->page.width,
                      image->page.height,image->page.x,image->page.y);
                    s=newSVpv(geometry,0);
                  }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleNCompare(attribute,"pixel",5) == 0)
            {
              char
                name[MaxTextExtent];

              long
                x,
                y;

              PixelPacket
                pixel;

              if (!image)
                break;
              x=0;
              y=0;
              (void) sscanf(attribute,"%*[^[][%ld%*[,/]%ld",&x,&y);
              (void) AcquireOnePixelByReference(image,&pixel,(long) (x % image->columns),
                (long) (y % image->rows),&image->exception);
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(name,sizeof(name),"%u,%u,%u,%u",pixel.red,pixel.green,pixel.blue,
                pixel.opacity);
#else
              (void) QueryColorname(image, &pixel,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(name,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"pointsize") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->pointsize);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"preview") == 0)
            {
              s=newSViv(info->image_info->preview_type);
              if ((info->image_info->preview_type != UndefinedPreview) &&
                  (info->image_info->preview_type < (long) NumberOf(PreviewTypes)-1))
                {
                  (void) sv_setpv(s,
                    PreviewTypes[info->image_info->preview_type]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'Q':
        case 'q':
        {
          if (LocaleCompare(attribute,"quality") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->quality);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'R':
        case 'r':
        {
          if (LocaleCompare(attribute,"rendering-intent") == 0)
            {
              j=image->rendering_intent;
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(IntentTypes)-1))
                {
                  (void) sv_setpv(s,IntentTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"red-primary") == 0)
            {
              if (!image)
                break;
              MagickFormatString(color,sizeof(color),"%g,%g",image->chromaticity.red_primary.x,
                image->chromaticity.red_primary.y);
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"rows") == 0)
            {
              if (image)
                s=newSViv((long) image->rows);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'S':
        case 's':
        {
          if (LocaleCompare(attribute,"sampling-factor") == 0)
            {
              if (info && info->image_info->sampling_factor)
                s=newSVpv(info->image_info->sampling_factor,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"subimage") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->subimage);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"subrange") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->subrange);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"server") == 0)  /* same as display */
            {
              if (info && info->image_info->server_name)
                s=newSVpv(info->image_info->server_name,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"size") == 0)
            {
              if (info && info->image_info->size)
                s=newSVpv(info->image_info->size,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"scene") == 0)
            {
              if (image)
                s=newSViv((long) image->scene);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"signature") == 0)
            {
              const ImageAttribute
                *attribute;

              if (!image)
                break;
              (void) SignatureImage(image);
              attribute=GetImageAttribute(image,"signature");
              if (attribute != (ImageAttribute *) NULL)
                s=newSVpv(attribute->value,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"stroke") == 0)
            {
              if (!info)
                break;
#if MAGICK_COMMA_DELIM_COLORS
              MagickFormatString(color,sizeof(color),"%u,%u,%u,%u",info->draw_info->stroke.red,
                                 info->draw_info->stroke.green,info->draw_info->stroke.blue,
                                 info->draw_info->stroke.opacity);
#else
              (void) QueryColorname(image, &info->draw_info->stroke,AllCompliance,
                                    color,&image->exception);
#endif
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'T':
        case 't':
        {
          if (LocaleCompare(attribute,"taint") == 0)
            {
              if (image)
                s=newSViv((long) IsTaintImage(image));
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"tile") == 0)
            {
              if (info && info->image_info->tile)
                s=newSVpv(info->image_info->tile,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"texture") == 0)
            {
              if (info && info->image_info->texture)
                s=newSVpv(info->image_info->texture,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"type") == 0)
            {
              if (!image)
                break;
              j=(long) GetImageType(image,&image->exception);
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(ImageTypes)-1))
                {
                  (void) sv_setpv(s,ImageTypes[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'U':
        case 'u':
        {
          if (LocaleCompare(attribute,"units") == 0)
            {
              j=info ? info->image_info->units : image->units;
              if (info)
                if (info->image_info->units == UndefinedResolution)
                  j=image->units;
              if (j == UndefinedResolution)
                s=newSVpv("undefined units",0);
              else
                if (j == PixelsPerInchResolution)
                  s=newSVpv("pixels / inch",0);
                else
                  s=newSVpv("pixels / centimeter",0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'V':
        case 'v':
        {
          if (LocaleCompare(attribute,"verbose") == 0)
            {
              if (info)
                s=newSViv((long) info->image_info->verbose);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"view") == 0)
            {
              if (info && info->image_info->view)
                s=newSVpv(info->image_info->view,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"virtual-pixel") == 0)
            {
              if (!image)
                break;
              j=(long) GetImageVirtualPixelMethod(image);
              s=newSViv(j);
              if ((j >= 0) && (j < (long) NumberOf(VirtualPixelMethods)-1))
                {
                  (void) sv_setpv(s,VirtualPixelMethods[j]);
                  SvIOK_on(s);
                }
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'W':
        case 'w':
        {
          if (LocaleCompare(attribute,"white-point") == 0)
            {
              if (!image)
                break;
              MagickFormatString(color,sizeof(color),"%g,%g",image->chromaticity.white_point.x,
                                 image->chromaticity.white_point.y);
              s=newSVpv(color,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          if (LocaleCompare(attribute,"width") == 0)
            {
              if (image)
                s=newSViv((long) image->columns);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'X':
        case 'x':
        {
          if (LocaleCompare(attribute,"x-resolution") == 0)
            {
              if (image)
                s=newSVnv(image->x_resolution);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'Y':
        case 'y':
        {
          if (LocaleCompare(attribute,"y-resolution") == 0)
            {
              if (image)
                s=newSVnv(image->y_resolution);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
              continue;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
      if (image == (Image *) NULL)
        MagickError(OptionError,UnrecognizedAttribute,attribute);
      else
        {
          image_attribute=GetImageAttribute(image,attribute);
          if (image_attribute == (ImageAttribute *) NULL)
            MagickError(OptionError,UnrecognizedAttribute,attribute);
          else
            {
              s=newSVpv(image_attribute->value,0);
              PUSHs(s ? sv_2mortal(s) : &sv_undef);
            }
        }
    }
  }
#line 4567 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_ImageToBlob); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_ImageToBlob)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 4454 "Magick.xs"
  {
    char
      filename[MaxTextExtent];

    ExceptionInfo
      exception;

    Image
      *image,
      *next;

    int
      scene;

    register int
      i;

    jmp_buf
      error_jmp;

    struct PackageInfo
      *info,
      *package_info;

    size_t
      length;

    SV
      *reference;

    void
      *blob;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    package_info=(struct PackageInfo *) NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    package_info=ClonePackageInfo(info);
    for (i=2; i < items; i+=2)
      SetAttribute(aTHX_ package_info,image,SvPV(ST(i-1),na),ST(i));
    (void) MagickStrlCpy(filename,package_info->image_info->filename,sizeof(filename));
    scene=0;
    for (next=image; next; next=next->next)
    {
      (void) MagickStrlCpy(next->filename,filename,sizeof(next->filename));
      next->scene=scene++;
    }
    SetImageInfo(package_info->image_info,SETMAGICK_WRITE,&image->exception);
    EXTEND(sp,(long) GetImageListLength(image));
    GetExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      length=0;
      blob=ImageToBlob(package_info->image_info,image,&length,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      if (blob != (char *) NULL)
        {
          PUSHs(sv_2mortal(newSVpv((const char *) blob,length)));
          MagickFreeMemory(blob);
        }
      if (package_info->image_info->adjoin)
        break;
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    if (package_info)
      DestroyPackageInfo(package_info);
    SvREFCNT_dec(MY_CXT.error_list);  /* throw away all errors */
    MY_CXT.error_list=NULL;
  }
#line 4672 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Mogrify); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Mogrify)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 4711 "Magick.xs"
  {
    AffineMatrix
      affine,
      current;

    const char
      *attribute,
      *value;

    char
      /* absolute_geometry[MaxTextExtent], */
      attribute_flag[MaxArguments],
      message[MaxTextExtent];

    double
      angle;

    ExceptionInfo
      exception;

    FrameInfo
      frame_info;

    jmp_buf
      error_jmp;

    Image
      *image,
      *next,
      *region_image;

    int
      base,
      flags,
      j,
      k,
      y;

    PixelPacket
      fill_color;

    RectangleInfo
      geometry,
      region_info;

    register int
      i,
      x;

    struct PackageInfo
      *info;

    struct Methods
      *rp;

    SV
      **pv,
      *reference,
      **reference_vector;

    struct ArgumentList
      argument_list[MaxArguments];

    volatile int
      number_images;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    reference_vector=NULL;
    region_image=NULL;
    number_images=0;
    base=2;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto ReturnIt;
      }
    reference=SvRV(ST(0));
    region_info.width=0;
    region_info.height=0;
    region_info.x=0;
    region_info.y=0;
    region_image=(Image *) NULL;
    image=SetupList(aTHX_ reference,&info,&reference_vector);
    if (ix && (ix != 666))
      {
        /*
          Called as Method(...)
        */
        ix=(ix+1)/2;
        rp=(&Methods[ix-1]);
        attribute=rp->name;
      }
    else
      {
        /*
          Called as Mogrify("Method",...)
        */
        attribute=(char *) SvPV(ST(1),na);
        if (ix)
          {
            /*flags=*/GetImageGeometry(image,attribute,False,&region_info);
            attribute=(char *) SvPV(ST(2),na);
            base++;
          }
        for (rp=Methods; ; rp++)
        {
          if (rp >= EndOf(Methods))
            {
              MagickError(OptionError,UnrecognizedPerlMagickMethod,attribute);
              goto ReturnIt;
            }
          if (strEQcase(attribute,rp->name))
            break;
        }
        ix=rp-Methods+1;
        base++;
      }
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,attribute);
        goto ReturnIt;
      }
    Zero(&argument_list,NumberOf(argument_list),struct ArgumentList);
    Zero(&attribute_flag,NumberOf(attribute_flag),char);
    for (i=base; (i < items) || ((i == items) && (base == items)); i+=2)
    {
      int
        longest;

      Arguments
        *pp,
        *qq;

      struct ArgumentList
        *al;

      SV
        *sv;

      longest=0;
      pp=(Arguments *) NULL;
      qq=rp->arguments;
      if (i == items)
        {
          pp=rp->arguments,
          sv=ST(i-1);
        }
      else
        for (sv=ST(i), attribute=(char *) SvPV(ST(i-1),na); ; qq++)
        {
          if ((qq >= EndOf(rp->arguments)) || (qq->method == NULL))
            break;
          if (strEQcase(attribute,qq->method) > longest)
            {
              pp=qq;
              longest=strEQcase(attribute,qq->method);
            }
        }
      if (pp == (Arguments *) NULL)
        {
          MagickError(OptionError,UnrecognizedOption,attribute);
          goto continue_outer_loop;
        }
      al=(&argument_list[pp-rp->arguments]);
      if (pp->type == IntegerReference)
        al->int_reference=SvIV(sv);
      else
        if (pp->type == StringReference)
          al->string_reference=(char *) SvPV(sv,al->length);
        else
          if (pp->type == DoubleReference)
            al->double_reference=SvNV(sv);
          else
            if (pp->type == ImageReference)
              {
                if (!sv_isobject(sv) ||
                    !(al->image_reference=SetupList(aTHX_ SvRV(sv),
                     (struct PackageInfo **) NULL,(SV ***) NULL)))
                  {
                    MagickError(OptionError,ReferenceIsNotMyType,
                      PackageName);
                    goto ReturnIt;
                  }
              }
            else
              if (pp->type == ArrayReference)
                al->array_reference=SvRV(sv);
              else
                if (!SvPOK(sv))  /* not a string; just get number */
                  al->int_reference=SvIV(sv);
                else
                  {
                    /*
                      Is a string; look up name.
                    */
                    al->int_reference=LookupStr(pp->type,SvPV(sv,na));
                    if ((al->int_reference < 0) &&
                        ((al->int_reference=SvIV(sv)) <= 0))
                      {
                        MagickFormatString(message,sizeof(message),"invalid %.60s value",pp->method);
                        MagickError(OptionError,message,attribute);
                        goto continue_outer_loop;
                      }
                  }
      attribute_flag[pp-rp->arguments]++;
      continue_outer_loop: ;
    }
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto ReturnIt;
    (void) memset((char *) &fill_color,0,sizeof(PixelPacket));
    pv=reference_vector;
    GetExceptionInfo(&exception);
    for (next=image; next; next=next->next)
    {
      image=next;
      SetGeometry(image,&geometry);
      if ((region_info.width*region_info.height) != 0)
        {
          region_image=image;
          image=CropImage(image,&region_info,&exception);
          if (exception.severity != UndefinedException)
            CatchException(&exception);
        }
      switch (ix)
      {
        default:
        {
          MagickFormatString(message,sizeof(message),"%ld",(long) ix);
          MagickError(OptionError,UnrecognizedPerlMagickMethod,message);
          goto ReturnIt;
        }
        case 1:  /* Comment */
        {
          char *translated_text;
          if (!attribute_flag[0])
            argument_list[0].string_reference=(const char *) NULL;
          (void) SetImageAttribute(image,"comment",(const char *) NULL);
          translated_text=TranslateText(info->image_info,image,argument_list[0].string_reference);
          if (translated_text != (char *) NULL)
            {
              (void) SetImageAttribute(image,"comment",translated_text);
              MagickFreeMemory(translated_text);
            }
          break;
        }
        case 2:  /* Label */
        {
          char *translated_text;
          if (!attribute_flag[0])
            argument_list[0].string_reference=(const char *) NULL;
          (void) SetImageAttribute(image,"label",(const char *) NULL);
          translated_text=TranslateText(info->image_info,image,argument_list[0].string_reference);
          if (translated_text != (char *) NULL)
            {
              (void) SetImageAttribute(image,"label",translated_text);
              MagickFreeMemory(translated_text);
            }
          break;
        }
        case 3:  /* AddNoise */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=UniformNoise;
          image=AddNoiseImage(image,(NoiseType) argument_list[0].int_reference,
            &exception);
          break;
        }
        case 4:  /* Colorize */
        {
          PixelPacket
            target;

          (void) AcquireOnePixelByReference(image,&target,0,0,&exception);
          if (attribute_flag[0])
            (void) QueryColorDatabase(argument_list[0].string_reference,&target,
              &exception);
          if (!attribute_flag[1])
            argument_list[1].string_reference="100";
          image=ColorizeImage(image,argument_list[1].string_reference,target,
            &exception);
          break;
        }
        case 5:  /* Border */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          if (attribute_flag[3])
            QueryColorDatabase(argument_list[3].string_reference,&fill_color,
              &exception);
          if (attribute_flag[4])
            QueryColorDatabase(argument_list[4].string_reference,&fill_color,
              &exception);
          if (attribute_flag[3] || attribute_flag[4])
            image->border_color=fill_color;
          image=BorderImage(image,&geometry,&exception);
          break;
        }
        case 6:  /* Blur */
        {
          double
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=BlurImage(image,radius,sigma,&exception);
          break;
        }
        case 7:  /* Chop */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          if (attribute_flag[3])
            geometry.x=argument_list[3].int_reference;
          if (attribute_flag[4])
            geometry.y=argument_list[4].int_reference;
          image=ChopImage(image,&geometry,&exception);
          break;
        }
        case 8:  /* Crop */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          if (attribute_flag[3])
            geometry.x=argument_list[3].int_reference;
          if (attribute_flag[4])
            geometry.y=argument_list[4].int_reference;
          image=CropImage(image,&geometry,&exception);
          break;
        }
        case 9:  /* Despeckle */
        {
          image=DespeckleImage(image,&exception);
          break;
        }
        case 10:  /* Edge */
        {
          double
            radius;

          radius=0.0;
          if (attribute_flag[0])
            radius=argument_list[0].double_reference;
          image=EdgeImage(image,radius,&exception);
          break;
        }
        case 11:  /* Emboss */
        {
          double
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=EmbossImage(image,radius,sigma,&exception);
          break;
        }
        case 12:  /* Enhance */
        {
          image=EnhanceImage(image,&exception);
          break;
        }
        case 13:  /* Flip */
        {
          image=FlipImage(image,&exception);
          break;
        }
        case 14:  /* Flop */
        {
          image=FlopImage(image,&exception);
          break;
        }
        case 15:  /* Frame */
        {
          if (attribute_flag[0])
            {
              /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
                False,&geometry);
              frame_info.width=geometry.width;
              frame_info.height=geometry.height;
              frame_info.outer_bevel=geometry.x;
              frame_info.inner_bevel=geometry.y;
            }
          if (attribute_flag[1])
            frame_info.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            frame_info.height=argument_list[2].int_reference;
          if (attribute_flag[3])
            frame_info.inner_bevel=argument_list[3].int_reference;
          if (attribute_flag[4])
            frame_info.outer_bevel=argument_list[4].int_reference;
          if (attribute_flag[5])
            QueryColorDatabase(argument_list[5].string_reference,&fill_color,
              &exception);
          if (attribute_flag[6])
            QueryColorDatabase(argument_list[6].string_reference,&fill_color,
              &exception);
          frame_info.x=(long) frame_info.width;
          frame_info.y=(long) frame_info.height;
          frame_info.width=image->columns+2*frame_info.x;
          frame_info.height=image->rows+2*frame_info.y;
          if (attribute_flag[5] || attribute_flag[6])
            image->matte_color=fill_color;
          image=FrameImage(image,&frame_info,&exception);
          break;
        }
        case 16:  /* Implode */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=0.5;
          image=ImplodeImage(image,argument_list[0].double_reference,
            &exception);
          break;
        }
        case 17:  /* Magnify */
        {
          image=MagnifyImage(image,&exception);
          break;
        }
        case 18:  /* MedianFilter */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=0.0;
          image=MedianFilterImage(image,argument_list[0].double_reference,
            &exception);
          break;
        }
        case 19:  /* Minify */
        {
          image=MinifyImage(image,&exception);
          break;
        }
        case 20:  /* OilPaint */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=0.0;
          image=OilPaintImage(image,argument_list[0].double_reference,
            &exception);
          break;
        }
        case 21:  /* ReduceNoise */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=0.0;
          image=ReduceNoiseImage(image,argument_list[0].double_reference,
            &exception);
          break;
        }
        case 22:  /* Roll */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.x=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.y=argument_list[2].int_reference;
          image=RollImage(image,geometry.x,geometry.y,&exception);
          break;
        }
        case 23:  /* Rotate */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=90.0;
          if (attribute_flag[1])
            QueryColorDatabase(argument_list[1].string_reference,
              &image->background_color,&exception);
          image=RotateImage(image,argument_list[0].double_reference,&exception);
          break;
        }
        case 24:  /* Sample */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              True,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          image=SampleImage(image,geometry.width,geometry.height,&exception);
          break;
        }
        case 25:  /* Scale */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              True,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          image=ScaleImage(image,geometry.width,geometry.height,&exception);
          break;
        }
        case 26:  /* Shade */
        {
          double
            azimuth,
            elevation;

          azimuth=30.0;
          if (attribute_flag[1])
            azimuth=argument_list[1].double_reference;
          elevation=30.0;
          if (attribute_flag[2])
            elevation=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",&azimuth,
              &elevation);
          image=ShadeImage(image,argument_list[3].int_reference,azimuth,
            elevation,&exception);
          break;
        }
        case 27:  /* Sharpen */
        {
          double
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=SharpenImage(image,radius,sigma,&exception);
          break;
        }
        case 28:  /* Shear */
        {
          double
            x_shear,
            y_shear;

          x_shear=45.0;
          y_shear=45.0;
          if (attribute_flag[1])
            x_shear=argument_list[1].double_reference;
          if (attribute_flag[2])
            y_shear=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",&x_shear,
              &y_shear);
          if (attribute_flag[3])
             QueryColorDatabase(argument_list[3].string_reference,
               &image->background_color,&exception);
          image=ShearImage(image,x_shear,y_shear,&exception);
          break;
        }
        case 29:  /* Spread */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=1;
          image=SpreadImage(image,argument_list[0].int_reference,&exception);
          break;
        }
        case 30:  /* Swirl */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=50.0;
          image=SwirlImage(image,argument_list[0].double_reference,&exception);
          break;
        }
        case 31:  /* Resize */
        case 32:  /* Zoom */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              True,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          if (!attribute_flag[3])
            argument_list[3].int_reference=(long) LanczosFilter;
          if (!attribute_flag[4])
            argument_list[4].double_reference=1.0;
          image=ResizeImage(image,geometry.width,geometry.height,
            (FilterTypes) argument_list[3].int_reference,
            argument_list[4].double_reference,&exception);
          break;
        }
        case 33:  /* Annotate */
        {
          DrawInfo
            *draw_info;

          draw_info=CloneDrawInfo(info ? info->image_info :
            (ImageInfo *) NULL,info ? info->draw_info : (DrawInfo *) NULL);
          if (attribute_flag[1])
            (void) CloneString(&draw_info->font,
              argument_list[1].string_reference);
          if (attribute_flag[2])
            draw_info->pointsize=argument_list[2].double_reference;
          if (attribute_flag[3])
            (void) CloneString(&draw_info->density,
              argument_list[3].string_reference);
          if (attribute_flag[0])
            (void) CloneString(&draw_info->text,
              argument_list[0].string_reference);
          if (attribute_flag[4])
            (void) QueryColorDatabase(argument_list[4].string_reference,
              &draw_info->undercolor,&exception);
          if (attribute_flag[5])
            (void) QueryColorDatabase(argument_list[5].string_reference,
              &draw_info->stroke,&exception);
          if (attribute_flag[6])
            (void) QueryColorDatabase(argument_list[6].string_reference,
              &draw_info->fill,&exception);
          if (attribute_flag[7])
            (void) CloneString(&draw_info->geometry,
              argument_list[7].string_reference);
          if (attribute_flag[9] || attribute_flag[10])
            {
              if (!attribute_flag[9])
                argument_list[9].int_reference=0;
              if (!attribute_flag[10])
                argument_list[10].int_reference=0;
              MagickFormatString(message,sizeof(message),"%+ld%+ld",argument_list[9].int_reference,
                argument_list[10].int_reference);
              (void) CloneString(&draw_info->geometry,message);
            }
          if (attribute_flag[11])
            draw_info->gravity=(GravityType) argument_list[11].int_reference;
          if (attribute_flag[25])
            {
              AV
                *av;

              av=(AV *) argument_list[25].array_reference;
              if (av_len(av) >= 1)
                draw_info->affine.sx=(double) SvNV(*(av_fetch(av,0,0)));
              if (av_len(av) >= 2)
                draw_info->affine.rx=(double) SvNV(*(av_fetch(av,1,0)));
              if (av_len(av) >= 3)
                draw_info->affine.ry=(double) SvNV(*(av_fetch(av,2,0)));
              if (av_len(av) >= 4)
                draw_info->affine.sy=(double) SvNV(*(av_fetch(av,3,0)));
              if (av_len(av) >= 5)
                draw_info->affine.tx=(double) SvNV(*(av_fetch(av,4,0)));
              if (av_len(av) >= 6)
                draw_info->affine.ty=(double) SvNV(*(av_fetch(av,5,0)));
            }
          for (j=12; j < 17; j++)
          {
            if (!attribute_flag[j])
              continue;
            value=argument_list[j].string_reference;
            angle=argument_list[j].double_reference;
            current=draw_info->affine;
            IdentityAffine(&affine);
            switch (j)
            {
              case 12:
              {
                /*
                  Translate.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.tx,&affine.ty);
                if (k == 1)
                  affine.ty=affine.tx;
                break;
              }
              case 13:
              {
                /*
                  Scale.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.sx,&affine.sy);
                if (k == 1)
                  affine.sy=affine.sx;
                break;
              }
              case 14:
              {
                /*
                  Rotate.
                */
                if (angle == 0.0)
                  break;
                affine.sx=cos(DegreesToRadians(fmod(angle,360.0)));
                affine.rx=sin(DegreesToRadians(fmod(angle,360.0)));
                affine.ry=(-sin(DegreesToRadians(fmod(angle,360.0))));
                affine.sy=cos(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 15:
              {
                /*
                  SkewX.
                */
                affine.ry=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 16:
              {
                /*
                  SkewY.
                */
                affine.rx=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
            }
            draw_info->affine.sx=current.sx*affine.sx+current.ry*affine.rx;
            draw_info->affine.rx=current.rx*affine.sx+current.sy*affine.rx;
            draw_info->affine.ry=current.sx*affine.ry+current.ry*affine.sy;
            draw_info->affine.sy=current.rx*affine.ry+current.sy*affine.sy;
            draw_info->affine.tx=current.sx*affine.tx+current.ry*affine.ty+
              current.tx;
            draw_info->affine.ty=current.rx*affine.tx+current.sy*affine.ty+
              current.ty;
          }
          if (attribute_flag[17])
            draw_info->stroke_width=argument_list[17].int_reference;
          if (attribute_flag[18])
            draw_info->text_antialias=argument_list[18].int_reference != 0;
          if (attribute_flag[19])
            (void) CloneString(&draw_info->family,
              argument_list[19].string_reference);
          if (attribute_flag[20])
            draw_info->style=(StyleType) argument_list[20].int_reference;
          if (attribute_flag[21])
            draw_info->stretch=(StretchType) argument_list[21].int_reference;
          if (attribute_flag[22])
            draw_info->weight=argument_list[22].int_reference;
          if (attribute_flag[23])
            draw_info->align=(AlignType) argument_list[23].int_reference;
          if (attribute_flag[24])
            (void) CloneString(&draw_info->encoding,
              argument_list[24].string_reference);
          if (attribute_flag[26])
            draw_info->decorate=(DecorationType) argument_list[26].int_reference;
          AnnotateImage(image,draw_info);
          DestroyDrawInfo(draw_info);
          break;
        }
        case 34:  /* ColorFloodfill */
        {
          DrawInfo
            *draw_info;

          PixelPacket
            target;

          draw_info=CloneDrawInfo(info ? info->image_info :
            (ImageInfo *) NULL,info ? info->draw_info : (DrawInfo *) NULL);
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.x=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.y=argument_list[2].int_reference;
          if (attribute_flag[3])
            (void) QueryColorDatabase(argument_list[3].string_reference,
              &draw_info->fill,&exception);
          if (attribute_flag[4])
            QueryColorDatabase(argument_list[4].string_reference,&fill_color,
              &exception);
          (void) AcquireOnePixelByReference(image,&target,(long) (geometry.x % image->columns),
            (long) (geometry.y % image->rows),&exception);
          if (attribute_flag[4])
            target=fill_color;
          if (attribute_flag[5])
            image->fuzz=argument_list[5].double_reference;
          ColorFloodfillImage(image,draw_info,target,geometry.x,geometry.y,
            attribute_flag[4] ? FillToBorderMethod : FloodfillMethod);
          DestroyDrawInfo(draw_info);
          break;
        }
        case 35:  /* Composite */
        {
          char
            composite_geometry[MaxTextExtent];

          CompositeOperator
            compose;

          double
            opacity;

          Image
            *composite_image,
            *mask_image,
            *rotate_image;

          compose=OverCompositeOp;
          if (attribute_flag[0])
            composite_image=argument_list[0].image_reference;
          else
            {
              MagickError(OptionError,CompositeImageRequired,NULL);
              goto ReturnIt;
            }
          if (attribute_flag[1])
            compose=(CompositeOperator) argument_list[1].int_reference;
          opacity=OpaqueOpacity;
          if (attribute_flag[6])
            {
              opacity=argument_list[6].double_reference;
              if (compose == DissolveCompositeOp)
                {
                  register PixelPacket
                    *q;

                  if (!composite_image->matte)
                    SetImageOpacity(composite_image,OpaqueOpacity);
                  for (y=0; y < (long) composite_image->rows; y++)
                    {
                      q=GetImagePixels(composite_image,0,y,
                                       composite_image->columns,1);
                      if (q == (PixelPacket *) NULL)
                        break;
                      for (x=(long) composite_image->columns; x > 0; x--)
                        {
                          q->opacity=(Quantum) ((opacity*(MaxRGB-q->opacity))/100.0);
                          q++;
                        }
                      if (!SyncImagePixels(composite_image))
                        break;
                    }
                }
              else
                {
                  if (opacity != OpaqueOpacity)
                    SetImageOpacity(composite_image,(unsigned int) opacity);
                }
            }
          if (attribute_flag[9])
            QueryColorDatabase(argument_list[9].string_reference,
              &composite_image->background_color,&exception);
          rotate_image=(Image *) NULL;
          if (attribute_flag[8])
            {
               /*
                 Rotate image.
               */
               rotate_image=RotateImage(composite_image,
                 argument_list[8].double_reference,&exception);
               if (rotate_image == (Image *) NULL)
                 break;
            }
          if (attribute_flag[7] && argument_list[7].int_reference)
            {
              /*
                Tile image on background.
              */
              for (y=0; y < (long) image->rows; y+=composite_image->rows)
                for (x=0; x < (long) image->columns; x+=composite_image->columns)
                {
                  if (attribute_flag[8])
                    (void) CompositeImage(image,compose,rotate_image,x,y);
                  else
                    (void) CompositeImage(image,compose,composite_image,x,y);
                  (void) CatchImageException(image);
                }
              if (attribute_flag[8])
                DestroyImage(rotate_image);
              break;
            }
          if (attribute_flag[2])
            /*flags=*/GetGeometry(argument_list[2].string_reference,&geometry.x,
              &geometry.y,&geometry.width,&geometry.height);
          if (attribute_flag[3])
            geometry.x=argument_list[3].int_reference;
          if (attribute_flag[4])
            geometry.y=argument_list[4].int_reference;
          if (attribute_flag[5])
            image->gravity=(GravityType) argument_list[5].int_reference;
          if (attribute_flag[10])
            {
              mask_image=argument_list[10].image_reference;
              if (SetImageType(composite_image,TrueColorMatteType) == MagickFail)
                {
                  /* FIXME: Explicitly report error? */
                }
              if (!composite_image->matte)
                SetImageOpacity(composite_image,OpaqueOpacity);
              (void) CompositeImage(composite_image,CopyOpacityCompositeOp,
                mask_image,0,0);
            }
          /*
            Composite image.
          */
          MagickFormatString(composite_geometry,sizeof(composite_geometry),"%lux%lu%+ld%+ld",
            composite_image->columns,composite_image->rows,geometry.x,
            geometry.y);
          /*flags=*/GetImageGeometry(image,composite_geometry,False,&geometry);
          if (!attribute_flag[8])
            CompositeImage(image,compose,composite_image,geometry.x,geometry.y);
          else
            {
              /*
                Rotate image.
              */
              geometry.x-=(long)
                (rotate_image->columns-composite_image->columns)/2;
              geometry.y-=(long) (rotate_image->rows-composite_image->rows)/2;
              CompositeImage(image,compose,rotate_image,geometry.x,geometry.y);
              DestroyImage(rotate_image);
            }
          break;
        }
        case 36:  /* Contrast */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=0;
          ContrastImage(image,argument_list[0].int_reference);
          break;
        }
        case 37:  /* CycleColormap */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=6;
          CycleColormapImage(image,argument_list[0].int_reference);
          break;
        }
        case 38:  /* Draw */
        {
          DrawInfo
            *draw_info;

          draw_info=CloneDrawInfo(info ? info->image_info : (ImageInfo *) NULL,
            info ? info->draw_info : (DrawInfo *) NULL);
          /* draw_info->fill.opacity=TransparentOpacity; */
          draw_info->stroke.opacity=OpaqueOpacity;
          (void) CloneString(&draw_info->primitive,"Point");
          if (attribute_flag[0] && (argument_list[0].int_reference > 0))
            (void) CloneString(&draw_info->primitive,
              PrimitiveTypes[argument_list[0].int_reference]);
          if (attribute_flag[1])
            {
              if (LocaleCompare(draw_info->primitive,"path") == 0)
                {
                  (void) ConcatenateString(&draw_info->primitive," '");
                  ConcatenateString(&draw_info->primitive,
                    argument_list[1].string_reference);
                  (void) ConcatenateString(&draw_info->primitive,"'");
                }
              else
                {
                  (void) ConcatenateString(&draw_info->primitive," ");
                  ConcatenateString(&draw_info->primitive,
                    argument_list[1].string_reference);
                }
            }
          if (attribute_flag[2])
            {
              (void) ConcatenateString(&draw_info->primitive," ");
              (void) ConcatenateString(&draw_info->primitive,
                MethodTypes[argument_list[2].int_reference]);
            }
          if (attribute_flag[3])
            (void) QueryColorDatabase(argument_list[3].string_reference,
              &draw_info->stroke,&exception);
          if (attribute_flag[4])
            (void) QueryColorDatabase(argument_list[4].string_reference,
              &draw_info->fill,&exception);
          if (attribute_flag[5])
            draw_info->stroke_width=argument_list[5].double_reference;
          if (attribute_flag[6])
            (void) CloneString(&draw_info->font,
              argument_list[6].string_reference);
          if (attribute_flag[7])
            (void) QueryColorDatabase(argument_list[7].string_reference,
              &draw_info->border_color,&exception);
          if (attribute_flag[8])
            draw_info->affine.tx=argument_list[8].double_reference;
          if (attribute_flag[9])
            draw_info->affine.ty=argument_list[9].double_reference;
          if (attribute_flag[20])
            {
              AV
                *av;

              av=(AV *) argument_list[20].array_reference;
              if (av_len(av) >= 1)
                draw_info->affine.sx=(double) SvNV(*(av_fetch(av,0,0)));
              if (av_len(av) >= 2)
                draw_info->affine.rx=(double) SvNV(*(av_fetch(av,1,0)));
              if (av_len(av) >= 3)
                draw_info->affine.ry=(double) SvNV(*(av_fetch(av,2,0)));
              if (av_len(av) >= 4)
                draw_info->affine.sy=(double) SvNV(*(av_fetch(av,3,0)));
              if (av_len(av) >= 5)
                draw_info->affine.tx=(double) SvNV(*(av_fetch(av,4,0)));
              if (av_len(av) >= 6)
                draw_info->affine.ty=(double) SvNV(*(av_fetch(av,5,0)));
            }
          for (j=10; j < 15; j++)
          {
            if (!attribute_flag[j])
              continue;
            value=argument_list[j].string_reference;
            angle=argument_list[j].double_reference;
            current=draw_info->affine;
            IdentityAffine(&affine);
            switch (j)
            {
              case 10:
              {
                /*
                  Translate.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.tx,&affine.ty);
                if (k == 1)
                  affine.ty=affine.tx;
                break;
              }
              case 11:
              {
                /*
                  Scale.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.sx,&affine.sy);
                if (k == 1)
                  affine.sy=affine.sx;
                break;
              }
              case 12:
              {
                /*
                  Rotate.
                */
                if (angle == 0.0)
                  break;
                affine.sx=cos(DegreesToRadians(fmod(angle,360.0)));
                affine.rx=sin(DegreesToRadians(fmod(angle,360.0)));
                affine.ry=(-sin(DegreesToRadians(fmod(angle,360.0))));
                affine.sy=cos(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 13:
              {
                /*
                  SkewX.
                */
                affine.ry=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 14:
              {
                /*
                  SkewY.
                */
                affine.rx=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
            }
            draw_info->affine.sx=current.sx*affine.sx+current.ry*affine.rx;
            draw_info->affine.rx=current.rx*affine.sx+current.sy*affine.rx;
            draw_info->affine.ry=current.sx*affine.ry+current.ry*affine.sy;
            draw_info->affine.sy=current.rx*affine.ry+current.sy*affine.sy;
            draw_info->affine.tx=
              current.sx*affine.tx+current.ry*affine.ty+current.tx;
            draw_info->affine.ty=
              current.rx*affine.tx+current.sy*affine.ty+current.ty;
          }
          if (attribute_flag[15])
            draw_info->fill_pattern=
              CloneImage(argument_list[15].image_reference,0,0,True,&exception);
          if (attribute_flag[16])
            draw_info->pointsize=argument_list[16].double_reference;
          if (attribute_flag[17])
            {
              draw_info->stroke_antialias=argument_list[17].int_reference != 0;
              draw_info->text_antialias=argument_list[17].int_reference != 0;
            }
          if (attribute_flag[18])
            (void) CloneString(&draw_info->density,
              argument_list[18].string_reference);
          if (attribute_flag[19])
            draw_info->stroke_width=argument_list[19].double_reference;
          DrawImage(image,draw_info);
          DestroyDrawInfo(draw_info);
          break;
        }
        case 39:  /* Equalize */
        {
          EqualizeImage(image);
          break;
        }
        case 40:  /* Gamma */
        {
          if (!attribute_flag[1])
            argument_list[1].double_reference=1.0;
          if (!attribute_flag[2])
            argument_list[2].double_reference=1.0;
          if (!attribute_flag[3])
            argument_list[3].double_reference=1.0;
          if (!attribute_flag[0])
            {
              MagickFormatString(message,sizeof(message),"%g,%g,%g",
                argument_list[1].double_reference,
                argument_list[2].double_reference,
                argument_list[3].double_reference);
              argument_list[0].string_reference=message;
            }
          GammaImage(image,argument_list[0].string_reference);
          break;
        }
        case 41:  /* Map */
        {
          if (!attribute_flag[1])
            argument_list[1].int_reference=1;
          if (!attribute_flag[0])
            {
              MagickError(OptionError,MapImageRequired,NULL);
              goto ReturnIt;
            }
          (void) MapImages(image,argument_list[0].image_reference,
            argument_list[1].int_reference);
          break;
        }
        case 42:  /* MatteFloodfill */
        {
          PixelPacket
            target;

          unsigned int
            opacity;

          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.x=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.y=argument_list[2].int_reference;
          if (attribute_flag[4])
            QueryColorDatabase(argument_list[4].string_reference,&fill_color,
              &exception);
          opacity=TransparentOpacity;
          if (attribute_flag[3])
            opacity=argument_list[3].int_reference;
          if (!image->matte)
            SetImageOpacity(image,OpaqueOpacity);
          (void) AcquireOnePixelByReference(image,&target,(long) (geometry.x % image->columns),
            (long) (geometry.y % image->rows),&exception);
          if (attribute_flag[4])
            target=fill_color;
          if (attribute_flag[5])
            image->fuzz=argument_list[5].double_reference;
          MatteFloodfillImage(image,target,opacity,geometry.x,geometry.y,
            attribute_flag[4] ? FillToBorderMethod : FloodfillMethod);
          break;
        }
        case 43:  /* Modulate */
        {
          if (!attribute_flag[1])
            argument_list[1].double_reference=100.0;
          if (!attribute_flag[2])
            argument_list[2].double_reference=100.0;
          if (!attribute_flag[3])
            argument_list[3].double_reference=100.0;
          MagickFormatString(message,sizeof(message),"%g,%g,%g",
            argument_list[1].double_reference,
            argument_list[2].double_reference,
            argument_list[3].double_reference);
          if (!attribute_flag[0])
            argument_list[0].string_reference=message;
          ModulateImage(image,argument_list[0].string_reference);
          break;
        }
        case 44:  /* Negate */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=0;
          NegateImage(image,argument_list[0].int_reference);
          break;
        }
        case 45:  /* Normalize */
        {
          NormalizeImage(image);
          break;
        }
        case 46:  /* NumberColors */
          break;
        case 47:  /* Opaque */
        {
          PixelPacket
            fill_color,
            target;

          (void) AcquireOnePixelByReference(image,&target,0,0,&exception);
          if (attribute_flag[0])
            (void) QueryColorDatabase(argument_list[0].string_reference,
              &target,&exception);
          (void) AcquireOnePixelByReference(image,&fill_color,0,0,&exception);
          if (attribute_flag[1])
            (void) QueryColorDatabase(argument_list[1].string_reference,
              &fill_color,&exception);
          if (attribute_flag[2])
            image->fuzz=argument_list[2].double_reference;
          OpaqueImage(image,target,fill_color);
          break;
        }
        case 48:  /* Quantize */
        {
          QuantizeInfo
            quantize_info;

          GetQuantizeInfo(&quantize_info);
          quantize_info.number_colors=
            attribute_flag[0] ? (unsigned long) argument_list[0].int_reference :
            (info ? info->quantize_info->number_colors :
             MaxRGB + 1U);
          quantize_info.tree_depth=attribute_flag[1] ?
            (unsigned int) argument_list[1].int_reference :
            (info ? info->quantize_info->tree_depth : 8U);
          quantize_info.colorspace=(ColorspaceType)
            (attribute_flag[2] ? (ColorspaceType) argument_list[2].int_reference :
            (info? info->quantize_info->colorspace : RGBColorspace));
          quantize_info.dither=attribute_flag[3] ?
            (unsigned int) argument_list[3].int_reference :
            (info ? info->quantize_info->dither : False);
          quantize_info.measure_error=attribute_flag[4] ?
            (unsigned int) argument_list[4].int_reference :
            (info ? info->quantize_info->measure_error : False);
          if (attribute_flag[5] && argument_list[5].int_reference)
            {
              (void) QuantizeImages(&quantize_info,image);
              goto ReturnIt;
            }
          if ((image->storage_class == DirectClass) ||
              (image->colors > quantize_info.number_colors) ||
              (quantize_info.colorspace == GRAYColorspace))
            (void) QuantizeImage(&quantize_info,image);
          else
            CompressImageColormap(image);
          break;
        }
        case 49:  /* Raise */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          if (!attribute_flag[3])
            argument_list[3].int_reference=1;
          RaiseImage(image,&geometry,argument_list[3].int_reference);
          break;
        }
        case 50:  /* Segment */
        {
          ColorspaceType
            colorspace;

          double
            cluster_threshold,
            smoothing_threshold;

          unsigned int
            verbose;

          cluster_threshold=1.0;
          smoothing_threshold=1.5;
          colorspace=RGBColorspace;
          verbose=False;
          if (attribute_flag[1])
            cluster_threshold=argument_list[1].double_reference;
          if (attribute_flag[2])
            smoothing_threshold=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &cluster_threshold,&smoothing_threshold);
          if (attribute_flag[3])
            colorspace=(ColorspaceType) argument_list[3].int_reference;
          if (attribute_flag[4])
            verbose=argument_list[4].int_reference != 0;
          (void) SegmentImage(image,colorspace,verbose,cluster_threshold,
            smoothing_threshold);
          break;
        }
        case 51:  /* Signature */
        {
          (void) SignatureImage(image);
          break;
        }
        case 52:  /* Solarize */
        {
          if (!attribute_flag[0])
            argument_list[0].double_reference=50.0;
          SolarizeImage(image,argument_list[0].double_reference);
          break;
        }
        case 53:  /* Sync */
        {
          (void) SyncImage(image);
          break;
        }
        case 54:  /* Texture */
        {
          if (!attribute_flag[0])
            break;
          TextureImage(image,argument_list[0].image_reference);
          break;
        }
        case 55:  /* Sans */
          break;
        case 56:  /* Transparent */
        {
          PixelPacket
            target;

          unsigned int
            opacity;

          (void) AcquireOnePixelByReference(image,&target,0,0,&exception);
          if (attribute_flag[0])
            (void) QueryColorDatabase(argument_list[0].string_reference,
              &target,&exception);
          opacity=TransparentOpacity;
          if (attribute_flag[1])
            opacity=argument_list[1].int_reference;
          if (attribute_flag[2])
            image->fuzz=argument_list[2].double_reference;
          TransparentImage(image,target,opacity);
          break;
        }
        case 57:  /* Threshold */
        {
          double
            threshold;

          int
            count;

          if (!attribute_flag[0])
            argument_list[0].string_reference="50%";
          count=sscanf(argument_list[0].string_reference,"%lf",&threshold);
          if (count > 0)
            {
              if (strchr(argument_list[0].string_reference,'%') != (const char *) NULL)
                  threshold *=  MaxRGB/100.0;
                (void) ThresholdImage(image,threshold);
            }
          break;
        }
        case 58:  /* Charcoal */
        {
          double
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=CharcoalImage(image,radius,sigma,&exception);
          break;
        }
        case 59:  /* Trim */
        {
          if (attribute_flag[0])
            image->fuzz=argument_list[0].double_reference;
          /*flags=*/GetGeometry("0x0",&geometry.x,&geometry.y,
            &geometry.width,&geometry.height);
          image=CropImage(image,&geometry,&exception);
          break;
        }
        case 60:  /* Wave */
        {
          double
            amplitude,
            wavelength;

          amplitude=25.0;
          wavelength=150.0;
          if (attribute_flag[1])
            amplitude=argument_list[1].double_reference;
          if (attribute_flag[2])
            wavelength=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &amplitude,&wavelength);
          image=WaveImage(image,amplitude,wavelength,&exception);
          break;
        }
        case 61:  /* Channel */
        {
          if (!attribute_flag[0])
            argument_list[0].int_reference=1;
          ChannelImage(image,(ChannelType) argument_list[0].int_reference);
          break;
        }
        case 63:  /* Stereo */
        {
          if (!attribute_flag[0])
            {
              MagickError(OptionError,StereoImageRequired,NULL);
              goto ReturnIt;
            }
          image=StereoImage(image,argument_list[0].image_reference,&exception);
          break;
        }
        case 64:  /* Stegano */
        {
          if (!attribute_flag[1])
            argument_list[1].int_reference=0;
          if (!attribute_flag[0])
            {
              MagickError(OptionError,SteganoImageRequired,NULL);
              goto ReturnIt;
            }
          image->offset=argument_list[1].int_reference;
          image=SteganoImage(image,argument_list[0].image_reference,&exception);
          break;
        }
        case 65:  /* Deconstruct */
        {
          image=DeconstructImages(image,&exception);
          break;
        }
        case 66:  /* GaussianBlur */
        {
          double
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=GaussianBlurImage(image,radius,sigma,&exception);
          break;
        }
        case 67:  /* Convolve */
        {
          AV
            *av;

          double
            *kernel;

          unsigned int
            radius;

          if (!attribute_flag[0])
            break;
          av=(AV *) argument_list[0].array_reference;
          radius=(unsigned int) sqrt(av_len(av)+1);
          kernel=MagickAllocateMemory(double *,radius*radius*sizeof(double));
          for (j=0; j < (av_len(av)+1); j++)
            kernel[j]=(double) SvNV(*(av_fetch(av,j,0)));
          for ( ; j < (long) (radius*radius); j++)
            kernel[j]=0.0;
          image=ConvolveImage(image,radius,kernel,&exception);
          MagickFreeMemory(kernel);
          break;
        }
        case 68:  /* Profile */
        {
          if (!attribute_flag[0])
            argument_list[0].string_reference="*";
          if (!attribute_flag[1])
            argument_list[1].string_reference=(const char *) NULL;
          (void) ProfileImage(image,argument_list[0].string_reference,
            (unsigned char *) argument_list[1].string_reference,
            argument_list[1].length,True);
          break;
        }
        case 69:  /* UnsharpMask */
        {
          double
            amount,
            radius,
            sigma,
            threshold;

          radius=0.0;
          sigma=1.0;
          amount=1.0;
          threshold=0.05;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[3])
            amount=argument_list[3].double_reference;
          if (attribute_flag[4])
            threshold=argument_list[4].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf%lf%lf",
              &radius,&sigma,&amount,&threshold);
          image=UnsharpMaskImage(image,radius,sigma,amount,threshold,
            &exception);
          break;
        }
        case 70:  /* MotionBlur */
        {
          double
            angle,
            radius,
            sigma;

          radius=0.0;
          sigma=1.0;
          angle=1.0;
          if (attribute_flag[1])
            radius=argument_list[1].double_reference;
          if (attribute_flag[2])
            sigma=argument_list[2].double_reference;
          if (attribute_flag[3])
            angle=argument_list[3].double_reference;
          if (attribute_flag[0])
            (void) sscanf(argument_list[0].string_reference,"%lfx%lf",
              &radius,&sigma);
          image=MotionBlurImage(image,radius,sigma,angle,&exception);
          break;
        }
        case 71:  /* OrderedDither */
        {
          (void) OrderedDitherImage(image);
          break;
        }
        case 72:  /* Shave */
        {
          if (attribute_flag[0])
            /*flags=*/GetImageGeometry(image,argument_list[0].string_reference,
              False,&geometry);
          if (attribute_flag[1])
            geometry.width=argument_list[1].int_reference;
          if (attribute_flag[2])
            geometry.height=argument_list[2].int_reference;
          image=ShaveImage(image,&geometry,&exception);
          break;
        }
        case 73:  /* Level */
        {
          if (!attribute_flag[1])
            argument_list[1].double_reference=0.0;
          if (!attribute_flag[2])
            argument_list[2].double_reference=1.0;
          if (!attribute_flag[3])
            argument_list[3].double_reference=MaxRGB;
          if (!attribute_flag[0])
            {
              MagickFormatString(message,sizeof(message),"%g,%g,%g",
                argument_list[1].double_reference,
                argument_list[2].double_reference,
                argument_list[3].double_reference);
              argument_list[0].string_reference=message;
            }
          LevelImage(image,argument_list[0].string_reference);
          break;
        }
        case 74:  /* Clip */
        {
          (void) ClipImage(image);
          break;
        }
        case 75:  /* AffineTransform */
        {
          DrawInfo
            *draw_info;

          draw_info=CloneDrawInfo(info ? info->image_info : (ImageInfo *) NULL,
            info ? info->draw_info : (DrawInfo *) NULL);
          if (attribute_flag[0])
            {
              AV
                *av;

              av=(AV *) argument_list[0].array_reference;
              if (av_len(av) >= 1)
                draw_info->affine.sx=(double) SvNV(*(av_fetch(av,0,0)));
              if (av_len(av) >= 2)
                draw_info->affine.rx=(double) SvNV(*(av_fetch(av,1,0)));
              if (av_len(av) >= 3)
                draw_info->affine.ry=(double) SvNV(*(av_fetch(av,2,0)));
              if (av_len(av) >= 4)
                draw_info->affine.sy=(double) SvNV(*(av_fetch(av,3,0)));
              if (av_len(av) >= 5)
                draw_info->affine.tx=(double) SvNV(*(av_fetch(av,4,0)));
              if (av_len(av) >= 6)
                draw_info->affine.ty=(double) SvNV(*(av_fetch(av,5,0)));
            }
          for (j=1; j < 6; j++)
          {
            if (!attribute_flag[j])
              continue;
            value=argument_list[j].string_reference;
            angle=argument_list[j].double_reference;
            current=draw_info->affine;
            IdentityAffine(&affine);
            switch (j)
            {
              case 1:
              {
                /*
                  Translate.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.tx,&affine.ty);
                if (k == 1)
                  affine.ty=affine.tx;
                break;
              }
              case 2:
              {
                /*
                  Scale.
                */
                k=sscanf(value,"%lf%*[,/]%lf",&affine.sx,&affine.sy);
                if (k == 1)
                  affine.sy=affine.sx;
                break;
              }
              case 3:
              {
                /*
                  Rotate.
                */
                if (angle == 0.0)
                  break;
                affine.sx=cos(DegreesToRadians(fmod(angle,360.0)));
                affine.rx=sin(DegreesToRadians(fmod(angle,360.0)));
                affine.ry=(-sin(DegreesToRadians(fmod(angle,360.0))));
                affine.sy=cos(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 4:
              {
                /*
                  SkewX.
                */
                affine.ry=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
              case 5:
              {
                /*
                  SkewY.
                */
                affine.rx=tan(DegreesToRadians(fmod(angle,360.0)));
                break;
              }
            }
            draw_info->affine.sx=current.sx*affine.sx+current.ry*affine.rx;
            draw_info->affine.rx=current.rx*affine.sx+current.sy*affine.rx;
            draw_info->affine.ry=current.sx*affine.ry+current.ry*affine.sy;
            draw_info->affine.sy=current.rx*affine.ry+current.sy*affine.sy;
            draw_info->affine.tx=
              current.sx*affine.tx+current.ry*affine.ty+current.tx;
            draw_info->affine.ty=
              current.rx*affine.tx+current.sy*affine.ty+current.ty;
          }
          image=AffineTransformImage(image,&draw_info->affine,&exception);
          DestroyDrawInfo(draw_info);
          break;
        }
        case 76:  /* Compare */
        {
          if (!attribute_flag[0])
            {
              MagickError(OptionError,ReferenceImageRequired,NULL);
              goto ReturnIt;
            }
          (void) IsImagesEqual(image,argument_list[0].image_reference);
          break;
        }
        case 77:  /* AdaptiveThreshold */
        {
          double
            offset;

          unsigned long
            height,
            width;

          height=3;
          width=3;
          offset=0.0;
          if (attribute_flag[1])
            width=argument_list[1].int_reference;
          if (attribute_flag[2])
            height=argument_list[2].int_reference;
          if (attribute_flag[3])
            offset=argument_list[3].int_reference;;
          if (attribute_flag[0])
            {
              (void) sscanf(argument_list[0].string_reference,"%lux%lu%lf",
                &width,&height,&offset);
               if (strchr(argument_list[0].string_reference,'%') != (const char *) NULL)
                 offset*=(double) MaxRGB/100.0;
            }
          image=AdaptiveThresholdImage(image,width,height,offset,&exception);
          break;
        }
      }
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      if (next != (Image *) NULL)
        (void) CatchImageException(next);
      if (region_image != (Image *) NULL)
        {
          /*unsigned int
            status;*/

          /*
            Composite region.
          */
          /*status=*/CompositeImage(region_image,CopyCompositeOp,image,
            region_info.x,region_info.y);
          (void) CatchImageException(region_image);
          DestroyImage(image);
          image=region_image;
        }
      if (image)
        {
          number_images++;
          if (next && (next != image))
            {
              image->next=next->next;
              next->previous=0;
              DestroyImage(next);
            }
          sv_setiv(*pv,(IV) (magick_uintptr_t)image);
          next=image;
        }
      if (*pv)
        pv++;
    }
    DestroyExceptionInfo(&exception);

  ReturnIt:
    MagickFreeMemory(reference_vector);
    sv_setiv(MY_CXT.error_list,(IV) number_images);
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 6472 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Montage); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Montage)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 6513 "Magick.xs"
  {
    AV
      *av;

    char
      *attribute;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *image,
      *next;

    int
      sp;

    jmp_buf
      error_jmp;

    MontageInfo
      *montage_info;

    PixelPacket
      transparent_color;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *av_reference,
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    attribute=NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    av=newAV();
    av_reference=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    /*
      Get options.
    */
    info=GetPackageInfo(aTHX_ (void *) av,info);
    montage_info=CloneMontageInfo(info->image_info,(MontageInfo *) NULL);
    GetExceptionInfo(&exception);
    (void) QueryColorDatabase("none",&transparent_color,&exception);
    for (i=2; i < items; i+=2)
    {
      attribute=(char *) SvPV(ST(i-1),na);
      switch (*attribute)
      {
        case 'B':
        case 'b':
        {
          if (LocaleCompare(attribute,"background") == 0)
            {
              (void) QueryColorDatabase(SvPV(ST(i),na),
                &montage_info->background_color,&exception);
              break;
            }
          if (LocaleCompare(attribute,"bordercolor") == 0)
            {
              (void) QueryColorDatabase(SvPV(ST(i),na),
                &montage_info->border_color,&exception);
              break;
            }
          if (LocaleCompare(attribute,"borderwidth") == 0)
            {
              montage_info->border_width=SvIV(ST(i));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'C':
        case 'c':
        {
          if (LocaleCompare(attribute,"compose") == 0)
            {
              sp=!SvPOK(ST(i)) ? SvIV(ST(i)) :
                LookupStr(CompositeTypes,SvPV(ST(i),na));
              if (sp < 0)
                {
                  MagickError(OptionError,UnrecognizedType,
                    SvPV(ST(i),na));
                  break;
                }
              for (next=image; next; next=next->next)
                next->compose=(CompositeOperator) sp;
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'F':
        case 'f':
        {
          if (LocaleCompare(attribute,"fill") == 0)
            {
              (void) QueryColorDatabase(SvPV(ST(i),na),&montage_info->fill,
                &exception);
              break;
            }
          if (LocaleCompare(attribute,"font") == 0)
            {
              (void) CloneString(&montage_info->font,SvPV(ST(i),na));
              break;
            }
          if (LocaleCompare(attribute,"frame") == 0)
            {
              char
                *p;

              p=SvPV(ST(i),na);
              if (!IsGeometry(p))
                {
                  MagickError(OptionError,MissingGeometry,p);
                  break;
                }
              (void) CloneString(&montage_info->frame,p);
              if (*p == '\0')
                montage_info->frame=(char *) NULL;
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'G':
        case 'g':
        {
          if (LocaleCompare(attribute,"geometry") == 0)
            {
              char
                *p;

              p=SvPV(ST(i),na);
              if (!IsGeometry(p))
                {
                  MagickError(OptionError,MissingGeometry,p);
                  break;
                }
             (void) CloneString(&montage_info->geometry,p);
             if (*p == '\0')
               montage_info->geometry=(char *) NULL;
             break;
           }
         if (LocaleCompare(attribute,"gravity") == 0)
           {
             int
               in;

             in=!SvPOK(ST(i)) ? SvIV(ST(i)) :
               LookupStr(GravityTypes,SvPV(ST(i),na));
             if (in < 0)
               {
                 MagickError(OptionError,UnrecognizedType,SvPV(ST(i),na));
                 return;
               }
             montage_info->gravity=(GravityType) in;
             for (next=image; next; next=next->next)
               next->gravity=(GravityType) in;
             break;
           }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'L':
        case 'l':
        {
          if (LocaleCompare(attribute,"label") == 0)
            {
              char *translated_text;
              translated_text=TranslateText(info->image_info,image,SvPV(ST(i),na));
              if (translated_text != (char *) NULL)
                {
                  for (next=image; next; next=next->next)
                    (void) SetImageAttribute(next,"label",translated_text);
                  MagickFreeMemory(translated_text);
                }
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'M':
        case 'm':
        {
          if (LocaleCompare(attribute,"mattecolor") == 0)
            {
              (void) QueryColorDatabase(SvPV(ST(i),na),
                &montage_info->matte_color,&exception);
              break;
            }
          if (LocaleCompare(attribute,"mode") == 0)
            {
              int
                in;

              in=!SvPOK(ST(i)) ? SvIV(ST(i)) :
                LookupStr(ModeTypes,SvPV(ST(i),na));
              switch (in)
              {
                default:
                {
                  MagickError(OptionError,UnrecognizedModeType,
                    SvPV(ST(i),na));
                  break;
                }
                case FrameMode:
                {
                  (void) CloneString(&montage_info->frame,"15x15+3+3");
                  montage_info->shadow=True;
                  break;
                }
                case UnframeMode:
                {
                  montage_info->frame=(char *) NULL;
                  montage_info->shadow=False;
                  montage_info->border_width=0;
                  break;
                }
                case ConcatenateMode:
                {
                  montage_info->frame=(char *) NULL;
                  montage_info->shadow=False;
                  (void) CloneString(&montage_info->geometry,"+0+0");
                  montage_info->border_width=0;
                }
              }
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'P':
        case 'p':
        {
          if (LocaleCompare(attribute,"pointsize") == 0)
            {
              montage_info->pointsize=SvIV(ST(i));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'S':
        case 's':
        {
          if (LocaleCompare(attribute,"shadow") == 0)
            {
              sp=!SvPOK(ST(i)) ? SvIV(ST(i)) :
                LookupStr(BooleanTypes,SvPV(ST(i),na));
              if (sp < 0)
                {
                  MagickError(OptionError,UnrecognizedType,SvPV(ST(i),na));
                  break;
                }
             montage_info->shadow=sp != 0;
             break;
            }
          if (LocaleCompare(attribute,"stroke") == 0)
            {
              (void) QueryColorDatabase(SvPV(ST(i),na),&montage_info->stroke,
                &exception);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'T':
        case 't':
        {
          if (LocaleCompare(attribute,"texture") == 0)
            {
              (void) CloneString(&montage_info->texture,SvPV(ST(i),na));
              break;
            }
          if (LocaleCompare(attribute,"tile") == 0)
            {
              char *p=SvPV(ST(i),na);
              if (!IsGeometry(p))
                {
                  MagickError(OptionError,MissingGeometry,p);
                  break;
                }
              (void) CloneString(&montage_info->tile,p);
              if (*p == '\0')
                montage_info->tile=(char *) NULL;
              break;
            }
          if (LocaleCompare(attribute,"title") == 0)
            {
              (void) CloneString(&montage_info->title,SvPV(ST(i),na));
              break;
            }
          if (LocaleCompare(attribute,"transparent") == 0)
            {
              (void) AcquireOnePixelByReference(image,&transparent_color,0,0,&exception);
              QueryColorDatabase(SvPV(ST(i),na),&transparent_color,
                &exception);
              for (next=image; next; next=next->next)
                TransparentImage(next,transparent_color,TransparentOpacity);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
    }
    image=MontageImages(image,montage_info,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    DestroyMontageInfo(montage_info);
    if (transparent_color.opacity != TransparentOpacity)
      for (next=image; next; next=next->next)
        TransparentImage(next,transparent_color,TransparentOpacity);
    for (  ; image; image=image->next)
    {
      sv=newSViv((IV) (magick_uintptr_t)image);
      rv=newRV(sv);
      av_push(av,sv_bless(rv,hv));
      SvREFCNT_dec(sv);
    }
    ST(0)=av_reference;
    MY_CXT.error_jump=NULL;
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 6863 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Morph); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Morph)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 6906 "Magick.xs"
  {
    AV
      *av;

    char
      *attribute;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *image;

    jmp_buf
      error_jmp;

    int
      number_frames;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *av_reference,
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    av=NULL;
    status=0;
    attribute=NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    av=newAV();
    av_reference=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    info=GetPackageInfo(aTHX_ (void *) av,info);
    /*
      Get attribute.
    */
    number_frames=30;
    for (i=2; i < items; i+=2)
    {
      attribute=(char *) SvPV(ST(i-1),na);
      switch (*attribute)
      {
        case 'F':
        case 'f':
        {
          if (LocaleCompare(attribute,"frames") == 0)
            {
              number_frames=SvIV(ST(i));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
    }
    GetExceptionInfo(&exception);
    image=MorphImages(image,number_frames,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      sv=newSViv((IV) (magick_uintptr_t)image);
      rv=newRV(sv);
      av_push(av,sv_bless(rv,hv));
      SvREFCNT_dec(sv);
    }
    ST(0)=av_reference;
    MY_CXT.error_jump=NULL;
    SvREFCNT_dec(MY_CXT.error_list);  /* can't return warning messages */
    MY_CXT.error_list=NULL;
    XSRETURN(1);

  MethodException:
    MY_CXT.error_jump=NULL;
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 6999 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Mosaic); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Mosaic)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "ref");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7044 "Magick.xs"
  {
    AV
      *av;

    ExceptionInfo
      exception;

    HV
      *hv;

    jmp_buf
      error_jmp;

    Image
      *image;

    struct PackageInfo
      *info;

    SV
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    status=0;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    GetExceptionInfo(&exception);
    image=MosaicImages(image,&exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    /*
      Create blessed Perl array for the returned image.
    */
    av=newAV();
    ST(0)=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    sv=newSViv((IV) (magick_uintptr_t)image);
    rv=newRV(sv);
    av_push(av,sv_bless(rv,hv));
    SvREFCNT_dec(sv);
    info=GetPackageInfo(aTHX_ (void *) av,info);
    (void) MagickStrlCpy(image->filename,info->image_info->filename,sizeof(image->filename));
    SetImageInfo(info->image_info,SETMAGICK_WRITE,&image->exception);
    if (exception.severity != UndefinedException)
      CatchException(&exception);
    DestroyExceptionInfo(&exception);
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_jump=NULL;
    XSRETURN(1);

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);  /* return messages in string context */
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 7097 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Ping); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Ping)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7144 "Magick.xs"
  {
    AV
      *av;

    char
      **keep,
      **list,
      message[MaxTextExtent];

    ExceptionInfo
      exception;

    /*
    HV
      *hv;
      */

    Image
      *image,
      *next;

    int
      ac,
      n;

    jmp_buf
      error_jmp;

    register char
      **p;

    register int
      i;

    struct PackageInfo
      *info,
      *package_info;

    SV
      *reference;

    unsigned int
      status;

    long
      count;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    package_info=(struct PackageInfo *) NULL;
    ac=(items < 2) ? 1 : items-1;
    list=MagickAllocateMemory(char **,(ac+1)*sizeof(*list));
    reference=SvRV(ST(0));
    /* hv= SvSTASH(reference); */
    av=(AV *) reference;
    info=GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
    package_info=ClonePackageInfo(info);
    n=1;
    if (items <= 1)
      *list=(char *) (*package_info->image_info->filename ?
        package_info->image_info->filename : "XC:black");
    else
      for (n=0, i=0; i < ac; i++)
      {
        STRLEN
          length;

        list[n]=(char *) SvPV(ST(i+1),length);
        if ((items >= 3) && strEQcase(list[n],"blob"))
          {
            package_info->image_info->blob=(void *) (SvPV(ST(i+2),length));
            package_info->image_info->length=(size_t) length;
            continue;
          }
        if ((items >= 3) && strEQcase(list[n],"filename"))
          continue;
        if ((items >= 3) && strEQcase(list[n],"file"))
          {
            package_info->image_info->file=
              PerlIO_findFILE(IoIFP(sv_2io(ST(i+2))));
            continue;
          }
        n++;
      }
    list[n]=(char *) NULL;
    keep=list;
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto ReturnIt;
    status=ExpandFilenames(&n,&list);
    if (status == False)
      {
        MagickError(ResourceLimitError,MemoryAllocationFailed,NULL);
        goto ReturnIt;
      }
    count=0;
    GetExceptionInfo(&exception);
    for (i=0; i < n; i++)
    {
      (void) MagickStrlCpy(package_info->image_info->filename,list[i],
                           sizeof(package_info->image_info->filename));
      image=PingImage(package_info->image_info,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      count+=GetImageListLength(image);
      EXTEND(sp,(SSize_t)4*count);
      for (next=image; next; next=next->next)
      {
        MagickFormatString(message,sizeof(message),"%lu",next->columns);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%lu",next->rows);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%lu",(unsigned long) GetBlobSize(next));
        PUSHs(sv_2mortal(newSVpv(message,0)));
        PUSHs(sv_2mortal(newSVpv(next->magick,0)));
      }
      DestroyImageList(image);
    }
    DestroyExceptionInfo(&exception);
    /*
      Free resources.
    */
    for (i=0; i < n; i++)
      if (list[i])
        for (p=keep; list[i] != *p++; )
          if (*p == NULL)
            {
              MagickFreeMemory(list[i]);
              break;
            }

  ReturnIt:
    if (package_info)
      DestroyPackageInfo(package_info);
    MagickFreeMemory(list);
    SvREFCNT_dec(MY_CXT.error_list);  /* throw away all errors */
    MY_CXT.error_list=NULL;
  }
#line 7254 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_QueryColor); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_QueryColor)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7301 "Magick.xs"
  {
    char
      *name,
      message[MaxTextExtent];

    ExceptionInfo
      exception;

    PixelPacket
      color;

    register int
      i;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (items == 1)
      {
        char
          **colorlist;

        unsigned long
          colors;

        colorlist=GetColorList("*",&colors);
        EXTEND(sp,(SSize_t)colors);
        for (i=0; i < (SSize_t)colors; i++)
        {
          PUSHs(sv_2mortal(newSVpv(colorlist[i],0)));
          MagickFreeMemory(colorlist[i]);
        }
        MagickFreeMemory(colorlist);
        goto MethodException;
      }
    EXTEND(sp,(SSize_t)4*items);
    GetExceptionInfo(&exception);
    for (i=1; i < items; i++)
    {
      name=(char *) SvPV(ST(i),na);
      if (!QueryColorDatabase(name,&color,&exception))
        {
          PUSHs(&sv_undef);
          continue;
        }
      MagickFormatString(message,sizeof(message),"%u",color.red);
      PUSHs(sv_2mortal(newSVpv(message,0)));
      MagickFormatString(message,sizeof(message),"%u",color.green);
      PUSHs(sv_2mortal(newSVpv(message,0)));
      MagickFormatString(message,sizeof(message),"%u",color.blue);
      PUSHs(sv_2mortal(newSVpv(message,0)));
      MagickFormatString(message,sizeof(message),"%u",color.opacity);
      PUSHs(sv_2mortal(newSVpv(message,0)));
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
  }
#line 7332 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_QueryColorname); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_QueryColorname)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7379 "Magick.xs"
  {
    AV
      *av;

    char
      message[MaxTextExtent];

    ExceptionInfo
      exception;

    Image
      *image;

    PixelPacket
      target_color;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    reference=SvRV(ST(0));
    av=(AV *) reference;
    info=GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    EXTEND(sp,items);
    GetExceptionInfo(&exception);
    for (i=1; i < items; i++)
    {
      (void) QueryColorDatabase(SvPV(ST(i),na),&target_color,&exception);
      (void) QueryColorname(image,&target_color,SVGCompliance,message,
        &image->exception);
      PUSHs(sv_2mortal(newSVpv(message,0)));
    }
    DestroyExceptionInfo(&exception);
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
  }
#line 7395 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_QueryFont); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_QueryFont)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7442 "Magick.xs"
  {
    char
      *name,
      message[MaxTextExtent];

    ExceptionInfo
      exception;

    register int
      i;

    volatile const TypeInfo
      *type_info;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (items == 1)
      {
        char
          **typelist;

        unsigned long
          types;

        typelist=GetTypeList("*",&types);
        EXTEND(sp,(SSize_t)types);
        for (i=0; i < (long) types; i++)
        {
          PUSHs(sv_2mortal(newSVpv(typelist[i],0)));
          MagickFreeMemory(typelist[i]);
        }
        MagickFreeMemory(typelist);
        goto MethodException;
      }
    EXTEND(sp,(SSize_t)10*items);
    GetExceptionInfo(&exception);
    for (i=1; i < items; i++)
    {
      name=(char *) SvPV(ST(i),na);
      type_info=GetTypeInfo(name,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      if (type_info == (TypeInfo *) NULL)
        {
          PUSHs(&sv_undef);
          continue;
        }
      if (type_info->name == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->name,0)));
      if (type_info->description == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->description,0)));
      if (type_info->family == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->family,0)));
      PUSHs(sv_2mortal(newSVpv(StyleTypes[(long) type_info->style],0)));
      PUSHs(sv_2mortal(newSVpv(StretchTypes[(long) type_info->stretch],0)));
      MagickFormatString(message,sizeof(message),"%lu",type_info->weight);
      PUSHs(sv_2mortal(newSVpv(message,0)));
      if (type_info->encoding == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->encoding,0)));
      if (type_info->foundry == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->foundry,0)));
      if (type_info->format == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->format,0)));
      if (type_info->metrics == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->metrics,0)));
      if (type_info->glyphs == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(type_info->glyphs,0)));
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
  }
#line 7504 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_QueryFontMetrics); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_QueryFontMetrics)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7551 "Magick.xs"
  {
    AffineMatrix
      affine,
      current;

    AV
      *av;

    char
      *attribute,
      message[MaxTextExtent];

    double
      x,
      y;

    DrawInfo
      *draw_info;

    Image
      *image;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    TypeMetric
      metrics;

    unsigned int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    reference=SvRV(ST(0));
    av=(AV *) reference;
    info=GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    draw_info=CloneDrawInfo(info->image_info,info->draw_info);
    CloneString(&draw_info->text,"");
    current=draw_info->affine;
    IdentityAffine(&affine);
    x=0.0;
    y=0.0;
    EXTEND(sp,7*items);
    for (i=2; i < items; i+=2)
    {
      attribute=(char *) SvPV(ST(i-1),na);
      switch (*attribute)
      {
        case 'd':
        case 'D':
        {
          if (LocaleCompare(attribute,"density") == 0)
            {
              CloneString(&draw_info->density,SvPV(ST(i),na));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'e':
        case 'E':
        {
          if (LocaleCompare(attribute,"encoding") == 0)
            {
              CloneString(&draw_info->encoding,SvPV(ST(i),na));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'f':
        case 'F':
        {
          if (LocaleCompare(attribute,"font") == 0)
            {
              CloneString(&draw_info->font,SvPV(ST(i),na));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'g':
        case 'G':
        {
          if (LocaleCompare(attribute,"geometry") == 0)
            {
              CloneString(&draw_info->geometry,SvPV(ST(i),na));
              break;
            }
          if (LocaleCompare(attribute,"gravity") == 0)
            {
              draw_info->gravity=(GravityType)
                LookupStr(GravityTypes,SvPV(ST(i),na));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'p':
        case 'P':
        {
          if (LocaleCompare(attribute,"pointsize") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf",&draw_info->pointsize);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'r':
        case 'R':
        {
          if (LocaleCompare(attribute,"rotate") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf%*[,/]%lf",&affine.rx,
                &affine.ry);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 's':
        case 'S':
        {
          if (LocaleCompare(attribute,"scale") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf%*[,/]%lf",&affine.sx,
                &affine.sy);
              break;
            }
          if (LocaleCompare(attribute,"skew") == 0)
            {
              double
                x_angle,
                y_angle;

              x_angle=0.0;
              y_angle=0.0;
              (void) sscanf(SvPV(ST(i),na),"%lf%*[,/]%lf",&x_angle,&y_angle);
              affine.ry=tan(DegreesToRadians(fmod(x_angle,360.0)));
              affine.rx=tan(DegreesToRadians(fmod(y_angle,360.0)));
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 't':
        case 'T':
        {
          if (LocaleCompare(attribute,"text") == 0)
            {
              CloneString(&draw_info->text,SvPV(ST(i),na));
              break;
            }
          if (LocaleCompare(attribute,"translate") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf%*[,/]%lf",&affine.tx,
                &affine.ty);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'x':
        case 'X':
        {
          if (LocaleCompare(attribute,"x") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf",&x);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'y':
        case 'Y':
        {
          if (LocaleCompare(attribute,"y") == 0)
            {
              (void) sscanf(SvPV(ST(i),na),"%lf",&y);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
    }
    draw_info->affine.sx=current.sx*affine.sx+current.ry*affine.rx;
    draw_info->affine.rx=current.rx*affine.sx+current.sy*affine.rx;
    draw_info->affine.ry=current.sx*affine.ry+current.ry*affine.sy;
    draw_info->affine.sy=current.rx*affine.ry+current.sy*affine.sy;
    draw_info->affine.tx=current.sx*affine.tx+current.ry*affine.ty+current.tx;
    draw_info->affine.ty=current.rx*affine.tx+current.sy*affine.ty+current.ty;
    if (draw_info->geometry == (char *) NULL)
      {
        draw_info->geometry=AllocateString((char *) NULL);
        MagickFormatString(draw_info->geometry,MaxTextExtent,"%g,%g",x,y);
      }
    status=GetTypeMetrics(image,draw_info,&metrics);
    (void) CatchImageException(image);
    if (status == False)
      PUSHs(&sv_undef);
    else
      {
        MagickFormatString(message,sizeof(message),"%g",metrics.pixels_per_em.x);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.pixels_per_em.y);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.ascent);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.descent);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.width);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.height);
        PUSHs(sv_2mortal(newSVpv(message,0)));
        MagickFormatString(message,sizeof(message),"%g",metrics.max_advance);
        PUSHs(sv_2mortal(newSVpv(message,0)));
      }
    DestroyDrawInfo(draw_info);

  MethodException:
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
  }
#line 7765 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_QueryFormat); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_QueryFormat)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7812 "Magick.xs"
  {
    char
      message[MaxTextExtent],
      *name;

    ExceptionInfo
      exception;

    register long
      i;

    volatile const MagickInfo
      *magick_info;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    GetExceptionInfo(&exception);
    if (items == 1)
      {
        register volatile const MagickInfo
          *p;

        magick_info=GetMagickInfo("*",&exception);
        if (magick_info == (const MagickInfo *) NULL)
          {
            PUSHs(&sv_undef);
            goto MethodException;
          }
        i=0;
        for (p=magick_info; p != (MagickInfo *) NULL; p=p->next)
          i++;
        EXTEND(sp,i);
        for (p=magick_info; p != (MagickInfo *) NULL; p=p->next)
        {
          if (p->stealth)
            continue;
          if (p->name == (char *) NULL)
            {
              PUSHs(&sv_undef);
              continue;
            }
          (void) MagickStrlCpy(message,p->name,sizeof(message));
          LocaleLower(message);
          PUSHs(sv_2mortal(newSVpv(message,0)));
        }
        goto MethodException;
      }
    EXTEND(sp,8*items);
    for (i=1; i < items; i++)
    {
      name=(char *) SvPV(ST(i),na);
      magick_info=GetMagickInfo(name,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      if (magick_info == (const MagickInfo *) NULL)
        {
          PUSHs(&sv_undef);
          continue;
        }
      PUSHs(sv_2mortal(newSVpv(magick_info->adjoin ? "1" : "0",0)));
      PUSHs(sv_2mortal(newSVpv(magick_info->blob_support ? "1" : "0",0)));
      PUSHs(sv_2mortal(newSVpv(magick_info->raw ? "1" : "0",0)));
      PUSHs(sv_2mortal(newSVpv(magick_info->decoder ? "1" : "0",0)));
      PUSHs(sv_2mortal(newSVpv(magick_info->encoder ? "1" : "0",0)));
      if (magick_info->description == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(magick_info->description,0)));
      if (magick_info->module == (char *) NULL)
        PUSHs(&sv_undef);
      else
        PUSHs(sv_2mortal(newSVpv(magick_info->module,0)));
    }
    DestroyExceptionInfo(&exception);

  MethodException:
    SvREFCNT_dec(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
  }
#line 7863 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Read); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Read)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 7912 "Magick.xs"
  {
    AV
      *av;

    char
      **keep,
      **list;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *image;

    int
      ac,
      n;

    jmp_buf
      error_jmp;

    register char
      **p;

    register int
      i;

    struct PackageInfo
      *info,
      *package_info;

    SV
      *reference,
      *rv,
      *sv;

    unsigned int
      status;

    volatile int
      number_images;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    package_info=(struct PackageInfo *) NULL;
    number_images=0;
    ac=(items < 2) ? 1 : items-1;
    list=MagickAllocateMemory(char **,(ac+1)*sizeof(*list));
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto ReturnIt;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    if (SvTYPE(reference) != SVt_PVAV)
      {
        MagickError(OptionError,ReferenceIsNotMyType,NULL);
        goto ReturnIt;
      }
    av=(AV *) reference;
    info=GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
    package_info=ClonePackageInfo(info);
    n=1;
    if (items <= 1)
      *list=(char *) (*package_info->image_info->filename ?
        package_info->image_info->filename : "XC:black");
    else
      for (n=0, i=0; i < ac; i++)
      {
        list[n]=(char *) SvPV(ST(i+1),na);
        if ((items >= 3) &&
            strEQcase(package_info->image_info->filename,"blob"))
          {
            STRLEN
              length;

            i++;
            package_info->image_info->blob=(void *) (SvPV(ST(i),length));
            package_info->image_info->length=length;
          }
        if ((items >= 3) && strEQcase(list[n],"filename"))
          continue;
        if ((items >= 3) && strEQcase(list[n],"file"))
          {
            package_info->image_info->file=
              PerlIO_findFILE(IoIFP(sv_2io(ST(i+2))));
            continue;
          }
        n++;
      }
    list[n]=(char *) NULL;
    keep=list;
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto ReturnIt;
#if 1
    status=ExpandFilenames(&n,&list); /* FIXME: Leaks original 16-byte list allocation! */
    if (status == False)
      {
        MagickError(ResourceLimitError,MemoryAllocationFailed,NULL);
        goto ReturnIt;
      }
#endif
    GetExceptionInfo(&exception);
    number_images=0;
    for (i=0; i < n; i++)
    {
      (void) MagickStrlCpy(package_info->image_info->filename,list[i],
                           sizeof(package_info->image_info->filename));
      image=ReadImage(package_info->image_info,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      for ( ; image; image=image->next)
      {
        sv=newSViv((IV) (magick_uintptr_t)image);
        rv=newRV(sv);
        av_push(av,sv_bless(rv,hv));
        SvREFCNT_dec(sv);
        number_images++;
      }
    }
    DestroyExceptionInfo(&exception);
    /*
      Free resources.
    */
    for (i=0; i < n; i++)
      if (list[i])
        for (p=keep; list[i] != *p++; )
          if (*p == NULL)
            {
              MagickFreeMemory(list[i]);
              break;
            }

  ReturnIt:
    if (package_info)
      DestroyPackageInfo(package_info);
    MagickFreeMemory(list);
    sv_setiv(MY_CXT.error_list,(IV) number_images);
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 8031 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Remote); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Remote)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 8082 "Magick.xs"
  {
    AV
      *av;

    SV
      *reference;

    /*struct PackageInfo
     *info;*/

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    reference=SvRV(ST(0));
    av=(AV *) reference;
    /*info=*/GetPackageInfo(aTHX_ (void *) av,(struct PackageInfo *) NULL);
#if defined(XlibSpecificationRelease)
    {
      Display
        *display;

      register int
        i;

      display=XOpenDisplay(info->image_info->server_name);
      for (i=1; i < items; i++)
        XRemoteCommand(display,(char *) NULL,(char *) SvPV(ST(i),na));
    }
#endif
    SvREFCNT_dec(MY_CXT.error_list);    /* throw away all errors */
    MY_CXT.error_list=NULL;
  }
#line 8081 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Set); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Set)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 8136 "Magick.xs"
  {
    Image
      *image;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *reference;  /* reference is the SV* of ref=SvIV(reference) */

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (items == 2)
      SetAttribute(aTHX_ info,image,"size",ST(1));
    else
      for (i=2; i < items; i+=2)
        SetAttribute(aTHX_ info,image,SvPV(ST(i-1),na),ST(i));

  MethodException:
    sv_setiv(MY_CXT.error_list,(IV) (SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    XSRETURN(1);
  }
#line 8135 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Transform); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Transform)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 8192 "Magick.xs"
  {
    AV
      *av;

    char
      *attribute,
      *crop_geometry,
      *geometry;

    ExceptionInfo
      exception;

    HV
      *hv;

    Image
      *clone,
      *image;

    jmp_buf
      error_jmp;

    register int
      i;

    struct PackageInfo
      *info;

    SV
      *av_reference,
      *reference,
      *rv,
      *sv;

    volatile int
      status;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    av=NULL;
    status=0;
    attribute=NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    hv=SvSTASH(reference);
    av=newAV();
    av_reference=sv_2mortal(sv_bless(newRV((SV *) av),hv));
    SvREFCNT_dec(av);
    MY_CXT.error_jump=(&error_jmp);
    status=setjmp(error_jmp);
    if (status)
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    info=GetPackageInfo(aTHX_ (void *) av,info);
    /*
      Get attribute.
    */
    crop_geometry=(char *) NULL;
    geometry=(char *) NULL;
    for (i=2; i < items; i+=2)
    {
      attribute=(char *) SvPV(ST(i-1),na);
      switch (*attribute)
      {
        case 'c':
        case 'C':
        {
          if (LocaleCompare(attribute,"crop") == 0)
            {
              crop_geometry=SvPV(ST(i),na);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        case 'g':
        case 'G':
        {
          if (LocaleCompare(attribute,"geometry") == 0)
            {
              geometry=SvPV(ST(i),na);
              break;
            }
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
        default:
        {
          MagickError(OptionError,UnrecognizedAttribute,attribute);
          break;
        }
      }
    }
    GetExceptionInfo(&exception);
    for ( ; image; image=image->next)
    {
      clone=CloneImage(image,0,0,True,&exception);
      if (exception.severity != UndefinedException)
        CatchException(&exception);
      if (clone == (Image *) NULL)
        goto MethodException;
      TransformImage(&clone,crop_geometry,geometry);
      (void) CatchImageException(clone);
      for ( ; clone; clone=clone->next)
      {
        sv=newSViv((IV) (magick_uintptr_t)clone);
        rv=newRV(sv);
        av_push(av,sv_bless(rv,hv));
        SvREFCNT_dec(sv);
      }
    }
    DestroyExceptionInfo(&exception);
    ST(0)=av_reference;
    MY_CXT.error_jump=NULL;
    SvREFCNT_dec(MY_CXT.error_list);  /* can't return warning messages */
    MY_CXT.error_list=NULL;
    XSRETURN(1);

  MethodException:
    MY_CXT.error_jump=NULL;
    sv_setiv(MY_CXT.error_list,(IV) (status ? status : SvCUR(MY_CXT.error_list) != 0));
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
#line 8290 "Magick.c"
	PUTBACK;
	return;
    }
}


XS_EUPXS(XS_Graphics__Magick_Write); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Graphics__Magick_Write)
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "ref, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Graphics__Magick	ref;
#line 8349 "Magick.xs"
  {
    char
      filename[MaxTextExtent];

    Image
      *image,
      *next;

    int
      scene;

    register int
      i;

    jmp_buf
      error_jmp;

    struct PackageInfo
      *info,
      *package_info;

    SV
      *reference;

    volatile int
      number_images;

    dMY_CXT;
    MY_CXT.error_list=newSVpv("",0);
    number_images=0;
    package_info=(struct PackageInfo *) NULL;
    if (!sv_isobject(ST(0)))
      {
        MagickError(OptionError,ReferenceIsNotMyType,PackageName);
        goto MethodException;
      }
    reference=SvRV(ST(0));
    MY_CXT.error_jump=(&error_jmp);
    if (setjmp(error_jmp))
      goto MethodException;
    image=SetupList(aTHX_ reference,&info,(SV ***) NULL);
    if (!image)
      {
        MagickError(OptionError,NoImagesDefined,NULL);
        goto MethodException;
      }
    package_info=ClonePackageInfo(info);
    if (items == 2)
      SetAttribute(aTHX_ package_info,NULL,"filename",ST(1));
    else
      if (items > 2)
        for (i=2; i < items; i+=2)
          SetAttribute(aTHX_ package_info,image,SvPV(ST(i-1),na),ST(i));
    (void) MagickStrlCpy(filename,package_info->image_info->filename,sizeof(filename));
    scene=0;
    for (next=image; next; next=next->next)
    {
      (void) MagickStrlCpy(next->filename,filename,sizeof(next->filename));
      next->scene=scene++;
    }
    (void) SetImageInfo(package_info->image_info,
                        (SETMAGICK_WRITE |
                         (!package_info->image_info->adjoin ? SETMAGICK_RECTIFY: 0U)),
                        &image->exception);
    for (next=image; next; next=next->next)
    {
      (void) WriteImage(package_info->image_info,next);
      (void) CatchImageException(next);
      number_images++;
      if (package_info->image_info->adjoin)
        break;
    }
    package_info->image_info->file=(FILE *) NULL;

  MethodException:
    if (package_info)
      DestroyPackageInfo(package_info);
    sv_setiv(MY_CXT.error_list,(IV) number_images);
    SvPOK_on(MY_CXT.error_list);
    ST(0)=sv_2mortal(MY_CXT.error_list);
    MY_CXT.error_list=NULL;
    MY_CXT.error_jump=NULL;
    XSRETURN(1);
  }
/*
#if (defined(__GNUC__) && __GNUC__ >= 5)
#pragma GCC diagnostic pop
#endif
*/
#line 8398 "Magick.c"
	PUTBACK;
	return;
    }
}

#ifdef __cplusplus
extern "C" {
#endif
XS_EXTERNAL(boot_Graphics__Magick); /* prototype to pass -Wmissing-prototypes */
XS_EXTERNAL(boot_Graphics__Magick)
{
#if PERL_VERSION_LE(5, 21, 5)
    dVAR; dXSARGS;
#else
    dVAR; dXSBOOTARGSXSAPIVERCHK;
#endif
#if PERL_VERSION_LE(5, 8, 999) /* PERL_VERSION_LT is 5.33+ */
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

    PERL_UNUSED_VAR(file);

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
#if PERL_VERSION_LE(5, 21, 5)
    XS_VERSION_BOOTCHECK;
#  ifdef XS_APIVERSION_BOOTCHECK
    XS_APIVERSION_BOOTCHECK;
#  endif
#endif

    {
        CV * cv;

        (void)newXSproto_portable("Graphics::Magick::constant", XS_Graphics__Magick_constant, file, "$$");
        cv = newXSproto_portable("Graphics::Magick::AccessDefinition", XS_Graphics__Magick_AccessDefinition, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::GetDefinition", XS_Graphics__Magick_AccessDefinition, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::accessdefinition", XS_Graphics__Magick_AccessDefinition, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::getdefinition", XS_Graphics__Magick_AccessDefinition, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::AddDefinition", XS_Graphics__Magick_AddDefinition, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::SetDefinition", XS_Graphics__Magick_AddDefinition, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::adddefinition", XS_Graphics__Magick_AddDefinition, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::setdefinition", XS_Graphics__Magick_AddDefinition, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::AddDefinitions", XS_Graphics__Magick_AddDefinitions, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::SetDefinitions", XS_Graphics__Magick_AddDefinitions, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::adddefinitions", XS_Graphics__Magick_AddDefinitions, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::setdefinitions", XS_Graphics__Magick_AddDefinitions, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::RemoveDefinitions", XS_Graphics__Magick_RemoveDefinitions, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::removedefinitions", XS_Graphics__Magick_RemoveDefinitions, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::Animate", XS_Graphics__Magick_Animate, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::AnimateImage", XS_Graphics__Magick_Animate, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::animate", XS_Graphics__Magick_Animate, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::animateimage", XS_Graphics__Magick_Animate, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Append", XS_Graphics__Magick_Append, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::AppendImage", XS_Graphics__Magick_Append, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::append", XS_Graphics__Magick_Append, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::appendimage", XS_Graphics__Magick_Append, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Average", XS_Graphics__Magick_Average, file, "$");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::AverageImage", XS_Graphics__Magick_Average, file, "$");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::average", XS_Graphics__Magick_Average, file, "$");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::averageimage", XS_Graphics__Magick_Average, file, "$");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::BlobToImage", XS_Graphics__Magick_BlobToImage, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::blobto", XS_Graphics__Magick_BlobToImage, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::blobtoimage", XS_Graphics__Magick_BlobToImage, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::Coalesce", XS_Graphics__Magick_Coalesce, file, "$");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::CoalesceImage", XS_Graphics__Magick_Coalesce, file, "$");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::coalesce", XS_Graphics__Magick_Coalesce, file, "$");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::coalesceimage", XS_Graphics__Magick_Coalesce, file, "$");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Clone", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 7;
        cv = newXSproto_portable("Graphics::Magick::CloneImage", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 4;
        cv = newXSproto_portable("Graphics::Magick::Copy", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::CopyImage", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::clone", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 5;
        cv = newXSproto_portable("Graphics::Magick::cloneimage", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 6;
        cv = newXSproto_portable("Graphics::Magick::copy", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::copyimage", XS_Graphics__Magick_Copy, file, "$");
        XSANY.any_i32 = 3;
        (void)newXSproto_portable("Graphics::Magick::DESTROY", XS_Graphics__Magick_DESTROY, file, "$");
        cv = newXSproto_portable("Graphics::Magick::Display", XS_Graphics__Magick_Display, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::DisplayImage", XS_Graphics__Magick_Display, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::display", XS_Graphics__Magick_Display, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::displayimage", XS_Graphics__Magick_Display, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Flatten", XS_Graphics__Magick_Flatten, file, "$");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::FlattenImage", XS_Graphics__Magick_Flatten, file, "$");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::flatten", XS_Graphics__Magick_Flatten, file, "$");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::flattenimage", XS_Graphics__Magick_Flatten, file, "$");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Get", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::GetAttribute", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::GetAttributes", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::get", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::getattribute", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 5;
        cv = newXSproto_portable("Graphics::Magick::getattributes", XS_Graphics__Magick_Get, file, "$;@");
        XSANY.any_i32 = 4;
        cv = newXSproto_portable("Graphics::Magick::ImageToBlob", XS_Graphics__Magick_ImageToBlob, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::blob", XS_Graphics__Magick_ImageToBlob, file, "$;@");
        XSANY.any_i32 = 4;
        cv = newXSproto_portable("Graphics::Magick::imagetoblob", XS_Graphics__Magick_ImageToBlob, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::toblob", XS_Graphics__Magick_ImageToBlob, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::AdaptiveThreshold", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 153;
        cv = newXSproto_portable("Graphics::Magick::AdaptiveThresholdImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 154;
        cv = newXSproto_portable("Graphics::Magick::AddNoise", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 5;
        cv = newXSproto_portable("Graphics::Magick::AddNoiseImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 6;
        cv = newXSproto_portable("Graphics::Magick::AffineTransform", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 149;
        cv = newXSproto_portable("Graphics::Magick::AffineTransformImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 150;
        cv = newXSproto_portable("Graphics::Magick::Annotate", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 65;
        cv = newXSproto_portable("Graphics::Magick::AnnotateImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 66;
        cv = newXSproto_portable("Graphics::Magick::Blur", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 11;
        cv = newXSproto_portable("Graphics::Magick::BlurImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 12;
        cv = newXSproto_portable("Graphics::Magick::Border", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 9;
        cv = newXSproto_portable("Graphics::Magick::BorderImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 10;
        cv = newXSproto_portable("Graphics::Magick::Channel", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 121;
        cv = newXSproto_portable("Graphics::Magick::ChannelImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 122;
        cv = newXSproto_portable("Graphics::Magick::Charcoal", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 115;
        cv = newXSproto_portable("Graphics::Magick::CharcoalImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 116;
        cv = newXSproto_portable("Graphics::Magick::Chop", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 13;
        cv = newXSproto_portable("Graphics::Magick::ChopImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 14;
        cv = newXSproto_portable("Graphics::Magick::Clip", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 147;
        cv = newXSproto_portable("Graphics::Magick::ClipImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 148;
        cv = newXSproto_portable("Graphics::Magick::ColorFloodfill", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 67;
        cv = newXSproto_portable("Graphics::Magick::ColorFloodfillImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 68;
        cv = newXSproto_portable("Graphics::Magick::Colorize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 7;
        cv = newXSproto_portable("Graphics::Magick::ColorizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 8;
        cv = newXSproto_portable("Graphics::Magick::Comment", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::CommentImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::Compare", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 151;
        cv = newXSproto_portable("Graphics::Magick::CompareImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 152;
        cv = newXSproto_portable("Graphics::Magick::Composite", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 69;
        cv = newXSproto_portable("Graphics::Magick::CompositeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 70;
        cv = newXSproto_portable("Graphics::Magick::Contrast", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 71;
        cv = newXSproto_portable("Graphics::Magick::ContrastImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 72;
        cv = newXSproto_portable("Graphics::Magick::Convolve", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 133;
        cv = newXSproto_portable("Graphics::Magick::ConvolveImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 134;
        cv = newXSproto_portable("Graphics::Magick::Crop", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 15;
        cv = newXSproto_portable("Graphics::Magick::CropImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 16;
        cv = newXSproto_portable("Graphics::Magick::CycleColormap", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 73;
        cv = newXSproto_portable("Graphics::Magick::CycleColormapImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 74;
        cv = newXSproto_portable("Graphics::Magick::Deconstruct", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 129;
        cv = newXSproto_portable("Graphics::Magick::DeconstructImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 130;
        cv = newXSproto_portable("Graphics::Magick::Despeckle", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 17;
        cv = newXSproto_portable("Graphics::Magick::DespeckleImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 18;
        cv = newXSproto_portable("Graphics::Magick::Draw", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 75;
        cv = newXSproto_portable("Graphics::Magick::DrawImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 76;
        cv = newXSproto_portable("Graphics::Magick::Edge", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 19;
        cv = newXSproto_portable("Graphics::Magick::EdgeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 20;
        cv = newXSproto_portable("Graphics::Magick::Emboss", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 21;
        cv = newXSproto_portable("Graphics::Magick::EmbossImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 22;
        cv = newXSproto_portable("Graphics::Magick::Enhance", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 23;
        cv = newXSproto_portable("Graphics::Magick::EnhanceImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 24;
        cv = newXSproto_portable("Graphics::Magick::Equalize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 77;
        cv = newXSproto_portable("Graphics::Magick::EqualizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 78;
        cv = newXSproto_portable("Graphics::Magick::Flip", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 25;
        cv = newXSproto_portable("Graphics::Magick::FlipImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 26;
        cv = newXSproto_portable("Graphics::Magick::Flop", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 27;
        cv = newXSproto_portable("Graphics::Magick::FlopImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 28;
        cv = newXSproto_portable("Graphics::Magick::Frame", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 29;
        cv = newXSproto_portable("Graphics::Magick::FrameImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 30;
        cv = newXSproto_portable("Graphics::Magick::Gamma", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 79;
        cv = newXSproto_portable("Graphics::Magick::GammaImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 80;
        cv = newXSproto_portable("Graphics::Magick::GaussianBlur", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 131;
        cv = newXSproto_portable("Graphics::Magick::GaussianBlurImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 132;
        cv = newXSproto_portable("Graphics::Magick::Implode", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 31;
        cv = newXSproto_portable("Graphics::Magick::ImplodeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 32;
        cv = newXSproto_portable("Graphics::Magick::Label", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::LabelImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 4;
        cv = newXSproto_portable("Graphics::Magick::Level", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 145;
        cv = newXSproto_portable("Graphics::Magick::LevelImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 146;
        cv = newXSproto_portable("Graphics::Magick::Magnify", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 33;
        cv = newXSproto_portable("Graphics::Magick::MagnifyImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 34;
        cv = newXSproto_portable("Graphics::Magick::Map", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 81;
        cv = newXSproto_portable("Graphics::Magick::MapImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 82;
        cv = newXSproto_portable("Graphics::Magick::MatteFloodfill", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 83;
        cv = newXSproto_portable("Graphics::Magick::MatteFloodfillImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 84;
        cv = newXSproto_portable("Graphics::Magick::MedianFilter", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 35;
        cv = newXSproto_portable("Graphics::Magick::MedianFilterImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 36;
        cv = newXSproto_portable("Graphics::Magick::Minify", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 37;
        cv = newXSproto_portable("Graphics::Magick::MinifyImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 38;
        cv = newXSproto_portable("Graphics::Magick::Modulate", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 85;
        cv = newXSproto_portable("Graphics::Magick::ModulateImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 86;
        cv = newXSproto_portable("Graphics::Magick::Mogrify", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::MogrifyRegion", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 666;
        cv = newXSproto_portable("Graphics::Magick::MotionBlur", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 139;
        cv = newXSproto_portable("Graphics::Magick::MotionBlurImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 140;
        cv = newXSproto_portable("Graphics::Magick::Negate", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 87;
        cv = newXSproto_portable("Graphics::Magick::NegateImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 88;
        cv = newXSproto_portable("Graphics::Magick::Normalize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 89;
        cv = newXSproto_portable("Graphics::Magick::NormalizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 90;
        cv = newXSproto_portable("Graphics::Magick::NumberColors", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 91;
        cv = newXSproto_portable("Graphics::Magick::NumberColorsImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 92;
        cv = newXSproto_portable("Graphics::Magick::OilPaint", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 39;
        cv = newXSproto_portable("Graphics::Magick::OilPaintImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 40;
        cv = newXSproto_portable("Graphics::Magick::Opaque", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 93;
        cv = newXSproto_portable("Graphics::Magick::OpaqueImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 94;
        cv = newXSproto_portable("Graphics::Magick::OrderedDither", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 141;
        cv = newXSproto_portable("Graphics::Magick::OrderedDitherImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 142;
        cv = newXSproto_portable("Graphics::Magick::Profile", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 135;
        cv = newXSproto_portable("Graphics::Magick::ProfileImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 136;
        cv = newXSproto_portable("Graphics::Magick::Quantize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 95;
        cv = newXSproto_portable("Graphics::Magick::QuantizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 96;
        cv = newXSproto_portable("Graphics::Magick::Raise", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 97;
        cv = newXSproto_portable("Graphics::Magick::RaiseImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 98;
        cv = newXSproto_portable("Graphics::Magick::ReduceNoise", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 41;
        cv = newXSproto_portable("Graphics::Magick::ReduceNoiseImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 42;
        cv = newXSproto_portable("Graphics::Magick::Resize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 61;
        cv = newXSproto_portable("Graphics::Magick::ResizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 62;
        cv = newXSproto_portable("Graphics::Magick::Roll", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 43;
        cv = newXSproto_portable("Graphics::Magick::RollImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 44;
        cv = newXSproto_portable("Graphics::Magick::Rotate", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 45;
        cv = newXSproto_portable("Graphics::Magick::RotateImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 46;
        cv = newXSproto_portable("Graphics::Magick::Sample", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 47;
        cv = newXSproto_portable("Graphics::Magick::SampleImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 48;
        cv = newXSproto_portable("Graphics::Magick::Sans", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 109;
        cv = newXSproto_portable("Graphics::Magick::SansImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 110;
        cv = newXSproto_portable("Graphics::Magick::Scale", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 49;
        cv = newXSproto_portable("Graphics::Magick::ScaleImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 50;
        cv = newXSproto_portable("Graphics::Magick::Segment", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 99;
        cv = newXSproto_portable("Graphics::Magick::SegmentImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 100;
        cv = newXSproto_portable("Graphics::Magick::Shade", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 51;
        cv = newXSproto_portable("Graphics::Magick::ShadeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 52;
        cv = newXSproto_portable("Graphics::Magick::Sharpen", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 53;
        cv = newXSproto_portable("Graphics::Magick::SharpenImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 54;
        cv = newXSproto_portable("Graphics::Magick::Shave", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 143;
        cv = newXSproto_portable("Graphics::Magick::ShaveImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 144;
        cv = newXSproto_portable("Graphics::Magick::Shear", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 55;
        cv = newXSproto_portable("Graphics::Magick::ShearImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 56;
        cv = newXSproto_portable("Graphics::Magick::Signature", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 101;
        cv = newXSproto_portable("Graphics::Magick::SignatureImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 102;
        cv = newXSproto_portable("Graphics::Magick::Solarize", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 103;
        cv = newXSproto_portable("Graphics::Magick::SolarizeImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 104;
        cv = newXSproto_portable("Graphics::Magick::Spread", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 57;
        cv = newXSproto_portable("Graphics::Magick::SpreadImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 58;
        cv = newXSproto_portable("Graphics::Magick::Stegano", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 127;
        cv = newXSproto_portable("Graphics::Magick::SteganoImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 128;
        cv = newXSproto_portable("Graphics::Magick::Stereo", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 125;
        cv = newXSproto_portable("Graphics::Magick::StereoImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 126;
        cv = newXSproto_portable("Graphics::Magick::Swirl", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 59;
        cv = newXSproto_portable("Graphics::Magick::SwirlImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 60;
        cv = newXSproto_portable("Graphics::Magick::Sync", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 105;
        cv = newXSproto_portable("Graphics::Magick::SyncImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 106;
        cv = newXSproto_portable("Graphics::Magick::Texture", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 107;
        cv = newXSproto_portable("Graphics::Magick::TextureImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 108;
        cv = newXSproto_portable("Graphics::Magick::Threshold", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 113;
        cv = newXSproto_portable("Graphics::Magick::ThresholdImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 114;
        cv = newXSproto_portable("Graphics::Magick::Transparent", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 111;
        cv = newXSproto_portable("Graphics::Magick::TransparentImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 112;
        cv = newXSproto_portable("Graphics::Magick::Trim", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 117;
        cv = newXSproto_portable("Graphics::Magick::TrimImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 118;
        cv = newXSproto_portable("Graphics::Magick::UnsharpMask", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 137;
        cv = newXSproto_portable("Graphics::Magick::UnsharpMaskImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 138;
        cv = newXSproto_portable("Graphics::Magick::Wave", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 119;
        cv = newXSproto_portable("Graphics::Magick::WaveImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 120;
        cv = newXSproto_portable("Graphics::Magick::Zoom", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 63;
        cv = newXSproto_portable("Graphics::Magick::ZoomImage", XS_Graphics__Magick_Mogrify, file, "$;@");
        XSANY.any_i32 = 64;
        cv = newXSproto_portable("Graphics::Magick::Montage", XS_Graphics__Magick_Montage, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::MontageImage", XS_Graphics__Magick_Montage, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::montage", XS_Graphics__Magick_Montage, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::montageimage", XS_Graphics__Magick_Montage, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Morph", XS_Graphics__Magick_Morph, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::MorphImage", XS_Graphics__Magick_Morph, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::morph", XS_Graphics__Magick_Morph, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::morphimage", XS_Graphics__Magick_Morph, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Mosaic", XS_Graphics__Magick_Mosaic, file, "$");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::MosaicImage", XS_Graphics__Magick_Mosaic, file, "$");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::mosaic", XS_Graphics__Magick_Mosaic, file, "$");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::mosaicimage", XS_Graphics__Magick_Mosaic, file, "$");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Ping", XS_Graphics__Magick_Ping, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::PingImage", XS_Graphics__Magick_Ping, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::ping", XS_Graphics__Magick_Ping, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::pingimage", XS_Graphics__Magick_Ping, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::QueryColor", XS_Graphics__Magick_QueryColor, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::querycolor", XS_Graphics__Magick_QueryColor, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::QueryColorname", XS_Graphics__Magick_QueryColorname, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::querycolorname", XS_Graphics__Magick_QueryColorname, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::QueryFont", XS_Graphics__Magick_QueryFont, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::queryfont", XS_Graphics__Magick_QueryFont, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::QueryFontMetrics", XS_Graphics__Magick_QueryFontMetrics, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::queryfontmetrics", XS_Graphics__Magick_QueryFontMetrics, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::QueryFormat", XS_Graphics__Magick_QueryFormat, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::queryformat", XS_Graphics__Magick_QueryFormat, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::Read", XS_Graphics__Magick_Read, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::ReadImage", XS_Graphics__Magick_Read, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::read", XS_Graphics__Magick_Read, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::readimage", XS_Graphics__Magick_Read, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Remote", XS_Graphics__Magick_Remote, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::RemoteCommand", XS_Graphics__Magick_Remote, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::remote", XS_Graphics__Magick_Remote, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::remoteCommand", XS_Graphics__Magick_Remote, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Set", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::SetAttribute", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::SetAttributes", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::set", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::setattribute", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 5;
        cv = newXSproto_portable("Graphics::Magick::setattributes", XS_Graphics__Magick_Set, file, "$;@");
        XSANY.any_i32 = 4;
        cv = newXSproto_portable("Graphics::Magick::Transform", XS_Graphics__Magick_Transform, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::TransformImage", XS_Graphics__Magick_Transform, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::transform", XS_Graphics__Magick_Transform, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::transformimage", XS_Graphics__Magick_Transform, file, "$;@");
        XSANY.any_i32 = 3;
        cv = newXSproto_portable("Graphics::Magick::Write", XS_Graphics__Magick_Write, file, "$;@");
        XSANY.any_i32 = 0;
        cv = newXSproto_portable("Graphics::Magick::WriteImage", XS_Graphics__Magick_Write, file, "$;@");
        XSANY.any_i32 = 1;
        cv = newXSproto_portable("Graphics::Magick::write", XS_Graphics__Magick_Write, file, "$;@");
        XSANY.any_i32 = 2;
        cv = newXSproto_portable("Graphics::Magick::writeimage", XS_Graphics__Magick_Write, file, "$;@");
        XSANY.any_i32 = 3;
    }

    /* Initialisation Section */

#line 2126 "Magick.xs"
  InitializeMagick(PackageName);
  SetWarningHandler(MagickWarningHandler);
  SetErrorHandler(MagickErrorHandler);
  { MY_CXT_INIT; }

#line 8969 "Magick.c"

    /* End of Initialisation Section */

#if PERL_VERSION_LE(5, 21, 5)
#  if PERL_VERSION_GE(5, 9, 0)
    if (PL_unitcheckav)
        call_list(PL_scopestack_ix, PL_unitcheckav);
#  endif
    XSRETURN_YES;
#else
    Perl_xs_boot_epilog(aTHX_ ax);
#endif
}

#ifdef __cplusplus
}
#endif
