MagickCore  6.9.13-17
Convert, Edit, Or Compose Bitmap Images
property.c
1 /*
2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 % %
4 % %
5 % %
6 % PPPP RRRR OOO PPPP EEEEE RRRR TTTTT Y Y %
7 % P P R R O O P P E R R T Y Y %
8 % PPPP RRRR O O PPPP EEE RRRR T Y %
9 % P R R O O P E R R T Y %
10 % P R R OOO P EEEEE R R T Y %
11 % %
12 % %
13 % MagickCore Property Methods %
14 % %
15 % Software Design %
16 % Cristy %
17 % March 2000 %
18 % %
19 % %
20 % Copyright 1999 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://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 */
39 
40 /*
41  Include declarations.
42 */
43 #include "magick/studio.h"
44 #include "magick/artifact.h"
45 #include "magick/attribute.h"
46 #include "magick/cache.h"
47 #include "magick/cache-private.h"
48 #include "magick/color.h"
49 #include "magick/colorspace-private.h"
50 #include "magick/compare.h"
51 #include "magick/constitute.h"
52 #include "magick/draw.h"
53 #include "magick/effect.h"
54 #include "magick/exception.h"
55 #include "magick/exception-private.h"
56 #include "magick/fx.h"
57 #include "magick/fx-private.h"
58 #include "magick/gem.h"
59 #include "magick/geometry.h"
60 #include "magick/histogram.h"
61 #include "magick/image.h"
62 #include "magick/image.h"
63 #include "magick/layer.h"
64 #include "magick/list.h"
65 #include "magick/magick.h"
66 #include "magick/memory_.h"
67 #include "magick/monitor.h"
68 #include "magick/montage.h"
69 #include "magick/option.h"
70 #include "magick/policy.h"
71 #include "magick/profile.h"
72 #include "magick/property.h"
73 #include "magick/quantum.h"
74 #include "magick/resource_.h"
75 #include "magick/splay-tree.h"
76 #include "magick/signature-private.h"
77 #include "magick/statistic.h"
78 #include "magick/string_.h"
79 #include "magick/string-private.h"
80 #include "magick/token.h"
81 #include "magick/utility.h"
82 #include "magick/version.h"
83 #include "magick/xml-tree.h"
84 #if defined(MAGICKCORE_LCMS_DELEGATE)
85 #if defined(MAGICKCORE_HAVE_LCMS2_LCMS2_H)
86 #include <lcms2/lcms2.h>
87 #elif defined(MAGICKCORE_HAVE_LCMS2_H)
88 #include "lcms2.h"
89 #elif defined(MAGICKCORE_HAVE_LCMS_LCMS_H)
90 #include <lcms/lcms.h>
91 #else
92 #include "lcms.h"
93 #endif
94 #endif
95 
96 /*
97  Define declarations.
98 */
99 #if defined(MAGICKCORE_LCMS_DELEGATE)
100 #if defined(LCMS_VERSION) && (LCMS_VERSION < 2000)
101 #define cmsUInt32Number DWORD
102 #endif
103 #endif
104 
105 /*
106 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 % %
108 % %
109 % %
110 % C l o n e I m a g e P r o p e r t i e s %
111 % %
112 % %
113 % %
114 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 %
116 % CloneImageProperties() clones all the image properties to another image.
117 %
118 % The format of the CloneImageProperties method is:
119 %
120 % MagickBooleanType CloneImageProperties(Image *image,
121 % const Image *clone_image)
122 %
123 % A description of each parameter follows:
124 %
125 % o image: the image.
126 %
127 % o clone_image: the clone image.
128 %
129 */
130 MagickExport MagickBooleanType CloneImageProperties(Image *image,
131  const Image *clone_image)
132 {
133  assert(image != (Image *) NULL);
134  assert(image->signature == MagickCoreSignature);
135  assert(clone_image != (const Image *) NULL);
136  assert(clone_image->signature == MagickCoreSignature);
137  if (IsEventLogging() != MagickFalse)
138  {
139  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
140  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
141  clone_image->filename);
142  }
143  (void) CopyMagickString(image->filename,clone_image->filename,MaxTextExtent);
144  (void) CopyMagickString(image->magick_filename,clone_image->magick_filename,
145  MaxTextExtent);
146  image->compression=clone_image->compression;
147  image->quality=clone_image->quality;
148  image->depth=clone_image->depth;
149  image->background_color=clone_image->background_color;
150  image->border_color=clone_image->border_color;
151  image->matte_color=clone_image->matte_color;
152  image->transparent_color=clone_image->transparent_color;
153  image->gamma=clone_image->gamma;
154  image->chromaticity=clone_image->chromaticity;
155  image->rendering_intent=clone_image->rendering_intent;
156  image->black_point_compensation=clone_image->black_point_compensation;
157  image->units=clone_image->units;
158  image->montage=(char *) NULL;
159  image->directory=(char *) NULL;
160  (void) CloneString(&image->geometry,clone_image->geometry);
161  image->offset=clone_image->offset;
162  image->x_resolution=clone_image->x_resolution;
163  image->y_resolution=clone_image->y_resolution;
164  image->page=clone_image->page;
165  image->tile_offset=clone_image->tile_offset;
166  image->extract_info=clone_image->extract_info;
167  image->bias=clone_image->bias;
168  image->filter=clone_image->filter;
169  image->blur=clone_image->blur;
170  image->fuzz=clone_image->fuzz;
171  image->intensity=clone_image->intensity;
172  image->interlace=clone_image->interlace;
173  image->interpolate=clone_image->interpolate;
174  image->endian=clone_image->endian;
175  image->gravity=clone_image->gravity;
176  image->compose=clone_image->compose;
177  image->orientation=clone_image->orientation;
178  image->scene=clone_image->scene;
179  image->dispose=clone_image->dispose;
180  image->delay=clone_image->delay;
181  image->ticks_per_second=clone_image->ticks_per_second;
182  image->iterations=clone_image->iterations;
183  image->total_colors=clone_image->total_colors;
184  image->taint=clone_image->taint;
185  image->progress_monitor=clone_image->progress_monitor;
186  image->client_data=clone_image->client_data;
187  image->start_loop=clone_image->start_loop;
188  image->error=clone_image->error;
189  image->signature=clone_image->signature;
190  if (clone_image->properties != (void *) NULL)
191  {
192  if (image->properties != (void *) NULL)
193  DestroyImageProperties(image);
194  image->properties=CloneSplayTree((SplayTreeInfo *)
195  clone_image->properties,(void *(*)(void *)) ConstantString,
196  (void *(*)(void *)) ConstantString);
197  }
198  return(MagickTrue);
199 }
200 
201 /*
202 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 % %
204 % %
205 % %
206 % D e f i n e I m a g e P r o p e r t y %
207 % %
208 % %
209 % %
210 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 %
212 % DefineImageProperty() associates an assignment string of the form
213 % "key=value" with an artifact or options. It is equivalent to
214 % SetImageProperty().
215 %
216 % The format of the DefineImageProperty method is:
217 %
218 % MagickBooleanType DefineImageProperty(Image *image,
219 % const char *property)
220 %
221 % A description of each parameter follows:
222 %
223 % o image: the image.
224 %
225 % o property: the image property.
226 %
227 */
228 MagickExport MagickBooleanType DefineImageProperty(Image *image,
229  const char *property)
230 {
231  char
232  key[MaxTextExtent],
233  value[MaxTextExtent];
234 
235  char
236  *p;
237 
238  assert(image != (Image *) NULL);
239  assert(property != (const char *) NULL);
240  (void) CopyMagickString(key,property,MaxTextExtent-1);
241  for (p=key; *p != '\0'; p++)
242  if (*p == '=')
243  break;
244  *value='\0';
245  if (*p == '=')
246  (void) CopyMagickString(value,p+1,MaxTextExtent);
247  *p='\0';
248  return(SetImageProperty(image,key,value));
249 }
250 
251 /*
252 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 % %
254 % %
255 % %
256 % D e l e t e I m a g e P r o p e r t y %
257 % %
258 % %
259 % %
260 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 %
262 % DeleteImageProperty() deletes an image property.
263 %
264 % The format of the DeleteImageProperty method is:
265 %
266 % MagickBooleanType DeleteImageProperty(Image *image,const char *property)
267 %
268 % A description of each parameter follows:
269 %
270 % o image: the image.
271 %
272 % o property: the image property.
273 %
274 */
275 MagickExport MagickBooleanType DeleteImageProperty(Image *image,
276  const char *property)
277 {
278  assert(image != (Image *) NULL);
279  assert(image->signature == MagickCoreSignature);
280  if (IsEventLogging() != MagickFalse)
281  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
282  if (image->properties == (void *) NULL)
283  return(MagickFalse);
284  return(DeleteNodeFromSplayTree((SplayTreeInfo *) image->properties,property));
285 }
286 
287 /*
288 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 % %
290 % %
291 % %
292 % D e s t r o y I m a g e P r o p e r t i e s %
293 % %
294 % %
295 % %
296 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297 %
298 % DestroyImageProperties() destroys all properties and associated memory
299 % attached to the given image.
300 %
301 % The format of the DestroyDefines method is:
302 %
303 % void DestroyImageProperties(Image *image)
304 %
305 % A description of each parameter follows:
306 %
307 % o image: the image.
308 %
309 */
310 MagickExport void DestroyImageProperties(Image *image)
311 {
312  assert(image != (Image *) NULL);
313  assert(image->signature == MagickCoreSignature);
314  if (IsEventLogging() != MagickFalse)
315  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
316  if (image->properties != (void *) NULL)
317  image->properties=(void *) DestroySplayTree((SplayTreeInfo *)
318  image->properties);
319 }
320 
321 /*
322 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 % %
324 % %
325 % %
326 % F o r m a t I m a g e P r o p e r t y %
327 % %
328 % %
329 % %
330 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 %
332 % FormatImageProperty() permits formatted property/value pairs to be saved as
333 % an image property.
334 %
335 % The format of the FormatImageProperty method is:
336 %
337 % MagickBooleanType FormatImageProperty(Image *image,const char *property,
338 % const char *format,...)
339 %
340 % A description of each parameter follows.
341 %
342 % o image: The image.
343 %
344 % o property: The attribute property.
345 %
346 % o format: A string describing the format to use to write the remaining
347 % arguments.
348 %
349 */
350 MagickExport MagickBooleanType FormatImageProperty(Image *image,
351  const char *property,const char *format,...)
352 {
353  char
354  value[MaxTextExtent];
355 
356  ssize_t
357  n;
358 
359  va_list
360  operands;
361 
362  va_start(operands,format);
363  n=FormatLocaleStringList(value,MaxTextExtent,format,operands);
364  (void) n;
365  va_end(operands);
366  return(SetImageProperty(image,property,value));
367 }
368 
369 /*
370 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 % %
372 % %
373 % %
374 % G e t I m a g e P r o p e r t y %
375 % %
376 % %
377 % %
378 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 %
380 % GetImageProperty() gets a value associated with an image property.
381 %
382 % This includes, profile prefixes, such as "exif:", "iptc:" and "8bim:"
383 % It does not handle non-profile prefixes, such as "fx:", "option:", or
384 % "artifact:".
385 %
386 % The returned string is stored as a prosperity of the same name for faster
387 % lookup later. It should NOT be freed by the caller.
388 %
389 % The format of the GetImageProperty method is:
390 %
391 % const char *GetImageProperty(const Image *image,const char *key)
392 %
393 % A description of each parameter follows:
394 %
395 % o image: the image.
396 %
397 % o key: the key.
398 %
399 */
400 
401 static char
402  *TracePSClippath(const unsigned char *,size_t,const size_t,
403  const size_t),
404  *TraceSVGClippath(const unsigned char *,size_t,const size_t,
405  const size_t);
406 
407 static MagickBooleanType GetIPTCProperty(const Image *image,const char *key)
408 {
409  char
410  *attribute,
411  *message;
412 
413  const StringInfo
414  *profile;
415 
416  long
417  count,
418  dataset,
419  record;
420 
421  ssize_t
422  i;
423 
424  size_t
425  length;
426 
427  profile=GetImageProfile(image,"iptc");
428  if (profile == (StringInfo *) NULL)
429  profile=GetImageProfile(image,"8bim");
430  if (profile == (StringInfo *) NULL)
431  return(MagickFalse);
432  count=sscanf(key,"IPTC:%ld:%ld",&dataset,&record);
433  if (count != 2)
434  return(MagickFalse);
435  attribute=(char *) NULL;
436  for (i=0; i < (ssize_t) GetStringInfoLength(profile); i+=(ssize_t) length)
437  {
438  length=1;
439  if ((ssize_t) GetStringInfoDatum(profile)[i] != 0x1c)
440  continue;
441  length=(size_t) (GetStringInfoDatum(profile)[i+3] << 8);
442  length|=GetStringInfoDatum(profile)[i+4];
443  if (((long) GetStringInfoDatum(profile)[i+1] == dataset) &&
444  ((long) GetStringInfoDatum(profile)[i+2] == record))
445  {
446  message=(char *) NULL;
447  if (~length >= 1)
448  message=(char *) AcquireQuantumMemory(length+1UL,sizeof(*message));
449  if (message != (char *) NULL)
450  {
451  (void) CopyMagickString(message,(char *) GetStringInfoDatum(
452  profile)+i+5,length+1);
453  (void) ConcatenateString(&attribute,message);
454  (void) ConcatenateString(&attribute,";");
455  message=DestroyString(message);
456  }
457  }
458  i+=5;
459  }
460  if ((attribute == (char *) NULL) || (*attribute == ';'))
461  {
462  if (attribute != (char *) NULL)
463  attribute=DestroyString(attribute);
464  return(MagickFalse);
465  }
466  attribute[strlen(attribute)-1]='\0';
467  (void) SetImageProperty((Image *) image,key,(const char *) attribute);
468  attribute=DestroyString(attribute);
469  return(MagickTrue);
470 }
471 
472 static inline int ReadPropertyByte(const unsigned char **p,size_t *length)
473 {
474  int
475  c;
476 
477  if (*length < 1)
478  return(EOF);
479  c=(int) (*(*p)++);
480  (*length)--;
481  return(c);
482 }
483 
484 static inline signed int ReadPropertyMSBLong(const unsigned char **p,
485  size_t *length)
486 {
487  union
488  {
489  unsigned int
490  unsigned_value;
491 
492  signed int
493  signed_value;
494  } quantum;
495 
496  int
497  c;
498 
499  ssize_t
500  i;
501 
502  unsigned char
503  buffer[4];
504 
505  unsigned int
506  value;
507 
508  if (*length < 4)
509  return(-1);
510  for (i=0; i < 4; i++)
511  {
512  c=(int) (*(*p)++);
513  (*length)--;
514  buffer[i]=(unsigned char) c;
515  }
516  value=(unsigned int) buffer[0] << 24;
517  value|=(unsigned int) buffer[1] << 16;
518  value|=(unsigned int) buffer[2] << 8;
519  value|=(unsigned int) buffer[3];
520  quantum.unsigned_value=value & 0xffffffff;
521  return(quantum.signed_value);
522 }
523 
524 static inline signed short ReadPropertyMSBShort(const unsigned char **p,
525  size_t *length)
526 {
527  union
528  {
529  unsigned short
530  unsigned_value;
531 
532  signed short
533  signed_value;
534  } quantum;
535 
536  int
537  c;
538 
539  ssize_t
540  i;
541 
542  unsigned char
543  buffer[2];
544 
545  unsigned short
546  value;
547 
548  if (*length < 2)
549  return((unsigned short) ~0);
550  for (i=0; i < 2; i++)
551  {
552  c=(int) (*(*p)++);
553  (*length)--;
554  buffer[i]=(unsigned char) c;
555  }
556  value=(unsigned short) buffer[0] << 8;
557  value|=(unsigned short) buffer[1];
558  quantum.unsigned_value=value & 0xffff;
559  return(quantum.signed_value);
560 }
561 
562 static MagickBooleanType Get8BIMProperty(const Image *image,const char *key)
563 {
564  char
565  *attribute,
566  format[MaxTextExtent],
567  name[MaxTextExtent],
568  *resource;
569 
570  const StringInfo
571  *profile;
572 
573  const unsigned char
574  *info;
575 
576  long
577  start,
578  stop;
579 
580  MagickBooleanType
581  status;
582 
583  ssize_t
584  i;
585 
586  size_t
587  length;
588 
589  ssize_t
590  count,
591  id,
592  sub_number;
593 
594  /*
595  There are no newlines in path names, so it's safe as terminator.
596  */
597  profile=GetImageProfile(image,"8bim");
598  if (profile == (StringInfo *) NULL)
599  return(MagickFalse);
600  count=(ssize_t) sscanf(key,"8BIM:%ld,%ld:%1024[^\n]\n%1024[^\n]",&start,&stop,
601  name,format);
602  if ((count != 2) && (count != 3) && (count != 4))
603  return(MagickFalse);
604  if (count < 4)
605  (void) CopyMagickString(format,"SVG",MaxTextExtent);
606  if (count < 3)
607  *name='\0';
608  sub_number=1;
609  if (*name == '#')
610  sub_number=(ssize_t) StringToLong(&name[1]);
611  sub_number=MagickMax(sub_number,1L);
612  resource=(char *) NULL;
613  status=MagickFalse;
614  length=GetStringInfoLength(profile);
615  info=GetStringInfoDatum(profile);
616  while ((length > 0) && (status == MagickFalse))
617  {
618  if (ReadPropertyByte(&info,&length) != (unsigned char) '8')
619  continue;
620  if (ReadPropertyByte(&info,&length) != (unsigned char) 'B')
621  continue;
622  if (ReadPropertyByte(&info,&length) != (unsigned char) 'I')
623  continue;
624  if (ReadPropertyByte(&info,&length) != (unsigned char) 'M')
625  continue;
626  id=(ssize_t) ReadPropertyMSBShort(&info,&length);
627  if (id < (ssize_t) start)
628  continue;
629  if (id > (ssize_t) stop)
630  continue;
631  if (resource != (char *) NULL)
632  resource=DestroyString(resource);
633  count=(ssize_t) ReadPropertyByte(&info,&length);
634  if ((count != 0) && ((size_t) count <= length))
635  {
636  resource=(char *) NULL;
637  if (~((size_t) count) >= (MaxTextExtent-1))
638  resource=(char *) AcquireQuantumMemory((size_t) count+MaxTextExtent,
639  sizeof(*resource));
640  if (resource != (char *) NULL)
641  {
642  for (i=0; i < (ssize_t) count; i++)
643  resource[i]=(char) ReadPropertyByte(&info,&length);
644  resource[count]='\0';
645  }
646  }
647  if ((count & 0x01) == 0)
648  (void) ReadPropertyByte(&info,&length);
649  count=(ssize_t) ReadPropertyMSBLong(&info,&length);
650  if ((count < 0) || ((size_t) count > length))
651  {
652  length=0;
653  continue;
654  }
655  if ((*name != '\0') && (*name != '#'))
656  if ((resource == (char *) NULL) || (LocaleCompare(name,resource) != 0))
657  {
658  /*
659  No name match, scroll forward and try next.
660  */
661  info+=count;
662  length-=MagickMin(count,(ssize_t) length);
663  continue;
664  }
665  if ((*name == '#') && (sub_number != 1))
666  {
667  /*
668  No numbered match, scroll forward and try next.
669  */
670  sub_number--;
671  info+=count;
672  length-=MagickMin(count,(ssize_t) length);
673  continue;
674  }
675  /*
676  We have the resource of interest.
677  */
678  attribute=(char *) NULL;
679  if (~((size_t) count) >= (MaxTextExtent-1))
680  attribute=(char *) AcquireQuantumMemory((size_t) count+MaxTextExtent,
681  sizeof(*attribute));
682  if (attribute != (char *) NULL)
683  {
684  (void) memcpy(attribute,(char *) info,(size_t) count);
685  attribute[count]='\0';
686  info+=count;
687  length-=MagickMin(count,(ssize_t) length);
688  if ((id <= 1999) || (id >= 2999))
689  (void) SetImageProperty((Image *) image,key,(const char *) attribute);
690  else
691  {
692  char
693  *path;
694 
695  if (LocaleCompare(format,"svg") == 0)
696  path=TraceSVGClippath((unsigned char *) attribute,(size_t) count,
697  image->columns,image->rows);
698  else
699  path=TracePSClippath((unsigned char *) attribute,(size_t) count,
700  image->columns,image->rows);
701  (void) SetImageProperty((Image *) image,key,(const char *) path);
702  path=DestroyString(path);
703  }
704  attribute=DestroyString(attribute);
705  status=MagickTrue;
706  }
707  }
708  if (resource != (char *) NULL)
709  resource=DestroyString(resource);
710  return(status);
711 }
712 
713 static inline signed int ReadPropertySignedLong(const EndianType endian,
714  const unsigned char *buffer)
715 {
716  union
717  {
718  unsigned int
719  unsigned_value;
720 
721  signed int
722  signed_value;
723  } quantum;
724 
725  unsigned int
726  value;
727 
728  if (endian == LSBEndian)
729  {
730  value=(unsigned int) buffer[3] << 24;
731  value|=(unsigned int) buffer[2] << 16;
732  value|=(unsigned int) buffer[1] << 8;
733  value|=(unsigned int) buffer[0];
734  quantum.unsigned_value=value & 0xffffffff;
735  return(quantum.signed_value);
736  }
737  value=(unsigned int) buffer[0] << 24;
738  value|=(unsigned int) buffer[1] << 16;
739  value|=(unsigned int) buffer[2] << 8;
740  value|=(unsigned int) buffer[3];
741  quantum.unsigned_value=value & 0xffffffff;
742  return(quantum.signed_value);
743 }
744 
745 static inline unsigned int ReadPropertyUnsignedLong(const EndianType endian,
746  const unsigned char *buffer)
747 {
748  unsigned int
749  value;
750 
751  if (endian == LSBEndian)
752  {
753  value=(unsigned int) buffer[3] << 24;
754  value|=(unsigned int) buffer[2] << 16;
755  value|=(unsigned int) buffer[1] << 8;
756  value|=(unsigned int) buffer[0];
757  return(value & 0xffffffff);
758  }
759  value=(unsigned int) buffer[0] << 24;
760  value|=(unsigned int) buffer[1] << 16;
761  value|=(unsigned int) buffer[2] << 8;
762  value|=(unsigned int) buffer[3];
763  return(value & 0xffffffff);
764 }
765 
766 static inline signed short ReadPropertySignedShort(const EndianType endian,
767  const unsigned char *buffer)
768 {
769  union
770  {
771  unsigned short
772  unsigned_value;
773 
774  signed short
775  signed_value;
776  } quantum;
777 
778  unsigned short
779  value;
780 
781  if (endian == LSBEndian)
782  {
783  value=(unsigned short) buffer[1] << 8;
784  value|=(unsigned short) buffer[0];
785  quantum.unsigned_value=value & 0xffff;
786  return(quantum.signed_value);
787  }
788  value=(unsigned short) buffer[0] << 8;
789  value|=(unsigned short) buffer[1];
790  quantum.unsigned_value=value & 0xffff;
791  return(quantum.signed_value);
792 }
793 
794 static inline unsigned short ReadPropertyUnsignedShort(const EndianType endian,
795  const unsigned char *buffer)
796 {
797  unsigned short
798  value;
799 
800  if (endian == LSBEndian)
801  {
802  value=(unsigned short) buffer[1] << 8;
803  value|=(unsigned short) buffer[0];
804  return(value & 0xffff);
805  }
806  value=(unsigned short) buffer[0] << 8;
807  value|=(unsigned short) buffer[1];
808  return(value & 0xffff);
809 }
810 
811 static MagickBooleanType GetEXIFProperty(const Image *image,
812  const char *property)
813 {
814 #define MaxDirectoryStack 16
815 #define EXIF_DELIMITER "\n"
816 #define EXIF_NUM_FORMATS 12
817 #define EXIF_FMT_BYTE 1
818 #define EXIF_FMT_STRING 2
819 #define EXIF_FMT_USHORT 3
820 #define EXIF_FMT_ULONG 4
821 #define EXIF_FMT_URATIONAL 5
822 #define EXIF_FMT_SBYTE 6
823 #define EXIF_FMT_UNDEFINED 7
824 #define EXIF_FMT_SSHORT 8
825 #define EXIF_FMT_SLONG 9
826 #define EXIF_FMT_SRATIONAL 10
827 #define EXIF_FMT_SINGLE 11
828 #define EXIF_FMT_DOUBLE 12
829 #define GPS_LATITUDE 0x10002
830 #define GPS_LONGITUDE 0x10004
831 #define GPS_TIMESTAMP 0x10007
832 #define TAG_EXIF_OFFSET 0x8769
833 #define TAG_GPS_OFFSET 0x8825
834 #define TAG_INTEROP_OFFSET 0xa005
835 
836 
837 #define EXIFGPSFractions(format,arg1,arg2,arg3,arg4,arg5,arg6) \
838 { \
839  size_t \
840  extent = 0; \
841  \
842  ssize_t \
843  component = 0; \
844  \
845  for ( ; component < components; component++) \
846  { \
847  if (component != 0) \
848  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent- \
849  extent,", "); \
850  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent- \
851  extent,format,(arg1),(arg2),(arg3),(arg4),(arg5),(arg6)); \
852  if (extent >= (MagickPathExtent-1)) \
853  extent=MagickPathExtent-1; \
854  } \
855  buffer[extent]='\0'; \
856  value=AcquireString(buffer); \
857 }
858 
859 #define EXIFMultipleValues(format,arg) \
860 { \
861  size_t \
862  extent = 0; \
863  \
864  ssize_t \
865  component = 0; \
866  \
867  for ( ; component < components; component++) \
868  { \
869  if (component != 0) \
870  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent- \
871  extent,", "); \
872  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent- \
873  extent,format,arg); \
874  if (extent >= (MagickPathExtent-1)) \
875  extent=MagickPathExtent-1; \
876  } \
877  buffer[extent]='\0'; \
878  value=AcquireString(buffer); \
879 }
880 
881 #define EXIFMultipleFractions(format,arg1,arg2) \
882 { \
883  size_t \
884  extent = 0; \
885  \
886  ssize_t \
887  component = 0; \
888  \
889  for ( ; component < components; component++) \
890  { \
891  if (component != 0) \
892  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent-\
893  extent,", "); \
894  extent+=(size_t) FormatLocaleString(buffer+extent,MagickPathExtent- \
895  extent,format,(arg1),(arg2)); \
896  if (extent >= (MagickPathExtent-1)) \
897  extent=MagickPathExtent-1; \
898  } \
899  buffer[extent]='\0'; \
900  value=AcquireString(buffer); \
901 }
902 
903  typedef struct _DirectoryInfo
904  {
905  const unsigned char
906  *directory;
907 
908  size_t
909  entry;
910 
911  ssize_t
912  offset;
913  } DirectoryInfo;
914 
915  typedef struct _TagInfo
916  {
917  size_t
918  tag;
919 
920  const char
921  description[36];
922  } TagInfo;
923 
924  static const TagInfo
925  EXIFTag[] =
926  {
927  { 0x001, "exif:InteroperabilityIndex" },
928  { 0x002, "exif:InteroperabilityVersion" },
929  { 0x100, "exif:ImageWidth" },
930  { 0x101, "exif:ImageLength" },
931  { 0x102, "exif:BitsPerSample" },
932  { 0x103, "exif:Compression" },
933  { 0x106, "exif:PhotometricInterpretation" },
934  { 0x10a, "exif:FillOrder" },
935  { 0x10d, "exif:DocumentName" },
936  { 0x10e, "exif:ImageDescription" },
937  { 0x10f, "exif:Make" },
938  { 0x110, "exif:Model" },
939  { 0x111, "exif:StripOffsets" },
940  { 0x112, "exif:Orientation" },
941  { 0x115, "exif:SamplesPerPixel" },
942  { 0x116, "exif:RowsPerStrip" },
943  { 0x117, "exif:StripByteCounts" },
944  { 0x11a, "exif:XResolution" },
945  { 0x11b, "exif:YResolution" },
946  { 0x11c, "exif:PlanarConfiguration" },
947  { 0x11d, "exif:PageName" },
948  { 0x11e, "exif:XPosition" },
949  { 0x11f, "exif:YPosition" },
950  { 0x118, "exif:MinSampleValue" },
951  { 0x119, "exif:MaxSampleValue" },
952  { 0x120, "exif:FreeOffsets" },
953  { 0x121, "exif:FreeByteCounts" },
954  { 0x122, "exif:GrayResponseUnit" },
955  { 0x123, "exif:GrayResponseCurve" },
956  { 0x124, "exif:T4Options" },
957  { 0x125, "exif:T6Options" },
958  { 0x128, "exif:ResolutionUnit" },
959  { 0x12d, "exif:TransferFunction" },
960  { 0x131, "exif:Software" },
961  { 0x132, "exif:DateTime" },
962  { 0x13b, "exif:Artist" },
963  { 0x13e, "exif:WhitePoint" },
964  { 0x13f, "exif:PrimaryChromaticities" },
965  { 0x140, "exif:ColorMap" },
966  { 0x141, "exif:HalfToneHints" },
967  { 0x142, "exif:TileWidth" },
968  { 0x143, "exif:TileLength" },
969  { 0x144, "exif:TileOffsets" },
970  { 0x145, "exif:TileByteCounts" },
971  { 0x14a, "exif:SubIFD" },
972  { 0x14c, "exif:InkSet" },
973  { 0x14d, "exif:InkNames" },
974  { 0x14e, "exif:NumberOfInks" },
975  { 0x150, "exif:DotRange" },
976  { 0x151, "exif:TargetPrinter" },
977  { 0x152, "exif:ExtraSample" },
978  { 0x153, "exif:SampleFormat" },
979  { 0x154, "exif:SMinSampleValue" },
980  { 0x155, "exif:SMaxSampleValue" },
981  { 0x156, "exif:TransferRange" },
982  { 0x157, "exif:ClipPath" },
983  { 0x158, "exif:XClipPathUnits" },
984  { 0x159, "exif:YClipPathUnits" },
985  { 0x15a, "exif:Indexed" },
986  { 0x15b, "exif:JPEGTables" },
987  { 0x15f, "exif:OPIProxy" },
988  { 0x200, "exif:JPEGProc" },
989  { 0x201, "exif:JPEGInterchangeFormat" },
990  { 0x202, "exif:JPEGInterchangeFormatLength" },
991  { 0x203, "exif:JPEGRestartInterval" },
992  { 0x205, "exif:JPEGLosslessPredictors" },
993  { 0x206, "exif:JPEGPointTransforms" },
994  { 0x207, "exif:JPEGQTables" },
995  { 0x208, "exif:JPEGDCTables" },
996  { 0x209, "exif:JPEGACTables" },
997  { 0x211, "exif:YCbCrCoefficients" },
998  { 0x212, "exif:YCbCrSubSampling" },
999  { 0x213, "exif:YCbCrPositioning" },
1000  { 0x214, "exif:ReferenceBlackWhite" },
1001  { 0x2bc, "exif:ExtensibleMetadataPlatform" },
1002  { 0x301, "exif:Gamma" },
1003  { 0x302, "exif:ICCProfileDescriptor" },
1004  { 0x303, "exif:SRGBRenderingIntent" },
1005  { 0x320, "exif:ImageTitle" },
1006  { 0x5001, "exif:ResolutionXUnit" },
1007  { 0x5002, "exif:ResolutionYUnit" },
1008  { 0x5003, "exif:ResolutionXLengthUnit" },
1009  { 0x5004, "exif:ResolutionYLengthUnit" },
1010  { 0x5005, "exif:PrintFlags" },
1011  { 0x5006, "exif:PrintFlagsVersion" },
1012  { 0x5007, "exif:PrintFlagsCrop" },
1013  { 0x5008, "exif:PrintFlagsBleedWidth" },
1014  { 0x5009, "exif:PrintFlagsBleedWidthScale" },
1015  { 0x500A, "exif:HalftoneLPI" },
1016  { 0x500B, "exif:HalftoneLPIUnit" },
1017  { 0x500C, "exif:HalftoneDegree" },
1018  { 0x500D, "exif:HalftoneShape" },
1019  { 0x500E, "exif:HalftoneMisc" },
1020  { 0x500F, "exif:HalftoneScreen" },
1021  { 0x5010, "exif:JPEGQuality" },
1022  { 0x5011, "exif:GridSize" },
1023  { 0x5012, "exif:ThumbnailFormat" },
1024  { 0x5013, "exif:ThumbnailWidth" },
1025  { 0x5014, "exif:ThumbnailHeight" },
1026  { 0x5015, "exif:ThumbnailColorDepth" },
1027  { 0x5016, "exif:ThumbnailPlanes" },
1028  { 0x5017, "exif:ThumbnailRawBytes" },
1029  { 0x5018, "exif:ThumbnailSize" },
1030  { 0x5019, "exif:ThumbnailCompressedSize" },
1031  { 0x501a, "exif:ColorTransferFunction" },
1032  { 0x501b, "exif:ThumbnailData" },
1033  { 0x5020, "exif:ThumbnailImageWidth" },
1034  { 0x5021, "exif:ThumbnailImageHeight" },
1035  { 0x5022, "exif:ThumbnailBitsPerSample" },
1036  { 0x5023, "exif:ThumbnailCompression" },
1037  { 0x5024, "exif:ThumbnailPhotometricInterp" },
1038  { 0x5025, "exif:ThumbnailImageDescription" },
1039  { 0x5026, "exif:ThumbnailEquipMake" },
1040  { 0x5027, "exif:ThumbnailEquipModel" },
1041  { 0x5028, "exif:ThumbnailStripOffsets" },
1042  { 0x5029, "exif:ThumbnailOrientation" },
1043  { 0x502a, "exif:ThumbnailSamplesPerPixel" },
1044  { 0x502b, "exif:ThumbnailRowsPerStrip" },
1045  { 0x502c, "exif:ThumbnailStripBytesCount" },
1046  { 0x502d, "exif:ThumbnailResolutionX" },
1047  { 0x502e, "exif:ThumbnailResolutionY" },
1048  { 0x502f, "exif:ThumbnailPlanarConfig" },
1049  { 0x5030, "exif:ThumbnailResolutionUnit" },
1050  { 0x5031, "exif:ThumbnailTransferFunction" },
1051  { 0x5032, "exif:ThumbnailSoftwareUsed" },
1052  { 0x5033, "exif:ThumbnailDateTime" },
1053  { 0x5034, "exif:ThumbnailArtist" },
1054  { 0x5035, "exif:ThumbnailWhitePoint" },
1055  { 0x5036, "exif:ThumbnailPrimaryChromaticities" },
1056  { 0x5037, "exif:ThumbnailYCbCrCoefficients" },
1057  { 0x5038, "exif:ThumbnailYCbCrSubsampling" },
1058  { 0x5039, "exif:ThumbnailYCbCrPositioning" },
1059  { 0x503A, "exif:ThumbnailRefBlackWhite" },
1060  { 0x503B, "exif:ThumbnailCopyRight" },
1061  { 0x5090, "exif:LuminanceTable" },
1062  { 0x5091, "exif:ChrominanceTable" },
1063  { 0x5100, "exif:FrameDelay" },
1064  { 0x5101, "exif:LoopCount" },
1065  { 0x5110, "exif:PixelUnit" },
1066  { 0x5111, "exif:PixelPerUnitX" },
1067  { 0x5112, "exif:PixelPerUnitY" },
1068  { 0x5113, "exif:PaletteHistogram" },
1069  { 0x1000, "exif:RelatedImageFileFormat" },
1070  { 0x1001, "exif:RelatedImageLength" },
1071  { 0x1002, "exif:RelatedImageWidth" },
1072  { 0x800d, "exif:ImageID" },
1073  { 0x80e3, "exif:Matteing" },
1074  { 0x80e4, "exif:DataType" },
1075  { 0x80e5, "exif:ImageDepth" },
1076  { 0x80e6, "exif:TileDepth" },
1077  { 0x828d, "exif:CFARepeatPatternDim" },
1078  { 0x828e, "exif:CFAPattern2" },
1079  { 0x828f, "exif:BatteryLevel" },
1080  { 0x8298, "exif:Copyright" },
1081  { 0x829a, "exif:ExposureTime" },
1082  { 0x829d, "exif:FNumber" },
1083  { 0x83bb, "exif:IPTC/NAA" },
1084  { 0x84e3, "exif:IT8RasterPadding" },
1085  { 0x84e5, "exif:IT8ColorTable" },
1086  { 0x8649, "exif:ImageResourceInformation" },
1087  { 0x8769, "exif:ExifOffset" }, /* specs as "Exif IFD Pointer"? */
1088  { 0x8773, "exif:InterColorProfile" },
1089  { 0x8822, "exif:ExposureProgram" },
1090  { 0x8824, "exif:SpectralSensitivity" },
1091  { 0x8825, "exif:GPSInfo" }, /* specs as "GPSInfo IFD Pointer"? */
1092  { 0x8827, "exif:PhotographicSensitivity" },
1093  { 0x8828, "exif:OECF" },
1094  { 0x8829, "exif:Interlace" },
1095  { 0x882a, "exif:TimeZoneOffset" },
1096  { 0x882b, "exif:SelfTimerMode" },
1097  { 0x8830, "exif:SensitivityType" },
1098  { 0x8831, "exif:StandardOutputSensitivity" },
1099  { 0x8832, "exif:RecommendedExposureIndex" },
1100  { 0x8833, "exif:ISOSpeed" },
1101  { 0x8834, "exif:ISOSpeedLatitudeyyy" },
1102  { 0x8835, "exif:ISOSpeedLatitudezzz" },
1103  { 0x9000, "exif:ExifVersion" },
1104  { 0x9003, "exif:DateTimeOriginal" },
1105  { 0x9004, "exif:DateTimeDigitized" },
1106  { 0x9010, "exif:OffsetTime" },
1107  { 0x9011, "exif:OffsetTimeOriginal" },
1108  { 0x9012, "exif:OffsetTimeDigitized" },
1109  { 0x9101, "exif:ComponentsConfiguration" },
1110  { 0x9102, "exif:CompressedBitsPerPixel" },
1111  { 0x9201, "exif:ShutterSpeedValue" },
1112  { 0x9202, "exif:ApertureValue" },
1113  { 0x9203, "exif:BrightnessValue" },
1114  { 0x9204, "exif:ExposureBiasValue" },
1115  { 0x9205, "exif:MaxApertureValue" },
1116  { 0x9206, "exif:SubjectDistance" },
1117  { 0x9207, "exif:MeteringMode" },
1118  { 0x9208, "exif:LightSource" },
1119  { 0x9209, "exif:Flash" },
1120  { 0x920a, "exif:FocalLength" },
1121  { 0x920b, "exif:FlashEnergy" },
1122  { 0x920c, "exif:SpatialFrequencyResponse" },
1123  { 0x920d, "exif:Noise" },
1124  { 0x9214, "exif:SubjectArea" },
1125  { 0x9290, "exif:SubSecTime" },
1126  { 0x9291, "exif:SubSecTimeOriginal" },
1127  { 0x9292, "exif:SubSecTimeDigitized" },
1128  { 0x9211, "exif:ImageNumber" },
1129  { 0x9212, "exif:SecurityClassification" },
1130  { 0x9213, "exif:ImageHistory" },
1131  { 0x9214, "exif:SubjectArea" },
1132  { 0x9215, "exif:ExposureIndex" },
1133  { 0x9216, "exif:TIFF-EPStandardID" },
1134  { 0x927c, "exif:MakerNote" },
1135  { 0x9286, "exif:UserComment" },
1136  { 0x9290, "exif:SubSecTime" },
1137  { 0x9291, "exif:SubSecTimeOriginal" },
1138  { 0x9292, "exif:SubSecTimeDigitized" },
1139  { 0x9400, "exif:Temperature" },
1140  { 0x9401, "exif:Humidity" },
1141  { 0x9402, "exif:Pressure" },
1142  { 0x9403, "exif:WaterDepth" },
1143  { 0x9404, "exif:Acceleration" },
1144  { 0x9405, "exif:CameraElevationAngle" },
1145  { 0x9C9b, "exif:WinXP-Title" },
1146  { 0x9C9c, "exif:WinXP-Comments" },
1147  { 0x9C9d, "exif:WinXP-Author" },
1148  { 0x9C9e, "exif:WinXP-Keywords" },
1149  { 0x9C9f, "exif:WinXP-Subject" },
1150  { 0xa000, "exif:FlashPixVersion" },
1151  { 0xa001, "exif:ColorSpace" },
1152  { 0xa002, "exif:PixelXDimension" },
1153  { 0xa003, "exif:PixelYDimension" },
1154  { 0xa004, "exif:RelatedSoundFile" },
1155  { 0xa005, "exif:InteroperabilityOffset" },
1156  { 0xa20b, "exif:FlashEnergy" },
1157  { 0xa20c, "exif:SpatialFrequencyResponse" },
1158  { 0xa20d, "exif:Noise" },
1159  { 0xa20e, "exif:FocalPlaneXResolution" },
1160  { 0xa20f, "exif:FocalPlaneYResolution" },
1161  { 0xa210, "exif:FocalPlaneResolutionUnit" },
1162  { 0xa214, "exif:SubjectLocation" },
1163  { 0xa215, "exif:ExposureIndex" },
1164  { 0xa216, "exif:TIFF/EPStandardID" },
1165  { 0xa217, "exif:SensingMethod" },
1166  { 0xa300, "exif:FileSource" },
1167  { 0xa301, "exif:SceneType" },
1168  { 0xa302, "exif:CFAPattern" },
1169  { 0xa401, "exif:CustomRendered" },
1170  { 0xa402, "exif:ExposureMode" },
1171  { 0xa403, "exif:WhiteBalance" },
1172  { 0xa404, "exif:DigitalZoomRatio" },
1173  { 0xa405, "exif:FocalLengthIn35mmFilm" },
1174  { 0xa406, "exif:SceneCaptureType" },
1175  { 0xa407, "exif:GainControl" },
1176  { 0xa408, "exif:Contrast" },
1177  { 0xa409, "exif:Saturation" },
1178  { 0xa40a, "exif:Sharpness" },
1179  { 0xa40b, "exif:DeviceSettingDescription" },
1180  { 0xa40c, "exif:SubjectDistanceRange" },
1181  { 0xa420, "exif:ImageUniqueID" },
1182  { 0xa430, "exif:CameraOwnerName" },
1183  { 0xa431, "exif:BodySerialNumber" },
1184  { 0xa432, "exif:LensSpecification" },
1185  { 0xa433, "exif:LensMake" },
1186  { 0xa434, "exif:LensModel" },
1187  { 0xa435, "exif:LensSerialNumber" },
1188  { 0xc4a5, "exif:PrintImageMatching" },
1189  { 0xa500, "exif:Gamma" },
1190  { 0xc640, "exif:CR2Slice" },
1191  { 0x10000, "exif:GPSVersionID" },
1192  { 0x10001, "exif:GPSLatitudeRef" },
1193  { 0x10002, "exif:GPSLatitude" },
1194  { 0x10003, "exif:GPSLongitudeRef" },
1195  { 0x10004, "exif:GPSLongitude" },
1196  { 0x10005, "exif:GPSAltitudeRef" },
1197  { 0x10006, "exif:GPSAltitude" },
1198  { 0x10007, "exif:GPSTimeStamp" },
1199  { 0x10008, "exif:GPSSatellites" },
1200  { 0x10009, "exif:GPSStatus" },
1201  { 0x1000a, "exif:GPSMeasureMode" },
1202  { 0x1000b, "exif:GPSDop" },
1203  { 0x1000c, "exif:GPSSpeedRef" },
1204  { 0x1000d, "exif:GPSSpeed" },
1205  { 0x1000e, "exif:GPSTrackRef" },
1206  { 0x1000f, "exif:GPSTrack" },
1207  { 0x10010, "exif:GPSImgDirectionRef" },
1208  { 0x10011, "exif:GPSImgDirection" },
1209  { 0x10012, "exif:GPSMapDatum" },
1210  { 0x10013, "exif:GPSDestLatitudeRef" },
1211  { 0x10014, "exif:GPSDestLatitude" },
1212  { 0x10015, "exif:GPSDestLongitudeRef" },
1213  { 0x10016, "exif:GPSDestLongitude" },
1214  { 0x10017, "exif:GPSDestBearingRef" },
1215  { 0x10018, "exif:GPSDestBearing" },
1216  { 0x10019, "exif:GPSDestDistanceRef" },
1217  { 0x1001a, "exif:GPSDestDistance" },
1218  { 0x1001b, "exif:GPSProcessingMethod" },
1219  { 0x1001c, "exif:GPSAreaInformation" },
1220  { 0x1001d, "exif:GPSDateStamp" },
1221  { 0x1001e, "exif:GPSDifferential" },
1222  { 0x1001f, "exif:GPSHPositioningError" },
1223  { 0x00000, "" }
1224  }; /* http://www.cipa.jp/std/documents/e/DC-008-Translation-2016-E.pdf */
1225 
1226  const StringInfo
1227  *profile;
1228 
1229  const unsigned char
1230  *directory,
1231  *exif;
1232 
1233  DirectoryInfo
1234  directory_stack[MaxDirectoryStack] = { { 0, 0, 0 } };
1235 
1236  EndianType
1237  endian;
1238 
1239  MagickBooleanType
1240  status;
1241 
1242  ssize_t
1243  i;
1244 
1245  size_t
1246  entry,
1247  length,
1248  number_entries,
1249  tag,
1250  tag_value;
1251 
1253  *exif_resources;
1254 
1255  ssize_t
1256  all,
1257  id,
1258  level,
1259  offset,
1260  tag_offset;
1261 
1262  static int
1263  tag_bytes[] = {0, 1, 1, 2, 4, 8, 1, 1, 2, 4, 8, 4, 8};
1264 
1265  /*
1266  If EXIF data exists, then try to parse the request for a tag.
1267  */
1268  profile=GetImageProfile(image,"exif");
1269  if (profile == (const StringInfo *) NULL)
1270  return(MagickFalse);
1271  if ((property == (const char *) NULL) || (*property == '\0'))
1272  return(MagickFalse);
1273  while (isspace((int) ((unsigned char) *property)) != 0)
1274  property++;
1275  if (strlen(property) <= 5)
1276  return(MagickFalse);
1277  all=0;
1278  tag=(~0UL);
1279  switch (*(property+5))
1280  {
1281  case '*':
1282  {
1283  /*
1284  Caller has asked for all the tags in the EXIF data.
1285  */
1286  tag=0;
1287  all=1; /* return the data in description=value format */
1288  break;
1289  }
1290  case '!':
1291  {
1292  tag=0;
1293  all=2; /* return the data in tagid=value format */
1294  break;
1295  }
1296  case '#':
1297  case '@':
1298  {
1299  int
1300  c;
1301 
1302  size_t
1303  n;
1304 
1305  /*
1306  Check for a hex based tag specification first.
1307  */
1308  tag=(*(property+5) == '@') ? 1UL : 0UL;
1309  property+=6;
1310  n=strlen(property);
1311  if (n != 4)
1312  return(MagickFalse);
1313  /*
1314  Parse tag specification as a hex number.
1315  */
1316  n/=4;
1317  do
1318  {
1319  for (i=(ssize_t) n-1L; i >= 0; i--)
1320  {
1321  c=(*property++);
1322  tag<<=4;
1323  if ((c >= '0') && (c <= '9'))
1324  tag|=(c-'0');
1325  else
1326  if ((c >= 'A') && (c <= 'F'))
1327  tag|=(c-('A'-10));
1328  else
1329  if ((c >= 'a') && (c <= 'f'))
1330  tag|=(c-('a'-10));
1331  else
1332  return(MagickFalse);
1333  }
1334  } while (*property != '\0');
1335  break;
1336  }
1337  default:
1338  {
1339  /*
1340  Try to match the text with a tag name instead.
1341  */
1342  for (i=0; ; i++)
1343  {
1344  if (EXIFTag[i].tag == 0)
1345  break;
1346  if (LocaleCompare(EXIFTag[i].description,property) == 0)
1347  {
1348  tag=(size_t) EXIFTag[i].tag;
1349  break;
1350  }
1351  }
1352  break;
1353  }
1354  }
1355  if (tag == (~0UL))
1356  return(MagickFalse);
1357  length=GetStringInfoLength(profile);
1358  if (length < 6)
1359  return(MagickFalse);
1360  exif=GetStringInfoDatum(profile);
1361  while (length != 0)
1362  {
1363  if (ReadPropertyByte(&exif,&length) != 0x45)
1364  continue;
1365  if (ReadPropertyByte(&exif,&length) != 0x78)
1366  continue;
1367  if (ReadPropertyByte(&exif,&length) != 0x69)
1368  continue;
1369  if (ReadPropertyByte(&exif,&length) != 0x66)
1370  continue;
1371  if (ReadPropertyByte(&exif,&length) != 0x00)
1372  continue;
1373  if (ReadPropertyByte(&exif,&length) != 0x00)
1374  continue;
1375  break;
1376  }
1377  if (length < 16)
1378  return(MagickFalse);
1379  id=(ssize_t) ReadPropertySignedShort(LSBEndian,exif);
1380  endian=LSBEndian;
1381  if (id == 0x4949)
1382  endian=LSBEndian;
1383  else
1384  if (id == 0x4D4D)
1385  endian=MSBEndian;
1386  else
1387  return(MagickFalse);
1388  if (ReadPropertyUnsignedShort(endian,exif+2) != 0x002a)
1389  return(MagickFalse);
1390  /*
1391  This the offset to the first IFD.
1392  */
1393  offset=(ssize_t) ReadPropertySignedLong(endian,exif+4);
1394  if ((offset < 0) || (size_t) offset >= length)
1395  return(MagickFalse);
1396  /*
1397  Set the pointer to the first IFD and follow it were it leads.
1398  */
1399  status=MagickFalse;
1400  directory=exif+offset;
1401  level=0;
1402  entry=0;
1403  tag_offset=0;
1404  exif_resources=NewSplayTree((int (*)(const void *,const void *)) NULL,
1405  (void *(*)(void *)) NULL,(void *(*)(void *)) NULL);
1406  do
1407  {
1408  /*
1409  If there is anything on the stack then pop it off.
1410  */
1411  if (level > 0)
1412  {
1413  level--;
1414  directory=directory_stack[level].directory;
1415  entry=directory_stack[level].entry;
1416  tag_offset=directory_stack[level].offset;
1417  }
1418  if ((directory < exif) || (directory > (exif+length-2)))
1419  break;
1420  /*
1421  Determine how many entries there are in the current IFD.
1422  */
1423  number_entries=(size_t) ReadPropertyUnsignedShort(endian,directory);
1424  for ( ; entry < number_entries; entry++)
1425  {
1426  unsigned char
1427  *p,
1428  *q;
1429 
1430  size_t
1431  format;
1432 
1433  ssize_t
1434  number_bytes,
1435  components;
1436 
1437  q=(unsigned char *) (directory+(12*entry)+2);
1438  if (q > (exif+length-12))
1439  break; /* corrupt EXIF */
1440  if (GetValueFromSplayTree(exif_resources,q) == q)
1441  break;
1442  (void) AddValueToSplayTree(exif_resources,q,q);
1443  tag_value=(size_t) ReadPropertyUnsignedShort(endian,q)+tag_offset;
1444  format=(size_t) ReadPropertyUnsignedShort(endian,q+2);
1445  if (format >= (sizeof(tag_bytes)/sizeof(*tag_bytes)))
1446  break;
1447  if (format == 0)
1448  break; /* corrupt EXIF */
1449  components=(ssize_t) ReadPropertySignedLong(endian,q+4);
1450  if (components < 0)
1451  break; /* corrupt EXIF */
1452  number_bytes=(size_t) components*tag_bytes[format];
1453  if (number_bytes < components)
1454  break; /* prevent overflow */
1455  if (number_bytes <= 4)
1456  p=q+8;
1457  else
1458  {
1459  ssize_t
1460  dir_offset;
1461 
1462  /*
1463  The directory entry contains an offset.
1464  */
1465  dir_offset=(ssize_t) ReadPropertySignedLong(endian,q+8);
1466  if ((dir_offset < 0) || (size_t) dir_offset >= length)
1467  continue;
1468  if (((size_t) dir_offset+number_bytes) < (size_t) dir_offset)
1469  continue; /* prevent overflow */
1470  if (((size_t) dir_offset+number_bytes) > length)
1471  continue;
1472  p=(unsigned char *) (exif+dir_offset);
1473  }
1474  if ((all != 0) || (tag == (size_t) tag_value))
1475  {
1476  char
1477  buffer[6*sizeof(double)+MaxTextExtent],
1478  *value;
1479 
1480  if ((p < exif) || (p > (exif+length-tag_bytes[format])))
1481  break;
1482  value=(char *) NULL;
1483  *buffer='\0';
1484  switch (format)
1485  {
1486  case EXIF_FMT_BYTE:
1487  {
1488  value=(char *) NULL;
1489  if (~((size_t) number_bytes) >= 1)
1490  value=(char *) AcquireQuantumMemory((size_t) number_bytes+1UL,
1491  sizeof(*value));
1492  if (value != (char *) NULL)
1493  {
1494  for (i=0; i < (ssize_t) number_bytes; i++)
1495  {
1496  value[i]='.';
1497  if (isprint((int) p[i]) != 0)
1498  value[i]=(char) p[i];
1499  }
1500  value[i]='\0';
1501  }
1502  break;
1503  }
1504  case EXIF_FMT_SBYTE:
1505  {
1506  EXIFMultipleValues("%.20g",(double) (*(signed char *) p));
1507  break;
1508  }
1509  case EXIF_FMT_SSHORT:
1510  {
1511  EXIFMultipleValues("%hd",ReadPropertySignedShort(endian,p));
1512  break;
1513  }
1514  case EXIF_FMT_USHORT:
1515  {
1516  EXIFMultipleValues("%hu",ReadPropertyUnsignedShort(endian,p));
1517  break;
1518  }
1519  case EXIF_FMT_ULONG:
1520  {
1521  EXIFMultipleValues("%.20g",(double)
1522  ReadPropertyUnsignedLong(endian,p));
1523  break;
1524  }
1525  case EXIF_FMT_SLONG:
1526  {
1527  EXIFMultipleValues("%.20g",(double)
1528  ReadPropertySignedLong(endian,p));
1529  break;
1530  }
1531  case EXIF_FMT_URATIONAL:
1532  {
1533  if ((tag_value == GPS_LATITUDE) || (tag_value == GPS_LONGITUDE) ||
1534  (tag_value == GPS_TIMESTAMP))
1535  {
1536  components=1;
1537  EXIFGPSFractions("%.20g/%.20g,%.20g/%.20g,%.20g/%.20g",
1538  (double) ReadPropertyUnsignedLong(endian,p),
1539  (double) ReadPropertyUnsignedLong(endian,p+4),
1540  (double) ReadPropertyUnsignedLong(endian,p+8),
1541  (double) ReadPropertyUnsignedLong(endian,p+12),
1542  (double) ReadPropertyUnsignedLong(endian,p+16),
1543  (double) ReadPropertyUnsignedLong(endian,p+20));
1544  break;
1545  }
1546  EXIFMultipleFractions("%.20g/%.20g",(double)
1547  ReadPropertyUnsignedLong(endian,p),(double)
1548  ReadPropertyUnsignedLong(endian,p+4));
1549  break;
1550  }
1551  case EXIF_FMT_SRATIONAL:
1552  {
1553  EXIFMultipleFractions("%.20g/%.20g",(double)
1554  ReadPropertySignedLong(endian,p),(double)
1555  ReadPropertySignedLong(endian,p+4));
1556  break;
1557  }
1558  case EXIF_FMT_SINGLE:
1559  {
1560  EXIFMultipleValues("%.20g",(double)
1561  ReadPropertySignedLong(endian,p));
1562  break;
1563  }
1564  case EXIF_FMT_DOUBLE:
1565  {
1566  EXIFMultipleValues("%.20g",(double)
1567  ReadPropertySignedLong(endian,p));
1568  break;
1569  }
1570  case EXIF_FMT_STRING:
1571  case EXIF_FMT_UNDEFINED:
1572  default:
1573  {
1574  if ((p < exif) || (p > (exif+length-number_bytes)))
1575  break;
1576  value=(char *) NULL;
1577  if (~((size_t) number_bytes) >= 1)
1578  value=(char *) AcquireQuantumMemory((size_t) number_bytes+1UL,
1579  sizeof(*value));
1580  if (value != (char *) NULL)
1581  {
1582  ssize_t
1583  i;
1584 
1585  for (i=0; i < (ssize_t) number_bytes; i++)
1586  {
1587  value[i]='.';
1588  if ((isprint((int) p[i]) != 0) || (p[i] == '\0'))
1589  value[i]=(char) p[i];
1590  }
1591  value[i]='\0';
1592  }
1593  break;
1594  }
1595  }
1596  if (value != (char *) NULL)
1597  {
1598  char
1599  *key;
1600 
1601  const char
1602  *p;
1603 
1604  key=AcquireString(property);
1605  switch (all)
1606  {
1607  case 1:
1608  {
1609  const char
1610  *description;
1611 
1612  ssize_t
1613  i;
1614 
1615  description="unknown";
1616  for (i=0; ; i++)
1617  {
1618  if (EXIFTag[i].tag == 0)
1619  break;
1620  if (EXIFTag[i].tag == tag_value)
1621  {
1622  description=EXIFTag[i].description;
1623  break;
1624  }
1625  }
1626  (void) FormatLocaleString(key,MaxTextExtent,"%s",
1627  description);
1628  if (level == 2)
1629  (void) SubstituteString(&key,"exif:","exif:thumbnail:");
1630  break;
1631  }
1632  case 2:
1633  {
1634  if (tag_value < 0x10000)
1635  (void) FormatLocaleString(key,MaxTextExtent,"#%04lx",
1636  (unsigned long) tag_value);
1637  else
1638  if (tag_value < 0x20000)
1639  (void) FormatLocaleString(key,MaxTextExtent,"@%04lx",
1640  (unsigned long) (tag_value & 0xffff));
1641  else
1642  (void) FormatLocaleString(key,MaxTextExtent,"unknown");
1643  break;
1644  }
1645  default:
1646  {
1647  if (level == 2)
1648  (void) SubstituteString(&key,"exif:","exif:thumbnail:");
1649  }
1650  }
1651  p=(const char *) NULL;
1652  if (image->properties != (void *) NULL)
1653  p=(const char *) GetValueFromSplayTree((SplayTreeInfo *)
1654  image->properties,key);
1655  if (p == (const char *) NULL)
1656  (void) SetImageProperty((Image *) image,key,value);
1657  value=DestroyString(value);
1658  key=DestroyString(key);
1659  status=MagickTrue;
1660  }
1661  }
1662  if ((tag_value == TAG_EXIF_OFFSET) ||
1663  (tag_value == TAG_INTEROP_OFFSET) || (tag_value == TAG_GPS_OFFSET))
1664  {
1665  ssize_t
1666  offset;
1667 
1668  offset=(ssize_t) ReadPropertySignedLong(endian,p);
1669  if (((size_t) offset < length) && (level < (MaxDirectoryStack-2)))
1670  {
1671  ssize_t
1672  tag_offset1;
1673 
1674  tag_offset1=(ssize_t) ((tag_value == TAG_GPS_OFFSET) ? 0x10000 :
1675  0);
1676  directory_stack[level].directory=directory;
1677  entry++;
1678  directory_stack[level].entry=entry;
1679  directory_stack[level].offset=tag_offset;
1680  level++;
1681  /*
1682  Check for duplicate tag.
1683  */
1684  for (i=0; i < level; i++)
1685  if (directory_stack[i].directory == (exif+tag_offset1))
1686  break;
1687  if (i < level)
1688  break; /* duplicate tag */
1689  directory_stack[level].directory=exif+offset;
1690  directory_stack[level].offset=tag_offset1;
1691  directory_stack[level].entry=0;
1692  level++;
1693  if ((directory+2+(12*number_entries)+4) > (exif+length))
1694  break;
1695  offset=(ssize_t) ReadPropertySignedLong(endian,directory+2+(12*
1696  number_entries));
1697  if ((offset != 0) && ((size_t) offset < length) &&
1698  (level < (MaxDirectoryStack-2)))
1699  {
1700  directory_stack[level].directory=exif+offset;
1701  directory_stack[level].entry=0;
1702  directory_stack[level].offset=tag_offset1;
1703  level++;
1704  }
1705  }
1706  break;
1707  }
1708  }
1709  } while (level > 0);
1710  exif_resources=DestroySplayTree(exif_resources);
1711  return(status);
1712 }
1713 
1714 static MagickBooleanType GetICCProperty(const Image *image)
1715 {
1716  const StringInfo
1717  *profile;
1718 
1719  /*
1720  Return ICC profile property.
1721  */
1722  profile=GetImageProfile(image,"icc");
1723  if (profile == (StringInfo *) NULL)
1724  profile=GetImageProfile(image,"icm");
1725  if (profile == (StringInfo *) NULL)
1726  return(MagickFalse);
1727  if (GetStringInfoLength(profile) < 128)
1728  return(MagickFalse); /* minimum ICC profile length */
1729 #if defined(MAGICKCORE_LCMS_DELEGATE)
1730  {
1731  cmsHPROFILE
1732  icc_profile;
1733 
1734  icc_profile=cmsOpenProfileFromMem(GetStringInfoDatum(profile),
1735  (cmsUInt32Number) GetStringInfoLength(profile));
1736  if (icc_profile != (cmsHPROFILE *) NULL)
1737  {
1738 #if defined(LCMS_VERSION) && (LCMS_VERSION < 2000)
1739  const char
1740  *name;
1741 
1742  name=cmsTakeProductName(icc_profile);
1743  if (name != (const char *) NULL)
1744  (void) SetImageProperty((Image *) image,"icc:name",name);
1745 #else
1746  StringInfo
1747  *info;
1748 
1749  unsigned int
1750  extent;
1751 
1752  info=AcquireStringInfo(0);
1753  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoDescription,"en","US",
1754  NULL,0);
1755  if (extent != 0)
1756  {
1757  SetStringInfoLength(info,extent+1);
1758  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoDescription,"en",
1759  "US",(char *) GetStringInfoDatum(info),extent);
1760  if (extent != 0)
1761  (void) SetImageProperty((Image *) image,"icc:description",
1762  (char *) GetStringInfoDatum(info));
1763  }
1764  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoManufacturer,"en","US",
1765  NULL,0);
1766  if (extent != 0)
1767  {
1768  SetStringInfoLength(info,extent+1);
1769  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoManufacturer,"en",
1770  "US",(char *) GetStringInfoDatum(info),extent);
1771  if (extent != 0)
1772  (void) SetImageProperty((Image *) image,"icc:manufacturer",
1773  (char *) GetStringInfoDatum(info));
1774  }
1775  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoModel,"en","US",
1776  NULL,0);
1777  if (extent != 0)
1778  {
1779  SetStringInfoLength(info,extent+1);
1780  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoModel,"en","US",
1781  (char *) GetStringInfoDatum(info),extent);
1782  if (extent != 0)
1783  (void) SetImageProperty((Image *) image,"icc:model",
1784  (char *) GetStringInfoDatum(info));
1785  }
1786  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoCopyright,"en","US",
1787  NULL,0);
1788  if (extent != 0)
1789  {
1790  SetStringInfoLength(info,extent+1);
1791  extent=cmsGetProfileInfoASCII(icc_profile,cmsInfoCopyright,"en",
1792  "US",(char *) GetStringInfoDatum(info),extent);
1793  if (extent != 0)
1794  (void) SetImageProperty((Image *) image,"icc:copyright",
1795  (char *) GetStringInfoDatum(info));
1796  }
1797  info=DestroyStringInfo(info);
1798 #endif
1799  (void) cmsCloseProfile(icc_profile);
1800  }
1801  }
1802 #endif
1803  return(MagickTrue);
1804 }
1805 
1806 static MagickBooleanType SkipXMPValue(const char *value)
1807 {
1808  if (value == (const char*) NULL)
1809  return(MagickTrue);
1810  while (*value != '\0')
1811  {
1812  if (isspace((int) ((unsigned char) *value)) == 0)
1813  return(MagickFalse);
1814  value++;
1815  }
1816  return(MagickTrue);
1817 }
1818 
1819 static MagickBooleanType GetXMPProperty(const Image *image,const char *property)
1820 {
1821  char
1822  *xmp_profile;
1823 
1824  const char
1825  *content;
1826 
1827  const StringInfo
1828  *profile;
1829 
1831  *exception;
1832 
1833  MagickBooleanType
1834  status;
1835 
1836  const char
1837  *p;
1838 
1839  XMLTreeInfo
1840  *child,
1841  *description,
1842  *node,
1843  *rdf,
1844  *xmp;
1845 
1846  profile=GetImageProfile(image,"xmp");
1847  if (profile == (StringInfo *) NULL)
1848  return(MagickFalse);
1849  if (GetStringInfoLength(profile) < 17)
1850  return(MagickFalse);
1851  if ((property == (const char *) NULL) || (*property == '\0'))
1852  return(MagickFalse);
1853  xmp_profile=StringInfoToString(profile);
1854  if (xmp_profile == (char *) NULL)
1855  return(MagickFalse);
1856  for (p=xmp_profile; *p != '\0'; p++)
1857  if ((*p == '<') && (*(p+1) == 'x'))
1858  break;
1859  exception=AcquireExceptionInfo();
1860  xmp=NewXMLTree((char *) p,exception);
1861  xmp_profile=DestroyString(xmp_profile);
1862  exception=DestroyExceptionInfo(exception);
1863  if (xmp == (XMLTreeInfo *) NULL)
1864  return(MagickFalse);
1865  status=MagickFalse;
1866  rdf=GetXMLTreeChild(xmp,"rdf:RDF");
1867  if (rdf != (XMLTreeInfo *) NULL)
1868  {
1869  if (image->properties == (void *) NULL)
1870  ((Image *) image)->properties=NewSplayTree(CompareSplayTreeString,
1871  RelinquishMagickMemory,RelinquishMagickMemory);
1872  description=GetXMLTreeChild(rdf,"rdf:Description");
1873  while (description != (XMLTreeInfo *) NULL)
1874  {
1875  node=GetXMLTreeChild(description,(const char *) NULL);
1876  while (node != (XMLTreeInfo *) NULL)
1877  {
1878  char
1879  *xmp_namespace;
1880 
1881  child=GetXMLTreeChild(node,(const char *) NULL);
1882  content=GetXMLTreeContent(node);
1883  if ((child == (XMLTreeInfo *) NULL) &&
1884  (SkipXMPValue(content) == MagickFalse))
1885  {
1886  xmp_namespace=ConstantString(GetXMLTreeTag(node));
1887  (void) SubstituteString(&xmp_namespace,"exif:","xmp:");
1888  (void) AddValueToSplayTree((SplayTreeInfo *) image->properties,
1889  xmp_namespace,ConstantString(content));
1890  }
1891  while (child != (XMLTreeInfo *) NULL)
1892  {
1893  content=GetXMLTreeContent(child);
1894  if (SkipXMPValue(content) == MagickFalse)
1895  {
1896  xmp_namespace=ConstantString(GetXMLTreeTag(node));
1897  (void) SubstituteString(&xmp_namespace,"exif:","xmp:");
1898  (void) AddValueToSplayTree((SplayTreeInfo *) image->properties,
1899  xmp_namespace,ConstantString(content));
1900  }
1901  child=GetXMLTreeSibling(child);
1902  }
1903  node=GetXMLTreeSibling(node);
1904  }
1905  description=GetNextXMLTreeTag(description);
1906  }
1907  }
1908  xmp=DestroyXMLTree(xmp);
1909  return(status);
1910 }
1911 
1912 static char *TracePSClippath(const unsigned char *blob,size_t length,
1913  const size_t magick_unused(columns),const size_t magick_unused(rows))
1914 {
1915  char
1916  *path,
1917  *message;
1918 
1919  MagickBooleanType
1920  in_subpath;
1921 
1922  PointInfo
1923  first[3],
1924  last[3],
1925  point[3];
1926 
1927  ssize_t
1928  i,
1929  x;
1930 
1931  ssize_t
1932  knot_count,
1933  selector,
1934  y;
1935 
1936  magick_unreferenced(columns);
1937  magick_unreferenced(rows);
1938 
1939  path=AcquireString((char *) NULL);
1940  if (path == (char *) NULL)
1941  return((char *) NULL);
1942  message=AcquireString((char *) NULL);
1943  (void) FormatLocaleString(message,MaxTextExtent,"/ClipImage\n");
1944  (void) ConcatenateString(&path,message);
1945  (void) FormatLocaleString(message,MaxTextExtent,"{\n");
1946  (void) ConcatenateString(&path,message);
1947  (void) FormatLocaleString(message,MaxTextExtent," /c {curveto} bind def\n");
1948  (void) ConcatenateString(&path,message);
1949  (void) FormatLocaleString(message,MaxTextExtent," /l {lineto} bind def\n");
1950  (void) ConcatenateString(&path,message);
1951  (void) FormatLocaleString(message,MaxTextExtent," /m {moveto} bind def\n");
1952  (void) ConcatenateString(&path,message);
1953  (void) FormatLocaleString(message,MaxTextExtent,
1954  " /v {currentpoint 6 2 roll curveto} bind def\n");
1955  (void) ConcatenateString(&path,message);
1956  (void) FormatLocaleString(message,MaxTextExtent,
1957  " /y {2 copy curveto} bind def\n");
1958  (void) ConcatenateString(&path,message);
1959  (void) FormatLocaleString(message,MaxTextExtent,
1960  " /z {closepath} bind def\n");
1961  (void) ConcatenateString(&path,message);
1962  (void) FormatLocaleString(message,MaxTextExtent," newpath\n");
1963  (void) ConcatenateString(&path,message);
1964  /*
1965  The clipping path format is defined in "Adobe Photoshop File
1966  Formats Specification" version 6.0 downloadable from adobe.com.
1967  */
1968  (void) memset(point,0,sizeof(point));
1969  (void) memset(first,0,sizeof(first));
1970  (void) memset(last,0,sizeof(last));
1971  knot_count=0;
1972  in_subpath=MagickFalse;
1973  while (length > 0)
1974  {
1975  selector=(ssize_t) ReadPropertyMSBShort(&blob,&length);
1976  switch (selector)
1977  {
1978  case 0:
1979  case 3:
1980  {
1981  if (knot_count != 0)
1982  {
1983  blob+=24;
1984  length-=MagickMin(24,(ssize_t) length);
1985  break;
1986  }
1987  /*
1988  Expected subpath length record.
1989  */
1990  knot_count=(ssize_t) ReadPropertyMSBShort(&blob,&length);
1991  blob+=22;
1992  length-=MagickMin(22,(ssize_t) length);
1993  break;
1994  }
1995  case 1:
1996  case 2:
1997  case 4:
1998  case 5:
1999  {
2000  if (knot_count == 0)
2001  {
2002  /*
2003  Unexpected subpath knot
2004  */
2005  blob+=24;
2006  length-=MagickMin(24,(ssize_t) length);
2007  break;
2008  }
2009  /*
2010  Add sub-path knot
2011  */
2012  for (i=0; i < 3; i++)
2013  {
2014  y=(size_t) ReadPropertyMSBLong(&blob,&length);
2015  x=(size_t) ReadPropertyMSBLong(&blob,&length);
2016  point[i].x=(double) x/4096.0/4096.0;
2017  point[i].y=1.0-(double) y/4096.0/4096.0;
2018  }
2019  if (in_subpath == MagickFalse)
2020  {
2021  (void) FormatLocaleString(message,MaxTextExtent," %g %g m\n",
2022  point[1].x,point[1].y);
2023  for (i=0; i < 3; i++)
2024  {
2025  first[i]=point[i];
2026  last[i]=point[i];
2027  }
2028  }
2029  else
2030  {
2031  /*
2032  Handle special cases when Bezier curves are used to describe
2033  corners and straight lines.
2034  */
2035  if ((last[1].x == last[2].x) && (last[1].y == last[2].y) &&
2036  (point[0].x == point[1].x) && (point[0].y == point[1].y))
2037  (void) FormatLocaleString(message,MaxTextExtent,
2038  " %g %g l\n",point[1].x,point[1].y);
2039  else
2040  if ((last[1].x == last[2].x) && (last[1].y == last[2].y))
2041  (void) FormatLocaleString(message,MaxTextExtent,
2042  " %g %g %g %g v\n",point[0].x,point[0].y,
2043  point[1].x,point[1].y);
2044  else
2045  if ((point[0].x == point[1].x) && (point[0].y == point[1].y))
2046  (void) FormatLocaleString(message,MaxTextExtent,
2047  " %g %g %g %g y\n",last[2].x,last[2].y,
2048  point[1].x,point[1].y);
2049  else
2050  (void) FormatLocaleString(message,MaxTextExtent,
2051  " %g %g %g %g %g %g c\n",last[2].x,
2052  last[2].y,point[0].x,point[0].y,point[1].x,point[1].y);
2053  for (i=0; i < 3; i++)
2054  last[i]=point[i];
2055  }
2056  (void) ConcatenateString(&path,message);
2057  in_subpath=MagickTrue;
2058  knot_count--;
2059  /*
2060  Close the subpath if there are no more knots.
2061  */
2062  if (knot_count == 0)
2063  {
2064  /*
2065  Same special handling as above except we compare to the
2066  first point in the path and close the path.
2067  */
2068  if ((last[1].x == last[2].x) && (last[1].y == last[2].y) &&
2069  (first[0].x == first[1].x) && (first[0].y == first[1].y))
2070  (void) FormatLocaleString(message,MaxTextExtent,
2071  " %g %g l z\n",first[1].x,first[1].y);
2072  else
2073  if ((last[1].x == last[2].x) && (last[1].y == last[2].y))
2074  (void) FormatLocaleString(message,MaxTextExtent,
2075  " %g %g %g %g v z\n",first[0].x,first[0].y,
2076  first[1].x,first[1].y);
2077  else
2078  if ((first[0].x == first[1].x) && (first[0].y == first[1].y))
2079  (void) FormatLocaleString(message,MaxTextExtent,
2080  " %g %g %g %g y z\n",last[2].x,last[2].y,
2081  first[1].x,first[1].y);
2082  else
2083  (void) FormatLocaleString(message,MaxTextExtent,
2084  " %g %g %g %g %g %g c z\n",last[2].x,
2085  last[2].y,first[0].x,first[0].y,first[1].x,first[1].y);
2086  (void) ConcatenateString(&path,message);
2087  in_subpath=MagickFalse;
2088  }
2089  break;
2090  }
2091  case 6:
2092  case 7:
2093  case 8:
2094  default:
2095  {
2096  blob+=24;
2097  length-=MagickMin(24,(ssize_t) length);
2098  break;
2099  }
2100  }
2101  }
2102  /*
2103  Returns an empty PS path if the path has no knots.
2104  */
2105  (void) FormatLocaleString(message,MaxTextExtent," eoclip\n");
2106  (void) ConcatenateString(&path,message);
2107  (void) FormatLocaleString(message,MaxTextExtent,"} bind def");
2108  (void) ConcatenateString(&path,message);
2109  message=DestroyString(message);
2110  return(path);
2111 }
2112 
2113 static inline void TraceBezierCurve(char *message,PointInfo *last,
2114  PointInfo *point)
2115 {
2116  /*
2117  Handle special cases when Bezier curves are used to describe
2118  corners and straight lines.
2119  */
2120  if (((last+1)->x == (last+2)->x) && ((last+1)->y == (last+2)->y) &&
2121  (point->x == (point+1)->x) && (point->y == (point+1)->y))
2122  (void) FormatLocaleString(message,MagickPathExtent,
2123  "L %g %g\n",point[1].x,point[1].y);
2124  else
2125  (void) FormatLocaleString(message,MagickPathExtent,"C %g %g %g %g %g %g\n",
2126  (last+2)->x,(last+2)->y,point->x,point->y,(point+1)->x,(point+1)->y);
2127 }
2128 
2129 static char *TraceSVGClippath(const unsigned char *blob,size_t length,
2130  const size_t columns,const size_t rows)
2131 {
2132  char
2133  *path,
2134  *message;
2135 
2136  MagickBooleanType
2137  in_subpath;
2138 
2139  PointInfo
2140  first[3],
2141  last[3],
2142  point[3];
2143 
2144  ssize_t
2145  i;
2146 
2147  ssize_t
2148  knot_count,
2149  selector,
2150  x,
2151  y;
2152 
2153  path=AcquireString((char *) NULL);
2154  if (path == (char *) NULL)
2155  return((char *) NULL);
2156  message=AcquireString((char *) NULL);
2157  (void) FormatLocaleString(message,MaxTextExtent,(
2158  "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n"
2159  "<svg xmlns=\"http://www.w3.org/2000/svg\""
2160  " width=\"%.20g\" height=\"%.20g\">\n"
2161  "<g>\n"
2162  "<path fill-rule=\"evenodd\" style=\"fill:#000000;stroke:#000000;"
2163  "stroke-width:0;stroke-antialiasing:false\" d=\"\n"),(double) columns,
2164  (double) rows);
2165  (void) ConcatenateString(&path,message);
2166  (void) memset(point,0,sizeof(point));
2167  (void) memset(first,0,sizeof(first));
2168  (void) memset(last,0,sizeof(last));
2169  knot_count=0;
2170  in_subpath=MagickFalse;
2171  while (length != 0)
2172  {
2173  selector=(ssize_t) ReadPropertyMSBShort(&blob,&length);
2174  switch (selector)
2175  {
2176  case 0:
2177  case 3:
2178  {
2179  if (knot_count != 0)
2180  {
2181  blob+=24;
2182  length-=MagickMin(24,(ssize_t) length);
2183  break;
2184  }
2185  /*
2186  Expected subpath length record.
2187  */
2188  knot_count=(ssize_t) ReadPropertyMSBShort(&blob,&length);
2189  blob+=22;
2190  length-=MagickMin(22,(ssize_t) length);
2191  break;
2192  }
2193  case 1:
2194  case 2:
2195  case 4:
2196  case 5:
2197  {
2198  if (knot_count == 0)
2199  {
2200  /*
2201  Unexpected subpath knot.
2202  */
2203  blob+=24;
2204  length-=MagickMin(24,(ssize_t) length);
2205  break;
2206  }
2207  /*
2208  Add sub-path knot.
2209  */
2210  for (i=0; i < 3; i++)
2211  {
2212  y=(ssize_t) ReadPropertyMSBLong(&blob,&length);
2213  x=(ssize_t) ReadPropertyMSBLong(&blob,&length);
2214  point[i].x=(double) x*columns/4096.0/4096.0;
2215  point[i].y=(double) y*rows/4096.0/4096.0;
2216  }
2217  if (in_subpath == MagickFalse)
2218  {
2219  (void) FormatLocaleString(message,MaxTextExtent,"M %g %g\n",
2220  point[1].x,point[1].y);
2221  for (i=0; i < 3; i++)
2222  {
2223  first[i]=point[i];
2224  last[i]=point[i];
2225  }
2226  }
2227  else
2228  {
2229  TraceBezierCurve(message,last,point);
2230  for (i=0; i < 3; i++)
2231  last[i]=point[i];
2232  }
2233  (void) ConcatenateString(&path,message);
2234  in_subpath=MagickTrue;
2235  knot_count--;
2236  /*
2237  Close the subpath if there are no more knots.
2238  */
2239  if (knot_count == 0)
2240  {
2241  TraceBezierCurve(message,last,first);
2242  (void) ConcatenateString(&path,message);
2243  in_subpath=MagickFalse;
2244  }
2245  break;
2246  }
2247  case 6:
2248  case 7:
2249  case 8:
2250  default:
2251  {
2252  blob+=24;
2253  length-=MagickMin(24,(ssize_t) length);
2254  break;
2255  }
2256  }
2257  }
2258  /*
2259  Return an empty SVG image if the path does not have knots.
2260  */
2261  (void) ConcatenateString(&path,"\"/>\n</g>\n</svg>\n");
2262  message=DestroyString(message);
2263  return(path);
2264 }
2265 
2266 MagickExport const char *GetImageProperty(const Image *image,
2267  const char *property)
2268 {
2269  double
2270  alpha;
2271 
2273  *exception;
2274 
2275  FxInfo
2276  *fx_info;
2277 
2278  MagickStatusType
2279  status;
2280 
2281  const char
2282  *p;
2283 
2284  assert(image != (Image *) NULL);
2285  assert(image->signature == MagickCoreSignature);
2286  if (IsEventLogging() != MagickFalse)
2287  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
2288  p=(const char *) NULL;
2289  if (image->properties != (void *) NULL)
2290  {
2291  if (property == (const char *) NULL)
2292  {
2293  ResetSplayTreeIterator((SplayTreeInfo *) image->properties);
2294  p=(const char *) GetNextValueInSplayTree((SplayTreeInfo *)
2295  image->properties);
2296  return(p);
2297  }
2298  if (LocaleNCompare("fx:",property,3) != 0) /* NOT fx: !!!! */
2299  {
2300  p=(const char *) GetValueFromSplayTree((SplayTreeInfo *)
2301  image->properties,property);
2302  if (p != (const char *) NULL)
2303  return(p);
2304  }
2305  }
2306  if ((property == (const char *) NULL) ||
2307  (strchr(property,':') == (char *) NULL))
2308  return(p);
2309  exception=(&((Image *) image)->exception);
2310  switch (*property)
2311  {
2312  case '8':
2313  {
2314  if (LocaleNCompare("8bim:",property,5) == 0)
2315  {
2316  (void) Get8BIMProperty(image,property);
2317  break;
2318  }
2319  break;
2320  }
2321  case 'E':
2322  case 'e':
2323  {
2324  if (LocaleNCompare("exif:",property,5) == 0)
2325  {
2326  (void) GetEXIFProperty(image,property);
2327  break;
2328  }
2329  break;
2330  }
2331  case 'F':
2332  case 'f':
2333  {
2334  if (LocaleNCompare("fx:",property,3) == 0)
2335  {
2336  if ((image->columns == 0) || (image->rows == 0))
2337  break;
2338  fx_info=AcquireFxInfo(image,property+3);
2339  status=FxEvaluateChannelExpression(fx_info,DefaultChannels,0,0,&alpha,
2340  exception);
2341  fx_info=DestroyFxInfo(fx_info);
2342  if (status != MagickFalse)
2343  {
2344  char
2345  value[MaxTextExtent];
2346 
2347  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
2348  GetMagickPrecision(),(double) alpha);
2349  (void) SetImageProperty((Image *) image,property,value);
2350  }
2351  break;
2352  }
2353  break;
2354  }
2355  case 'H':
2356  case 'h':
2357  {
2358  if (LocaleNCompare("hex:",property,4) == 0)
2359  {
2361  pixel;
2362 
2363  if ((image->columns == 0) || (image->rows == 0))
2364  break;
2365  GetMagickPixelPacket(image,&pixel);
2366  fx_info=AcquireFxInfo(image,property+4);
2367  status=FxEvaluateChannelExpression(fx_info,RedChannel,0,0,&alpha,
2368  exception);
2369  pixel.red=(MagickRealType) QuantumRange*alpha;
2370  status&=FxEvaluateChannelExpression(fx_info,GreenChannel,0,0,&alpha,
2371  exception);
2372  pixel.green=(MagickRealType) QuantumRange*alpha;
2373  status&=FxEvaluateChannelExpression(fx_info,BlueChannel,0,0,&alpha,
2374  exception);
2375  pixel.blue=(MagickRealType) QuantumRange*alpha;
2376  status&=FxEvaluateChannelExpression(fx_info,OpacityChannel,0,0,&alpha,
2377  exception);
2378  pixel.opacity=(MagickRealType) QuantumRange*(1.0-alpha);
2379  if (image->colorspace == CMYKColorspace)
2380  {
2381  status&=FxEvaluateChannelExpression(fx_info,BlackChannel,0,0,
2382  &alpha,exception);
2383  pixel.index=(MagickRealType) QuantumRange*alpha;
2384  }
2385  fx_info=DestroyFxInfo(fx_info);
2386  if (status != MagickFalse)
2387  {
2388  char
2389  hex[MaxTextExtent];
2390 
2391  GetColorTuple(&pixel,MagickTrue,hex);
2392  (void) SetImageProperty((Image *) image,property,hex+1);
2393  }
2394  break;
2395  }
2396  break;
2397  }
2398  case 'I':
2399  case 'i':
2400  {
2401  if ((LocaleNCompare("icc:",property,4) == 0) ||
2402  (LocaleNCompare("icm:",property,4) == 0))
2403  {
2404  (void) GetICCProperty(image);
2405  break;
2406  }
2407  if (LocaleNCompare("iptc:",property,5) == 0)
2408  {
2409  (void) GetIPTCProperty(image,property);
2410  break;
2411  }
2412  break;
2413  }
2414  case 'P':
2415  case 'p':
2416  {
2417  if (LocaleNCompare("pixel:",property,6) == 0)
2418  {
2420  pixel;
2421 
2422  GetMagickPixelPacket(image,&pixel);
2423  fx_info=AcquireFxInfo(image,property+6);
2424  status=FxEvaluateChannelExpression(fx_info,RedChannel,0,0,&alpha,
2425  exception);
2426  pixel.red=(MagickRealType) QuantumRange*alpha;
2427  status&=FxEvaluateChannelExpression(fx_info,GreenChannel,0,0,&alpha,
2428  exception);
2429  pixel.green=(MagickRealType) QuantumRange*alpha;
2430  status&=FxEvaluateChannelExpression(fx_info,BlueChannel,0,0,&alpha,
2431  exception);
2432  pixel.blue=(MagickRealType) QuantumRange*alpha;
2433  status&=FxEvaluateChannelExpression(fx_info,OpacityChannel,0,0,&alpha,
2434  exception);
2435  pixel.opacity=(MagickRealType) QuantumRange*(1.0-alpha);
2436  if (image->colorspace == CMYKColorspace)
2437  {
2438  status&=FxEvaluateChannelExpression(fx_info,BlackChannel,0,0,
2439  &alpha,exception);
2440  pixel.index=(MagickRealType) QuantumRange*alpha;
2441  }
2442  fx_info=DestroyFxInfo(fx_info);
2443  if (status != MagickFalse)
2444  {
2445  char
2446  name[MaxTextExtent];
2447 
2448  const char
2449  *value;
2450 
2451  GetColorTuple(&pixel,MagickFalse,name);
2452  value=GetImageArtifact(image,"pixel:compliance");
2453  if (value != (char *) NULL)
2454  {
2455  ComplianceType compliance=(ComplianceType) ParseCommandOption(
2456  MagickComplianceOptions,MagickFalse,value);
2457  (void) QueryMagickColorname(image,&pixel,compliance,name,
2458  exception);
2459  }
2460  (void) SetImageProperty((Image *) image,property,name);
2461  }
2462  break;
2463  }
2464  break;
2465  }
2466  case 'X':
2467  case 'x':
2468  {
2469  if (LocaleNCompare("xmp:",property,4) == 0)
2470  {
2471  (void) GetXMPProperty(image,property);
2472  break;
2473  }
2474  break;
2475  }
2476  default:
2477  break;
2478  }
2479  if (image->properties != (void *) NULL)
2480  {
2481  p=(const char *) GetValueFromSplayTree((SplayTreeInfo *)
2482  image->properties,property);
2483  return(p);
2484  }
2485  return((const char *) NULL);
2486 }
2487 
2488 /*
2489 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2490 % %
2491 % %
2492 % %
2493 + G e t M a g i c k P r o p e r t y %
2494 % %
2495 % %
2496 % %
2497 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2498 %
2499 % GetMagickProperty() gets attributes or calculated values that is associated
2500 % with a fixed known property name, or single letter property:
2501 %
2502 % \n newline
2503 % \r carriage return
2504 % < less-than character.
2505 % > greater-than character.
2506 % & ampersand character.
2507 % %% a percent sign
2508 % %b file size of image read in
2509 % %c comment meta-data property
2510 % %d directory component of path
2511 % %e filename extension or suffix
2512 % %f filename (including suffix)
2513 % %g layer canvas page geometry (equivalent to "%Wx%H%X%Y")
2514 % %h current image height in pixels
2515 % %i image filename (note: becomes output filename for "info:")
2516 % %k CALCULATED: number of unique colors
2517 % %l label meta-data property
2518 % %m image file format (file magic)
2519 % %n number of images in current image sequence
2520 % %o output filename (used for delegates)
2521 % %p index of image in current image list
2522 % %q quantum depth (compile-time constant)
2523 % %r image class and colorspace
2524 % %s scene number (from input unless re-assigned)
2525 % %t filename without directory or extension (suffix)
2526 % %u unique temporary filename (used for delegates)
2527 % %w current width in pixels
2528 % %x x resolution (density)
2529 % %y y resolution (density)
2530 % %z image depth (as read in unless modified, image save depth)
2531 % %A image transparency channel enabled (true/false)
2532 % %B file size of image in bytes
2533 % %C image compression type
2534 % %D image GIF dispose method
2535 % %G original image size (%wx%h; before any resizes)
2536 % %H page (canvas) height
2537 % %M Magick filename (original file exactly as given, including read mods)
2538 % %O page (canvas) offset ( = %X%Y )
2539 % %P page (canvas) size ( = %Wx%H )
2540 % %Q image compression quality ( 0 = default )
2541 % %S ?? scenes ??
2542 % %T image time delay (in centi-seconds)
2543 % %U image resolution units
2544 % %W page (canvas) width
2545 % %X page (canvas) x offset (including sign)
2546 % %Y page (canvas) y offset (including sign)
2547 % %Z unique filename (used for delegates)
2548 % %@ CALCULATED: trim bounding box (without actually trimming)
2549 % %# CALCULATED: 'signature' hash of image values
2550 %
2551 % This does not return, special profile or property expressions. Nor does it
2552 % return free-form property strings, unless referenced by a single letter
2553 % property name.
2554 %
2555 % The returned string is stored as the image artifact 'get-property' (not as
2556 % another property), and as such should not be freed. Later calls however
2557 % will overwrite this value so if needed for a longer period a copy should be
2558 % made. This artifact can be deleted when no longer required.
2559 %
2560 % The format of the GetMagickProperty method is:
2561 %
2562 % const char *GetMagickProperty(const ImageInfo *image_info,Image *image,
2563 % const char *property)
2564 %
2565 % A description of each parameter follows:
2566 %
2567 % o image_info: the image info.
2568 %
2569 % o image: the image.
2570 %
2571 % o key: the key.
2572 %
2573 */
2574 static const char *GetMagickPropertyLetter(const ImageInfo *image_info,
2575  Image *image,const char letter)
2576 {
2577 #define WarnNoImageInfoReturn(format,arg) \
2578  if (image_info == (ImageInfo *) NULL ) { \
2579  (void) ThrowMagickException(&image->exception,GetMagickModule(), \
2580  OptionWarning,"NoImageInfoForProperty",format,arg); \
2581  return((const char *) NULL); \
2582  }
2583 
2584  char
2585  value[MaxTextExtent];
2586 
2587  const char
2588  *string;
2589 
2590  assert(image != (Image *) NULL);
2591  assert(image->signature == MagickCoreSignature);
2592  if (IsEventLogging() != MagickFalse)
2593  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
2594  *value='\0';
2595  string=(char *) NULL;
2596  switch (letter)
2597  {
2598  case 'b':
2599  {
2600  /*
2601  Image size read in - in bytes.
2602  */
2603  (void) FormatMagickSize(image->extent,MagickFalse,value);
2604  if (image->extent == 0)
2605  (void) FormatMagickSize(GetBlobSize(image),MagickFalse,value);
2606  break;
2607  }
2608  case 'c':
2609  {
2610  /*
2611  Image comment property - empty string by default.
2612  */
2613  string=GetImageProperty(image,"comment");
2614  if (string == (const char *) NULL)
2615  string="";
2616  break;
2617  }
2618  case 'd':
2619  {
2620  /*
2621  Directory component of filename.
2622  */
2623  GetPathComponent(image->magick_filename,HeadPath,value);
2624  if (*value == '\0')
2625  string="";
2626  break;
2627  }
2628  case 'e':
2629  {
2630  /*
2631  Filename extension (suffix) of image file.
2632  */
2633  GetPathComponent(image->magick_filename,ExtensionPath,value);
2634  if (*value == '\0')
2635  string="";
2636  break;
2637  }
2638  case 'f':
2639  {
2640  /*
2641  Filename without directory component.
2642  */
2643  GetPathComponent(image->magick_filename,TailPath,value);
2644  if (*value == '\0')
2645  string="";
2646  break;
2647  }
2648  case 'g':
2649  {
2650  /*
2651  Image geometry, canvas and offset %Wx%H+%X+%Y.
2652  */
2653  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g%+.20g%+.20g",
2654  (double) image->page.width,(double) image->page.height,
2655  (double) image->page.x,(double) image->page.y);
2656  break;
2657  }
2658  case 'h':
2659  {
2660  /*
2661  Image height (current).
2662  */
2663  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2664  (image->rows != 0 ? image->rows : image->magick_rows));
2665  break;
2666  }
2667  case 'i':
2668  {
2669  /*
2670  Filename last used for image (read or write).
2671  */
2672  string=image->filename;
2673  break;
2674  }
2675  case 'k':
2676  {
2677  /*
2678  Number of unique colors.
2679  */
2680  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2681  GetNumberColors(image,(FILE *) NULL,&image->exception));
2682  break;
2683  }
2684  case 'l':
2685  {
2686  /*
2687  Image label property - empty string by default.
2688  */
2689  string=GetImageProperty(image,"label");
2690  if (string == (const char *) NULL)
2691  string="";
2692  break;
2693  }
2694  case 'm':
2695  {
2696  /*
2697  Image format (file magick).
2698  */
2699  string=image->magick;
2700  break;
2701  }
2702  case 'n':
2703  {
2704  /*
2705  Number of images in the list.
2706  */
2707  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2708  GetImageListLength(image));
2709  break;
2710  }
2711  case 'o':
2712  {
2713  /*
2714  Output Filename - for delegate use only
2715  */
2716  WarnNoImageInfoReturn("\"%%%c\"",letter);
2717  string=image_info->filename;
2718  break;
2719  }
2720  case 'p':
2721  {
2722  /*
2723  Image index in current image list -- As 'n' OBSOLETE.
2724  */
2725  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2726  GetImageIndexInList(image));
2727  break;
2728  }
2729  case 'q':
2730  {
2731  /*
2732  Quantum depth of image in memory.
2733  */
2734  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2735  MAGICKCORE_QUANTUM_DEPTH);
2736  break;
2737  }
2738  case 'r':
2739  {
2740  ColorspaceType
2741  colorspace;
2742 
2743  /*
2744  Image storage class and colorspace.
2745  */
2746  colorspace=image->colorspace;
2747  if ((image->columns != 0) && (image->rows != 0) &&
2748  (SetImageGray(image,&image->exception) != MagickFalse))
2749  colorspace=GRAYColorspace;
2750  (void) FormatLocaleString(value,MaxTextExtent,"%s %s %s",
2751  CommandOptionToMnemonic(MagickClassOptions,(ssize_t)
2752  image->storage_class),CommandOptionToMnemonic(MagickColorspaceOptions,
2753  (ssize_t) colorspace),image->matte != MagickFalse ? "Matte" : "" );
2754  break;
2755  }
2756  case 's':
2757  {
2758  /*
2759  Image scene number.
2760  */
2761  WarnNoImageInfoReturn("\"%%%c\"",letter);
2762  if (image_info->number_scenes != 0)
2763  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2764  image_info->scene);
2765  else
2766  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2767  image->scene);
2768  break;
2769  }
2770  case 't':
2771  {
2772  /*
2773  Base filename without directory or extension.
2774  */
2775  GetPathComponent(image->magick_filename,BasePath,value);
2776  if (*value == '\0')
2777  string="";
2778  break;
2779  }
2780  case 'u':
2781  {
2782  /*
2783  Unique filename.
2784  */
2785  WarnNoImageInfoReturn("\"%%%c\"",letter);
2786  string=image_info->unique;
2787  break;
2788  }
2789  case 'w':
2790  {
2791  /*
2792  Image width (current).
2793  */
2794  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2795  (image->columns != 0 ? image->columns : image->magick_columns));
2796  break;
2797  }
2798  case 'x':
2799  {
2800  /*
2801  Image horizontal resolution.
2802  */
2803  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",
2804  fabs(image->x_resolution) > MagickEpsilon ? image->x_resolution :
2805  image->units == PixelsPerCentimeterResolution ? DefaultResolution/2.54 :
2806  DefaultResolution);
2807  break;
2808  }
2809  case 'y':
2810  {
2811  /*
2812  Image vertical resolution.
2813  */
2814  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",
2815  fabs(image->y_resolution) > MagickEpsilon ? image->y_resolution :
2816  image->units == PixelsPerCentimeterResolution ? DefaultResolution/2.54 :
2817  DefaultResolution);
2818  break;
2819  }
2820  case 'z':
2821  {
2822  /*
2823  Image depth.
2824  */
2825  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2826  image->depth);
2827  break;
2828  }
2829  case 'A':
2830  {
2831  /*
2832  Image alpha channel.
2833  */
2834  (void) FormatLocaleString(value,MaxTextExtent,"%s",
2835  CommandOptionToMnemonic(MagickBooleanOptions,(ssize_t) image->matte));
2836  break;
2837  }
2838  case 'B':
2839  {
2840  /*
2841  Image size read in - in bytes.
2842  */
2843  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2844  image->extent);
2845  if (image->extent == 0)
2846  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2847  GetBlobSize(image));
2848  break;
2849  }
2850  case 'C':
2851  {
2852  /*
2853  Image compression method.
2854  */
2855  (void) FormatLocaleString(value,MaxTextExtent,"%s",
2856  CommandOptionToMnemonic(MagickCompressOptions,(ssize_t)
2857  image->compression));
2858  break;
2859  }
2860  case 'D':
2861  {
2862  /*
2863  Image dispose method.
2864  */
2865  (void) FormatLocaleString(value,MaxTextExtent,"%s",
2866  CommandOptionToMnemonic(MagickDisposeOptions,(ssize_t) image->dispose));
2867  break;
2868  }
2869  case 'F':
2870  {
2871  const char
2872  *q;
2873 
2874  char
2875  *p;
2876 
2877  static const char
2878  allowlist[] =
2879  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
2880  "$-_.+!*'(),{}|\\^~[]`\"><#%;/?:@&=";
2881 
2882  /*
2883  Magick filename (sanitized) - filename given incl. coder & read mods.
2884  */
2885  (void) CopyMagickString(value,image->magick_filename,MaxTextExtent);
2886  p=value;
2887  q=value+strlen(value);
2888  for (p+=strspn(p,allowlist); p != q; p+=strspn(p,allowlist))
2889  *p='_';
2890  break;
2891  }
2892  case 'G':
2893  {
2894  /*
2895  Image size as geometry = "%wx%h".
2896  */
2897  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g",(double)
2898  image->magick_columns,(double) image->magick_rows);
2899  break;
2900  }
2901  case 'H':
2902  {
2903  /*
2904  Layer canvas height.
2905  */
2906  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2907  image->page.height);
2908  break;
2909  }
2910  case 'M':
2911  {
2912  /*
2913  Magick filename - filename given incl. coder & read mods.
2914  */
2915  string=image->magick_filename;
2916  break;
2917  }
2918  case 'N': /* Number of images in the list. */
2919  {
2920  if ((image != (Image *) NULL) && (image->next == (Image *) NULL))
2921  (void) FormatLocaleString(value,MagickPathExtent,"%.20g\n",(double)
2922  GetImageListLength(image));
2923  else
2924  string="";
2925  break;
2926  }
2927  case 'O':
2928  {
2929  /*
2930  Layer canvas offset with sign = "+%X+%Y".
2931  */
2932  (void) FormatLocaleString(value,MaxTextExtent,"%+ld%+ld",(long)
2933  image->page.x,(long) image->page.y);
2934  break;
2935  }
2936  case 'P':
2937  {
2938  /*
2939  Layer canvas page size = "%Wx%H".
2940  */
2941  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g",(double)
2942  image->page.width,(double) image->page.height);
2943  break;
2944  }
2945  case 'Q':
2946  {
2947  /*
2948  Image compression quality.
2949  */
2950  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2951  (image->quality == 0 ? 92 : image->quality));
2952  break;
2953  }
2954  case 'S':
2955  {
2956  /*
2957  Image scenes.
2958  */
2959  WarnNoImageInfoReturn("\"%%%c\"",letter);
2960  if (image_info->number_scenes == 0)
2961  string="2147483647";
2962  else
2963  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2964  image_info->scene+image_info->number_scenes);
2965  break;
2966  }
2967  case 'T':
2968  {
2969  /*
2970  Image time delay for animations.
2971  */
2972  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2973  image->delay);
2974  break;
2975  }
2976  case 'U':
2977  {
2978  /*
2979  Image resolution units.
2980  */
2981  (void) FormatLocaleString(value,MaxTextExtent,"%s",
2982  CommandOptionToMnemonic(MagickResolutionOptions,(ssize_t)
2983  image->units));
2984  break;
2985  }
2986  case 'W':
2987  {
2988  /*
2989  Layer canvas width.
2990  */
2991  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
2992  image->page.width);
2993  break;
2994  }
2995  case 'X':
2996  {
2997  /*
2998  Layer canvas X offset.
2999  */
3000  (void) FormatLocaleString(value,MaxTextExtent,"%+.20g",(double)
3001  image->page.x);
3002  break;
3003  }
3004  case 'Y':
3005  {
3006  /*
3007  Layer canvas Y offset.
3008  */
3009  (void) FormatLocaleString(value,MaxTextExtent,"%+.20g",(double)
3010  image->page.y);
3011  break;
3012  }
3013  case 'Z':
3014  {
3015  /*
3016  Zero filename.
3017  */
3018  WarnNoImageInfoReturn("\"%%%c\"",letter);
3019  string=image_info->zero;
3020  break;
3021  }
3022  case '@':
3023  {
3025  page;
3026 
3027  /*
3028  Image bounding box.
3029  */
3030  page=GetImageBoundingBox(image,&image->exception);
3031  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g%+.20g%+.20g",
3032  (double) page.width,(double) page.height,(double) page.x,(double)
3033  page.y);
3034  break;
3035  }
3036  case '#':
3037  {
3038  /*
3039  Image signature.
3040  */
3041  if ((image->columns != 0) && (image->rows != 0))
3042  (void) SignatureImage(image);
3043  string=GetImageProperty(image,"signature");
3044  break;
3045  }
3046  case '%':
3047  {
3048  /*
3049  Percent escaped.
3050  */
3051  string="%";
3052  break;
3053  }
3054  }
3055  if (*value != '\0')
3056  string=value;
3057  if (string != (char *) NULL)
3058  {
3059  (void) SetImageArtifact(image,"get-property",string);
3060  return(GetImageArtifact(image,"get-property"));
3061  }
3062  return((char *) NULL);
3063 }
3064 
3065 MagickExport const char *GetMagickProperty(const ImageInfo *image_info,
3066  Image *image,const char *property)
3067 {
3068  char
3069  value[MaxTextExtent];
3070 
3071  const char
3072  *string;
3073 
3074  assert(property != (const char *) NULL);
3075  assert(property[0] != '\0');
3076  if (property[1] == '\0') /* single letter property request */
3077  return(GetMagickPropertyLetter(image_info,image,*property));
3078  *value='\0'; /* formatted string */
3079  string=(char *) NULL; /* constant string reference */
3080  switch (*property)
3081  {
3082  case 'b':
3083  {
3084  if ((LocaleCompare("base",property) == 0) ||
3085  (LocaleCompare("basename",property) == 0) )
3086  {
3087  GetPathComponent(image->magick_filename,BasePath,value);
3088  break;
3089  }
3090  if (LocaleCompare("bit-depth",property) == 0)
3091  {
3092  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3093  GetImageDepth(image,&image->exception));
3094  break;
3095  }
3096  if (LocaleCompare("bounding-box",property) == 0)
3097  {
3099  geometry;
3100 
3101  geometry=GetImageBoundingBox(image,&image->exception);
3102  (void) FormatLocaleString(value,MagickPathExtent,"%g,%g %g,%g\n",
3103  (double) geometry.x,(double) geometry.y,
3104  (double) geometry.x+geometry.width,
3105  (double) geometry.y+geometry.height);
3106  break;
3107  }
3108  break;
3109  }
3110  case 'c':
3111  {
3112  if (LocaleCompare("channels",property) == 0)
3113  {
3114  /*
3115  Image channels.
3116  */
3117  (void) FormatLocaleString(value,MaxTextExtent,"%s",
3118  CommandOptionToMnemonic(MagickColorspaceOptions,(ssize_t)
3119  image->colorspace));
3120  LocaleLower(value);
3121  if (image->matte != MagickFalse)
3122  (void) ConcatenateMagickString(value,"a",MaxTextExtent);
3123  break;
3124  }
3125  if (LocaleCompare("colors",property) == 0)
3126  {
3127  image->colors=GetNumberColors(image,(FILE *) NULL,&image->exception);
3128  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3129  image->colors);
3130  break;
3131  }
3132  if (LocaleCompare("colorspace",property) == 0)
3133  {
3134  string=CommandOptionToMnemonic(MagickColorspaceOptions,(ssize_t)
3135  image->colorspace);
3136  break;
3137  }
3138  if (LocaleCompare("compose",property) == 0)
3139  {
3140  string=CommandOptionToMnemonic(MagickComposeOptions,(ssize_t)
3141  image->compose);
3142  break;
3143  }
3144  if (LocaleCompare("compression",property) == 0)
3145  {
3146  string=CommandOptionToMnemonic(MagickCompressOptions,(ssize_t)
3147  image->compression);
3148  break;
3149  }
3150  if (LocaleCompare("copyright",property) == 0)
3151  {
3152  (void) CopyMagickString(value,GetMagickCopyright(),MaxTextExtent);
3153  break;
3154  }
3155  break;
3156  }
3157  case 'd':
3158  {
3159  if (LocaleCompare("depth",property) == 0)
3160  {
3161  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3162  image->depth);
3163  break;
3164  }
3165  if (LocaleCompare("directory",property) == 0)
3166  {
3167  GetPathComponent(image->magick_filename,HeadPath,value);
3168  break;
3169  }
3170  break;
3171  }
3172  case 'e':
3173  {
3174  if (LocaleCompare("entropy",property) == 0)
3175  {
3176  double
3177  entropy;
3178 
3179  (void) GetImageChannelEntropy(image,image_info->channel,&entropy,
3180  &image->exception);
3181  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3182  GetMagickPrecision(),entropy);
3183  break;
3184  }
3185  if (LocaleCompare("extension",property) == 0)
3186  {
3187  GetPathComponent(image->magick_filename,ExtensionPath,value);
3188  break;
3189  }
3190  break;
3191  }
3192  case 'g':
3193  {
3194  if (LocaleCompare("gamma",property) == 0)
3195  {
3196  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3197  GetMagickPrecision(),image->gamma);
3198  break;
3199  }
3200  if ((image_info != (ImageInfo *) NULL) &&
3201  (LocaleCompare("group",property) == 0))
3202  {
3203  (void) FormatLocaleString(value,MaxTextExtent,"0x%lx",(unsigned long)
3204  image_info->group);
3205  break;
3206  }
3207  break;
3208  }
3209  case 'h':
3210  {
3211  if (LocaleCompare("height",property) == 0)
3212  {
3213  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",
3214  image->magick_rows != 0 ? (double) image->magick_rows : 256.0);
3215  break;
3216  }
3217  break;
3218  }
3219  case 'i':
3220  {
3221  if (LocaleCompare("input",property) == 0)
3222  {
3223  string=image->filename;
3224  break;
3225  }
3226  if (LocaleCompare("interlace",property) == 0)
3227  {
3228  string=CommandOptionToMnemonic(MagickInterlaceOptions,(ssize_t)
3229  image->interlace);
3230  break;
3231  }
3232  break;
3233  }
3234  case 'k':
3235  {
3236  if (LocaleCompare("kurtosis",property) == 0)
3237  {
3238  double
3239  kurtosis,
3240  skewness;
3241 
3242  (void) GetImageChannelKurtosis(image,image_info->channel,&kurtosis,
3243  &skewness,&image->exception);
3244  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3245  GetMagickPrecision(),kurtosis);
3246  break;
3247  }
3248  break;
3249  }
3250  case 'm':
3251  {
3252  if (LocaleCompare("magick",property) == 0)
3253  {
3254  string=image->magick;
3255  break;
3256  }
3257  if ((LocaleCompare("max",property) == 0) ||
3258  (LocaleCompare("maxima",property) == 0))
3259  {
3260  double
3261  maximum,
3262  minimum;
3263 
3264  (void) GetImageChannelRange(image,image_info->channel,&minimum,
3265  &maximum,&image->exception);
3266  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3267  GetMagickPrecision(),maximum);
3268  break;
3269  }
3270  if (LocaleCompare("mean",property) == 0)
3271  {
3272  double
3273  mean,
3274  standard_deviation;
3275 
3276  (void) GetImageChannelMean(image,image_info->channel,&mean,
3277  &standard_deviation,&image->exception);
3278  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3279  GetMagickPrecision(),mean);
3280  break;
3281  }
3282  if ((LocaleCompare("min",property) == 0) ||
3283  (LocaleCompare("minima",property) == 0))
3284  {
3285  double
3286  maximum,
3287  minimum;
3288 
3289  (void) GetImageChannelRange(image,image_info->channel,&minimum,
3290  &maximum,&image->exception);
3291  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3292  GetMagickPrecision(),minimum);
3293  break;
3294  }
3295  break;
3296  }
3297  case 'o':
3298  {
3299  if (LocaleCompare("opaque",property) == 0)
3300  {
3301  MagickBooleanType
3302  opaque;
3303 
3304  opaque=IsOpaqueImage(image,&image->exception);
3305  (void) CopyMagickString(value,opaque != MagickFalse ? "true" :
3306  "false",MaxTextExtent);
3307  break;
3308  }
3309  if (LocaleCompare("orientation",property) == 0)
3310  {
3311  string=CommandOptionToMnemonic(MagickOrientationOptions,(ssize_t)
3312  image->orientation);
3313  break;
3314  }
3315  if ((image_info != (ImageInfo *) NULL) &&
3316  (LocaleCompare("output",property) == 0))
3317  {
3318  (void) CopyMagickString(value,image_info->filename,MaxTextExtent);
3319  break;
3320  }
3321  break;
3322  }
3323  case 'p':
3324  {
3325  if (LocaleCompare("page",property) == 0)
3326  {
3327  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g",(double)
3328  image->page.width,(double) image->page.height);
3329  break;
3330  }
3331  if (LocaleNCompare("papersize:",property,10) == 0)
3332  {
3333  char
3334  *papersize;
3335 
3336  *value='\0';
3337  papersize=GetPageGeometry(property+10);
3338  if (papersize != (const char *) NULL)
3339  {
3341  page = { 0, 0, 0, 0 };
3342 
3343  (void) ParseAbsoluteGeometry(papersize,&page);
3344  (void) FormatLocaleString(value,MaxTextExtent,"%.20gx%.20g",
3345  (double) page.width,(double) page.height);
3346  papersize=DestroyString(papersize);
3347  }
3348  break;
3349  }
3350 #if defined(MAGICKCORE_LCMS_DELEGATE)
3351  if (LocaleCompare("profile:icc",property) == 0 ||
3352  LocaleCompare("profile:icm",property) == 0)
3353  {
3354 #if !defined(LCMS_VERSION) || (LCMS_VERSION < 2000)
3355 #define cmsUInt32Number DWORD
3356 #endif
3357 
3358  const StringInfo
3359  *profile;
3360 
3361  cmsHPROFILE
3362  icc_profile;
3363 
3364  profile=GetImageProfile(image,property+8);
3365  if (profile == (StringInfo *) NULL)
3366  break;
3367 
3368  icc_profile=cmsOpenProfileFromMem(GetStringInfoDatum(profile),
3369  (cmsUInt32Number) GetStringInfoLength(profile));
3370  if (icc_profile != (cmsHPROFILE *) NULL)
3371  {
3372 #if defined(LCMS_VERSION) && (LCMS_VERSION < 2000)
3373  string=cmsTakeProductName(icc_profile);
3374 #else
3375  (void) cmsGetProfileInfoASCII(icc_profile,cmsInfoDescription,
3376  "en","US",value,MaxTextExtent);
3377 #endif
3378  (void) cmsCloseProfile(icc_profile);
3379  }
3380  }
3381 #endif
3382  if (LocaleCompare("printsize.x",property) == 0)
3383  {
3384  (void) FormatLocaleString(value,MagickPathExtent,"%.*g",
3385  GetMagickPrecision(),PerceptibleReciprocal(image->x_resolution)*
3386  image->columns);
3387  break;
3388  }
3389  if (LocaleCompare("printsize.y",property) == 0)
3390  {
3391  (void) FormatLocaleString(value,MagickPathExtent,"%.*g",
3392  GetMagickPrecision(),PerceptibleReciprocal(image->y_resolution)*
3393  image->rows);
3394  break;
3395  }
3396  if (LocaleCompare("profiles",property) == 0)
3397  {
3398  const char
3399  *name;
3400 
3401  ResetImageProfileIterator(image);
3402  name=GetNextImageProfile(image);
3403  if (name != (char *) NULL)
3404  {
3405  (void) CopyMagickString(value,name,MaxTextExtent);
3406  name=GetNextImageProfile(image);
3407  while (name != (char *) NULL)
3408  {
3409  ConcatenateMagickString(value,",",MaxTextExtent);
3410  ConcatenateMagickString(value,name,MaxTextExtent);
3411  name=GetNextImageProfile(image);
3412  }
3413  }
3414  break;
3415  }
3416  break;
3417  }
3418  case 'q':
3419  {
3420  if (LocaleCompare("quality",property) == 0)
3421  {
3422  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3423  image->quality);
3424  break;
3425  }
3426  break;
3427  }
3428  case 'r':
3429  {
3430  if (LocaleCompare("rendering-intent",property) == 0)
3431  {
3432  string=CommandOptionToMnemonic(MagickIntentOptions,(ssize_t)
3433  image->rendering_intent);
3434  break;
3435  }
3436  if (LocaleCompare("resolution.x",property) == 0)
3437  {
3438  (void) FormatLocaleString(value,MaxTextExtent,"%g",
3439  image->x_resolution);
3440  break;
3441  }
3442  if (LocaleCompare("resolution.y",property) == 0)
3443  {
3444  (void) FormatLocaleString(value,MaxTextExtent,"%g",
3445  image->y_resolution);
3446  break;
3447  }
3448  break;
3449  }
3450  case 's':
3451  {
3452  if (LocaleCompare("scene",property) == 0)
3453  {
3454  if ((image_info != (ImageInfo *) NULL) &&
3455  (image_info->number_scenes != 0))
3456  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3457  image_info->scene);
3458  else
3459  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3460  image->scene);
3461  break;
3462  }
3463  if (LocaleCompare("scenes",property) == 0)
3464  {
3465  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3466  GetImageListLength(image));
3467  break;
3468  }
3469  if (LocaleCompare("size",property) == 0)
3470  {
3471  (void) FormatMagickSize(GetBlobSize(image),MagickFalse,value);
3472  break;
3473  }
3474  if (LocaleCompare("skewness",property) == 0)
3475  {
3476  double
3477  kurtosis,
3478  skewness;
3479 
3480  (void) GetImageChannelKurtosis(image,image_info->channel,&kurtosis,
3481  &skewness,&image->exception);
3482  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3483  GetMagickPrecision(),skewness);
3484  break;
3485  }
3486  if ((LocaleCompare("standard-deviation",property) == 0) ||
3487  (LocaleCompare("standard_deviation",property) == 0))
3488  {
3489  double
3490  mean,
3491  standard_deviation;
3492 
3493  (void) GetImageChannelMean(image,image_info->channel,&mean,
3494  &standard_deviation,&image->exception);
3495  (void) FormatLocaleString(value,MaxTextExtent,"%.*g",
3496  GetMagickPrecision(),standard_deviation);
3497  break;
3498  }
3499  break;
3500  }
3501  case 't':
3502  {
3503  if (LocaleCompare("type",property) == 0)
3504  {
3505  string=CommandOptionToMnemonic(MagickTypeOptions,(ssize_t)
3506  IdentifyImageType(image,&image->exception));
3507  break;
3508  }
3509  break;
3510  }
3511  case 'u':
3512  {
3513  if ((image_info != (ImageInfo *) NULL) &&
3514  (LocaleCompare("unique",property) == 0))
3515  {
3516  string=image_info->unique;
3517  break;
3518  }
3519  if (LocaleCompare("units",property) == 0)
3520  {
3521  /*
3522  Image resolution units.
3523  */
3524  string=CommandOptionToMnemonic(MagickResolutionOptions,(ssize_t)
3525  image->units);
3526  break;
3527  }
3528  break;
3529  }
3530  case 'v':
3531  {
3532  if (LocaleCompare("version",property) == 0)
3533  {
3534  string=GetMagickVersion((size_t *) NULL);
3535  break;
3536  }
3537  break;
3538  }
3539  case 'w':
3540  {
3541  if (LocaleCompare("width",property) == 0)
3542  {
3543  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",(double)
3544  (image->magick_columns != 0 ? image->magick_columns : 256));
3545  break;
3546  }
3547  break;
3548  }
3549  case 'x': /* FUTURE: Obsolete X resolution */
3550  {
3551  if ((LocaleCompare("xresolution",property) == 0) ||
3552  (LocaleCompare("x-resolution",property) == 0) )
3553  {
3554  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",
3555  image->x_resolution);
3556  break;
3557  }
3558  break;
3559  }
3560  case 'y': /* FUTURE: Obsolete Y resolution */
3561  {
3562  if ((LocaleCompare("yresolution",property) == 0) ||
3563  (LocaleCompare("y-resolution",property) == 0) )
3564  {
3565  (void) FormatLocaleString(value,MaxTextExtent,"%.20g",
3566  image->y_resolution);
3567  break;
3568  }
3569  break;
3570  }
3571  case 'z':
3572  {
3573  if ((image_info != (ImageInfo *) NULL) &&
3574  (LocaleCompare("zero",property) == 0))
3575  {
3576  string=image_info->zero;
3577  break;
3578  }
3579  break;
3580  }
3581  }
3582  if (*value != '\0')
3583  string=value;
3584  if (string != (char *) NULL)
3585  {
3586  (void) SetImageArtifact(image,"get-property", string);
3587  return(GetImageArtifact(image,"get-property"));
3588  }
3589  return((char *) NULL);
3590 }
3591 
3592 /*
3593 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3594 % %
3595 % %
3596 % %
3597 % G e t N e x t I m a g e P r o p e r t y %
3598 % %
3599 % %
3600 % %
3601 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3602 %
3603 % GetNextImageProperty() gets the next free-form string property name.
3604 %
3605 % The format of the GetNextImageProperty method is:
3606 %
3607 % char *GetNextImageProperty(const Image *image)
3608 %
3609 % A description of each parameter follows:
3610 %
3611 % o image: the image.
3612 %
3613 */
3614 MagickExport char *GetNextImageProperty(const Image *image)
3615 {
3616  assert(image != (Image *) NULL);
3617  assert(image->signature == MagickCoreSignature);
3618  if (IsEventLogging() != MagickFalse)
3619  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
3620  image->filename);
3621  if (image->properties == (void *) NULL)
3622  return((char *) NULL);
3623  return((char *) GetNextKeyInSplayTree((SplayTreeInfo *) image->properties));
3624 }
3625 
3626 /*
3627 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3628 % %
3629 % %
3630 % %
3631 % I n t e r p r e t I m a g e P r o p e r t i e s %
3632 % %
3633 % %
3634 % %
3635 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3636 %
3637 % InterpretImageProperties() replaces any embedded formatting characters with
3638 % the appropriate image property and returns the interpreted text.
3639 %
3640 % This searches for and replaces
3641 % \n \r \% replaced by newline, return, and percent resp.
3642 % &lt; &gt; &amp; replaced by '<', '>', '&' resp.
3643 % %% replaced by percent
3644 %
3645 % %x %[x] where 'x' is a single letter prosperity, case sensitive).
3646 % %[type:name] where 'type' a is special and known prefix.
3647 % %[name] where 'name' is a specifically known attribute, calculated
3648 % value, or a per-image property string name, or a per-image
3649 % 'artifact' (as generated from a global option).
3650 % It may contain ':' as long as the prefix is not special.
3651 %
3652 % Single letter % substitutions will only happen if the character before the
3653 % percent is NOT a number. But braced substitutions will always be performed.
3654 % This prevents the typical usage of percent in a interpreted geometry
3655 % argument from being substituted when the percent is a geometry flag.
3656 %
3657 % If 'glob-expressions' ('*' or '?' characters) is used for 'name' it may be
3658 % used as a search pattern to print multiple lines of "name=value\n" pairs of
3659 % the associacted set of properities.
3660 %
3661 % The returned string must be freed using DestroyString() by the caller.
3662 %
3663 % The format of the InterpretImageProperties method is:
3664 %
3665 % char *InterpretImageProperties(const ImageInfo *image_info,Image *image,
3666 % const char *embed_text)
3667 %
3668 % A description of each parameter follows:
3669 %
3670 % o image_info: the image info.
3671 %
3672 % o image: the image.
3673 %
3674 % o embed_text: the address of a character string containing the embedded
3675 % formatting characters.
3676 %
3677 */
3678 MagickExport char *InterpretImageProperties(const ImageInfo *image_info,
3679  Image *image,const char *embed_text)
3680 {
3681 #define ExtendInterpretText(string_length) \
3682 { \
3683  size_t length=(string_length); \
3684  if ((size_t) (q-interpret_text+length+1) >= extent) \
3685  { \
3686  extent+=length; \
3687  interpret_text=(char *) ResizeQuantumMemory(interpret_text,extent+ \
3688  MaxTextExtent,sizeof(*interpret_text)); \
3689  if (interpret_text == (char *) NULL) \
3690  { \
3691  if (property_info != image_info) \
3692  property_info=DestroyImageInfo(property_info); \
3693  return((char *) NULL); \
3694  } \
3695  q=interpret_text+strlen(interpret_text); \
3696  } \
3697 }
3698 
3699 #define AppendKeyValue2Text(key,value)\
3700 { \
3701  size_t length=strlen(key)+strlen(value)+2; \
3702  if ((size_t) (q-interpret_text+length+1) >= extent) \
3703  { \
3704  extent+=length; \
3705  interpret_text=(char *) ResizeQuantumMemory(interpret_text,extent+ \
3706  MaxTextExtent,sizeof(*interpret_text)); \
3707  if (interpret_text == (char *) NULL) \
3708  { \
3709  if (property_info != image_info) \
3710  property_info=DestroyImageInfo(property_info); \
3711  return((char *) NULL); \
3712  } \
3713  q=interpret_text+strlen(interpret_text); \
3714  } \
3715  q+=FormatLocaleString(q,extent,"%s=%s\n",(key),(value)); \
3716 }
3717 
3718 #define AppendString2Text(string) \
3719 { \
3720  size_t length=strlen((string)); \
3721  if ((size_t) (q-interpret_text+length+1) >= extent) \
3722  { \
3723  extent+=length; \
3724  interpret_text=(char *) ResizeQuantumMemory(interpret_text,extent+ \
3725  MaxTextExtent,sizeof(*interpret_text)); \
3726  if (interpret_text == (char *) NULL) \
3727  { \
3728  if (property_info != image_info) \
3729  property_info=DestroyImageInfo(property_info); \
3730  return((char *) NULL); \
3731  } \
3732  q=interpret_text+strlen(interpret_text); \
3733  } \
3734  (void) CopyMagickString(q,(string),extent); \
3735  q+=length; \
3736 }
3737 
3738  char
3739  *interpret_text;
3740 
3741  ImageInfo
3742  *property_info;
3743 
3744  char
3745  *q; /* current position in interpret_text */
3746 
3747  const char
3748  *p; /* position in embed_text string being expanded */
3749 
3750  size_t
3751  extent; /* allocated length of interpret_text */
3752 
3753  MagickBooleanType
3754  number;
3755 
3756  assert(image != (Image *) NULL);
3757  assert(image->signature == MagickCoreSignature);
3758  if (IsEventLogging() != MagickFalse)
3759  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
3760  if (embed_text == (const char *) NULL)
3761  return(ConstantString(""));
3762  p=embed_text;
3763  while ((isspace((int) ((unsigned char) *p)) != 0) && (*p != '\0'))
3764  p++;
3765  if (*p == '\0')
3766  return(ConstantString(""));
3767  if ((*p == '@') && (IsPathAccessible(p+1) != MagickFalse))
3768  {
3769  /*
3770  Replace string from file.
3771  */
3772  if (IsRightsAuthorized(PathPolicyDomain,ReadPolicyRights,p) == MagickFalse)
3773  {
3774  errno=EPERM;
3775  (void) ThrowMagickException(&image->exception,GetMagickModule(),
3776  PolicyError,"NotAuthorized","`%s'",p);
3777  return(ConstantString(""));
3778  }
3779  interpret_text=FileToString(p,~0UL,&image->exception);
3780  if (interpret_text != (char *) NULL)
3781  return(interpret_text);
3782  }
3783  /*
3784  Translate any embedded format characters.
3785  */
3786  if (image_info != (ImageInfo *) NULL)
3787  property_info=(ImageInfo *) image_info;
3788  else
3789  property_info=CloneImageInfo(image_info);
3790  interpret_text=AcquireString(embed_text); /* new string with extra space */
3791  extent=MaxTextExtent; /* how many extra space */
3792  number=MagickFalse; /* is last char a number? */
3793  for (q=interpret_text; *p!='\0';
3794  number=(isdigit((int) ((unsigned char) *p))) ? MagickTrue : MagickFalse,p++)
3795  {
3796  /*
3797  Look for the various escapes, (and handle other specials).
3798  */
3799  *q='\0';
3800  ExtendInterpretText(MaxTextExtent);
3801  switch (*p)
3802  {
3803  case '\\':
3804  {
3805  switch (*(p+1))
3806  {
3807  case '\0':
3808  continue;
3809  case 'r': /* convert to RETURN */
3810  {
3811  *q++='\r';
3812  p++;
3813  continue;
3814  }
3815  case 'n': /* convert to NEWLINE */
3816  {
3817  *q++='\n';
3818  p++;
3819  continue;
3820  }
3821  case '\n': /* EOL removal UNIX,MacOSX */
3822  {
3823  p++;
3824  continue;
3825  }
3826  case '\r': /* EOL removal DOS,Windows */
3827  {
3828  p++;
3829  if (*p == '\n') /* return-newline EOL */
3830  p++;
3831  continue;
3832  }
3833  default:
3834  {
3835  p++;
3836  *q++=(*p);
3837  }
3838  }
3839  continue;
3840  }
3841  case '&':
3842  {
3843  if (LocaleNCompare("&lt;",p,4) == 0)
3844  {
3845  *q++='<';
3846  p+=3;
3847  }
3848  else
3849  if (LocaleNCompare("&gt;",p,4) == 0)
3850  {
3851  *q++='>';
3852  p+=3;
3853  }
3854  else
3855  if (LocaleNCompare("&amp;",p,5) == 0)
3856  {
3857  *q++='&';
3858  p+=4;
3859  }
3860  else
3861  *q++=(*p);
3862  continue;
3863  }
3864  case '%':
3865  break; /* continue to next set of handlers */
3866  default:
3867  {
3868  *q++=(*p); /* any thing else is 'as normal' */
3869  continue;
3870  }
3871  }
3872  p++; /* advance beyond the percent */
3873  /*
3874  Doubled percent - or percent at end of string.
3875  */
3876  if ((*p == '\0') || (*p == '\'') || (*p == '"'))
3877  p--;
3878  if (*p == '%')
3879  {
3880  *q++='%';
3881  continue;
3882  }
3883  /*
3884  Single letter escapes %c.
3885  */
3886  if (*p != '[')
3887  {
3888  const char
3889  *value;
3890 
3891  /* But only if not preceeded by a number! */
3892  if (number != MagickFalse)
3893  {
3894  *q++='%'; /* do NOT substitute the percent */
3895  p--; /* back up one */
3896  continue;
3897  }
3898  value=GetMagickPropertyLetter(property_info,image,*p);
3899  if (value != (char *) NULL)
3900  {
3901  AppendString2Text(value);
3902  continue;
3903  }
3904  (void) ThrowMagickException(&image->exception,GetMagickModule(),
3905  OptionWarning,"UnknownImageProperty","\"%%%c\"",*p);
3906  continue;
3907  }
3908  {
3909  char
3910  pattern[2*MaxTextExtent] = "\0";
3911 
3912  const char
3913  *key,
3914  *value;
3915 
3916  ssize_t
3917  len;
3918 
3919  ssize_t
3920  depth;
3921 
3922  /*
3923  Braced Percent Escape %[...]
3924  */
3925  p++; /* advance p to just inside the opening brace */
3926  depth=1;
3927  if ( *p == ']' )
3928  {
3929  (void) ThrowMagickException(&image->exception,GetMagickModule(),
3930  OptionWarning,"UnknownImageProperty","\"%%[]\"");
3931  break;
3932  }
3933  for (len=0; len<(MaxTextExtent-1L) && (*p != '\0');)
3934  {
3935  if ((*p == '\\') && (*(p+1) != '\0'))
3936  {
3937  /*
3938  Skip escaped braces within braced pattern.
3939  */
3940  pattern[len++]=(*p++);
3941  pattern[len++]=(*p++);
3942  continue;
3943  }
3944  if (*p == '[')
3945  depth++;
3946  if (*p == ']')
3947  depth--;
3948  if (depth <= 0)
3949  break;
3950  pattern[len++]=(*p++);
3951  }
3952  pattern[len]='\0';
3953  if (depth != 0)
3954  {
3955  /*
3956  Check for unmatched final ']' for "%[...]".
3957  */
3958  if (len >= 64)
3959  {
3960  pattern[61] = '.'; /* truncate string for error message */
3961  pattern[62] = '.';
3962  pattern[63] = '.';
3963  pattern[64] = '\0';
3964  }
3965  (void) ThrowMagickException(&image->exception,GetMagickModule(),
3966  OptionError,"UnbalancedBraces","\"%%[%s\"",pattern);
3967  interpret_text=DestroyString(interpret_text);
3968  if (property_info != image_info)
3969  property_info=DestroyImageInfo(property_info);
3970  return((char *) NULL);
3971  }
3972  /*
3973  Special Lookup Prefixes %[prefix:...]
3974  */
3975  if (LocaleNCompare("fx:",pattern,3) == 0)
3976  {
3977  double
3978  value;
3979 
3980  FxInfo
3981  *fx_info;
3982 
3983  MagickBooleanType
3984  status;
3985 
3986  /*
3987  FX - value calculator.
3988  */
3989  fx_info=AcquireFxInfo(image,pattern+3);
3990  status=FxEvaluateChannelExpression(fx_info,property_info->channel,0,0,
3991  &value,&image->exception);
3992  fx_info=DestroyFxInfo(fx_info);
3993  if (status != MagickFalse)
3994  {
3995  char
3996  result[MagickPathExtent];
3997 
3998  (void) FormatLocaleString(result,MagickPathExtent,"%.*g",
3999  GetMagickPrecision(),(double) value);
4000  AppendString2Text(result);
4001  }
4002  continue;
4003  }
4004  if (LocaleNCompare("option:",pattern,7) == 0)
4005  {
4006  /*
4007  Option - direct global option lookup (with globbing).
4008  */
4009  if (IsGlob(pattern+7) != MagickFalse)
4010  {
4011  ResetImageOptionIterator(property_info);
4012  while ((key=GetNextImageOption(property_info)) != (const char *) NULL)
4013  if (GlobExpression(key,pattern+7,MagickTrue) != MagickFalse)
4014  {
4015  value=GetImageOption(property_info,key);
4016  if (value != (const char *) NULL)
4017  AppendKeyValue2Text(key,value);
4018  /* else - assertion failure? key but no value! */
4019  }
4020  continue;
4021  }
4022  value=GetImageOption(property_info,pattern+7);
4023  if (value != (char *) NULL)
4024  AppendString2Text(value);
4025  /* else - no global option of this specifc name */
4026  continue;
4027  }
4028  if (LocaleNCompare("artifact:",pattern,9) == 0)
4029  {
4030  /*
4031  Artifact - direct image artifact lookup (with glob).
4032  */
4033  if (IsGlob(pattern+9) != MagickFalse)
4034  {
4035  ResetImageArtifactIterator(image);
4036  while ((key=GetNextImageArtifact(image)) != (const char *) NULL)
4037  if (GlobExpression(key,pattern+9,MagickTrue) != MagickFalse)
4038  {
4039  value=GetImageArtifact(image,key);
4040  if (value != (const char *) NULL)
4041  AppendKeyValue2Text(key,value);
4042  /* else - assertion failure? key but no value! */
4043  }
4044  continue;
4045  }
4046  value=GetImageArtifact(image,pattern+9);
4047  if (value != (char *) NULL)
4048  AppendString2Text(value);
4049  /* else - no artifact of this specifc name */
4050  continue;
4051  }
4052  /*
4053  Handle special image properties, for example:
4054  %[exif:...] %[fx:...] %[pixel:...].
4055 
4056  FUTURE: handle %[property:...] prefix - abort other lookups.
4057  */
4058  value=GetImageProperty(image,pattern);
4059  if (value != (const char *) NULL)
4060  {
4061  AppendString2Text(value);
4062  continue;
4063  }
4064  /*
4065  Handle property 'glob' patterns such as:
4066  %[*] %[user:array_??] %[filename:e*]
4067  */
4068  if (IsGlob(pattern) != MagickFalse)
4069  {
4070  ResetImagePropertyIterator(image);
4071  while ((key=GetNextImageProperty(image)) != (const char *) NULL)
4072  if (GlobExpression(key,pattern,MagickTrue) != MagickFalse)
4073  {
4074  value=GetImageProperty(image,key);
4075  if (value != (const char *) NULL)
4076  AppendKeyValue2Text(key,value);
4077  /* else - assertion failure? */
4078  }
4079  continue;
4080  }
4081  /*
4082  Look for a known property or image attribute such as
4083  %[basename] %[density] %[delay]. Also handles a braced single
4084  letter: %[b] %[G] %[g].
4085  */
4086  value=GetMagickProperty(property_info,image,pattern);
4087  if (value != (const char *) NULL)
4088  {
4089  AppendString2Text(value);
4090  continue;
4091  }
4092  /*
4093  Look for a per-image Artifact (user option, post-interpreted)
4094  */
4095  value=GetImageArtifact(image,pattern);
4096  if (value != (char *) NULL)
4097  {
4098  AppendString2Text(value);
4099  continue;
4100  }
4101  /*
4102  Look for user option of this name (should never match in CLI usage).
4103  */
4104  value=GetImageOption(property_info,pattern);
4105  if (value != (char *) NULL)
4106  {
4107  AppendString2Text(value);
4108  continue;
4109  }
4110  /*
4111  Failed to find any match anywhere!
4112  */
4113  if (len >= 64)
4114  {
4115  pattern[61] = '.'; /* truncate string for error message */
4116  pattern[62] = '.';
4117  pattern[63] = '.';
4118  pattern[64] = '\0';
4119  }
4120  (void) ThrowMagickException(&image->exception,GetMagickModule(),
4121  OptionWarning,"UnknownImageProperty","\"%%[%s]\"",pattern);
4122  /* continue */
4123  } /* Braced Percent Escape */
4124  } /* for each char in 'embed_text' */
4125  *q='\0';
4126  if (property_info != image_info)
4127  property_info=DestroyImageInfo(property_info);
4128  return(interpret_text);
4129 }
4130 
4131 /*
4132 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4133 % %
4134 % %
4135 % %
4136 % R e m o v e I m a g e P r o p e r t y %
4137 % %
4138 % %
4139 % %
4140 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4141 %
4142 % RemoveImageProperty() removes a property from the image and returns its
4143 % value.
4144 %
4145 % In this case the ConstantString() value returned should be freed by the
4146 % caller when finished.
4147 %
4148 % The format of the RemoveImageProperty method is:
4149 %
4150 % char *RemoveImageProperty(Image *image,const char *property)
4151 %
4152 % A description of each parameter follows:
4153 %
4154 % o image: the image.
4155 %
4156 % o property: the image property.
4157 %
4158 */
4159 MagickExport char *RemoveImageProperty(Image *image,const char *property)
4160 {
4161  char
4162  *value;
4163 
4164  assert(image != (Image *) NULL);
4165  assert(image->signature == MagickCoreSignature);
4166  if (IsEventLogging() != MagickFalse)
4167  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
4168  image->filename);
4169  if (image->properties == (void *) NULL)
4170  return((char *) NULL);
4171  value=(char *) RemoveNodeFromSplayTree((SplayTreeInfo *) image->properties,
4172  property);
4173  return(value);
4174 }
4175 
4176 /*
4177 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4178 % %
4179 % %
4180 % %
4181 % R e s e t I m a g e P r o p e r t y I t e r a t o r %
4182 % %
4183 % %
4184 % %
4185 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4186 %
4187 % ResetImagePropertyIterator() resets the image properties iterator. Use it
4188 % in conjunction with GetNextImageProperty() to iterate over all the values
4189 % associated with an image property.
4190 %
4191 % The format of the ResetImagePropertyIterator method is:
4192 %
4193 % ResetImagePropertyIterator(Image *image)
4194 %
4195 % A description of each parameter follows:
4196 %
4197 % o image: the image.
4198 %
4199 */
4200 MagickExport void ResetImagePropertyIterator(const Image *image)
4201 {
4202  assert(image != (Image *) NULL);
4203  assert(image->signature == MagickCoreSignature);
4204  if (IsEventLogging() != MagickFalse)
4205  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
4206  image->filename);
4207  if (image->properties == (void *) NULL)
4208  return;
4209  ResetSplayTreeIterator((SplayTreeInfo *) image->properties);
4210 }
4211 
4212 /*
4213 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4214 % %
4215 % %
4216 % %
4217 % S e t I m a g e P r o p e r t y %
4218 % %
4219 % %
4220 % %
4221 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4222 %
4223 % SetImageProperty() saves the given string value either to specific known
4224 % attribute or to a freeform property string.
4225 %
4226 % The format of the SetImageProperty method is:
4227 %
4228 % MagickBooleanType SetImageProperty(Image *image,const char *property,
4229 % const char *value)
4230 %
4231 % A description of each parameter follows:
4232 %
4233 % o image: the image.
4234 %
4235 % o property: the image property.
4236 %
4237 % o values: the image property values.
4238 %
4239 */
4240 MagickExport MagickBooleanType SetImageProperty(Image *image,
4241  const char *property,const char *value)
4242 {
4244  *exception;
4245 
4246  MagickBooleanType
4247  status;
4248 
4249  MagickStatusType
4250  flags;
4251 
4252  size_t
4253  property_length;
4254 
4255 
4256  assert(image != (Image *) NULL);
4257  assert(image->signature == MagickCoreSignature);
4258  if (IsEventLogging() != MagickFalse)
4259  (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
4260  image->filename);
4261  if (image->properties == (void *) NULL)
4262  image->properties=NewSplayTree(CompareSplayTreeString,
4263  RelinquishMagickMemory,RelinquishMagickMemory); /* create splay-tree */
4264  if (value == (const char *) NULL)
4265  return(DeleteImageProperty(image,property)); /* delete if NULL */
4266  exception=(&image->exception);
4267  property_length=strlen(property);
4268  if ((property_length > 2) && (*(property+(property_length-2)) == ':') &&
4269  (*(property+(property_length-1)) == '*'))
4270  {
4271  (void) ThrowMagickException(exception,GetMagickModule(),
4272  OptionWarning,"SetReadOnlyProperty","`%s'",property);
4273  return(MagickFalse);
4274  }
4275  /*
4276  FUTURE: These should produce 'illegal settings'
4277  * binary chars in p[roperty key
4278  * first letter must be a alphabetic
4279  * single letter property keys (read only)
4280  * known special prefix (read only, they don't get saved!)
4281  */
4282  status=MagickTrue;
4283  switch (*property)
4284  {
4285  case 'B':
4286  case 'b':
4287  {
4288  if (LocaleCompare("background",property) == 0)
4289  {
4290  (void) QueryColorDatabase(value,&image->background_color,exception);
4291  break;
4292  }
4293  if (LocaleCompare("bias",property) == 0)
4294  {
4295  image->bias=StringToDoubleInterval(value,(double) QuantumRange+1.0);
4296  break;
4297  }
4298  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4299  ConstantString(property),ConstantString(value));
4300  break;
4301  }
4302  case 'C':
4303  case 'c':
4304  {
4305  if (LocaleCompare("colorspace",property) == 0)
4306  {
4307  ssize_t
4308  colorspace;
4309 
4310  colorspace=ParseCommandOption(MagickColorspaceOptions,MagickFalse,
4311  value);
4312  if (colorspace < 0)
4313  break;
4314  status=SetImageColorspace(image,(ColorspaceType) colorspace);
4315  break;
4316  }
4317  if (LocaleCompare("compose",property) == 0)
4318  {
4319  ssize_t
4320  compose;
4321 
4322  compose=ParseCommandOption(MagickComposeOptions,MagickFalse,value);
4323  if (compose < 0)
4324  break;
4325  image->compose=(CompositeOperator) compose;
4326  break;
4327  }
4328  if (LocaleCompare("compress",property) == 0)
4329  {
4330  ssize_t
4331  compression;
4332 
4333  compression=ParseCommandOption(MagickCompressOptions,MagickFalse,
4334  value);
4335  if (compression < 0)
4336  break;
4337  image->compression=(CompressionType) compression;
4338  break;
4339  }
4340  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4341  ConstantString(property),ConstantString(value));
4342  break;
4343  }
4344  case 'D':
4345  case 'd':
4346  {
4347  if (LocaleCompare("delay",property) == 0)
4348  {
4349  GeometryInfo
4350  geometry_info;
4351 
4352  flags=ParseGeometry(value,&geometry_info);
4353  if ((flags & GreaterValue) != 0)
4354  {
4355  if (image->delay > (size_t) floor(geometry_info.rho+0.5))
4356  image->delay=(size_t) floor(geometry_info.rho+0.5);
4357  }
4358  else
4359  if ((flags & LessValue) != 0)
4360  {
4361  if ((double) image->delay < floor(geometry_info.rho+0.5))
4362  image->ticks_per_second=CastDoubleToLong(
4363  floor(geometry_info.sigma+0.5));
4364  }
4365  else
4366  image->delay=(size_t) floor(geometry_info.rho+0.5);
4367  if ((flags & SigmaValue) != 0)
4368  image->ticks_per_second=CastDoubleToLong(floor(
4369  geometry_info.sigma+0.5));
4370  break;
4371  }
4372  if (LocaleCompare("density",property) == 0)
4373  {
4374  GeometryInfo
4375  geometry_info;
4376 
4377  flags=ParseGeometry(value,&geometry_info);
4378  if ((flags & RhoValue) != 0)
4379  image->x_resolution=geometry_info.rho;
4380  image->y_resolution=image->x_resolution;
4381  if ((flags & SigmaValue) != 0)
4382  image->y_resolution=geometry_info.sigma;
4383  }
4384  if (LocaleCompare("depth",property) == 0)
4385  {
4386  image->depth=StringToUnsignedLong(value);
4387  break;
4388  }
4389  if (LocaleCompare("dispose",property) == 0)
4390  {
4391  ssize_t
4392  dispose;
4393 
4394  dispose=ParseCommandOption(MagickDisposeOptions,MagickFalse,value);
4395  if (dispose < 0)
4396  break;
4397  image->dispose=(DisposeType) dispose;
4398  break;
4399  }
4400  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4401  ConstantString(property),ConstantString(value));
4402  break;
4403  }
4404  case 'G':
4405  case 'g':
4406  {
4407  if (LocaleCompare("gamma",property) == 0)
4408  {
4409  image->gamma=StringToDouble(value,(char **) NULL);
4410  break;
4411  }
4412  if (LocaleCompare("gravity",property) == 0)
4413  {
4414  ssize_t
4415  gravity;
4416 
4417  gravity=ParseCommandOption(MagickGravityOptions,MagickFalse,value);
4418  if (gravity < 0)
4419  break;
4420  image->gravity=(GravityType) gravity;
4421  break;
4422  }
4423  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4424  ConstantString(property),ConstantString(value));
4425  break;
4426  }
4427  case 'I':
4428  case 'i':
4429  {
4430  if (LocaleCompare("intensity",property) == 0)
4431  {
4432  ssize_t
4433  intensity;
4434 
4435  intensity=ParseCommandOption(MagickPixelIntensityOptions,MagickFalse,
4436  value);
4437  if (intensity < 0)
4438  break;
4439  image->intensity=(PixelIntensityMethod) intensity;
4440  break;
4441  }
4442  if (LocaleCompare("interpolate",property) == 0)
4443  {
4444  ssize_t
4445  interpolate;
4446 
4447  interpolate=ParseCommandOption(MagickInterpolateOptions,MagickFalse,
4448  value);
4449  if (interpolate < 0)
4450  break;
4451  image->interpolate=(InterpolatePixelMethod) interpolate;
4452  break;
4453  }
4454  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4455  ConstantString(property),ConstantString(value));
4456  break;
4457  }
4458  case 'L':
4459  case 'l':
4460  {
4461  if (LocaleCompare("loop",property) == 0)
4462  {
4463  image->iterations=StringToUnsignedLong(value);
4464  break;
4465  }
4466  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4467  ConstantString(property),ConstantString(value));
4468  break;
4469  }
4470  case 'P':
4471  case 'p':
4472  {
4473  if (LocaleCompare("page",property) == 0)
4474  {
4475  char
4476  *geometry;
4477 
4478  geometry=GetPageGeometry(value);
4479  flags=ParseAbsoluteGeometry(geometry,&image->page);
4480  geometry=DestroyString(geometry);
4481  break;
4482  }
4483  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4484  ConstantString(property),ConstantString(value));
4485  break;
4486  }
4487  case 'R':
4488  case 'r':
4489  {
4490  if (LocaleCompare("rendering-intent",property) == 0)
4491  {
4492  ssize_t
4493  rendering_intent;
4494 
4495  rendering_intent=ParseCommandOption(MagickIntentOptions,MagickFalse,
4496  value);
4497  if (rendering_intent < 0)
4498  break;
4499  image->rendering_intent=(RenderingIntent) rendering_intent;
4500  break;
4501  }
4502  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4503  ConstantString(property),ConstantString(value));
4504  break;
4505  }
4506  case 'T':
4507  case 't':
4508  {
4509  if (LocaleCompare("tile-offset",property) == 0)
4510  {
4511  char
4512  *geometry;
4513 
4514  geometry=GetPageGeometry(value);
4515  flags=ParseAbsoluteGeometry(geometry,&image->tile_offset);
4516  geometry=DestroyString(geometry);
4517  break;
4518  }
4519  if (LocaleCompare("type",property) == 0)
4520  {
4521  ssize_t
4522  type;
4523 
4524  type=ParseCommandOption(MagickTypeOptions,MagickFalse,value);
4525  if (type < 0)
4526  return(MagickFalse);
4527  image->type=(ImageType) type;
4528  break;
4529  }
4530  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4531  ConstantString(property),ConstantString(value));
4532  break;
4533  }
4534  case 'U':
4535  case 'u':
4536  {
4537  if (LocaleCompare("units",property) == 0)
4538  {
4539  ssize_t
4540  units;
4541 
4542  units=ParseCommandOption(MagickResolutionOptions,MagickFalse,value);
4543  if (units < 0)
4544  break;
4545  image->units=(ResolutionType) units;
4546  break;
4547  }
4548  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4549  ConstantString(property),ConstantString(value));
4550  break;
4551  }
4552  default:
4553  {
4554  status=AddValueToSplayTree((SplayTreeInfo *) image->properties,
4555  ConstantString(property),ConstantString(value));
4556  break;
4557  }
4558  }
4559  return(status);
4560 }
Definition: image.h:133
Definition: fx.c:130