gio/glocalfileinfo.c

   1 /* GIO - GLib Input, Output and Streaming Library
   2  *
   3  * Copyright (C) 2006-2007 Red Hat, Inc.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library 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 GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General
  16  * Public License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  *
  20  * Author: Alexander Larsson <alexl@redhat.com>
  21  */
  22
  23 #include <config.h>
  24
  25 #include <sys/time.h>
  26 #include <sys/types.h>
  27 #include <sys/stat.h>
  28 #include <string.h>
  29 #include <unistd.h>
  30 #include <fcntl.h>
  31 #include <errno.h>
  32 #ifdef HAVE_GRP_H
  33 #include <grp.h>
  34 #endif
  35 #ifdef HAVE_PWD_H
  36 #include <pwd.h>
  37 #endif
  38 #ifdef HAVE_SELINUX
  39 #include <selinux/selinux.h>
  40 #endif
  41
  42 #ifdef HAVE_XATTR
  43
  44 #if defined HAVE_SYS_XATTR_H
  45   #include <sys/xattr.h>
  46 #elif defined HAVE_ATTR_XATTR_H
  47   #include <attr/xattr.h>
  48 #else
  49   #error "Neither <sys/xattr.h> nor <attr/xattr.h> is present but extended attribute support is enabled."
  50 #endif /* defined HAVE_SYS_XATTR_H || HAVE_ATTR_XATTR_H */
  51
  52 #endif /* HAVE_XATTR */
  53
  54 #include <glib/gstdio.h>
  55 #include "glibintl.h"
  56
  57 #include "glocalfileinfo.h"
  58 #include "gioerror.h"
  59 #include "gthemedicon.h"
  60 #include "gcontenttype.h"
  61 #include "gcontenttypeprivate.h"
  62
  63 #include "gioalias.h"
  64
  65 struct ThumbMD5Context {
  66         guint32 buf[4];
  67         guint32 bits[2];
  68         unsigned char in[64];
  69 };
  70
  71 typedef struct {
  72   char *user_name;
  73   char *real_name;
  74 } UidData;
  75
  76 G_LOCK_DEFINE_STATIC (uid_cache);
  77 static GHashTable *uid_cache = NULL;
  78
  79 G_LOCK_DEFINE_STATIC (gid_cache);
  80 static GHashTable *gid_cache = NULL;
  81
  82 static void thumb_md5 (const char *string, unsigned char digest[16]);
  83
  84 char *
  85 _g_local_file_info_create_etag (struct stat *statbuf)
  86 {
  87   GTimeVal tv;
  88
  89   tv.tv_sec = statbuf->st_mtime;
  90 #if defined (HAVE_STRUCT_STAT_ST_MTIMENSEC)
  91   tv.tv_usec = statbuf->st_mtimensec / 1000;
  92 #elif defined (HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
  93   tv.tv_usec = statbuf->st_mtim.tv_nsec / 1000;
  94 #else
  95   tv.tv_usec = 0;
  96 #endif
  97
  98   return g_strdup_printf ("%lu:%lu", tv.tv_sec, tv.tv_usec);
  99 }
 100
 101 static char *
 102 _g_local_file_info_create_file_id (struct stat *statbuf)
 103 {
 104   return g_strdup_printf ("l%" G_GUINT64_FORMAT ":%" G_GUINT64_FORMAT,
 105                           (guint64) statbuf->st_dev,
 106                           (guint64) statbuf->st_ino);
 107 }
 108
 109 static char *
 110 _g_local_file_info_create_fs_id (struct stat *statbuf)
 111 {
 112   return g_strdup_printf ("l%" G_GUINT64_FORMAT,
 113                           (guint64) statbuf->st_dev);
 114 }
 115
 116
 117 static gchar *
 118 read_link (const gchar *full_name)
 119 {
 120 #ifdef HAVE_READLINK
 121   gchar *buffer;
 122   guint size;
 123
 124   size = 256;
 125   buffer = g_malloc (size);
 126
 127   while (1)
 128     {
 129       int read_size;
 130
 131       read_size = readlink (full_name, buffer, size);
 132       if (read_size < 0)
 133         {
 134           g_free (buffer);
 135           return NULL;
 136         }
 137       if (read_size < size)
 138         {
 139           buffer[read_size] = 0;
 140           return buffer;
 141         }
 142       size *= 2;
 143       buffer = g_realloc (buffer, size);
 144     }
 145 #else
 146   return NULL;
 147 #endif
 148 }
 149
 150 /* Get the SELinux security context */
 151 static void
 152 get_selinux_context (const char            *path,
 153                      GFileInfo             *info,
 154                      GFileAttributeMatcher *attribute_matcher,
 155                      gboolean               follow_symlinks)
 156 {
 157 #ifdef HAVE_SELINUX
 158   char *context;
 159
 160   if (!g_file_attribute_matcher_matches (attribute_matcher, "selinux:context"))
 161     return;
 162
 163   if (is_selinux_enabled ())
 164     {
 165       if (follow_symlinks)
 166         {
 167           if (lgetfilecon_raw (path, &context) < 0)
 168             return;
 169         }
 170       else
 171         {
 172           if (getfilecon_raw (path, &context) < 0)
 173             return;
 174         }
 175
 176       if (context)
 177         {
 178           g_file_info_set_attribute_string (info, "selinux:context", context);
 179           freecon(context);
 180         }
 181     }
 182 #endif
 183 }
 184
 185 #ifdef HAVE_XATTR
 186
 187 static gboolean
 188 valid_char (char c)
 189 {
 190   return c >= 32 && c <= 126 && c != '\\';
 191 }
 192
 193 static gboolean
 194 name_is_valid (const char *str)
 195 {
 196   while (*str)
 197     {
 198       if (!valid_char (*str++))
 199         return FALSE;
 200     }
 201   return TRUE;
 202 }
 203
 204 static char *
 205 hex_escape_string (const char *str,
 206                    gboolean   *free_return)
 207 {
 208   int num_invalid, i;
 209   char *escaped_str, *p;
 210   unsigned char c;
 211   static char *hex_digits = "0123456789abcdef";
 212   int len;
 213
 214   len = strlen (str);
 215
 216   num_invalid = 0;
 217   for (i = 0; i < len; i++)
 218     {
 219       if (!valid_char (str[i]))
 220         num_invalid++;
 221     }
 222
 223   if (num_invalid == 0)
 224     {
 225       *free_return = FALSE;
 226       return (char *)str;
 227     }
 228
 229   escaped_str = g_malloc (len + num_invalid*3 + 1);
 230
 231   p = escaped_str;
 232   for (i = 0; i < len; i++)
 233     {
 234       if (valid_char (str[i]))
 235         *p++ = str[i];
 236       else
 237         {
 238           c = str[i];
 239           *p++ = '\\';
 240           *p++ = 'x';
 241           *p++ = hex_digits[(c >> 4) & 0xf];
 242           *p++ = hex_digits[c & 0xf];
 243         }
 244     }
 245   *p++ = 0;
 246
 247   *free_return = TRUE;
 248   return escaped_str;
 249 }
 250
 251 static char *
 252 hex_unescape_string (const char *str,
 253                      int        *out_len,
 254                      gboolean   *free_return)
 255 {
 256   int i;
 257   char *unescaped_str, *p;
 258   unsigned char c;
 259   int len;
 260
 261   len = strlen (str);
 262
 263   if (strchr (str, '\\') == NULL)
 264     {
 265       if (out_len)
 266         *out_len = len;
 267       *free_return = FALSE;
 268       return (char *)str;
 269     }
 270
 271   unescaped_str = g_malloc (len + 1);
 272
 273   p = unescaped_str;
 274   for (i = 0; i < len; i++)
 275     {
 276       if (str[i] == '\\' &&
 277           str[i+1] == 'x' &&
 278           len - i >= 4)
 279         {
 280           c =
 281             (g_ascii_xdigit_value (str[i+2]) << 4) |
 282             g_ascii_xdigit_value (str[i+3]);
 283           *p++ = c;
 284           i += 3;
 285         }
 286       else
 287         *p++ = str[i];
 288     }
 289   *p++ = 0;
 290
 291   if (out_len)
 292     *out_len = p - unescaped_str;
 293   *free_return = TRUE;
 294   return unescaped_str;
 295 }
 296
 297 static void
 298 escape_xattr (GFileInfo  *info,
 299               const char *gio_attr, /* gio attribute name */
 300               const char *value, /* Is zero terminated */
 301               size_t      len /* not including zero termination */)
 302 {
 303   char *escaped_val;
 304   gboolean free_escaped_val;
 305
 306   escaped_val = hex_escape_string (value, &free_escaped_val);
 307
 308   g_file_info_set_attribute_string (info, gio_attr, escaped_val);
 309
 310   if (free_escaped_val)
 311     g_free (escaped_val);
 312 }
 313
 314 static void
 315 get_one_xattr (const char *path,
 316                GFileInfo  *info,
 317                const char *gio_attr,
 318                const char *xattr,
 319                gboolean    follow_symlinks)
 320 {
 321   char value[64];
 322   char *value_p;
 323   ssize_t len;
 324
 325   if (follow_symlinks)
 326     len = getxattr (path, xattr, value, sizeof (value)-1);
 327   else
 328     len = lgetxattr (path, xattr,value, sizeof (value)-1);
 329
 330   value_p = NULL;
 331   if (len >= 0)
 332     value_p = value;
 333   else if (len == -1 && errno == ERANGE)
 334     {
 335       if (follow_symlinks)
 336         len = getxattr (path, xattr, NULL, 0);
 337       else
 338         len = lgetxattr (path, xattr, NULL, 0);
 339
 340       if (len < 0)
 341         return;
 342
 343       value_p = g_malloc (len+1);
 344
 345       if (follow_symlinks)
 346         len = getxattr (path, xattr, value_p, len);
 347       else
 348         len = lgetxattr (path, xattr, value_p, len);
 349
 350       if (len < 0)
 351         {
 352           g_free (value_p);
 353           return;
 354         }
 355     }
 356   else
 357     return;
 358
 359   /* Null terminate */
 360   value_p[len] = 0;
 361
 362   escape_xattr (info, gio_attr, value_p, len);
 363
 364   if (value_p != value)
 365     g_free (value_p);
 366 }
 367
 368 #endif /* defined HAVE_XATTR */
 369
 370 static void
 371 get_xattrs (const char            *path,
 372             gboolean               user,
 373             GFileInfo             *info,
 374             GFileAttributeMatcher *matcher,
 375             gboolean               follow_symlinks)
 376 {
 377 #ifdef HAVE_XATTR
 378   gboolean all;
 379   gsize list_size;
 380   ssize_t list_res_size;
 381   size_t len;
 382   char *list;
 383   const char *attr, *attr2;
 384
 385   if (user)
 386     all = g_file_attribute_matcher_enumerate_namespace (matcher, "xattr");
 387   else
 388     all = g_file_attribute_matcher_enumerate_namespace (matcher, "xattr_sys");
 389
 390   if (all)
 391     {
 392       if (follow_symlinks)
 393         list_res_size = listxattr (path, NULL, 0);
 394       else
 395         list_res_size = llistxattr (path, NULL, 0);
 396
 397       if (list_res_size == -1 ||
 398           list_res_size == 0)
 399         return;
 400
 401       list_size = list_res_size;
 402       list = g_malloc (list_size);
 403
 404     retry:
 405
 406       if (follow_symlinks)
 407         list_res_size = listxattr (path, list, list_size);
 408       else
 409         list_res_size = llistxattr (path, list, list_size);
 410
 411       if (list_res_size == -1 && errno == ERANGE)
 412         {
 413           list_size = list_size * 2;
 414           list = g_realloc (list, list_size);
 415           goto retry;
 416         }
 417
 418       if (list_res_size == -1)
 419         return;
 420
 421       attr = list;
 422       while (list_res_size > 0)
 423         {
 424           if ((user && g_str_has_prefix (attr, "user.")) ||
 425               (!user && !g_str_has_prefix (attr, "user.")))
 426             {
 427               char *escaped_attr, *gio_attr;
 428               gboolean free_escaped_attr;
 429
 430               if (user)
 431                 {
 432                   escaped_attr = hex_escape_string (attr + 5, &free_escaped_attr);
 433                   gio_attr = g_strconcat ("xattr:", escaped_attr, NULL);
 434                 }
 435               else
 436                 {
 437                   escaped_attr = hex_escape_string (attr, &free_escaped_attr);
 438                   gio_attr = g_strconcat ("xattr_sys:", escaped_attr, NULL);
 439                 }
 440
 441               if (free_escaped_attr)
 442                 g_free (escaped_attr);
 443
 444               get_one_xattr (path, info, gio_attr, attr, follow_symlinks);
 445             }
 446
 447           len = strlen (attr) + 1;
 448           attr += len;
 449           list_res_size -= len;
 450         }
 451
 452       g_free (list);
 453     }
 454   else
 455     {
 456       while ((attr = g_file_attribute_matcher_enumerate_next (matcher)) != NULL)
 457         {
 458           char *unescaped_attribute, *a;
 459           gboolean free_unescaped_attribute;
 460
 461           attr2 = strchr (attr, ':');
 462           if (attr2)
 463             {
 464               attr2++; /* Skip ':' */
 465               unescaped_attribute = hex_unescape_string (attr2, NULL, &free_unescaped_attribute);
 466               if (user)
 467                 a = g_strconcat ("user.", unescaped_attribute, NULL);
 468               else
 469                 a = unescaped_attribute;
 470
 471               get_one_xattr (path, info, attr, a, follow_symlinks);
 472
 473               if (user)
 474                 g_free (a);
 475
 476               if (free_unescaped_attribute)
 477                 g_free (unescaped_attribute);
 478             }
 479         }
 480     }
 481 #endif /* defined HAVE_XATTR */
 482 }
 483
 484 #ifdef HAVE_XATTR
 485 static void
 486 get_one_xattr_from_fd (int         fd,
 487                        GFileInfo  *info,
 488                        const char *gio_attr,
 489                        const char *xattr)
 490 {
 491   char value[64];
 492   char *value_p;
 493   ssize_t len;
 494
 495   len = fgetxattr (fd, xattr, value, sizeof (value)-1);
 496
 497   value_p = NULL;
 498   if (len >= 0)
 499     value_p = value;
 500   else if (len == -1 && errno == ERANGE)
 501     {
 502       len = fgetxattr (fd, xattr, NULL, 0);
 503
 504       if (len < 0)
 505         return;
 506
 507       value_p = g_malloc (len+1);
 508
 509       len = fgetxattr (fd, xattr, value_p, len);
 510
 511       if (len < 0)
 512         {
 513           g_free (value_p);
 514           return;
 515         }
 516     }
 517   else
 518     return;
 519
 520   /* Null terminate */
 521   value_p[len] = 0;
 522
 523   escape_xattr (info, gio_attr, value_p, len);
 524
 525   if (value_p != value)
 526     g_free (value_p);
 527 }
 528 #endif /* defined HAVE_XATTR */
 529
 530 static void
 531 get_xattrs_from_fd (int                    fd,
 532                     gboolean               user,
 533                     GFileInfo             *info,
 534                     GFileAttributeMatcher *matcher)
 535 {
 536 #ifdef HAVE_XATTR
 537   gboolean all;
 538   gsize list_size;
 539   ssize_t list_res_size;
 540   size_t len;
 541   char *list;
 542   const char *attr, *attr2;
 543
 544   if (user)
 545     all = g_file_attribute_matcher_enumerate_namespace (matcher, "xattr");
 546   else
 547     all = g_file_attribute_matcher_enumerate_namespace (matcher, "xattr_sys");
 548
 549   if (all)
 550     {
 551       list_res_size = flistxattr (fd, NULL, 0);
 552
 553       if (list_res_size == -1 ||
 554           list_res_size == 0)
 555         return;
 556
 557       list_size = list_res_size;
 558       list = g_malloc (list_size);
 559
 560     retry:
 561
 562       list_res_size = flistxattr (fd, list, list_size);
 563
 564       if (list_res_size == -1 && errno == ERANGE)
 565         {
 566           list_size = list_size * 2;
 567           list = g_realloc (list, list_size);
 568           goto retry;
 569         }
 570
 571       if (list_res_size == -1)
 572         return;
 573
 574       attr = list;
 575       while (list_res_size > 0)
 576         {
 577           if ((user && g_str_has_prefix (attr, "user.")) ||
 578               (!user && !g_str_has_prefix (attr, "user.")))
 579             {
 580               char *escaped_attr, *gio_attr;
 581               gboolean free_escaped_attr;
 582
 583               if (user)
 584                 {
 585                   escaped_attr = hex_escape_string (attr + 5, &free_escaped_attr);
 586                   gio_attr = g_strconcat ("xattr:", escaped_attr, NULL);
 587                 }
 588               else
 589                 {
 590                   escaped_attr = hex_escape_string (attr, &free_escaped_attr);
 591                   gio_attr = g_strconcat ("xattr_sys:", escaped_attr, NULL);
 592                 }
 593
 594               if (free_escaped_attr)
 595                 g_free (escaped_attr);
 596
 597               get_one_xattr_from_fd (fd, info, gio_attr, attr);
 598             }
 599
 600           len = strlen (attr) + 1;
 601           attr += len;
 602           list_res_size -= len;
 603         }
 604
 605       g_free (list);
 606     }
 607   else
 608     {
 609       while ((attr = g_file_attribute_matcher_enumerate_next (matcher)) != NULL)
 610         {
 611           char *unescaped_attribute, *a;
 612           gboolean free_unescaped_attribute;
 613
 614           attr2 = strchr (attr, ':');
 615           if (attr2)
 616             {
 617               attr2++; /* Skip ':' */
 618               unescaped_attribute = hex_unescape_string (attr2, NULL, &free_unescaped_attribute);
 619               if (user)
 620                 a = g_strconcat ("user.", unescaped_attribute, NULL);
 621               else
 622                 a = unescaped_attribute;
 623
 624               get_one_xattr_from_fd (fd, info, attr, a);
 625
 626               if (user)
 627                 g_free (a);
 628
 629               if (free_unescaped_attribute)
 630                 g_free (unescaped_attribute);
 631             }
 632         }
 633     }
 634 #endif /* defined HAVE_XATTR */
 635 }
 636
 637 #ifdef HAVE_XATTR
 638 static gboolean
 639 set_xattr (char                       *filename,
 640            const char                 *escaped_attribute,
 641            const GFileAttributeValue  *attr_value,
 642            GError                    **error)
 643 {
 644   char *attribute, *value;
 645   gboolean free_attribute, free_value;
 646   int val_len, res, errsv;
 647   gboolean is_user;
 648   char *a;
 649
 650   if (attr_value == NULL)
 651     {
 652       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
 653                    _("Attribute value must be non-NULL"));
 654       return FALSE;
 655     }
 656
 657   if (attr_value->type != G_FILE_ATTRIBUTE_TYPE_STRING)
 658     {
 659       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
 660                    _("Invalid attribute type (string expected)"));
 661       return FALSE;
 662     }
 663
 664   if (!name_is_valid (escaped_attribute))
 665     {
 666       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
 667                    _("Invalid extended attribute name"));
 668       return FALSE;
 669     }
 670
 671   if (g_str_has_prefix (escaped_attribute, "xattr:"))
 672     {
 673       escaped_attribute += 6;
 674       is_user = TRUE;
 675     }
 676   else
 677     {
 678       g_assert (g_str_has_prefix (escaped_attribute, "xattr_sys:"));
 679       escaped_attribute += 10;
 680       is_user = FALSE;
 681     }
 682
 683   attribute = hex_unescape_string (escaped_attribute, NULL, &free_attribute);
 684   value = hex_unescape_string (attr_value->u.string, &val_len, &free_value);
 685
 686   if (is_user)
 687     a = g_strconcat ("user.", attribute, NULL);
 688   else
 689     a = attribute;
 690
 691   res = setxattr (filename, a, value, val_len, 0);
 692   errsv = errno;
 693
 694   if (is_user)
 695     g_free (a);
 696
 697   if (free_attribute)
 698     g_free (attribute);
 699
 700   if (free_value)
 701     g_free (value);
 702
 703   if (res == -1)
 704     {
 705       g_set_error (error, G_IO_ERROR,
 706                    g_io_error_from_errno (errsv),
 707                    _("Error setting extended attribute '%s': %s"),
 708                    escaped_attribute, g_strerror (errno));
 709       return FALSE;
 710     }
 711
 712   return TRUE;
 713 }
 714
 715 #endif
 716
 717
 718 void
 719 _g_local_file_info_get_parent_info (const char            *dir,
 720                                     GFileAttributeMatcher *attribute_matcher,
 721                                     GLocalParentFileInfo  *parent_info)
 722 {
 723   struct stat statbuf;
 724   int res;
 725
 726   parent_info->writable = FALSE;
 727   parent_info->is_sticky = FALSE;
 728   parent_info->device = 0;
 729
 730   if (g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_RENAME) ||
 731       g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_DELETE) ||
 732       g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_TRASH) ||
 733       g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT))
 734     {
 735       parent_info->writable = (g_access (dir, W_OK) == 0);
 736
 737       res = g_stat (dir, &statbuf);
 738
 739       /*
 740        * The sticky bit (S_ISVTX) on a directory means that a file in that directory can be
 741        * renamed or deleted only by the owner of the file, by the owner of the directory, and
 742        * by a privileged process.
 743        */
 744       if (res == 0)
 745         {
 746           parent_info->is_sticky = (statbuf.st_mode & S_ISVTX) != 0;
 747           parent_info->owner = statbuf.st_uid;
 748           parent_info->device = statbuf.st_dev;
 749         }
 750     }
 751 }
 752
 753 static void
 754 get_access_rights (GFileAttributeMatcher *attribute_matcher,
 755                    GFileInfo             *info,
 756                    const gchar           *path,
 757                    struct stat           *statbuf,
 758                    GLocalParentFileInfo  *parent_info)
 759 {
 760   if (g_file_attribute_matcher_matches (attribute_matcher,
 761                                         G_FILE_ATTRIBUTE_ACCESS_CAN_READ))
 762     g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_READ,
 763                                        g_access (path, R_OK) == 0);
 764
 765   if (g_file_attribute_matcher_matches (attribute_matcher,
 766                                         G_FILE_ATTRIBUTE_ACCESS_CAN_WRITE))
 767     g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_WRITE,
 768                                        g_access (path, W_OK) == 0);
 769
 770   if (g_file_attribute_matcher_matches (attribute_matcher,
 771                                         G_FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE))
 772     g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE,
 773                                        g_access (path, X_OK) == 0);
 774
 775
 776   if (parent_info)
 777     {
 778       gboolean writable;
 779
 780       writable = FALSE;
 781       if (parent_info->writable)
 782         {
 783           if (parent_info->is_sticky)
 784             {
 785               uid_t uid = geteuid ();
 786
 787               if (uid == statbuf->st_uid ||
 788                   uid == parent_info->owner ||
 789                   uid == 0)
 790                 writable = TRUE;
 791             }
 792           else
 793             writable = TRUE;
 794         }
 795
 796       if (g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_RENAME))
 797         g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_RENAME,
 798                                            writable);
 799
 800       if (g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_DELETE))
 801         g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_DELETE,
 802                                            writable);
 803
 804       /* TODO: This means we can move it, but we should also look for a trash dir */
 805       if (g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_ACCESS_CAN_TRASH))
 806         g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_TRASH,
 807                                            writable);
 808     }
 809 }
 810
 811 static void
 812 set_info_from_stat (GFileInfo             *info,
 813                     struct stat           *statbuf,
 814                     GFileAttributeMatcher *attribute_matcher)
 815 {
 816   GFileType file_type;
 817
 818   file_type = G_FILE_TYPE_UNKNOWN;
 819
 820   if (S_ISREG (statbuf->st_mode))
 821     file_type = G_FILE_TYPE_REGULAR;
 822   else if (S_ISDIR (statbuf->st_mode))
 823     file_type = G_FILE_TYPE_DIRECTORY;
 824   else if (S_ISCHR (statbuf->st_mode) ||
 825            S_ISBLK (statbuf->st_mode) ||
 826            S_ISFIFO (statbuf->st_mode)
 827 #ifdef S_ISSOCK
 828            || S_ISSOCK (statbuf->st_mode)
 829 #endif
 830            )
 831     file_type = G_FILE_TYPE_SPECIAL;
 832 #ifdef S_ISLNK
 833   else if (S_ISLNK (statbuf->st_mode))
 834     file_type = G_FILE_TYPE_SYMBOLIC_LINK;
 835 #endif
 836
 837   g_file_info_set_file_type (info, file_type);
 838   g_file_info_set_size (info, statbuf->st_size);
 839
 840   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_DEVICE, statbuf->st_dev);
 841   g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_UNIX_INODE, statbuf->st_ino);
 842   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_MODE, statbuf->st_mode);
 843   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_NLINK, statbuf->st_nlink);
 844   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_UID, statbuf->st_uid);
 845   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_GID, statbuf->st_gid);
 846   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_RDEV, statbuf->st_rdev);
 847 #if defined (HAVE_STRUCT_STAT_BLKSIZE)
 848   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_UNIX_BLOCK_SIZE, statbuf->st_blksize);
 849 #endif
 850 #if defined (HAVE_STRUCT_STAT_BLOCKS)
 851   g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_UNIX_BLOCKS, statbuf->st_blocks);
 852 #endif
 853
 854   g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_TIME_MODIFIED, statbuf->st_mtime);
 855 #if defined (HAVE_STRUCT_STAT_ST_MTIMENSEC)
 856   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_MODIFIED_USEC, statbuf->st_mtimensec / 1000);
 857 #elif defined (HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
 858   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_MODIFIED_USEC, statbuf->st_mtim.tv_nsec / 1000);
 859 #endif
 860
 861   g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_TIME_ACCESS, statbuf->st_atime);
 862 #if defined (HAVE_STRUCT_STAT_ST_ATIMENSEC)
 863   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_ACCESS_USEC, statbuf->st_atimensec / 1000);
 864 #elif defined (HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC)
 865   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_ACCESS_USEC, statbuf->st_atim.tv_nsec / 1000);
 866 #endif
 867
 868   g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_TIME_CHANGED, statbuf->st_ctime);
 869 #if defined (HAVE_STRUCT_STAT_ST_CTIMENSEC)
 870   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_CHANGED_USEC, statbuf->st_ctimensec / 1000);
 871 #elif defined (HAVE_STRUCT_STAT_ST_CTIM_TV_NSEC)
 872   g_file_info_set_attribute_uint32 (info, G_FILE_ATTRIBUTE_TIME_CHANGED_USEC, statbuf->st_ctim.tv_nsec / 1000);
 873 #endif
 874
 875   if (g_file_attribute_matcher_matches (attribute_matcher,
 876                                         G_FILE_ATTRIBUTE_ETAG_VALUE))
 877     {
 878       char *etag = _g_local_file_info_create_etag (statbuf);
 879       g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_ETAG_VALUE, etag);
 880       g_free (etag);
 881     }
 882
 883   if (g_file_attribute_matcher_matches (attribute_matcher,
 884                                         G_FILE_ATTRIBUTE_ID_FILE))
 885     {
 886       char *id = _g_local_file_info_create_file_id (statbuf);
 887       g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_ID_FILE, id);
 888       g_free (id);
 889     }
 890
 891   if (g_file_attribute_matcher_matches (attribute_matcher,
 892                                         G_FILE_ATTRIBUTE_ID_FS))
 893     {
 894       char *id = _g_local_file_info_create_fs_id (statbuf);
 895       g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_ID_FS, id);
 896       g_free (id);
 897     }
 898 }
 899
 900 static char *
 901 make_valid_utf8 (const char *name)
 902 {
 903   GString *string;
 904   const gchar *remainder, *invalid;
 905   gint remaining_bytes, valid_bytes;
 906
 907   string = NULL;
 908   remainder = name;
 909   remaining_bytes = strlen (name);
 910
 911   while (remaining_bytes != 0)
 912     {
 913       if (g_utf8_validate (remainder, remaining_bytes, &invalid))
 914         break;
 915       valid_bytes = invalid - remainder;
 916
 917       if (string == NULL)
 918         string = g_string_sized_new (remaining_bytes);
 919
 920       g_string_append_len (string, remainder, valid_bytes);
 921       /* append U+FFFD REPLACEMENT CHARACTER */
 922       g_string_append (string, "\357\277\275");
 923
 924       remaining_bytes -= valid_bytes + 1;
 925       remainder = invalid + 1;
 926     }
 927
 928   if (string == NULL)
 929     return g_strdup (name);
 930
 931   g_string_append (string, remainder);
 932
 933   g_assert (g_utf8_validate (string->str, -1, NULL));
 934
 935   return g_string_free (string, FALSE);
 936 }
 937
 938 static char *
 939 convert_pwd_string_to_utf8 (char *pwd_str)
 940 {
 941   char *utf8_string;
 942
 943   if (!g_utf8_validate (pwd_str, -1, NULL))
 944     {
 945       utf8_string = g_locale_to_utf8 (pwd_str, -1, NULL, NULL, NULL);
 946       if (utf8_string == NULL)
 947         utf8_string = make_valid_utf8 (pwd_str);
 948     }
 949   else
 950     utf8_string = g_strdup (pwd_str);
 951
 952   return utf8_string;
 953 }
 954
 955 static void
 956 uid_data_free (UidData *data)
 957 {
 958   g_free (data->user_name);
 959   g_free (data->real_name);
 960   g_free (data);
 961 }
 962
 963 /* called with lock held */
 964 static UidData *
 965 lookup_uid_data (uid_t uid)
 966 {
 967   UidData *data;
 968   char buffer[4096];
 969   struct passwd pwbuf;
 970   struct passwd *pwbufp;
 971   char *gecos, *comma;
 972
 973   if (uid_cache == NULL)
 974     uid_cache = g_hash_table_new_full (NULL, NULL, NULL, (GDestroyNotify)uid_data_free);
 975
 976   data = g_hash_table_lookup (uid_cache, GINT_TO_POINTER (uid));
 977
 978   if (data)
 979     return data;
 980
 981   data = g_new0 (UidData, 1);
 982
 983 #if defined(HAVE_POSIX_GETPWUID_R)
 984   getpwuid_r (uid, &pwbuf, buffer, sizeof(buffer), &pwbufp);
 985 #elif defined(HAVE_NONPOSIX_GETPWUID_R)
 986   pwbufp = getpwuid_r (uid, &pwbuf, buffer, sizeof(buffer));
 987 #else
 988   pwbufp = getpwuid (uid);
 989 #endif
 990
 991   if (pwbufp != NULL)
 992     {
 993       if (pwbufp->pw_name != NULL && pwbufp->pw_name[0] != 0)
 994         data->user_name = convert_pwd_string_to_utf8 (pwbufp->pw_name);
 995
 996       gecos = pwbufp->pw_gecos;
 997
 998       if (gecos)
 999         {
1000           comma = strchr (gecos, ',');
1001           if (comma)
1002             *comma = 0;
1003           data->real_name = convert_pwd_string_to_utf8 (gecos);
1004         }
1005     }
1006
1007   /* Default fallbacks */
1008   if (data->real_name == NULL)
1009     {
1010       if (data->user_name != NULL)
1011         data->real_name = g_strdup (data->user_name);
1012       else
1013         data->real_name = g_strdup_printf("user #%d", (int)uid);
1014     }
1015
1016   if (data->user_name == NULL)
1017     data->user_name = g_strdup_printf("%d", (int)uid);
1018
1019   g_hash_table_replace (uid_cache, GINT_TO_POINTER (uid), data);
1020
1021   return data;
1022 }
1023
1024 static char *
1025 get_username_from_uid (uid_t uid)
1026 {
1027   char *res;
1028   UidData *data;
1029
1030   G_LOCK (uid_cache);
1031   data = lookup_uid_data (uid);
1032   res = g_strdup (data->user_name);
1033   G_UNLOCK (uid_cache);
1034
1035   return res;
1036 }
1037
1038 static char *
1039 get_realname_from_uid (uid_t uid)
1040 {
1041   char *res;
1042   UidData *data;
1043
1044   G_LOCK (uid_cache);
1045   data = lookup_uid_data (uid);
1046   res = g_strdup (data->real_name);
1047   G_UNLOCK (uid_cache);
1048
1049   return res;
1050 }
1051
1052
1053 /* called with lock held */
1054 static char *
1055 lookup_gid_name (gid_t gid)
1056 {
1057   char *name;
1058   char buffer[4096];
1059   struct group gbuf;
1060   struct group *gbufp;
1061
1062   if (gid_cache == NULL)
1063     gid_cache = g_hash_table_new_full (NULL, NULL, NULL, (GDestroyNotify)g_free);
1064
1065   name = g_hash_table_lookup (gid_cache, GINT_TO_POINTER (gid));
1066
1067   if (name)
1068     return name;
1069
1070 #if defined (HAVE_POSIX_GETGRGID_R)
1071   getgrgid_r (gid, &gbuf, buffer, sizeof(buffer), &gbufp);
1072 #elif defined (HAVE_NONPOSIX_GETGRGID_R)
1073   gbufp = getgrgid_r (gid, &gbuf, buffer, sizeof(buffer));
1074 #else
1075   gbufp = getgrgid (gid);
1076 #endif
1077
1078   if (gbufp != NULL &&
1079       gbufp->gr_name != NULL &&
1080       gbufp->gr_name[0] != 0)
1081     name = convert_pwd_string_to_utf8 (gbufp->gr_name);
1082   else
1083     name = g_strdup_printf("%d", (int)gid);
1084
1085   g_hash_table_replace (gid_cache, GINT_TO_POINTER (gid), name);
1086
1087   return name;
1088 }
1089
1090 static char *
1091 get_groupname_from_gid (gid_t gid)
1092 {
1093   char *res;
1094   char *name;
1095
1096   G_LOCK (gid_cache);
1097   name = lookup_gid_name (gid);
1098   res = g_strdup (name);
1099   G_UNLOCK (gid_cache);
1100   return res;
1101 }
1102
1103 static char *
1104 get_content_type (const char          *basename,
1105                   const char          *path,
1106                   struct stat         *statbuf,
1107                   gboolean             is_symlink,
1108                   gboolean             symlink_broken,
1109                   GFileQueryInfoFlags  flags,
1110                   gboolean             fast)
1111 {
1112   if (is_symlink &&
1113       (symlink_broken || (flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS)))
1114     return g_strdup  ("inode/symlink");
1115   else if (S_ISDIR(statbuf->st_mode))
1116     return g_strdup ("inode/directory");
1117   else if (S_ISCHR(statbuf->st_mode))
1118     return g_strdup ("inode/chardevice");
1119   else if (S_ISBLK(statbuf->st_mode))
1120     return g_strdup ("inode/blockdevice");
1121   else if (S_ISFIFO(statbuf->st_mode))
1122     return g_strdup ("inode/fifo");
1123 #ifdef S_ISSOCK
1124   else if (S_ISSOCK(statbuf->st_mode))
1125     return g_strdup ("inode/socket");
1126 #endif
1127   else
1128     {
1129       char *content_type;
1130       gboolean result_uncertain;
1131
1132       content_type = g_content_type_guess (basename, NULL, 0, &result_uncertain);
1133
1134 #ifndef G_OS_WIN32
1135       if (!fast && result_uncertain && path != NULL)
1136         {
1137           guchar sniff_buffer[4096];
1138           gsize sniff_length;
1139           int fd;
1140
1141           sniff_length = _g_unix_content_type_get_sniff_len ();
1142           if (sniff_length > 4096)
1143             sniff_length = 4096;
1144
1145           fd = open (path, O_RDONLY);
1146           if (fd != -1)
1147             {
1148               ssize_t res;
1149
1150               res = read (fd, sniff_buffer, sniff_length);
1151               close (fd);
1152               if (res > 0)
1153                 {
1154                   g_free (content_type);
1155                   content_type = g_content_type_guess (basename, sniff_buffer, res, NULL);
1156                 }
1157             }
1158         }
1159 #endif
1160
1161       return content_type;
1162     }
1163
1164 }
1165
1166 static char *
1167 thumb_digest_to_ascii (unsigned char  digest[16],
1168                        const char    *suffix)
1169 {
1170   static const char hex_digits[] = "0123456789abcdef";
1171   char *res;
1172   int i;
1173
1174   res = g_malloc (33 + strlen (suffix));
1175
1176   for (i = 0; i < 16; i++)
1177     {
1178       res[2*i] = hex_digits[digest[i] >> 4];
1179       res[2*i+1] = hex_digits[digest[i] & 0xf];
1180     }
1181
1182   res[32] = 0;
1183
1184   strcat (res, suffix);
1185
1186   return res;
1187 }
1188
1189
1190 static void
1191 get_thumbnail_attributes (const char *path,
1192                           GFileInfo  *info)
1193 {
1194   char *uri;
1195   unsigned char digest[16];
1196   char *filename;
1197   char *basename;
1198
1199   uri = g_filename_to_uri (path, NULL, NULL);
1200   thumb_md5 (uri, digest);
1201   g_free (uri);
1202
1203   basename = thumb_digest_to_ascii (digest, ".png");
1204
1205   filename = g_build_filename (g_get_home_dir(), ".thumbnails", "normal", basename, NULL);
1206
1207   if (g_file_test (filename, G_FILE_TEST_IS_REGULAR))
1208     g_file_info_set_attribute_byte_string (info, G_FILE_ATTRIBUTE_THUMBNAIL_PATH, filename);
1209   else
1210     {
1211       g_free (filename);
1212       filename = g_build_filename (g_get_home_dir(), ".thumbnails", "fail", "gnome-thumbnail-factory", basename, NULL);
1213
1214       if (g_file_test (filename, G_FILE_TEST_IS_REGULAR))
1215         g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_THUMBNAILING_FAILED, TRUE);
1216     }
1217   g_free (basename);
1218   g_free (filename);
1219 }
1220
1221
1222 GFileInfo *
1223 _g_local_file_info_get (const char             *basename,
1224                         const char             *path,
1225                         GFileAttributeMatcher  *attribute_matcher,
1226                         GFileQueryInfoFlags     flags,
1227                         GLocalParentFileInfo   *parent_info,
1228                         GError                **error)
1229 {
1230   GFileInfo *info;
1231   struct stat statbuf;
1232   struct stat statbuf2;
1233   int res;
1234   gboolean is_symlink, symlink_broken;
1235
1236   info = g_file_info_new ();
1237
1238   /* Make sure we don't set any unwanted attributes */
1239   g_file_info_set_attribute_mask (info, attribute_matcher);
1240
1241   g_file_info_set_name (info, basename);
1242
1243   /* Avoid stat in trivial case */
1244   if (attribute_matcher == NULL)
1245     return info;
1246
1247   res = g_lstat (path, &statbuf);
1248   if (res == -1)
1249     {
1250       g_object_unref (info);
1251       g_set_error (error, G_IO_ERROR,
1252                    g_io_error_from_errno (errno),
1253                    _("Error stating file '%s': %s"),
1254                    path, g_strerror (errno));
1255       return NULL;
1256     }
1257
1258 #ifdef S_ISLNK
1259   is_symlink = S_ISLNK (statbuf.st_mode);
1260 #else
1261   is_symlink = FALSE;
1262 #endif
1263   symlink_broken = FALSE;
1264
1265   if (is_symlink)
1266     {
1267       g_file_info_set_is_symlink (info, TRUE);
1268
1269       /* Unless NOFOLLOW was set we default to following symlinks */
1270       if (!(flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS))
1271         {
1272           res = stat (path, &statbuf2);
1273
1274             /* Report broken links as symlinks */
1275           if (res != -1)
1276             statbuf = statbuf2;
1277           else
1278             symlink_broken = TRUE;
1279         }
1280     }
1281
1282   set_info_from_stat (info, &statbuf, attribute_matcher);
1283
1284   if (basename != NULL && basename[0] == '.')
1285     g_file_info_set_is_hidden (info, TRUE);
1286
1287   if (basename != NULL && basename[strlen (basename) -1] == '~')
1288     g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_STD_IS_BACKUP, TRUE);
1289
1290   if (is_symlink &&
1291       g_file_attribute_matcher_matches (attribute_matcher,
1292                                         G_FILE_ATTRIBUTE_STD_SYMLINK_TARGET))
1293     {
1294       char *link = read_link (path);
1295       g_file_info_set_symlink_target (info, link);
1296       g_free (link);
1297     }
1298
1299   if (g_file_attribute_matcher_matches (attribute_matcher,
1300                                         G_FILE_ATTRIBUTE_STD_DISPLAY_NAME))
1301     {
1302       char *display_name = g_filename_display_basename (path);
1303
1304       if (strstr (display_name, "\357\277\275") != NULL)
1305         {
1306           char *p = display_name;
1307           display_name = g_strconcat (display_name, _(" (invalid encoding)"), NULL);
1308           g_free (p);
1309         }
1310       g_file_info_set_display_name (info, display_name);
1311       g_free (display_name);
1312     }
1313
1314   if (g_file_attribute_matcher_matches (attribute_matcher,
1315                                         G_FILE_ATTRIBUTE_STD_EDIT_NAME))
1316     {
1317       char *edit_name = g_filename_display_basename (path);
1318       g_file_info_set_edit_name (info, edit_name);
1319       g_free (edit_name);
1320     }
1321
1322
1323   if (g_file_attribute_matcher_matches (attribute_matcher,
1324                                         G_FILE_ATTRIBUTE_STD_COPY_NAME))
1325     {
1326       char *copy_name = g_filename_to_utf8 (basename, -1, NULL, NULL, NULL);
1327       if (copy_name)
1328         g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_STD_COPY_NAME, copy_name);
1329       g_free (copy_name);
1330     }
1331
1332   if (g_file_attribute_matcher_matches (attribute_matcher,
1333                                         G_FILE_ATTRIBUTE_STD_CONTENT_TYPE) ||
1334       g_file_attribute_matcher_matches (attribute_matcher,
1335                                         G_FILE_ATTRIBUTE_STD_ICON))
1336     {
1337       char *content_type = get_content_type (basename, path, &statbuf, is_symlink, symlink_broken, flags, FALSE);
1338
1339       if (content_type)
1340         {
1341           g_file_info_set_content_type (info, content_type);
1342
1343           if (g_file_attribute_matcher_matches (attribute_matcher,
1344                                                 G_FILE_ATTRIBUTE_STD_ICON))
1345             {
1346               char *mimetype_icon, *generic_mimetype_icon, *type_icon, *p;
1347               char *icon_names[3];
1348               GIcon *icon;
1349               int i;
1350
1351               mimetype_icon = g_strdup (content_type);
1352
1353               while ((p = strchr(mimetype_icon, '/')) != NULL)
1354                 *p = '-';
1355
1356               p = strchr (content_type, '/');
1357               if (p == NULL)
1358                 p = content_type + strlen (content_type);
1359
1360               generic_mimetype_icon = g_malloc (p - content_type + strlen ("-x-generic") + 1);
1361               memcpy (generic_mimetype_icon, content_type, p - content_type);
1362               memcpy (generic_mimetype_icon + (p - content_type), "-x-generic", strlen ("-x-generic"));
1363               generic_mimetype_icon[(p - content_type) + strlen ("-x-generic")] = 0;
1364
1365               /* TODO: Special case desktop dir? That could be expensive with xdg dirs... */
1366               if (strcmp (path, g_get_home_dir ()) == 0)
1367                 type_icon = "user-home";
1368               else if (S_ISDIR (statbuf.st_mode))
1369                 type_icon = "folder";
1370               else if (statbuf.st_mode & S_IXUSR)
1371                 type_icon = "application-x-executable";
1372               else
1373                 type_icon = "text-x-generic";
1374
1375               i = 0;
1376               icon_names[i++] = mimetype_icon;
1377               icon_names[i++] = generic_mimetype_icon;
1378               if (strcmp (generic_mimetype_icon, type_icon) != 0 &&
1379                   strcmp (mimetype_icon, type_icon) != 0)
1380                 icon_names[i++] = type_icon;
1381
1382               icon = g_themed_icon_new_from_names (icon_names, i);
1383               g_file_info_set_icon (info, icon);
1384
1385               g_object_unref (icon);
1386               g_free (mimetype_icon);
1387               g_free (generic_mimetype_icon);
1388             }
1389
1390           g_free (content_type);
1391         }
1392     }
1393
1394   if (g_file_attribute_matcher_matches (attribute_matcher,
1395                                         G_FILE_ATTRIBUTE_STD_FAST_CONTENT_TYPE))
1396     {
1397       char *content_type = get_content_type (basename, path, &statbuf, is_symlink, symlink_broken, flags, TRUE);
1398
1399       if (content_type)
1400         {
1401           g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_STD_FAST_CONTENT_TYPE, content_type);
1402           g_free (content_type);
1403         }
1404     }
1405
1406   if (g_file_attribute_matcher_matches (attribute_matcher,
1407                                         G_FILE_ATTRIBUTE_OWNER_USER))
1408     {
1409       char *name;
1410
1411       name = get_username_from_uid (statbuf.st_uid);
1412       if (name)
1413         g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_OWNER_USER, name);
1414       g_free (name);
1415     }
1416
1417   if (g_file_attribute_matcher_matches (attribute_matcher,
1418                                         G_FILE_ATTRIBUTE_OWNER_USER_REAL))
1419     {
1420       char *name;
1421
1422       name = get_realname_from_uid (statbuf.st_uid);
1423       if (name)
1424         g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_OWNER_USER_REAL, name);
1425       g_free (name);
1426     }
1427
1428   if (g_file_attribute_matcher_matches (attribute_matcher,
1429                                         G_FILE_ATTRIBUTE_OWNER_GROUP))
1430     {
1431       char *name;
1432
1433       name = get_groupname_from_gid (statbuf.st_gid);
1434       if (name)
1435         g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_OWNER_GROUP, name);
1436       g_free (name);
1437     }
1438
1439   if (parent_info && parent_info->device != 0 &&
1440       g_file_attribute_matcher_matches (attribute_matcher, G_FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT) &&
1441       statbuf.st_dev != parent_info->device)
1442     g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT, TRUE);
1443
1444   get_access_rights (attribute_matcher, info, path, &statbuf, parent_info);
1445
1446   get_selinux_context (path, info, attribute_matcher, (flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS) == 0);
1447   get_xattrs (path, TRUE, info, attribute_matcher, (flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS) == 0);
1448   get_xattrs (path, FALSE, info, attribute_matcher, (flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS) == 0);
1449
1450   if (g_file_attribute_matcher_matches (attribute_matcher,
1451                                         G_FILE_ATTRIBUTE_THUMBNAIL_PATH))
1452     get_thumbnail_attributes (path, info);
1453
1454   g_file_info_unset_attribute_mask (info);
1455
1456   return info;
1457 }
1458
1459 GFileInfo *
1460 _g_local_file_info_get_from_fd (int      fd,
1461                                 char    *attributes,
1462                                 GError **error)
1463 {
1464   struct stat stat_buf;
1465   GFileAttributeMatcher *matcher;
1466   GFileInfo *info;
1467
1468   if (fstat (fd, &stat_buf) == -1)
1469     {
1470       g_set_error (error, G_IO_ERROR,
1471                    g_io_error_from_errno (errno),
1472                    _("Error stating file descriptor: %s"),
1473                    g_strerror (errno));
1474       return NULL;
1475     }
1476
1477   info = g_file_info_new ();
1478
1479   matcher = g_file_attribute_matcher_new (attributes);
1480
1481   /* Make sure we don't set any unwanted attributes */
1482   g_file_info_set_attribute_mask (info, matcher);
1483
1484   set_info_from_stat (info, &stat_buf, matcher);
1485
1486 #ifdef HAVE_SELINUX
1487   if (g_file_attribute_matcher_matches (matcher, "selinux:context") &&
1488       is_selinux_enabled ())
1489     {
1490       char *context;
1491       if (fgetfilecon_raw (fd, &context) >= 0)
1492         {
1493           g_file_info_set_attribute_string (info, "selinux:context", context);
1494           freecon(context);
1495         }
1496     }
1497 #endif
1498
1499   get_xattrs_from_fd (fd, TRUE, info, matcher);
1500   get_xattrs_from_fd (fd, FALSE, info, matcher);
1501
1502   g_file_attribute_matcher_unref (matcher);
1503
1504   g_file_info_unset_attribute_mask (info);
1505
1506   return info;
1507 }
1508
1509 static gboolean
1510 get_uint32 (const GFileAttributeValue  *value,
1511             guint32                    *val_out,
1512             GError                    **error)
1513 {
1514   if (value->type != G_FILE_ATTRIBUTE_TYPE_UINT32)
1515     {
1516       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
1517                    _("Invalid attribute type (uint32 expected)"));
1518       return FALSE;
1519     }
1520
1521   *val_out = value->u.uint32;
1522
1523   return TRUE;
1524 }
1525
1526 static gboolean
1527 get_uint64 (const GFileAttributeValue  *value,
1528             guint64                    *val_out,
1529             GError                    **error)
1530 {
1531   if (value->type != G_FILE_ATTRIBUTE_TYPE_UINT64)
1532     {
1533       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
1534                    _("Invalid attribute type (uint64 expected)"));
1535       return FALSE;
1536     }
1537
1538   *val_out = value->u.uint64;
1539
1540   return TRUE;
1541 }
1542
1543 #if defined(HAVE_SYMLINK)
1544 static gboolean
1545 get_byte_string (const GFileAttributeValue  *value,
1546                  const char                **val_out,
1547                  GError                    **error)
1548 {
1549   if (value->type != G_FILE_ATTRIBUTE_TYPE_BYTE_STRING)
1550     {
1551       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
1552                    _("Invalid attribute type (byte string expected)"));
1553       return FALSE;
1554     }
1555
1556   *val_out = value->u.string;
1557
1558   return TRUE;
1559 }
1560 #endif
1561
1562 static gboolean
1563 set_unix_mode (char                       *filename,
1564                const GFileAttributeValue  *value,
1565                GError                    **error)
1566 {
1567   guint32 val;
1568
1569   if (!get_uint32 (value, &val, error))
1570     return FALSE;
1571
1572   if (g_chmod (filename, val) == -1)
1573     {
1574       g_set_error (error, G_IO_ERROR,
1575                    g_io_error_from_errno (errno),
1576                    _("Error setting permissions: %s"),
1577                    g_strerror (errno));
1578       return FALSE;
1579     }
1580   return TRUE;
1581 }
1582
1583 #ifdef HAVE_CHOWN
1584 static gboolean
1585 set_unix_uid_gid (char                       *filename,
1586                   const GFileAttributeValue  *uid_value,
1587                   const GFileAttributeValue  *gid_value,
1588                   GFileQueryInfoFlags         flags,
1589                   GError                    **error)
1590 {
1591   int res;
1592   guint32 val;
1593   uid_t uid;
1594   gid_t gid;
1595
1596   if (uid_value)
1597     {
1598       if (!get_uint32 (uid_value, &val, error))
1599         return FALSE;
1600       uid = val;
1601     }
1602   else
1603     uid = -1;
1604
1605   if (gid_value)
1606     {
1607       if (!get_uint32 (gid_value, &val, error))
1608         return FALSE;
1609       gid = val;
1610     }
1611   else
1612     gid = -1;
1613
1614   if (flags & G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS)
1615     res = lchown (filename, uid, gid);
1616   else
1617     res = chown (filename, uid, gid);
1618
1619   if (res == -1)
1620     {
1621       g_set_error (error, G_IO_ERROR,
1622                    g_io_error_from_errno (errno),
1623                    _("Error setting owner: %s"),
1624                    g_strerror (errno));
1625           return FALSE;
1626     }
1627   return TRUE;
1628 }
1629 #endif
1630
1631 #ifdef HAVE_SYMLINK
1632 static gboolean
1633 set_symlink (char                       *filename,
1634              const GFileAttributeValue  *value,
1635              GError                    **error)
1636 {
1637   const char *val;
1638   struct stat statbuf;
1639
1640   if (!get_byte_string (value, &val, error))
1641     return FALSE;
1642
1643   if (val == NULL)
1644     {
1645       g_set_error (error, G_IO_ERROR, G_IO_ERROR_INVALID_ARGUMENT,
1646                    _("symlink must be non-NULL"));
1647       return FALSE;
1648     }
1649
1650   if (g_lstat (filename, &statbuf))
1651     {
1652       g_set_error (error, G_IO_ERROR,
1653                    g_io_error_from_errno (errno),
1654                    _("Error setting symlink: %s"),
1655                    g_strerror (errno));
1656       return FALSE;
1657     }
1658
1659   if (!S_ISLNK (statbuf.st_mode))
1660     {
1661       g_set_error (error, G_IO_ERROR,
1662                    G_IO_ERROR_NOT_SYMBOLIC_LINK,
1663                    _("Error setting symlink: file is not a symlink"));
1664       return FALSE;
1665     }
1666
1667   if (g_unlink (filename))
1668     {
1669       g_set_error (error, G_IO_ERROR,
1670                    g_io_error_from_errno (errno),
1671                    _("Error setting symlink: %s"),
1672                    g_strerror (errno));
1673       return FALSE;
1674     }
1675
1676   if (symlink (filename, val) != 0)
1677     {
1678       g_set_error (error, G_IO_ERROR,
1679                    g_io_error_from_errno (errno),
1680                    _("Error setting symlink: %s"),
1681                    g_strerror (errno));
1682       return FALSE;
1683     }
1684
1685   return TRUE;
1686 }
1687 #endif
1688
1689 static int
1690 lazy_stat (char        *filename,
1691            struct stat *statbuf,
1692            gboolean    *called_stat)
1693 {
1694   int res;
1695
1696   if (*called_stat)
1697     return 0;
1698
1699   res = g_stat (filename, statbuf);
1700
1701   if (res == 0)
1702     *called_stat = TRUE;
1703
1704   return res;
1705 }
1706
1707
1708 #ifdef HAVE_UTIMES
1709 static gboolean
1710 set_mtime_atime (char                       *filename,
1711                  const GFileAttributeValue  *mtime_value,
1712                  const GFileAttributeValue  *mtime_usec_value,
1713                  const GFileAttributeValue  *atime_value,
1714                  const GFileAttributeValue  *atime_usec_value,
1715                  GError                    **error)
1716 {
1717   int res;
1718   guint64 val;
1719   guint32 val_usec;
1720   struct stat statbuf;
1721   gboolean got_stat = FALSE;
1722   struct timeval times[2] = { {0, 0}, {0, 0} };
1723
1724   /* ATIME */
1725   if (atime_value)
1726     {
1727       if (!get_uint64 (atime_value, &val, error))
1728         return FALSE;
1729       times[0].tv_sec = val;
1730     }
1731   else
1732     {
1733       if (lazy_stat (filename, &statbuf, &got_stat) == 0)
1734         {
1735           times[0].tv_sec = statbuf.st_mtime;
1736 #if defined (HAVE_STRUCT_STAT_ST_ATIMENSEC)
1737           times[0].tv_usec = statbuf.st_atimensec / 1000;
1738 #elif defined (HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC)
1739           times[0].tv_usec = statbuf.st_atim.tv_nsec / 1000;
1740 #endif
1741         }
1742     }
1743
1744   if (atime_usec_value)
1745     {
1746       if (!get_uint32 (atime_usec_value, &val_usec, error))
1747         return FALSE;
1748       times[0].tv_usec = val_usec;
1749     }
1750
1751   /* MTIME */
1752   if (mtime_value)
1753     {
1754       if (!get_uint64 (mtime_value, &val, error))
1755         return FALSE;
1756       times[1].tv_sec = val;
1757     }
1758   else
1759     {
1760       if (lazy_stat (filename, &statbuf, &got_stat) == 0)
1761         {
1762           times[1].tv_sec = statbuf.st_mtime;
1763 #if defined (HAVE_STRUCT_STAT_ST_MTIMENSEC)
1764           times[1].tv_usec = statbuf.st_mtimensec / 1000;
1765 #elif defined (HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
1766           times[1].tv_usec = statbuf.st_mtim.tv_nsec / 1000;
1767 #endif
1768         }
1769     }
1770
1771   if (mtime_usec_value)
1772     {
1773       if (!get_uint32 (mtime_usec_value, &val_usec, error))
1774         return FALSE;
1775       times[1].tv_usec = val_usec;
1776     }
1777
1778   res = utimes(filename, times);
1779   if (res == -1)
1780     {
1781       g_set_error (error, G_IO_ERROR,
1782                    g_io_error_from_errno (errno),
1783                    _("Error setting owner: %s"),
1784                    g_strerror (errno));
1785           return FALSE;
1786     }
1787   return TRUE;
1788 }
1789 #endif
1790
1791 gboolean
1792 _g_local_file_info_set_attribute (char                       *filename,
1793                                   const char                 *attribute,
1794                                   const GFileAttributeValue  *value,
1795                                   GFileQueryInfoFlags         flags,
1796                                   GCancellable               *cancellable,
1797                                   GError                    **error)
1798 {
1799   if (strcmp (attribute, G_FILE_ATTRIBUTE_UNIX_MODE) == 0)
1800     return set_unix_mode (filename, value, error);
1801
1802 #ifdef HAVE_CHOWN
1803   else if (strcmp (attribute, G_FILE_ATTRIBUTE_UNIX_UID) == 0)
1804     return set_unix_uid_gid (filename, value, NULL, flags, error);
1805   else if (strcmp (attribute, G_FILE_ATTRIBUTE_UNIX_GID) == 0)
1806     return set_unix_uid_gid (filename, NULL, value, flags, error);
1807 #endif
1808
1809 #ifdef HAVE_SYMLINK
1810   else if (strcmp (attribute, G_FILE_ATTRIBUTE_STD_SYMLINK_TARGET) == 0)
1811     return set_symlink (filename, value, error);
1812 #endif
1813
1814 #ifdef HAVE_UTIMES
1815   else if (strcmp (attribute, G_FILE_ATTRIBUTE_TIME_MODIFIED) == 0)
1816     return set_mtime_atime (filename, value, NULL, NULL, NULL, error);
1817   else if (strcmp (attribute, G_FILE_ATTRIBUTE_TIME_MODIFIED_USEC) == 0)
1818     return set_mtime_atime (filename, NULL, value, NULL, NULL, error);
1819   else if (strcmp (attribute, G_FILE_ATTRIBUTE_TIME_ACCESS) == 0)
1820     return set_mtime_atime (filename, NULL, NULL, value, NULL, error);
1821   else if (strcmp (attribute, G_FILE_ATTRIBUTE_TIME_ACCESS_USEC) == 0)
1822     return set_mtime_atime (filename, NULL, NULL, NULL, value, error);
1823 #endif
1824
1825 #ifdef HAVE_XATTR
1826   else if (g_str_has_prefix (attribute, "xattr:"))
1827     return set_xattr (filename, attribute, value, error);
1828   else if (g_str_has_prefix (attribute, "xattr_sys:"))
1829     return set_xattr (filename, attribute, value, error);
1830 #endif
1831
1832   g_set_error (error, G_IO_ERROR, G_IO_ERROR_NOT_SUPPORTED,
1833                _("Setting attribute %s not supported"), attribute);
1834   return FALSE;
1835 }
1836
1837 gboolean
1838 _g_local_file_info_set_attributes  (char                 *filename,
1839                                     GFileInfo            *info,
1840                                     GFileQueryInfoFlags   flags,
1841                                     GCancellable         *cancellable,
1842                                     GError              **error)
1843 {
1844   GFileAttributeValue *value, *uid, *gid;
1845   GFileAttributeValue *mtime, *mtime_usec, *atime, *atime_usec;
1846   GFileAttributeStatus status;
1847   gboolean res;
1848
1849   /* Handles setting multiple specified data in a single set, and takes care
1850      of ordering restrictions when setting attributes */
1851
1852   res = TRUE;
1853
1854   /* Set symlink first, since this recreates the file */
1855 #ifdef HAVE_SYMLINK
1856   value = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_STD_SYMLINK_TARGET);
1857   if (value)
1858     {
1859       if (!set_symlink (filename, value, error))
1860         {
1861           value->status = G_FILE_ATTRIBUTE_STATUS_ERROR_SETTING;
1862           res = FALSE;
1863           /* Don't set error multiple times */
1864           error = NULL;
1865         }
1866       else
1867         value->status = G_FILE_ATTRIBUTE_STATUS_SET;
1868
1869     }
1870 #endif
1871
1872 #ifdef HAVE_CHOWN
1873   /* Group uid and gid setting into one call
1874    * Change ownership before permissions, since ownership changes can
1875      change permissions (e.g. setuid)
1876    */
1877   uid = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_UNIX_UID);
1878   gid = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_UNIX_GID);
1879
1880   if (uid || gid)
1881     {
1882       if (!set_unix_uid_gid (filename, uid, gid, flags, error))
1883         {
1884           status = G_FILE_ATTRIBUTE_STATUS_ERROR_SETTING;
1885           res = FALSE;
1886           /* Don't set error multiple times */
1887           error = NULL;
1888         }
1889       else
1890         status = G_FILE_ATTRIBUTE_STATUS_SET;
1891       if (uid)
1892         uid->status = status;
1893       if (gid)
1894         gid->status = status;
1895     }
1896 #endif
1897
1898   value = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_UNIX_MODE);
1899   if (value)
1900     {
1901       if (!set_unix_mode (filename, value, error))
1902         {
1903           value->status = G_FILE_ATTRIBUTE_STATUS_ERROR_SETTING;
1904           res = FALSE;
1905           /* Don't set error multiple times */
1906           error = NULL;
1907         }
1908       else
1909         value->status = G_FILE_ATTRIBUTE_STATUS_SET;
1910
1911     }
1912
1913 #ifdef HAVE_UTIMES
1914   /* Group all time settings into one call
1915    * Change times as the last thing to avoid it changing due to metadata changes
1916    */
1917
1918   mtime = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_TIME_MODIFIED);
1919   mtime_usec = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_TIME_MODIFIED_USEC);
1920   atime = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_TIME_ACCESS);
1921   atime_usec = g_file_info_get_attribute (info, G_FILE_ATTRIBUTE_TIME_ACCESS_USEC);
1922
1923   if (mtime || mtime_usec || atime || atime_usec)
1924     {
1925       if (!set_mtime_atime (filename, mtime, mtime_usec, atime, atime_usec, error))
1926         {
1927           status = G_FILE_ATTRIBUTE_STATUS_ERROR_SETTING;
1928           res = FALSE;
1929           /* Don't set error multiple times */
1930           error = NULL;
1931         }
1932       else
1933         status = G_FILE_ATTRIBUTE_STATUS_SET;
1934
1935       if (mtime)
1936         mtime->status = status;
1937       if (mtime_usec)
1938         mtime_usec->status = status;
1939       if (atime)
1940         atime->status = status;
1941       if (atime_usec)
1942         atime_usec->status = status;
1943     }
1944 #endif
1945
1946   /* xattrs are handled by default callback */
1947
1948   return res;
1949 }
1950
1951
1952 /*
1953  * This code implements the MD5 message-digest algorithm.
1954  * The algorithm is due to Ron Rivest.  This code was
1955  * written by Colin Plumb in 1993, no copyright is claimed.
1956  * This code is in the public domain; do with it what you wish.
1957  *
1958  * Equivalent code is available from RSA Data Security, Inc.
1959  * This code has been tested against that, and is equivalent,
1960  * except that you don't need to include two pages of legalese
1961  * with every copy.
1962  *
1963  * To compute the message digest of a chunk of bytes, declare an
1964  * ThumbMD5Context structure, pass it to thumb_md5_init, call
1965  * thumb_md5_update as needed on buffers full of bytes, and then call
1966  * thumb_md5_final, which will fill a supplied 32-byte array with the
1967  * digest in ascii form.
1968  *
1969  */
1970
1971 static void thumb_md5_init      (struct ThumbMD5Context *context);
1972 static void thumb_md5_update    (struct ThumbMD5Context *context,
1973                                  unsigned char const    *buf,
1974                                  unsigned                len);
1975 static void thumb_md5_final     (unsigned char           digest[16],
1976                                  struct ThumbMD5Context *context);
1977 static void thumb_md5_transform (guint32                 buf[4],
1978                                  guint32 const           in[16]);
1979
1980
1981 static void
1982 thumb_md5 (const char *string, unsigned char digest[16])
1983 {
1984   struct ThumbMD5Context md5_context;
1985
1986   thumb_md5_init (&md5_context);
1987   thumb_md5_update (&md5_context, (unsigned char *)string, strlen (string));
1988   thumb_md5_final (digest, &md5_context);
1989 }
1990
1991 #if G_BYTE_ORDER == G_LITTLE_ENDIAN
1992 #define byteReverse(buf, len)   /* Nothing */
1993 #else
1994
1995 /*
1996  * Note: this code is harmless on little-endian machines.
1997  */
1998 static void
1999 byteReverse (unsigned char *buf,
2000              unsigned       longs)
2001 {
2002     guint32 t;
2003     do {
2004         t = (guint32) ((unsigned) buf[3] << 8 | buf[2]) << 16 |
2005             ((unsigned) buf[1] << 8 | buf[0]);
2006         *(guint32 *) buf = t;
2007         buf += 4;
2008     } while (--longs);
2009 }
2010
2011 #endif
2012
2013 /*
2014  * Start MD5 accumulation.  Set bit count to 0 and buffer to mysterious
2015  * initialization constants.
2016  */
2017 static void
2018 thumb_md5_init (struct ThumbMD5Context *ctx)
2019 {
2020     ctx->buf[0] = 0x67452301;
2021     ctx->buf[1] = 0xefcdab89;
2022     ctx->buf[2] = 0x98badcfe;
2023     ctx->buf[3] = 0x10325476;
2024
2025     ctx->bits[0] = 0;
2026     ctx->bits[1] = 0;
2027 }
2028
2029 /*
2030  * Update context to reflect the concatenation of another buffer full
2031  * of bytes.
2032  */
2033 static void
2034 thumb_md5_update (struct ThumbMD5Context *ctx,
2035                   unsigned char const    *buf,
2036                   unsigned                len)
2037 {
2038     guint32 t;
2039
2040     /* Update bitcount */
2041
2042     t = ctx->bits[0];
2043     if ((ctx->bits[0] = t + ((guint32) len << 3)) < t)
2044         ctx->bits[1]++;         /* Carry from low to high */
2045     ctx->bits[1] += len >> 29;
2046
2047     t = (t >> 3) & 0x3f;        /* Bytes already in shsInfo->data */
2048
2049     /* Handle any leading odd-sized chunks */
2050
2051     if (t) {
2052         unsigned char *p = (unsigned char *) ctx->in + t;
2053
2054         t = 64 - t;
2055         if (len < t) {
2056             memcpy (p, buf, len);
2057             return;
2058         }
2059         memcpy (p, buf, t);
2060         byteReverse (ctx->in, 16);
2061         thumb_md5_transform (ctx->buf, (guint32 *) ctx->in);
2062         buf += t;
2063         len -= t;
2064     }
2065
2066     /* Process data in 64-byte chunks */
2067
2068     while (len >= 64) {
2069         memcpy (ctx->in, buf, 64);
2070         byteReverse (ctx->in, 16);
2071         thumb_md5_transform (ctx->buf, (guint32 *) ctx->in);
2072         buf += 64;
2073         len -= 64;
2074     }
2075
2076     /* Handle any remaining bytes of data. */
2077
2078     memcpy(ctx->in, buf, len);
2079 }
2080
2081 /*
2082  * Final wrapup - pad to 64-byte boundary with the bit pattern
2083  * 1 0* (64-bit count of bits processed, MSB-first)
2084  */
2085 static void
2086 thumb_md5_final (unsigned char           digest[16],
2087                  struct ThumbMD5Context *ctx)
2088 {
2089     unsigned count;
2090     unsigned char *p;
2091
2092     /* Compute number of bytes mod 64 */
2093     count = (ctx->bits[0] >> 3) & 0x3F;
2094
2095     /* Set the first char of padding to 0x80.  This is safe since there is
2096        always at least one byte free */
2097     p = ctx->in + count;
2098     *p++ = 0x80;
2099
2100     /* Bytes of padding needed to make 64 bytes */
2101     count = 64 - 1 - count;
2102
2103     /* Pad out to 56 mod 64 */
2104     if (count < 8) {
2105         /* Two lots of padding:  Pad the first block to 64 bytes */
2106         memset (p, 0, count);
2107         byteReverse (ctx->in, 16);
2108         thumb_md5_transform (ctx->buf, (guint32 *) ctx->in);
2109
2110         /* Now fill the next block with 56 bytes */
2111         memset(ctx->in, 0, 56);
2112     } else {
2113         /* Pad block to 56 bytes */
2114         memset(p, 0, count - 8);
2115     }
2116     byteReverse(ctx->in, 14);
2117
2118     /* Append length in bits and transform */
2119     ((guint32 *) ctx->in)[14] = ctx->bits[0];
2120     ((guint32 *) ctx->in)[15] = ctx->bits[1];
2121
2122     thumb_md5_transform (ctx->buf, (guint32 *) ctx->in);
2123     byteReverse ((unsigned char *) ctx->buf, 4);
2124     memcpy (digest, ctx->buf, 16);
2125     memset (ctx, 0, sizeof(ctx));       /* In case it's sensitive */
2126 }
2127
2128
2129 /* The four core functions - F1 is optimized somewhat */
2130
2131 #define F1(x, y, z) (z ^ (x & (y ^ z)))
2132 #define F2(x, y, z) F1 (z, x, y)
2133 #define F3(x, y, z) (x ^ y ^ z)
2134 #define F4(x, y, z) (y ^ (x | ~z))
2135
2136 /* This is the central step in the MD5 algorithm. */
2137 #define thumb_md5_step(f, w, x, y, z, data, s) \
2138         ( w += f(x, y, z) + data,  w = w<<s | w>>(32-s),  w += x )
2139
2140 /*
2141  * The core of the MD5 algorithm, this alters an existing MD5 hash to
2142  * reflect the addition of 16 longwords of new data.  ThumbMD5Update blocks
2143  * the data and converts bytes into longwords for this routine.
2144  */
2145 static void
2146 thumb_md5_transform (guint32       buf[4],
2147                      guint32 const in[16])
2148 {
2149     register guint32 a, b, c, d;
2150
2151     a = buf[0];
2152     b = buf[1];
2153     c = buf[2];
2154     d = buf[3];
2155
2156     thumb_md5_step(F1, a, b, c, d, in[0] + 0xd76aa478, 7);
2157     thumb_md5_step(F1, d, a, b, c, in[1] + 0xe8c7b756, 12);
2158     thumb_md5_step(F1, c, d, a, b, in[2] + 0x242070db, 17);
2159     thumb_md5_step(F1, b, c, d, a, in[3] + 0xc1bdceee, 22);
2160     thumb_md5_step(F1, a, b, c, d, in[4] + 0xf57c0faf, 7);
2161     thumb_md5_step(F1, d, a, b, c, in[5] + 0x4787c62a, 12);
2162     thumb_md5_step(F1, c, d, a, b, in[6] + 0xa8304613, 17);
2163     thumb_md5_step(F1, b, c, d, a, in[7] + 0xfd469501, 22);
2164     thumb_md5_step(F1, a, b, c, d, in[8] + 0x698098d8, 7);
2165     thumb_md5_step(F1, d, a, b, c, in[9] + 0x8b44f7af, 12);
2166     thumb_md5_step(F1, c, d, a, b, in[10] + 0xffff5bb1, 17);
2167     thumb_md5_step(F1, b, c, d, a, in[11] + 0x895cd7be, 22);
2168     thumb_md5_step(F1, a, b, c, d, in[12] + 0x6b901122, 7);
2169     thumb_md5_step(F1, d, a, b, c, in[13] + 0xfd987193, 12);
2170     thumb_md5_step(F1, c, d, a, b, in[14] + 0xa679438e, 17);
2171     thumb_md5_step(F1, b, c, d, a, in[15] + 0x49b40821, 22);
2172
2173     thumb_md5_step(F2, a, b, c, d, in[1] + 0xf61e2562, 5);
2174     thumb_md5_step(F2, d, a, b, c, in[6] + 0xc040b340, 9);
2175     thumb_md5_step(F2, c, d, a, b, in[11] + 0x265e5a51, 14);
2176     thumb_md5_step(F2, b, c, d, a, in[0] + 0xe9b6c7aa, 20);
2177     thumb_md5_step(F2, a, b, c, d, in[5] + 0xd62f105d, 5);
2178     thumb_md5_step(F2, d, a, b, c, in[10] + 0x02441453, 9);
2179     thumb_md5_step(F2, c, d, a, b, in[15] + 0xd8a1e681, 14);
2180     thumb_md5_step(F2, b, c, d, a, in[4] + 0xe7d3fbc8, 20);
2181     thumb_md5_step(F2, a, b, c, d, in[9] + 0x21e1cde6, 5);
2182     thumb_md5_step(F2, d, a, b, c, in[14] + 0xc33707d6, 9);
2183     thumb_md5_step(F2, c, d, a, b, in[3] + 0xf4d50d87, 14);
2184     thumb_md5_step(F2, b, c, d, a, in[8] + 0x455a14ed, 20);
2185     thumb_md5_step(F2, a, b, c, d, in[13] + 0xa9e3e905, 5);
2186     thumb_md5_step(F2, d, a, b, c, in[2] + 0xfcefa3f8, 9);
2187     thumb_md5_step(F2, c, d, a, b, in[7] + 0x676f02d9, 14);
2188     thumb_md5_step(F2, b, c, d, a, in[12] + 0x8d2a4c8a, 20);
2189
2190     thumb_md5_step(F3, a, b, c, d, in[5] + 0xfffa3942, 4);
2191     thumb_md5_step(F3, d, a, b, c, in[8] + 0x8771f681, 11);
2192     thumb_md5_step(F3, c, d, a, b, in[11] + 0x6d9d6122, 16);
2193     thumb_md5_step(F3, b, c, d, a, in[14] + 0xfde5380c, 23);
2194     thumb_md5_step(F3, a, b, c, d, in[1] + 0xa4beea44, 4);
2195     thumb_md5_step(F3, d, a, b, c, in[4] + 0x4bdecfa9, 11);
2196     thumb_md5_step(F3, c, d, a, b, in[7] + 0xf6bb4b60, 16);
2197     thumb_md5_step(F3, b, c, d, a, in[10] + 0xbebfbc70, 23);
2198     thumb_md5_step(F3, a, b, c, d, in[13] + 0x289b7ec6, 4);
2199     thumb_md5_step(F3, d, a, b, c, in[0] + 0xeaa127fa, 11);
2200     thumb_md5_step(F3, c, d, a, b, in[3] + 0xd4ef3085, 16);
2201     thumb_md5_step(F3, b, c, d, a, in[6] + 0x04881d05, 23);
2202     thumb_md5_step(F3, a, b, c, d, in[9] + 0xd9d4d039, 4);
2203     thumb_md5_step(F3, d, a, b, c, in[12] + 0xe6db99e5, 11);
2204     thumb_md5_step(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16);
2205     thumb_md5_step(F3, b, c, d, a, in[2] + 0xc4ac5665, 23);
2206
2207     thumb_md5_step(F4, a, b, c, d, in[0] + 0xf4292244, 6);
2208     thumb_md5_step(F4, d, a, b, c, in[7] + 0x432aff97, 10);
2209     thumb_md5_step(F4, c, d, a, b, in[14] + 0xab9423a7, 15);
2210     thumb_md5_step(F4, b, c, d, a, in[5] + 0xfc93a039, 21);
2211     thumb_md5_step(F4, a, b, c, d, in[12] + 0x655b59c3, 6);
2212     thumb_md5_step(F4, d, a, b, c, in[3] + 0x8f0ccc92, 10);
2213     thumb_md5_step(F4, c, d, a, b, in[10] + 0xffeff47d, 15);
2214     thumb_md5_step(F4, b, c, d, a, in[1] + 0x85845dd1, 21);
2215     thumb_md5_step(F4, a, b, c, d, in[8] + 0x6fa87e4f, 6);
2216     thumb_md5_step(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10);
2217     thumb_md5_step(F4, c, d, a, b, in[6] + 0xa3014314, 15);
2218     thumb_md5_step(F4, b, c, d, a, in[13] + 0x4e0811a1, 21);
2219     thumb_md5_step(F4, a, b, c, d, in[4] + 0xf7537e82, 6);
2220     thumb_md5_step(F4, d, a, b, c, in[11] + 0xbd3af235, 10);
2221     thumb_md5_step(F4, c, d, a, b, in[2] + 0x2ad7d2bb, 15);
2222     thumb_md5_step(F4, b, c, d, a, in[9] + 0xeb86d391, 21);
2223
2224     buf[0] += a;
2225     buf[1] += b;
2226     buf[2] += c;
2227     buf[3] += d;
2228 }