src/exif-common.c

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