coders/xtrn.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %                        X   X  TTTTT  RRRR   N   N                           %
 %                         X X     T    R   R  NN  N                           %
 %                          X      T    RRRR   N N N                           %
 %                         X X     T    R R    N  NN                           %
 %                        X   X    T    R  R   N   N                           %
 %                                                                             %
 %                                                                             %
 %                    ImageMagickObject BLOB Interface.                        %
 %                                                                             %
 %                              Software Design                                %
 %                             William Radcliffe                               %
 %                                 May 2001                                    %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2007 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  This coder is a kind of backdoor used by the COM object that allows it to  %
 %  pass blobs back and forth using the coder interface. It simply encodes and %
 %  decodes the filename as a comma delimited string and extracts the info it  %
 %  needs. The five methods of passing images are:                             %
 %                                                                             %
 %     FILE   - same thing as filename so it should be a NOP                   %
 %     IMAGE  - passes an image and image info structure                       %
 %     BLOB   - passes binary blob containining the image                      %
 %     STREAM - passes pointers to stream hooks in and does the hooking        %
 %     ARRAY  - passes a pointer to a Win32 smart array and streams to it      %
 %                                                                             %
 %  Of all of these, the only one getting any real use at the moment is the    %
 %  ARRAY handler. It is the primary way that images are shuttled back and     %
 %  forth as blobs via COM since this is what VB and VBSCRIPT use internally   %
 %  for this purpose.                                                          %
 %
 %
 */

 /*
   Include declarations.
 */
 #if defined(_VISUALC_)
 #include "magick/studio.h"
 #include "magick/blob.h"
 #include "magick/blob-private.h"
 #include "magick/constitute.h"
 #include "magick/delegate.h"
 #include "magick/exception.h"
 #include "magick/exception-private.h"
 #include "magick/image.h"
 #include "magick/image-private.h"
 #include "magick/list.h"
 #include "magick/magick.h"
 #include "magick/memory_.h"
 #include "magick/string_.h"
 #define WIN32_LEAN_AND_MEAN
 #define VC_EXTRALEAN
 #include <windows.h>
 #include <ole2.h>

 /*
   Forward declarations.
 */
 static MagickBooleanType
   WriteXTRNImage(const ImageInfo *,Image *);

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e a d X T R N I m a g e                                                 %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  ReadXTRNImage() reads a XTRN image file and returns it.  It
 %  allocates the memory necessary for the new Image structure and returns a
 %  pointer to the new image.
 %
 %  The format of the ReadXTRNImage method is:
 %
 %      Image *ReadXTRNImage(const ImageInfo *image_info,
 %        ExceptionInfo *exception)
 %
 %  A description of each parameter follows:
 %
 %    o image_info: Specifies a pointer to an ImageInfo structure.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 static Image *ReadXTRNImage(const ImageInfo *image_info,
   ExceptionInfo *exception)
 {
   Image
     *image;

   ImageInfo
     *clone_info;

   void
     *param1,
     *param2,
     *param3;

   param1 = param2 = param3 = (void *) NULL;
   image = (Image *) NULL;
   clone_info=CloneImageInfo(image_info);
   if (clone_info->filename == NULL)
     {
       clone_info=DestroyImageInfo(clone_info);
       ThrowReaderException(FileOpenWarning,"No filename specified");
     }
   if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
     {
       image=ReadImage(clone_info,exception);
       CatchException(exception);
     }
   else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
     {
       Image
         **image_ptr;

 #ifdef ALL_IMAGEINFO
       ImageInfo
         **image_info_ptr;
 #endif

       (void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
       image_ptr=(Image **) param2;
       if (*image_ptr != (Image *)NULL)
         image=CloneImage(*image_ptr,0,0,MagickFalse,&(*image_ptr)->exception);
 #ifdef ALL_IMAGEINFO
       image_info_ptr=(ImageInfo **) param1;
       if (*image_info_ptr != (ImageInfo *)NULL)
         image_info=*image_info_ptr;
 #endif
     }
   else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
     {
       char
         **blob_data;

       size_t
         *blob_length;

       char
         filename[MaxTextExtent];

       (void) sscanf(clone_info->filename,"%lx,%lx,%s",&param1,&param2,&filename);
       blob_data=(char **) param1;
       blob_length=(size_t *) param2;
       image=BlobToImage(clone_info,*blob_data,*blob_length,exception);
       CatchException(exception);
     }
   else if (LocaleCompare(image_info->magick,"XTRNSTREAM") == 0)
     {
 #ifdef IMPLEMENT_THIS
       MagickBooleanType
         status;
 #endif

       char
         filename[MaxTextExtent];

       size_t
         (*fifo)(const Image *,const void *,const size_t);

       (void) sscanf(clone_info->filename,"%lx,%lx,%s",&param1,&param2,&filename);
       fifo=(size_t (*)(const Image *,const void *,const size_t)) param1;
       clone_info->client_data=param2;
 #ifdef IMPLEMENT_THIS
       status=ReadStream(clone_info,fifo,exception);
       CatchException(exception);
 #endif
     }
   else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
     {
       SAFEARRAY
         *pSafeArray;

       char
         *blob_data;

       size_t
         blob_length;

                   ssize_t
         lBoundl,
         lBoundu;

       HRESULT
         hr;

       char
         filename[MaxTextExtent];

       filename[0] = '\0';
       (void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
             hr = S_OK;
       pSafeArray = (SAFEARRAY *) param1;
       if (pSafeArray)
         {
                       hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
           if (SUCCEEDED(hr))
                         hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
           if (SUCCEEDED(hr))
             {
                           blob_length = lBoundu - lBoundl + 1;
               hr = SafeArrayAccessData(pSafeArray, (void**)&blob_data);
                     if(SUCCEEDED(hr))
                 {
                   if (filename[0] != '\0')
                     {
                       (void) CopyMagickString(clone_info->filename,filename,
                         MaxTextExtent);
                       (void) CopyMagickString(clone_info->magick,filename,
                         MaxTextExtent);
                     }
                   else
                     {
                       *clone_info->magick = '\0';
                       clone_info->filename[0] = '\0';
                     }
                   image=BlobToImage(clone_info,blob_data,blob_length,exception);
                   hr = SafeArrayUnaccessData(pSafeArray);
                   CatchException(exception);
                 }
             }
         }
     }
   else if (LocaleCompare(image_info->magick,"XTRNBSTR") == 0)
     {
       BSTR
         bstr;

       char
         *blob_data;

       size_t
         blob_length;

       HRESULT
         hr;

       char
         filename[MaxTextExtent];

       filename[0] = '\0';
       (void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
       hr = S_OK;
       bstr = (BSTR) param1;
       blob_length = SysStringLen(bstr) * 2;
       blob_data = (char *)bstr;
       if ((blob_data != (char *)NULL) && (blob_length>0))
         {
           if (filename[0] != '\0')
             {
               (void) CopyMagickString(clone_info->filename,filename,
                 MaxTextExtent);
               (void) CopyMagickString(clone_info->magick,filename,
                 MaxTextExtent);
             }
           else
             {
               *clone_info->magick = '\0';
               clone_info->filename[0] = '\0';
             }
           image=BlobToImage(clone_info,blob_data,blob_length,exception);
           CatchException(exception);
         }
     }
   clone_info=DestroyImageInfo(clone_info);
   return(image);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e g i s t e r X T R N I m a g e                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RegisterXTRNImage() adds attributes for the XTRN image format to
 %  the list of supported formats.  The attributes include the image format
 %  tag, a method to read and/or write the format, whether the format
 %  supports the saving of more than one frame to the same file or blob,
 %  whether the format supports native in-memory I/O, and a brief
 %  description of the format.
 %
 %  The format of the RegisterXTRNImage method is:
 %
 %      RegisterXTRNImage(void)
 %
 */
 ModuleExport void RegisterXTRNImage(void)
 {
   MagickInfo
     *entry;

   entry=SetMagickInfo("XTRNFILE");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("External transfer of a file");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);

   entry=SetMagickInfo("XTRNIMAGE");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("External transfer of a image in memory");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);

   entry=SetMagickInfo("XTRNBLOB");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("IExternal transfer of a blob in memory");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);

   entry=SetMagickInfo("XTRNSTREAM");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("External transfer via a streaming interface");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);

   entry=SetMagickInfo("XTRNARRAY");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("External transfer via a smart array interface");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);

   entry=SetMagickInfo("XTRNBSTR");
   entry->decoder=ReadXTRNImage;
   entry->encoder=WriteXTRNImage;
   entry->adjoin=MagickFalse;
   entry->stealth=MagickTrue;
   entry->description=ConstantString("External transfer via a smart array interface");
   entry->module=ConstantString("XTRN");
   RegisterMagickInfo(entry);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   U n r e g i s t e r X T R N I m a g e                                     %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  UnregisterXTRNImage() removes format registrations made by the
 %  XTRN module from the list of supported formats.
 %
 %  The format of the UnregisterXTRNImage method is:
 %
 %      UnregisterXTRNImage(void)
 %
 */
 ModuleExport void UnregisterXTRNImage(void)
 {
   UnregisterMagickInfo("XTRNFILE");
   UnregisterMagickInfo("XTRNIMAGE");
   UnregisterMagickInfo("XTRNBLOB");
   UnregisterMagickInfo("XTRNSTREAM");
   UnregisterMagickInfo("XTRNARRAY");
   UnregisterMagickInfo("XTRNBSTR");
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   W r i t e X T R N I m a g e                                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  WriteXTRNImage() writes an image in the XTRN encoded image format.
 %  We use GIF because it is the only format that is compressed without
 %  requiring addition optional delegates (TIFF, ZIP, etc).
 %
 %  The format of the WriteXTRNImage method is:
 %
 %      MagickBooleanType WriteXTRNImage(const ImageInfo *image_info,Image *image)
 %
 %  A description of each parameter follows.
 %
 %    o image_info: Specifies a pointer to an ImageInfo structure.
 %
 %    o image:  A pointer to a Image structure.
 %
 %
 */

 size_t SafeArrayFifo(const Image *image,const void *data,const size_t length)
 {
   SAFEARRAYBOUND NewArrayBounds[1];  /* 1 Dimension */
   size_t tlen=length;
   SAFEARRAY *pSafeArray = (SAFEARRAY *)image->client_data;
   if (pSafeArray != NULL)
   {
                 ssize_t lBoundl, lBoundu, lCount;
           HRESULT hr = S_OK;
     /* First see how big the buffer currently is */
                 hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
     if (FAILED(hr))
       return MagickFalse;
                 hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
     if (FAILED(hr))
       return MagickFalse;
                 lCount = lBoundu - lBoundl + 1;

     if (length>0)
     {
             unsigned char       *pReturnBuffer = NULL;
       NewArrayBounds[0].lLbound = 0;   /* Start-Index 0 */
       NewArrayBounds[0].cElements = (size_t) (length+lCount);  /* # Elemente */
       hr = SafeArrayRedim(pSafeArray, NewArrayBounds);
       if (FAILED(hr))
         return 0;
       hr = SafeArrayAccessData(pSafeArray, (void**)&pReturnBuffer);
             if( FAILED(hr) )
                     return 0;
             (void) CopyMagickMemory( pReturnBuffer+lCount, (unsigned char *)data, length );
       hr = SafeArrayUnaccessData(pSafeArray);
             if( FAILED(hr) )
                     return 0;
     }
     else
     {
       /* Adjust the length of the buffer to fit */
     }
   }
   return(tlen);
 }

 static MagickBooleanType WriteXTRNImage(const ImageInfo *image_info,Image *image)
 {
   Image *
     p;

   ImageInfo
     *clone_info;

   int
     scene;

   MagickBooleanType
     status;

   void
     *param1,
     *param2,
     *param3;

   param1 = param2 = param3 = (void *) NULL;
   if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
     {
       clone_info=CloneImageInfo(image_info);
       status=WriteImage(image_info,image);
       if (status == MagickFalse)
         CatchImageException(image);
       clone_info=DestroyImageInfo(clone_info);
     }
   else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
     {
       Image
         **image_ptr;

       ImageInfo
         **image_info_ptr;

       clone_info=CloneImageInfo(image_info);
       if (clone_info->filename[0])
         {
           (void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
           image_info_ptr=(ImageInfo **) param1;
           image_ptr=(Image **) param2;
           if ((image_info_ptr != (ImageInfo **) NULL) &&
               (image_ptr != (Image **) NULL))
             {
               *image_ptr=CloneImage(image,0,0,MagickFalse,&(image->exception));
               *image_info_ptr=clone_info;
             }
         }
     }
   else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
     {
       char
         **blob_data;

       ExceptionInfo
         exception;

       size_t
         *blob_length;

       char
         filename[MaxTextExtent];

       clone_info=CloneImageInfo(image_info);
       if (clone_info->filename[0])
         {
           (void) sscanf(clone_info->filename,"%lx,%lx,%s",
             &param1,&param2,&filename);

           blob_data=(char **) param1;
           blob_length=(size_t *) param2;

           scene = 0;
           (void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
           for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
           {
             (void) CopyMagickString(p->filename,filename,MaxTextExtent);
             p->scene=scene++;
           }
           SetImageInfo(clone_info,1,&image->exception);
           (void) CopyMagickString(image->magick,clone_info->magick,
             MaxTextExtent);
           GetExceptionInfo(&exception);
           if (*blob_length == 0)
             *blob_length=8192;
           *blob_data=(char *) ImageToBlob(clone_info,image,blob_length,
             &exception);
           if (*blob_data == NULL)
             status=MagickFalse;
           if (status == MagickFalse)
             CatchImageException(image);
         }
       clone_info=DestroyImageInfo(clone_info);
     }
   else if (LocaleCompare(image_info->magick,"XTRNSTREAM") == 0)
     {
       size_t
         (*fifo)(const Image *,const void *,const size_t);

       char
         filename[MaxTextExtent];

       clone_info=CloneImageInfo(image_info);
       if (clone_info->filename[0])
         {
           (void) sscanf(clone_info->filename,"%lx,%lx,%s",
             &param1,&param2,&filename);

           fifo=(size_t (*)(const Image *,const void *,const size_t)) param1;
           image->client_data=param2;

           scene=0;
           (void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
           for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
           {
             (void) CopyMagickString(p->filename,filename,MaxTextExtent);
             p->scene=scene++;
           }
           SetImageInfo(clone_info,1,&image->exception);
           (void) CopyMagickString(image->magick,clone_info->magick,
             MaxTextExtent);
           status=WriteStream(clone_info,image,fifo);
           if (status == MagickFalse)
             CatchImageException(image);
         }
       clone_info=DestroyImageInfo(clone_info);
     }
   else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
     {
       char
         filename[MaxTextExtent];

       clone_info=CloneImageInfo(image_info);
       if (clone_info->filename[0])
         {
           (void) sscanf(clone_info->filename,"%lx,%s",
             &param1,&filename);

           image->client_data=param1;

           scene = 0;
           (void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
           for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
           {
             (void) CopyMagickString(p->filename,filename,MaxTextExtent);
             p->scene=scene++;
           }
           SetImageInfo(clone_info,1,&image->exception);
           (void) CopyMagickString(image->magick,clone_info->magick,
             MaxTextExtent);
           status=WriteStream(clone_info,image,SafeArrayFifo);
           if (status == MagickFalse)
             CatchImageException(image);
         }
       clone_info=DestroyImageInfo(clone_info);
     }
   return(MagickTrue);
 }
 #endif
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% X X TTTTT RRRR N N %
	% X X T R R NN N %
	% X T RRRR N N N %
	% X X T R R N NN %
	% X X T R R N N %
	% %
	% %
	% ImageMagickObject BLOB Interface. %
	% %
	% Software Design %
	% William Radcliffe %
	% May 2001 %
	% %
	% %
	% Copyright 1999-2007 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% This coder is a kind of backdoor used by the COM object that allows it to %
	% pass blobs back and forth using the coder interface. It simply encodes and %
	% decodes the filename as a comma delimited string and extracts the info it %
	% needs. The five methods of passing images are: %
	% %
	% FILE - same thing as filename so it should be a NOP %
	% IMAGE - passes an image and image info structure %
	% BLOB - passes binary blob containining the image %
	% STREAM - passes pointers to stream hooks in and does the hooking %
	% ARRAY - passes a pointer to a Win32 smart array and streams to it %
	% %
	% Of all of these, the only one getting any real use at the moment is the %
	% ARRAY handler. It is the primary way that images are shuttled back and %
	% forth as blobs via COM since this is what VB and VBSCRIPT use internally %
	% for this purpose. %
	%
	%
	*/

	/*
	Include declarations.
	*/
	#if defined(_VISUALC_)
	#include "magick/studio.h"
	#include "magick/blob.h"
	#include "magick/blob-private.h"
	#include "magick/constitute.h"
	#include "magick/delegate.h"
	#include "magick/exception.h"
	#include "magick/exception-private.h"
	#include "magick/image.h"
	#include "magick/image-private.h"
	#include "magick/list.h"
	#include "magick/magick.h"
	#include "magick/memory_.h"
	#include "magick/string_.h"
	#define WIN32_LEAN_AND_MEAN
	#define VC_EXTRALEAN
	#include <windows.h>
	#include <ole2.h>

	/*
	Forward declarations.
	*/
	static MagickBooleanType
	WriteXTRNImage(const ImageInfo ,Image );

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e a d X T R N I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% ReadXTRNImage() reads a XTRN image file and returns it. It
	% allocates the memory necessary for the new Image structure and returns a
	% pointer to the new image.
	%
	% The format of the ReadXTRNImage method is:
	%
	% Image ReadXTRNImage(const ImageInfo image_info,
	% ExceptionInfo *exception)
	%
	% A description of each parameter follows:
	%
	% o image_info: Specifies a pointer to an ImageInfo structure.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	static Image ReadXTRNImage(const ImageInfo image_info,
	ExceptionInfo *exception)
	{
	Image
	*image;

	ImageInfo
	*clone_info;

	void
	*param1,
	*param2,
	*param3;

	param1 = param2 = param3 = (void *) NULL;
	image = (Image *) NULL;
	clone_info=CloneImageInfo(image_info);
	if (clone_info->filename == NULL)
	{
	clone_info=DestroyImageInfo(clone_info);
	ThrowReaderException(FileOpenWarning,"No filename specified");
	}
	if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
	{
	image=ReadImage(clone_info,exception);
	CatchException(exception);
	}
	else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
	{
	Image
	**image_ptr;

	#ifdef ALL_IMAGEINFO
	ImageInfo
	**image_info_ptr;
	#endif

	(void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
	image_ptr=(Image **) param2;
	if (image_ptr != (Image )NULL)
	image=CloneImage(image_ptr,0,0,MagickFalse,&(image_ptr)->exception);
	#ifdef ALL_IMAGEINFO
	image_info_ptr=(ImageInfo **) param1;
	if (image_info_ptr != (ImageInfo )NULL)
	image_info=*image_info_ptr;
	#endif
	}
	else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
	{
	char
	**blob_data;

	size_t
	*blob_length;

	char
	filename[MaxTextExtent];

	(void) sscanf(clone_info->filename,"%lx,%lx,%s",&param1,&param2,&filename);
	blob_data=(char **) param1;
	blob_length=(size_t *) param2;
	image=BlobToImage(clone_info,blob_data,blob_length,exception);
	CatchException(exception);
	}
	else if (LocaleCompare(image_info->magick,"XTRNSTREAM") == 0)
	{
	#ifdef IMPLEMENT_THIS
	MagickBooleanType
	status;
	#endif

	char
	filename[MaxTextExtent];

	size_t
	(fifo)(const Image ,const void *,const size_t);

	(void) sscanf(clone_info->filename,"%lx,%lx,%s",&param1,&param2,&filename);
	fifo=(size_t ()(const Image ,const void *,const size_t)) param1;
	clone_info->client_data=param2;
	#ifdef IMPLEMENT_THIS
	status=ReadStream(clone_info,fifo,exception);
	CatchException(exception);
	#endif
	}
	else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
	{
	SAFEARRAY
	*pSafeArray;

	char
	*blob_data;

	size_t
	blob_length;

	ssize_t
	lBoundl,
	lBoundu;

	HRESULT
	hr;

	char
	filename[MaxTextExtent];

	filename[0] = '\0';
	(void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
	hr = S_OK;
	pSafeArray = (SAFEARRAY *) param1;
	if (pSafeArray)
	{
	hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
	if (SUCCEEDED(hr))
	hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
	if (SUCCEEDED(hr))
	{
	blob_length = lBoundu - lBoundl + 1;
	hr = SafeArrayAccessData(pSafeArray, (void**)&blob_data);
	if(SUCCEEDED(hr))
	{
	if (filename[0] != '\0')
	{
	(void) CopyMagickString(clone_info->filename,filename,
	MaxTextExtent);
	(void) CopyMagickString(clone_info->magick,filename,
	MaxTextExtent);
	}
	else
	{
	*clone_info->magick = '\0';
	clone_info->filename[0] = '\0';
	}
	image=BlobToImage(clone_info,blob_data,blob_length,exception);
	hr = SafeArrayUnaccessData(pSafeArray);
	CatchException(exception);
	}
	}
	}
	}
	else if (LocaleCompare(image_info->magick,"XTRNBSTR") == 0)
	{
	BSTR
	bstr;

	char
	*blob_data;

	size_t
	blob_length;

	HRESULT
	hr;

	char
	filename[MaxTextExtent];

	filename[0] = '\0';
	(void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
	hr = S_OK;
	bstr = (BSTR) param1;
	blob_length = SysStringLen(bstr) * 2;
	blob_data = (char *)bstr;
	if ((blob_data != (char *)NULL) && (blob_length>0))
	{
	if (filename[0] != '\0')
	{
	(void) CopyMagickString(clone_info->filename,filename,
	MaxTextExtent);
	(void) CopyMagickString(clone_info->magick,filename,
	MaxTextExtent);
	}
	else
	{
	*clone_info->magick = '\0';
	clone_info->filename[0] = '\0';
	}
	image=BlobToImage(clone_info,blob_data,blob_length,exception);
	CatchException(exception);
	}
	}
	clone_info=DestroyImageInfo(clone_info);
	return(image);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e g i s t e r X T R N I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RegisterXTRNImage() adds attributes for the XTRN image format to
	% the list of supported formats. The attributes include the image format
	% tag, a method to read and/or write the format, whether the format
	% supports the saving of more than one frame to the same file or blob,
	% whether the format supports native in-memory I/O, and a brief
	% description of the format.
	%
	% The format of the RegisterXTRNImage method is:
	%
	% RegisterXTRNImage(void)
	%
	*/
	ModuleExport void RegisterXTRNImage(void)
	{
	MagickInfo
	*entry;

	entry=SetMagickInfo("XTRNFILE");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("External transfer of a file");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);

	entry=SetMagickInfo("XTRNIMAGE");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("External transfer of a image in memory");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);

	entry=SetMagickInfo("XTRNBLOB");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("IExternal transfer of a blob in memory");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);

	entry=SetMagickInfo("XTRNSTREAM");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("External transfer via a streaming interface");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);

	entry=SetMagickInfo("XTRNARRAY");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("External transfer via a smart array interface");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);

	entry=SetMagickInfo("XTRNBSTR");
	entry->decoder=ReadXTRNImage;
	entry->encoder=WriteXTRNImage;
	entry->adjoin=MagickFalse;
	entry->stealth=MagickTrue;
	entry->description=ConstantString("External transfer via a smart array interface");
	entry->module=ConstantString("XTRN");
	RegisterMagickInfo(entry);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% U n r e g i s t e r X T R N I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% UnregisterXTRNImage() removes format registrations made by the
	% XTRN module from the list of supported formats.
	%
	% The format of the UnregisterXTRNImage method is:
	%
	% UnregisterXTRNImage(void)
	%
	*/
	ModuleExport void UnregisterXTRNImage(void)
	{
	UnregisterMagickInfo("XTRNFILE");
	UnregisterMagickInfo("XTRNIMAGE");
	UnregisterMagickInfo("XTRNBLOB");
	UnregisterMagickInfo("XTRNSTREAM");
	UnregisterMagickInfo("XTRNARRAY");
	UnregisterMagickInfo("XTRNBSTR");
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% W r i t e X T R N I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% WriteXTRNImage() writes an image in the XTRN encoded image format.
	% We use GIF because it is the only format that is compressed without
	% requiring addition optional delegates (TIFF, ZIP, etc).
	%
	% The format of the WriteXTRNImage method is:
	%
	% MagickBooleanType WriteXTRNImage(const ImageInfo image_info,Image image)
	%
	% A description of each parameter follows.
	%
	% o image_info: Specifies a pointer to an ImageInfo structure.
	%
	% o image: A pointer to a Image structure.
	%
	%
	*/

	size_t SafeArrayFifo(const Image image,const void data,const size_t length)
	{
	SAFEARRAYBOUND NewArrayBounds[1]; /* 1 Dimension */
	size_t tlen=length;
	SAFEARRAY pSafeArray = (SAFEARRAY )image->client_data;
	if (pSafeArray != NULL)
	{
	ssize_t lBoundl, lBoundu, lCount;
	HRESULT hr = S_OK;
	/* First see how big the buffer currently is */
	hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
	if (FAILED(hr))
	return MagickFalse;
	hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
	if (FAILED(hr))
	return MagickFalse;
	lCount = lBoundu - lBoundl + 1;

	if (length>0)
	{
	unsigned char *pReturnBuffer = NULL;
	NewArrayBounds[0].lLbound = 0; /* Start-Index 0 */
	NewArrayBounds[0].cElements = (size_t) (length+lCount); /* # Elemente */
	hr = SafeArrayRedim(pSafeArray, NewArrayBounds);
	if (FAILED(hr))
	return 0;
	hr = SafeArrayAccessData(pSafeArray, (void**)&pReturnBuffer);
	if( FAILED(hr) )
	return 0;
	(void) CopyMagickMemory( pReturnBuffer+lCount, (unsigned char *)data, length );
	hr = SafeArrayUnaccessData(pSafeArray);
	if( FAILED(hr) )
	return 0;
	}
	else
	{
	/* Adjust the length of the buffer to fit */
	}
	}
	return(tlen);
	}

	static MagickBooleanType WriteXTRNImage(const ImageInfo image_info,Image image)
	{
	Image *
	p;

	ImageInfo
	*clone_info;

	int
	scene;

	MagickBooleanType
	status;

	void
	*param1,
	*param2,
	*param3;

	param1 = param2 = param3 = (void *) NULL;
	if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
	{
	clone_info=CloneImageInfo(image_info);
	status=WriteImage(image_info,image);
	if (status == MagickFalse)
	CatchImageException(image);
	clone_info=DestroyImageInfo(clone_info);
	}
	else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
	{
	Image
	**image_ptr;

	ImageInfo
	**image_info_ptr;

	clone_info=CloneImageInfo(image_info);
	if (clone_info->filename[0])
	{
	(void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
	image_info_ptr=(ImageInfo **) param1;
	image_ptr=(Image **) param2;
	if ((image_info_ptr != (ImageInfo **) NULL) &&
	(image_ptr != (Image **) NULL))
	{
	*image_ptr=CloneImage(image,0,0,MagickFalse,&(image->exception));
	*image_info_ptr=clone_info;
	}
	}
	}
	else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
	{
	char
	**blob_data;

	ExceptionInfo
	exception;

	size_t
	*blob_length;

	char
	filename[MaxTextExtent];

	clone_info=CloneImageInfo(image_info);
	if (clone_info->filename[0])
	{
	(void) sscanf(clone_info->filename,"%lx,%lx,%s",
	&param1,&param2,&filename);

	blob_data=(char **) param1;
	blob_length=(size_t *) param2;

	scene = 0;
	(void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
	for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
	{
	(void) CopyMagickString(p->filename,filename,MaxTextExtent);
	p->scene=scene++;
	}
	SetImageInfo(clone_info,1,&image->exception);
	(void) CopyMagickString(image->magick,clone_info->magick,
	MaxTextExtent);
	GetExceptionInfo(&exception);
	if (*blob_length == 0)
	*blob_length=8192;
	blob_data=(char ) ImageToBlob(clone_info,image,blob_length,
	&exception);
	if (*blob_data == NULL)
	status=MagickFalse;
	if (status == MagickFalse)
	CatchImageException(image);
	}
	clone_info=DestroyImageInfo(clone_info);
	}
	else if (LocaleCompare(image_info->magick,"XTRNSTREAM") == 0)
	{
	size_t
	(fifo)(const Image ,const void *,const size_t);

	char
	filename[MaxTextExtent];

	clone_info=CloneImageInfo(image_info);
	if (clone_info->filename[0])
	{
	(void) sscanf(clone_info->filename,"%lx,%lx,%s",
	&param1,&param2,&filename);

	fifo=(size_t ()(const Image ,const void *,const size_t)) param1;
	image->client_data=param2;

	scene=0;
	(void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
	for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
	{
	(void) CopyMagickString(p->filename,filename,MaxTextExtent);
	p->scene=scene++;
	}
	SetImageInfo(clone_info,1,&image->exception);
	(void) CopyMagickString(image->magick,clone_info->magick,
	MaxTextExtent);
	status=WriteStream(clone_info,image,fifo);
	if (status == MagickFalse)
	CatchImageException(image);
	}
	clone_info=DestroyImageInfo(clone_info);
	}
	else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
	{
	char
	filename[MaxTextExtent];

	clone_info=CloneImageInfo(image_info);
	if (clone_info->filename[0])
	{
	(void) sscanf(clone_info->filename,"%lx,%s",
	&param1,&filename);

	image->client_data=param1;

	scene = 0;
	(void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
	for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
	{
	(void) CopyMagickString(p->filename,filename,MaxTextExtent);
	p->scene=scene++;
	}
	SetImageInfo(clone_info,1,&image->exception);
	(void) CopyMagickString(image->magick,clone_info->magick,
	MaxTextExtent);
	status=WriteStream(clone_info,image,SafeArrayFifo);
	if (status == MagickFalse)
	CatchImageException(image);
	}
	clone_info=DestroyImageInfo(clone_info);
	}
	return(MagickTrue);
	}
	#endif