src/exif-common.c

   1 /*
   2  * Geeqie
   3  * (C) 2006 John Ellis
   4  * Copyright (C) 2008 The Geeqie Team
   5  *
   6 */
   7
   8 #ifdef HAVE_CONFIG_H
   9 #  include "config.h"
  10 #endif
  11
  12 #include <stdio.h>
  13 #include <string.h>
  14 #include <fcntl.h>
  15 #include <unistd.h>
  16 #include <sys/types.h>
  17 #include <sys/stat.h>
  18 #include <sys/mman.h>
  19 #include <math.h>
  20
  21 #ifdef HAVE_LCMS
  22 /*** color support enabled ***/
  23
  24 #ifdef HAVE_LCMS_LCMS_H
  25   #include <lcms/lcms.h>
  26 #else
  27   #include <lcms.h>
  28 #endif
  29 #endif
  30
  31 #include <glib.h>
  32
  33 #include "intl.h"
  34
  35 #include "main.h"
  36 #include "exif.h"
  37
  38 #include "filedata.h"
  39 #include "filefilter.h"
  40 #include "filecache.h"
  41 #include "format_raw.h"
  42 #include "ui_fileops.h"
  43
  44
  45 static gdouble exif_rational_to_double(ExifRational *r, gint sign)
  46 {
  47         if (!r || r->den == 0.0) return 0.0;
  48
  49         if (sign) return (gdouble)((gint)r->num) / (gdouble)((gint)r->den);
  50         return (gdouble)r->num / r->den;
  51 }
  52
  53 static gdouble exif_get_rational_as_double(ExifData *exif, const gchar *key)
  54 {
  55         ExifRational *r;
  56         gint sign;
  57
  58         r = exif_get_rational(exif, key, &sign);
  59         return exif_rational_to_double(r, sign);
  60 }
  61
  62 static GString *append_comma_text(GString *string, const gchar *text)
  63 {
  64         string = g_string_append(string, ", ");
  65         string = g_string_append(string, text);
  66
  67         return string;
  68 }
  69
  70 static gchar *remove_common_prefix(gchar *s, gchar *t)
  71 {
  72         gint i;
  73
  74         if (!s || !t) return t;
  75
  76         for (i = 0; s[i] && t[i] && s[i] == t[i]; i++)
  77                 ;
  78         if (!i)
  79                 return t;
  80         if (s[i-1] == ' ' || !s[i])
  81                 {
  82                 while (t[i] == ' ')
  83                         i++;
  84                 return t + i;
  85                 }
  86         return s;
  87 }
  88
  89 static gdouble get_crop_factor(ExifData *exif)
  90 {
  91         gdouble res_unit_tbl[] = {0.0, 25.4, 25.4, 10.0, 1.0, 0.001 };
  92         gdouble xres = exif_get_rational_as_double(exif, "Exif.Photo.FocalPlaneXResolution");
  93         gdouble yres = exif_get_rational_as_double(exif, "Exif.Photo.FocalPlaneYResolution");
  94         gint res_unit;
  95         gint w, h;
  96         gdouble xsize, ysize, size, ratio;
  97
  98         if (xres == 0.0 || yres == 0.0) return 0.0;
  99
 100         if (!exif_get_integer(exif, "Exif.Photo.FocalPlaneResolutionUnit", &res_unit)) return 0.0;
 101         if (res_unit < 1 || res_unit > 5) return 0.0;
 102
 103         if (!exif_get_integer(exif, "Exif.Photo.PixelXDimension", &w)) return 0.0;
 104         if (!exif_get_integer(exif, "Exif.Photo.PixelYDimension", &h)) return 0.0;
 105
 106         xsize = w * res_unit_tbl[res_unit] / xres;
 107         ysize = h * res_unit_tbl[res_unit] / yres;
 108
 109         ratio = xsize / ysize;
 110
 111         if (ratio < 0.5 || ratio > 2.0) return 0.0; /* reasonable ratio */
 112
 113         size = sqrt(xsize * xsize + ysize * ysize);
 114
 115         if (size < 1.0 || size > 100.0) return 0.0; /* reasonable sensor size in mm */
 116
 117         return sqrt(36*36+24*24) / size;
 118
 119 }
 120
 121 static gint remove_suffix(gchar *str, const gchar *suffix, gint suffix_len)
 122 {
 123         gint str_len = strlen(str);
 124
 125         if (suffix_len < 0) suffix_len = strlen(suffix);
 126         if (str_len < suffix_len) return FALSE;
 127
 128         if (strcmp(str + str_len - suffix_len, suffix) != 0) return FALSE;
 129         str[str_len - suffix_len] = '\0';
 130
 131         return TRUE;
 132 }
 133
 134 static gchar *exif_build_formatted_Camera(ExifData *exif)
 135 {
 136         gchar *text;
 137         gchar *make = exif_get_data_as_text(exif, "Exif.Image.Make");
 138         gchar *model = exif_get_data_as_text(exif, "Exif.Image.Model");
 139         gchar *software = exif_get_data_as_text(exif, "Exif.Image.Software");
 140         gchar *model2;
 141         gchar *software2;
 142
 143         if (make)
 144                 {
 145                 g_strstrip(make);
 146
 147                 if (remove_suffix(make, " CORPORATION", 12)) { /* Nikon */ }
 148                 else if (remove_suffix(make, " Corporation", 12)) { /* Pentax */ }
 149                 else if (remove_suffix(make, " OPTICAL CO.,LTD", 16)) { /* OLYMPUS */ };
 150                 }
 151
 152         if (model)
 153                 g_strstrip(model);
 154
 155         if (software)
 156                 {
 157                 gint i, j;
 158
 159                 g_strstrip(software);
 160
 161                 /* remove superfluous spaces (pentax K100D) */
 162                 for (i = 0, j = 0; software[i]; i++, j++)
 163                         {
 164                         if (software[i] == ' ' && software[i + 1] == ' ')
 165                                 i++;
 166                         if (i != j) software[j] = software[i];
 167                         }
 168                 software[j] = '\0';
 169                 }
 170
 171         model2 = remove_common_prefix(make, model);
 172         software2 = remove_common_prefix(model2, software);
 173
 174         text = g_strdup_printf("%s%s%s%s%s%s", (make) ? make : "", (make && model2) ? " " : "",
 175                                                (model2) ? model2 : "",
 176                                                (software2 && (make || model2)) ? " (" : "",
 177                                                (software2) ? software2 : "",
 178                                                (software2 && (make || model2)) ? ")" : "");
 179
 180         g_free(make);
 181         g_free(model);
 182         g_free(software);
 183         return text;
 184 }
 185
 186 static gchar *exif_build_formatted_DateTime(ExifData *exif)
 187 {
 188         gchar *text = exif_get_data_as_text(exif, "Exif.Photo.DateTimeOriginal");
 189         gchar *subsec = NULL;
 190
 191         if (text) subsec = exif_get_data_as_text(exif, "Exif.Photo.SubSecTimeOriginal");
 192         if (!text)
 193                 {
 194                 text = exif_get_data_as_text(exif, "Exif.Image.DateTime");
 195                 if (text) subsec = exif_get_data_as_text(exif, "Exif.Photo.SubSecTime");
 196                 }
 197         if (subsec)
 198                 {
 199                 gchar *tmp = text;
 200                 text = g_strconcat(tmp, ".", subsec, NULL);
 201                 g_free(tmp);
 202                 g_free(subsec);
 203                 }
 204         return text;
 205 }
 206
 207 static gchar *exif_build_formatted_ShutterSpeed(ExifData *exif)
 208 {
 209         ExifRational *r;
 210
 211         r = exif_get_rational(exif, "Exif.Photo.ExposureTime", NULL);
 212         if (r && r->num && r->den)
 213                 {
 214                 gdouble n = (gdouble)r->den / (gdouble)r->num;
 215                 return g_strdup_printf("%s%.0fs", n > 1.0 ? "1/" : "",
 216                                                   n > 1.0 ? n : 1.0 / n);
 217                 }
 218         r = exif_get_rational(exif, "Exif.Photo.ShutterSpeedValue", NULL);
 219         if (r && r->num  && r->den)
 220                 {
 221                 gdouble n = pow(2.0, exif_rational_to_double(r, TRUE));
 222
 223                 /* Correct exposure time to avoid values like 1/91s (seen on Minolta DImage 7) */
 224                 if (n > 1.0 && (gint)n - ((gint)(n/10))*10 == 1) n--;
 225
 226                 return g_strdup_printf("%s%.0fs", n > 1.0 ? "1/" : "",
 227                                                   n > 1.0 ? floor(n) : 1.0 / n);
 228                 }
 229         return NULL;
 230 }
 231
 232 static gchar *exif_build_formatted_Aperture(ExifData *exif)
 233 {
 234         gdouble n;
 235
 236         n = exif_get_rational_as_double(exif, "Exif.Photo.FNumber");
 237         if (n == 0.0) n = exif_get_rational_as_double(exif, "Exif.Photo.ApertureValue");
 238         if (n == 0.0) return NULL;
 239
 240         return g_strdup_printf("f/%.1f", n);
 241 }
 242
 243 static gchar *exif_build_formatted_ExposureBias(ExifData *exif)
 244 {
 245         ExifRational *r;
 246         gint sign;
 247         gdouble n;
 248
 249         r = exif_get_rational(exif, "Exif.Photo.ExposureBiasValue", &sign);
 250         if (!r) return NULL;
 251
 252         n = exif_rational_to_double(r, sign);
 253         return g_strdup_printf("%+.1f", n);
 254 }
 255
 256 static gchar *exif_build_formatted_FocalLength(ExifData *exif)
 257 {
 258         gdouble n;
 259
 260         n = exif_get_rational_as_double(exif, "Exif.Photo.FocalLength");
 261         if (n == 0.0) return NULL;
 262         return g_strdup_printf("%.0f mm", n);
 263 }
 264
 265 static gchar *exif_build_formatted_FocalLength35mmFilm(ExifData *exif)
 266 {
 267         gint n;
 268         gdouble f, c;
 269
 270         if (exif_get_integer(exif, "Exif.Photo.FocalLengthIn35mmFilm", &n) && n != 0)
 271                 {
 272                 return g_strdup_printf("%d mm", n);
 273                 }
 274
 275         f = exif_get_rational_as_double(exif, "Exif.Photo.FocalLength");
 276         if (f == 0.0) return NULL;
 277
 278         c = get_crop_factor(exif);
 279         if (c == 0.0) return NULL;
 280
 281         return g_strdup_printf("%.0f mm", f * c);
 282 }
 283
 284 static gchar *exif_build_formatted_ISOSpeedRating(ExifData *exif)
 285 {
 286         gchar *text;
 287
 288         text = exif_get_data_as_text(exif, "Exif.Photo.ISOSpeedRatings");
 289         /* kodak may set this instead */
 290         if (!text) text = exif_get_data_as_text(exif, "Exif.Photo.ExposureIndex");
 291         return text;
 292 }
 293
 294 static gchar *exif_build_formatted_SubjectDistance(ExifData *exif)
 295 {
 296         ExifRational *r;
 297         gint sign;
 298         gdouble n;
 299
 300         r = exif_get_rational(exif, "Exif.Photo.SubjectDistance", &sign);
 301         if (!r) return NULL;
 302
 303         if ((glong)r->num == (glong)0xffffffff) return g_strdup(_("infinity"));
 304         if ((glong)r->num == 0) return g_strdup(_("unknown"));
 305
 306         n = exif_rational_to_double(r, sign);
 307         if (n == 0.0) return _("unknown");
 308         return g_strdup_printf("%.3f m", n);
 309 }
 310
 311 static gchar *exif_build_formatted_Flash(ExifData *exif)
 312 {
 313         /* grr, flash is a bitmask... */
 314         GString *string;
 315         gchar *text;
 316         gint n;
 317         gint v;
 318
 319         if (!exif_get_integer(exif, "Exif.Photo.Flash", &n)) return NULL;
 320
 321         /* Exif 2.1 only defines first 3 bits */
 322         if (n <= 0x07) return exif_get_data_as_text(exif, "Exif.Photo.Flash");
 323
 324         /* must be Exif 2.2 */
 325         string = g_string_new("");
 326
 327         /* flash fired (bit 0) */
 328         string = g_string_append(string, (n & 0x01) ? _("yes") : _("no"));
 329
 330         /* flash mode (bits 3, 4) */
 331         v = (n >> 3) & 0x03;
 332         if (v) string = append_comma_text(string, _("mode:"));
 333         switch (v)
 334                 {
 335                 case 1:
 336                         string = g_string_append(string, _("on"));
 337                         break;
 338                 case 2:
 339                         string = g_string_append(string, _("off"));
 340                         break;
 341                 case 3:
 342                         string = g_string_append(string, _("auto"));
 343                         break;
 344                 }
 345
 346         /* return light (bits 1, 2) */
 347         v = (n >> 1) & 0x03;
 348         if (v == 2) string = append_comma_text(string, _("not detected by strobe"));
 349         if (v == 3) string = append_comma_text(string, _("detected by strobe"));
 350
 351         /* we ignore flash function (bit 5) */
 352
 353         /* red-eye (bit 6) */
 354         if ((n >> 5) & 0x01) string = append_comma_text(string, _("red-eye reduction"));
 355
 356         text = string->str;
 357         g_string_free(string, FALSE);
 358         return text;
 359 }
 360
 361 static gchar *exif_build_formatted_Resolution(ExifData *exif)
 362 {
 363         ExifRational *rx, *ry;
 364         gchar *units;
 365         gchar *text;
 366
 367         rx = exif_get_rational(exif, "Exif.Image.XResolution", NULL);
 368         ry = exif_get_rational(exif, "Exif.Image.YResolution", NULL);
 369         if (!rx || !ry) return NULL;
 370
 371         units = exif_get_data_as_text(exif, "Exif.Image.ResolutionUnit");
 372         text = g_strdup_printf("%0.f x %0.f (%s/%s)", rx->den ? (gdouble)rx->num / rx->den : 1.0,
 373                                                       ry->den ? (gdouble)ry->num / ry->den : 1.0,
 374                                                       _("dot"), (units) ? units : _("unknown"));
 375
 376         g_free(units);
 377         return text;
 378 }
 379
 380 static gchar *exif_build_formatted_ColorProfile(ExifData *exif)
 381 {
 382         const gchar *name = "";
 383         const gchar *source = "";
 384         guchar *profile_data;
 385         guint profile_len;
 386
 387         profile_data = exif_get_color_profile(exif, &profile_len);
 388         if (!profile_data)
 389                 {
 390                 gint cs;
 391                 gchar *interop_index;
 392
 393                 /* ColorSpace == 1 specifies sRGB per EXIF 2.2 */
 394                 if (!exif_get_integer(exif, "Exif.Photo.ColorSpace", &cs)) cs = 0;
 395                 interop_index = exif_get_data_as_text(exif, "Exif.Iop.InteroperabilityIndex");
 396
 397                 if (cs == 1)
 398                         {
 399                         name = _("sRGB");
 400                         source = "ColorSpace";
 401                         }
 402                 else if (cs == 2 || (interop_index && !strcmp(interop_index, "R03")))
 403                         {
 404                         name = _("AdobeRGB");
 405                         source = (cs == 2) ? "ColorSpace" : "Iop";
 406                         }
 407
 408                 g_free(interop_index);
 409                 }
 410         else
 411                 {
 412                 source = _("embedded");
 413 #ifdef HAVE_LCMS
 414
 415                         {
 416                         cmsHPROFILE profile;
 417
 418                         profile = cmsOpenProfileFromMem(profile_data, profile_len);
 419                         if (profile)
 420                                 {
 421                                 name = cmsTakeProductName(profile);
 422                                 cmsCloseProfile(profile);
 423                                 }
 424                         g_free(profile_data);
 425                         }
 426 #endif
 427                 }
 428         if (name[0] == 0 && source[0] == 0) return NULL;
 429         return g_strdup_printf("%s (%s)", name, source);
 430 }
 431
 432 static gchar *exif_build_formatted_GPSPosition(ExifData *exif)
 433 {
 434         GString *string;
 435         gchar *text, *ref;
 436         ExifRational *value;
 437         ExifItem *item;
 438         guint i;
 439         gdouble p, p3;
 440         gulong p1, p2;
 441
 442         string = g_string_new("");
 443
 444         item = exif_get_item(exif, "Exif.GPSInfo.GPSLatitude");
 445         ref = exif_get_data_as_text(exif, "Exif.GPSInfo.GPSLatitudeRef");
 446         if (item && ref)
 447                 {
 448                 p = 0;
 449                 for (i = 0; i < exif_item_get_elements(item); i++)
 450                         {
 451                         value = exif_item_get_rational(item, NULL, i);
 452                         if (value && value->num && value->den)
 453                                 p += (gdouble)value->num / (gdouble)value->den / pow(60.0, (gdouble)i);
 454                         }
 455                 p1 = (gint)p;
 456                 p2 = (gint)((p - p1)*60);
 457                 p3 = ((p - p1)*60 - p2)*60;
 458
 459                 g_string_append_printf(string, "%0lu° %0lu' %0.2f\" %.1s", p1, p2, p3, ref);
 460                 } // if (item && ref)
 461
 462         item = exif_get_item(exif, "Exif.GPSInfo.GPSLongitude");
 463         ref = exif_get_data_as_text(exif, "Exif.GPSInfo.GPSLongitudeRef");
 464         if (item && ref)
 465                 {
 466                 p = 0;
 467                 for (i = 0; i < exif_item_get_elements(item); i++)
 468                         {
 469                         value = exif_item_get_rational(item, NULL, i);
 470                         if (value && value->num && value->den)
 471                         p += (gdouble)value->num / (gdouble)value->den / pow(60.0, (gdouble)i);
 472                         }
 473                 p1 = (gint)p;
 474                 p2 = (gint)((p - p1)*60);
 475                 p3 = ((p - p1)*60 - p2)*60;
 476
 477                 g_string_append_printf(string, ", %0lu° %0lu' %0.2f\" %.1s", p1, p2, p3, ref);
 478                 } // if (item && ref)
 479
 480         text = string->str;
 481         g_string_free(string, FALSE);
 482
 483         return text;
 484 } // static gchar *exif_build_forma...
 485
 486 static gchar *exif_build_formatted_GPSAltitude(ExifData *exif)
 487 {
 488         ExifRational *r;
 489         ExifItem *item;
 490         gdouble alt;
 491         gint ref;
 492
 493         item = exif_get_item(exif, "Exif.GPSInfo.GPSAltitudeRef");
 494         r = exif_get_rational(exif, "Exif.GPSInfo.GPSAltitude", NULL);
 495
 496         if (!r || !item) return NULL;
 497
 498         alt = exif_rational_to_double(r, 0);
 499         exif_item_get_integer(item, &ref);
 500
 501         return g_strdup_printf("%0.f m %s", alt, (ref==0)?_("Above Sea Level"):_("Below Sea Level"));
 502 }
 503
 504
 505 /* List of custom formatted pseudo-exif tags */
 506 #define EXIF_FORMATTED_TAG(name, label) { EXIF_FORMATTED()#name, label, exif_build_formatted##_##name }
 507
 508 ExifFormattedText ExifFormattedList[] = {
 509         EXIF_FORMATTED_TAG(Camera,              N_("Camera")),
 510         EXIF_FORMATTED_TAG(DateTime,            N_("Date")),
 511         EXIF_FORMATTED_TAG(ShutterSpeed,        N_("Shutter speed")),
 512         EXIF_FORMATTED_TAG(Aperture,            N_("Aperture")),
 513         EXIF_FORMATTED_TAG(ExposureBias,        N_("Exposure bias")),
 514         EXIF_FORMATTED_TAG(ISOSpeedRating,      N_("ISO sensitivity")),
 515         EXIF_FORMATTED_TAG(FocalLength,         N_("Focal length")),
 516         EXIF_FORMATTED_TAG(FocalLength35mmFilm, N_("Focal length 35mm")),
 517         EXIF_FORMATTED_TAG(SubjectDistance,     N_("Subject distance")),
 518         EXIF_FORMATTED_TAG(Flash,               N_("Flash")),
 519         EXIF_FORMATTED_TAG(Resolution,          N_("Resolution")),
 520         EXIF_FORMATTED_TAG(ColorProfile,        N_("Color profile")),
 521         EXIF_FORMATTED_TAG(GPSPosition,         N_("GPS position")),
 522         EXIF_FORMATTED_TAG(GPSAltitude,         N_("GPS altitude")),
 523         { NULL, NULL, NULL }
 524 };
 525
 526 gchar *exif_get_formatted_by_key(ExifData *exif, const gchar *key, gint *key_valid)
 527 {
 528         if (strncmp(key, EXIF_FORMATTED(), EXIF_FORMATTED_LEN) == 0)
 529                 {
 530                 gint i;
 531
 532                 if (key_valid) *key_valid = TRUE;
 533
 534                 key += EXIF_FORMATTED_LEN;
 535                 for (i = 0; ExifFormattedList[i].key; i++)
 536                         if (strcmp(key, ExifFormattedList[i].key + EXIF_FORMATTED_LEN) == 0)
 537                                 return ExifFormattedList[i].build_func(exif);
 538                 }
 539
 540         if (key_valid) *key_valid = FALSE;
 541         return NULL;
 542 }
 543
 544 gchar *exif_get_description_by_key(const gchar *key)
 545 {
 546         if (!key) return NULL;
 547
 548         if (strncmp(key, EXIF_FORMATTED(), EXIF_FORMATTED_LEN) == 0)
 549                 {
 550                 gint i;
 551
 552                 key += EXIF_FORMATTED_LEN;
 553                 for (i = 0; ExifFormattedList[i].key; i++)
 554                         if (strcmp(key, ExifFormattedList[i].key + EXIF_FORMATTED_LEN) == 0)
 555                                 return g_strdup(_(ExifFormattedList[i].description));
 556                 }
 557
 558         return exif_get_tag_description_by_key(key);
 559 }
 560
 561 gint exif_get_integer(ExifData *exif, const gchar *key, gint *value)
 562 {
 563         ExifItem *item;
 564
 565         item = exif_get_item(exif, key);
 566         return exif_item_get_integer(item, value);
 567 }
 568
 569 ExifRational *exif_get_rational(ExifData *exif, const gchar *key, gint *sign)
 570 {
 571         ExifItem *item;
 572
 573         item = exif_get_item(exif, key);
 574         return exif_item_get_rational(item, sign, 0);
 575 }
 576
 577 gchar *exif_get_data_as_text(ExifData *exif, const gchar *key)
 578 {
 579         ExifItem *item;
 580         gchar *text;
 581         gint key_valid;
 582
 583         if (!key) return NULL;
 584
 585         text = exif_get_formatted_by_key(exif, key, &key_valid);
 586         if (key_valid) return text;
 587
 588         item = exif_get_item(exif, key);
 589         if (item) return exif_item_get_data_as_text(item);
 590
 591         return NULL;
 592 }
 593
 594
 595 static FileCacheData *exif_cache;
 596
 597 void exif_release_cb(FileData *fd)
 598 {
 599         exif_free(fd->exif);
 600         fd->exif = NULL;
 601 }
 602
 603 ExifData *exif_read_fd(FileData *fd)
 604 {
 605         gchar *sidecar_path = NULL;
 606
 607         if (!fd) return NULL;
 608
 609         if (!exif_cache) exif_cache = file_cache_new(exif_release_cb, 4);
 610
 611         if (file_cache_get(exif_cache, fd)) return fd->exif;
 612
 613         if (filter_file_class(fd->extension, FORMAT_CLASS_RAWIMAGE))
 614                 {
 615                 GList *work;
 616
 617                 work = fd->parent ? fd->parent->sidecar_files : fd->sidecar_files;
 618                 while (work)
 619                         {
 620                         FileData *sfd = work->data;
 621                         work = work->next;
 622                         if (strcasecmp(sfd->extension, ".xmp") == 0)
 623                                 {
 624                                 sidecar_path = sfd->path;
 625                                 break;
 626                                 }
 627                         }
 628                 }
 629
 630         fd->exif = exif_read(fd->path, sidecar_path, fd->modified_xmp);
 631         return fd->exif;
 632 }
 633
 634 gint exif_write_fd(FileData *fd)
 635 {
 636         gint success;
 637         ExifData *exif;
 638
 639         /*  exif_read_fd can either use cached metadata which have fd->modified_xmp already applied
 640                                      or read metadata from file and apply fd->modified_xmp
 641             metadata are read also if the file was modified meanwhile */
 642         exif = exif_read_fd(fd);
 643         if (!exif) return FALSE;
 644         success = exif_write(exif); /* write modified metadata */
 645         exif_free_fd(fd, exif);
 646         g_hash_table_destroy(fd->modified_xmp);
 647         fd->modified_xmp = NULL;
 648         return success;
 649 }
 650
 651 void exif_free_fd(FileData *fd, ExifData *exif)
 652 {
 653         if (!fd) return;
 654         g_assert(fd->exif == exif);
 655
 656         file_cache_put(exif_cache, fd, 1);
 657 }
 658
 659 /* embedded icc in jpeg */
 660
 661
 662 #define JPEG_MARKER             0xFF
 663 #define JPEG_MARKER_SOI         0xD8
 664 #define JPEG_MARKER_EOI         0xD9
 665 #define JPEG_MARKER_APP1        0xE1
 666 #define JPEG_MARKER_APP2        0xE2
 667
 668 /* jpeg container format:
 669      all data markers start with 0XFF
 670      2 byte long file start and end markers: 0xFFD8(SOI) and 0XFFD9(EOI)
 671      4 byte long data segment markers in format: 0xFFTTSSSSNNN...
 672        FF:   1 byte standard marker identifier
 673        TT:   1 byte data type
 674        SSSS: 2 bytes in Motorola byte alignment for length of the data.
 675              This value includes these 2 bytes in the count, making actual
 676              length of NN... == SSSS - 2.
 677        NNN.: the data in this segment
 678  */
 679
 680 gint exif_jpeg_segment_find(guchar *data, guint size,
 681                             guchar app_marker, const gchar *magic, guint magic_len,
 682                             guint *seg_offset, guint *seg_length)
 683 {
 684         guchar marker = 0;
 685         guint offset = 0;
 686         guint length = 0;
 687
 688         while (marker != app_marker &&
 689                marker != JPEG_MARKER_EOI)
 690                 {
 691                 offset += length;
 692                 length = 2;
 693
 694                 if (offset + 2 >= size ||
 695                     data[offset] != JPEG_MARKER) return FALSE;
 696
 697                 marker = data[offset + 1];
 698                 if (marker != JPEG_MARKER_SOI &&
 699                     marker != JPEG_MARKER_EOI)
 700                         {
 701                         if (offset + 4 >= size) return FALSE;
 702                         length += ((guint)data[offset + 2] << 8) + data[offset + 3];
 703                         }
 704                 }
 705
 706         if (marker == app_marker &&
 707             offset + length < size &&
 708             length >= 4 + magic_len &&
 709             memcmp(data + offset + 4, magic, magic_len) == 0)
 710                 {
 711                 *seg_offset = offset + 4;
 712                 *seg_length = length - 4;
 713                 return TRUE;
 714                 }
 715
 716         return FALSE;
 717 }
 718
 719 gint exif_jpeg_parse_color(ExifData *exif, guchar *data, guint size)
 720 {
 721         guint seg_offset = 0;
 722         guint seg_length = 0;
 723         guint chunk_offset[255];
 724         guint chunk_length[255];
 725         guint chunk_count = 0;
 726
 727         /* For jpeg/jfif, ICC color profile data can be in more than one segment.
 728            the data is in APP2 data segments that start with "ICC_PROFILE\x00\xNN\xTT"
 729            NN = segment number for data
 730            TT = total number of ICC segments (TT in each ICC segment should match)
 731          */
 732
 733         while (exif_jpeg_segment_find(data + seg_offset + seg_length,
 734                                       size - seg_offset - seg_length,
 735                                       JPEG_MARKER_APP2,
 736                                       "ICC_PROFILE\x00", 12,
 737                                       &seg_offset, &seg_length))
 738                 {
 739                 guchar chunk_num;
 740                 guchar chunk_tot;
 741
 742                 if (seg_length < 14) return FALSE;
 743
 744                 chunk_num = data[seg_offset + 12];
 745                 chunk_tot = data[seg_offset + 13];
 746
 747                 if (chunk_num == 0 || chunk_tot == 0) return FALSE;
 748
 749                 if (chunk_count == 0)
 750                         {
 751                         guint i;
 752
 753                         chunk_count = (guint)chunk_tot;
 754                         for (i = 0; i < chunk_count; i++) chunk_offset[i] = 0;
 755                         for (i = 0; i < chunk_count; i++) chunk_length[i] = 0;
 756                         }
 757
 758                 if (chunk_tot != chunk_count ||
 759                     chunk_num > chunk_count) return FALSE;
 760
 761                 chunk_num--;
 762                 chunk_offset[chunk_num] = seg_offset + 14;
 763                 chunk_length[chunk_num] = seg_length - 14;
 764                 }
 765
 766         if (chunk_count > 0)
 767                 {
 768                 guchar *cp_data;
 769                 guint cp_length = 0;
 770                 guint i;
 771
 772                 for (i = 0; i < chunk_count; i++) cp_length += chunk_length[i];
 773                 cp_data = g_malloc(cp_length);
 774
 775                 for (i = 0; i < chunk_count; i++)
 776                         {
 777                         if (chunk_offset[i] == 0)
 778                                 {
 779                                 /* error, we never saw this chunk */
 780                                 g_free(cp_data);
 781                                 return FALSE;
 782                                 }
 783                         memcpy(cp_data, data + chunk_offset[i], chunk_length[i]);
 784                         }
 785                 DEBUG_1("Found embedded icc profile in jpeg");
 786                 exif_add_jpeg_color_profile(exif, cp_data, cp_length);
 787
 788                 return TRUE;
 789                 }
 790
 791         return FALSE;
 792 }
 793 /* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */