granicus.if.org Git - imagemagick/blob - coders/ept.c

   1 /*
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   3 %                                                                             %
   4 %                                                                             %
   5 %                                                                             %
   6 %                            EEEEE  PPPP   TTTTT                              %
   7 %                            E      P   P    T                                %
   8 %                            EEE    PPPP     T                                %
   9 %                            E      P        T                                %
  10 %                            EEEEE  P        T                                %
  11 %                                                                             %
  12 %                                                                             %
  13 %           Read/Write Encapsulated Postscript Format (with preview).         %
  14 %                                                                             %
  15 %                              Software Design                                %
  16 %                                   Cristy                                    %
  17 %                                 July 1992                                   %
  18 %                                                                             %
  19 %                                                                             %
  20 %  Copyright 1999-2018 ImageMagick Studio LLC, a non-profit organization      %
  21 %  dedicated to making software imaging solutions freely available.           %
  22 %                                                                             %
  23 %  You may not use this file except in compliance with the License.  You may  %
  24 %  obtain a copy of the License at                                            %
  25 %                                                                             %
  26 %    https://www.imagemagick.org/script/license.php                           %
  27 %                                                                             %
  28 %  Unless required by applicable law or agreed to in writing, software        %
  29 %  distributed under the License is distributed on an "AS IS" BASIS,          %
  30 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
  31 %  See the License for the specific language governing permissions and        %
  32 %  limitations under the License.                                             %
  33 %                                                                             %
  34 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  35 %
  36 %
  37 */
  38 \f
  39 /*
  40   Include declarations.
  41 */
  42 #include "MagickCore/studio.h"
  43 #include "MagickCore/blob.h"
  44 #include "MagickCore/blob-private.h"
  45 #include "MagickCore/color.h"
  46 #include "MagickCore/constitute.h"
  47 #include "MagickCore/draw.h"
  48 #include "MagickCore/exception.h"
  49 #include "MagickCore/exception-private.h"
  50 #include "MagickCore/delegate.h"
  51 #include "MagickCore/geometry.h"
  52 #include "MagickCore/histogram.h"
  53 #include "MagickCore/image.h"
  54 #include "MagickCore/image-private.h"
  55 #include "MagickCore/list.h"
  56 #include "MagickCore/magick.h"
  57 #include "MagickCore/memory_.h"
  58 #include "MagickCore/monitor.h"
  59 #include "MagickCore/monitor-private.h"
  60 #include "MagickCore/quantize.h"
  61 #include "MagickCore/resource_.h"
  62 #include "MagickCore/resize.h"
  63 #include "MagickCore/quantum-private.h"
  64 #include "MagickCore/static.h"
  65 #include "MagickCore/string_.h"
  66 #include "MagickCore/module.h"
  67 #include "MagickCore/utility.h"
  68 \f
  69 /*
  70   Typedef declarations.
  71 */
  72 typedef struct _EPTInfo
  73 {
  74   size_t
  75     magick;
  76
  77   MagickOffsetType
  78     postscript_offset,
  79     tiff_offset;
  80
  81   size_t
  82     postscript_length,
  83     tiff_length;
  84
  85   unsigned char
  86     *postscript,
  87     *tiff;
  88 } EPTInfo;
  89 \f
  90 /*
  91   Forward declarations.
  92 */
  93 static MagickBooleanType
  94   WriteEPTImage(const ImageInfo *,Image *,ExceptionInfo *);
  95 \f
  96 /*
  97 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  98 %                                                                             %
  99 %                                                                             %
 100 %                                                                             %
 101 %   I s E P T                                                                 %
 102 %                                                                             %
 103 %                                                                             %
 104 %                                                                             %
 105 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 106 %
 107 %  IsEPT() returns MagickTrue if the image format type, identified by the
 108 %  magick string, is EPT.
 109 %
 110 %  The format of the IsEPT method is:
 111 %
 112 %      MagickBooleanType IsEPT(const unsigned char *magick,const size_t length)
 113 %
 114 %  A description of each parameter follows:
 115 %
 116 %    o magick: compare image format pattern against these bytes.
 117 %
 118 %    o length: Specifies the length of the magick string.
 119 %
 120 */
 121 static MagickBooleanType IsEPT(const unsigned char *magick,const size_t length)
 122 {
 123   if (length < 4)
 124     return(MagickFalse);
 125   if (memcmp(magick,"\305\320\323\306",4) == 0)
 126     return(MagickTrue);
 127   return(MagickFalse);
 128 }
 129 \f
 130 /*
 131 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 132 %                                                                             %
 133 %                                                                             %
 134 %                                                                             %
 135 %   R e a d E P T I m a g e                                                   %
 136 %                                                                             %
 137 %                                                                             %
 138 %                                                                             %
 139 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 140 %
 141 %  ReadEPTImage() reads a binary Postscript image file and returns it.  It
 142 %  allocates the memory necessary for the new Image structure and returns a
 143 %  pointer to the new image.
 144 %
 145 %  The format of the ReadEPTImage method is:
 146 %
 147 %      Image *ReadEPTImage(const ImageInfo *image_info,
 148 %        ExceptionInfo *exception)
 149 %
 150 %  A description of each parameter follows:
 151 %
 152 %    o image_info: the image info.
 153 %
 154 %    o exception: return any errors or warnings in this structure.
 155 %
 156 */
 157 static Image *ReadEPTImage(const ImageInfo *image_info,ExceptionInfo *exception)
 158 {
 159   EPTInfo
 160     ept_info;
 161
 162   Image
 163     *image;
 164
 165   ImageInfo
 166     *read_info;
 167
 168   MagickBooleanType
 169     status;
 170
 171   MagickOffsetType
 172     offset;
 173
 174   ssize_t
 175     count;
 176
 177   /*
 178     Open image file.
 179   */
 180   assert(image_info != (const ImageInfo *) NULL);
 181   assert(image_info->signature == MagickCoreSignature);
 182   if (image_info->debug != MagickFalse)
 183     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
 184       image_info->filename);
 185   assert(exception != (ExceptionInfo *) NULL);
 186   assert(exception->signature == MagickCoreSignature);
 187   image=AcquireImage(image_info,exception);
 188   status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
 189   if (status == MagickFalse)
 190     {
 191       image=DestroyImageList(image);
 192       return((Image *) NULL);
 193     }
 194   ept_info.magick=ReadBlobLSBLong(image);
 195   if (ept_info.magick != 0xc6d3d0c5ul)
 196     ThrowReaderException(CorruptImageError,"ImproperImageHeader");
 197   ept_info.postscript_offset=(MagickOffsetType) ReadBlobLSBLong(image);
 198   ept_info.postscript_length=ReadBlobLSBLong(image);
 199   if (ept_info.postscript_length > GetBlobSize(image))
 200     ThrowReaderException(CorruptImageError,"InsufficientImageDataInFile");
 201   (void) ReadBlobLSBLong(image);
 202   (void) ReadBlobLSBLong(image);
 203   ept_info.tiff_offset=(MagickOffsetType) ReadBlobLSBLong(image);
 204   ept_info.tiff_length=ReadBlobLSBLong(image);
 205   if (ept_info.tiff_length > GetBlobSize(image))
 206     ThrowReaderException(CorruptImageError,"InsufficientImageDataInFile");
 207   (void) ReadBlobLSBShort(image);
 208   ept_info.postscript=(unsigned char *) AcquireQuantumMemory(
 209     ept_info.postscript_length+1,sizeof(*ept_info.postscript));
 210   if (ept_info.postscript == (unsigned char *) NULL)
 211     ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
 212   (void) memset(ept_info.postscript,0,(ept_info.postscript_length+1)*
 213     sizeof(*ept_info.postscript));
 214   ept_info.tiff=(unsigned char *) AcquireQuantumMemory(ept_info.tiff_length+1,
 215     sizeof(*ept_info.tiff));
 216   if (ept_info.tiff == (unsigned char *) NULL)
 217     {
 218       ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 219         ept_info.postscript);
 220       ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
 221     }
 222   (void) memset(ept_info.tiff,0,(ept_info.tiff_length+1)*
 223     sizeof(*ept_info.tiff));
 224   offset=SeekBlob(image,ept_info.tiff_offset,SEEK_SET);
 225   if ((ept_info.tiff_length != 0) && (offset < 30))
 226     {
 227       ept_info.tiff=(unsigned char *) RelinquishMagickMemory(ept_info.tiff);
 228       ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 229         ept_info.postscript);
 230       ThrowReaderException(CorruptImageError,"ImproperImageHeader");
 231     }
 232   count=ReadBlob(image,ept_info.tiff_length,ept_info.tiff);
 233   if (count != (ssize_t) (ept_info.tiff_length))
 234     (void) ThrowMagickException(exception,GetMagickModule(),CorruptImageWarning,
 235       "InsufficientImageDataInFile","`%s'",image->filename);
 236   offset=SeekBlob(image,ept_info.postscript_offset,SEEK_SET);
 237   if ((ept_info.postscript_length != 0) && (offset < 30))
 238     {
 239       ept_info.tiff=(unsigned char *) RelinquishMagickMemory(ept_info.tiff);
 240       ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 241         ept_info.postscript);
 242       ThrowReaderException(CorruptImageError,"ImproperImageHeader");
 243     }
 244   count=ReadBlob(image,ept_info.postscript_length,ept_info.postscript);
 245   if (count != (ssize_t) (ept_info.postscript_length))
 246     (void) ThrowMagickException(exception,GetMagickModule(),CorruptImageWarning,
 247       "InsufficientImageDataInFile","`%s'",image->filename);
 248   (void) CloseBlob(image);
 249   image=DestroyImage(image);
 250   read_info=CloneImageInfo(image_info);
 251   (void) CopyMagickString(read_info->magick,"EPS",MagickPathExtent);
 252   image=BlobToImage(read_info,ept_info.postscript,ept_info.postscript_length,
 253     exception);
 254   if (image == (Image *) NULL)
 255     {
 256       (void) CopyMagickString(read_info->magick,"TIFF",MagickPathExtent);
 257       image=BlobToImage(read_info,ept_info.tiff,ept_info.tiff_length,exception);
 258     }
 259   read_info=DestroyImageInfo(read_info);
 260   if (image != (Image *) NULL)
 261     {
 262       (void) CopyMagickString(image->filename,image_info->filename,
 263         MagickPathExtent);
 264       (void) CopyMagickString(image->magick,"EPT",MagickPathExtent);
 265     }
 266   ept_info.tiff=(unsigned char *) RelinquishMagickMemory(ept_info.tiff);
 267   ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 268     ept_info.postscript);
 269   return(image);
 270 }
 271 \f
 272 /*
 273 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 274 %                                                                             %
 275 %                                                                             %
 276 %                                                                             %
 277 %   R e g i s t e r E P T I m a g e                                           %
 278 %                                                                             %
 279 %                                                                             %
 280 %                                                                             %
 281 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 282 %
 283 %  RegisterEPTImage() adds attributes for the EPT image format to
 284 %  the list of supported formats.  The attributes include the image format
 285 %  tag, a method to read and/or write the format, whether the format
 286 %  supports the saving of more than one frame to the same file or blob,
 287 %  whether the format supports native in-memory I/O, and a brief
 288 %  description of the format.
 289 %
 290 %  The format of the RegisterEPTImage method is:
 291 %
 292 %      size_t RegisterEPTImage(void)
 293 %
 294 */
 295 ModuleExport size_t RegisterEPTImage(void)
 296 {
 297   MagickInfo
 298     *entry;
 299
 300   entry=AcquireMagickInfo("EPT","EPT",
 301     "Encapsulated PostScript with TIFF preview");
 302   entry->decoder=(DecodeImageHandler *) ReadEPTImage;
 303   entry->encoder=(EncodeImageHandler *) WriteEPTImage;
 304   entry->magick=(IsImageFormatHandler *) IsEPT;
 305   entry->flags|=CoderDecoderSeekableStreamFlag;
 306   entry->flags^=CoderAdjoinFlag;
 307   entry->flags^=CoderBlobSupportFlag;
 308   (void) RegisterMagickInfo(entry);
 309   entry=AcquireMagickInfo("EPT","EPT2",
 310     "Encapsulated PostScript Level II with TIFF preview");
 311   entry->decoder=(DecodeImageHandler *) ReadEPTImage;
 312   entry->encoder=(EncodeImageHandler *) WriteEPTImage;
 313   entry->magick=(IsImageFormatHandler *) IsEPT;
 314   entry->flags^=CoderAdjoinFlag;
 315   entry->flags|=CoderDecoderSeekableStreamFlag;
 316   entry->flags^=CoderBlobSupportFlag;
 317   (void) RegisterMagickInfo(entry);
 318   entry=AcquireMagickInfo("EPT","EPT3",
 319     "Encapsulated PostScript Level III with TIFF preview");
 320   entry->decoder=(DecodeImageHandler *) ReadEPTImage;
 321   entry->encoder=(EncodeImageHandler *) WriteEPTImage;
 322   entry->magick=(IsImageFormatHandler *) IsEPT;
 323   entry->flags|=CoderDecoderSeekableStreamFlag;
 324   entry->flags^=CoderBlobSupportFlag;
 325   (void) RegisterMagickInfo(entry);
 326   return(MagickImageCoderSignature);
 327 }
 328 \f
 329 /*
 330 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 331 %                                                                             %
 332 %                                                                             %
 333 %                                                                             %
 334 %   U n r e g i s t e r E P T I m a g e                                       %
 335 %                                                                             %
 336 %                                                                             %
 337 %                                                                             %
 338 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 339 %
 340 %  UnregisterEPTImage() removes format registrations made by the
 341 %  EPT module from the list of supported formats.
 342 %
 343 %  The format of the UnregisterEPTImage method is:
 344 %
 345 %      UnregisterEPTImage(void)
 346 %
 347 */
 348 ModuleExport void UnregisterEPTImage(void)
 349 {
 350   (void) UnregisterMagickInfo("EPT");
 351 }
 352 \f
 353 /*
 354 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 355 %                                                                             %
 356 %                                                                             %
 357 %                                                                             %
 358 %   W r i t e E P T I m a g e                                                 %
 359 %                                                                             %
 360 %                                                                             %
 361 %                                                                             %
 362 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 363 %
 364 %  WriteEPTImage() writes an image in the Encapsulated Postscript format
 365 %  with a TIFF preview.
 366 %
 367 %  The format of the WriteEPTImage method is:
 368 %
 369 %      MagickBooleanType WriteEPTImage(const ImageInfo *image_info,
 370 %        Image *image,ExceptionInfo *exception)
 371 %
 372 %  A description of each parameter follows.
 373 %
 374 %    o image_info: the image info.
 375 %
 376 %    o image:  The image.
 377 %
 378 %    o exception: return any errors or warnings in this structure.
 379 %
 380 */
 381 static MagickBooleanType WriteEPTImage(const ImageInfo *image_info,Image *image,
 382   ExceptionInfo *exception)
 383 {
 384   char
 385     filename[MagickPathExtent];
 386
 387   EPTInfo
 388     ept_info;
 389
 390   Image
 391     *write_image;
 392
 393   ImageInfo
 394     *write_info;
 395
 396   MagickBooleanType
 397     status;
 398
 399   /*
 400     Write EPT image.
 401   */
 402   assert(image_info != (const ImageInfo *) NULL);
 403   assert(image_info->signature == MagickCoreSignature);
 404   assert(image != (Image *) NULL);
 405   assert(image->signature == MagickCoreSignature);
 406   if (image->debug != MagickFalse)
 407     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
 408   assert(exception != (ExceptionInfo *) NULL);
 409   assert(exception->signature == MagickCoreSignature);
 410   status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
 411   if (status == MagickFalse)
 412     return(status);
 413   write_image=CloneImage(image,0,0,MagickTrue,exception);
 414   if (write_image == (Image *) NULL)
 415     return(MagickFalse);
 416   write_info=CloneImageInfo(image_info);
 417   (void) CopyMagickString(write_info->filename,"EPS:",MagickPathExtent);
 418   (void) CopyMagickString(write_info->magick,"EPS",MagickPathExtent);
 419   if (LocaleCompare(image_info->magick,"EPT2") == 0)
 420     {
 421       (void) CopyMagickString(write_info->filename,"EPS2:",MagickPathExtent);
 422       (void) CopyMagickString(write_info->magick,"EPS2",MagickPathExtent);
 423     }
 424   if (LocaleCompare(image_info->magick,"EPT3") == 0)
 425     {
 426       (void) CopyMagickString(write_info->filename,"EPS3:",MagickPathExtent);
 427       (void) CopyMagickString(write_info->magick,"EPS3",MagickPathExtent);
 428     }
 429   (void) memset(&ept_info,0,sizeof(ept_info));
 430   ept_info.magick=0xc6d3d0c5ul;
 431   ept_info.postscript=(unsigned char *) ImageToBlob(write_info,write_image,
 432     &ept_info.postscript_length,exception);
 433   write_image=DestroyImage(write_image);
 434   write_info=DestroyImageInfo(write_info);
 435   if (ept_info.postscript == (void *) NULL)
 436     return(MagickFalse);
 437   write_image=CloneImage(image,0,0,MagickTrue,exception);
 438   if (write_image == (Image *) NULL)
 439     return(MagickFalse);
 440   write_info=CloneImageInfo(image_info);
 441   (void) CopyMagickString(write_info->magick,"TIFF",MagickPathExtent);
 442   (void) FormatLocaleString(filename,MagickPathExtent,"tiff:%s",
 443     write_info->filename);
 444   (void) CopyMagickString(write_info->filename,filename,MagickPathExtent);
 445   if ((write_image->columns > 512) || (write_image->rows > 512))
 446     {
 447       Image
 448         *resize_image;
 449
 450       resize_image=ResizeImage(write_image,512,512,write_image->filter,
 451         exception);
 452       if (resize_image != (Image *) NULL)
 453         {
 454           write_image=DestroyImage(write_image);
 455           write_image=resize_image;
 456         }
 457     }
 458   if ((write_image->storage_class == DirectClass) ||
 459       (write_image->colors > 256))
 460     {
 461       QuantizeInfo
 462         quantize_info;
 463
 464       /*
 465         EPT preview requires that the image is colormapped.
 466       */
 467       GetQuantizeInfo(&quantize_info);
 468       quantize_info.dither_method=IdentifyPaletteImage(write_image,
 469         exception) == MagickFalse ? RiemersmaDitherMethod : NoDitherMethod;
 470       (void) QuantizeImage(&quantize_info,write_image,exception);
 471     }
 472   write_info->compression=NoCompression;
 473   ept_info.tiff=(unsigned char *) ImageToBlob(write_info,write_image,
 474     &ept_info.tiff_length,exception);
 475   write_image=DestroyImage(write_image);
 476   write_info=DestroyImageInfo(write_info);
 477   if (ept_info.tiff == (void *) NULL)
 478     {
 479       ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 480         ept_info.postscript);
 481       return(MagickFalse);
 482     }
 483   /*
 484     Write EPT image.
 485   */
 486   (void) WriteBlobLSBLong(image,(unsigned int) ept_info.magick);
 487   (void) WriteBlobLSBLong(image,30);
 488   (void) WriteBlobLSBLong(image,(unsigned int) ept_info.postscript_length);
 489   (void) WriteBlobLSBLong(image,0);
 490   (void) WriteBlobLSBLong(image,0);
 491   (void) WriteBlobLSBLong(image,(unsigned int) ept_info.postscript_length+30);
 492   (void) WriteBlobLSBLong(image,(unsigned int) ept_info.tiff_length);
 493   (void) WriteBlobLSBShort(image,0xffff);
 494   (void) WriteBlob(image,ept_info.postscript_length,ept_info.postscript);
 495   (void) WriteBlob(image,ept_info.tiff_length,ept_info.tiff);
 496   /*
 497     Relinquish resources.
 498   */
 499   ept_info.postscript=(unsigned char *) RelinquishMagickMemory(
 500     ept_info.postscript);
 501   ept_info.tiff=(unsigned char *) RelinquishMagickMemory(ept_info.tiff);
 502   (void) CloseBlob(image);
 503   return(MagickTrue);
 504 }