src/exif-common.c

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