src/exif-common.c

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