Use g_set_error_literal where appropriate. Patch from bug #535947.
[platform/upstream/glib.git] / gio / glocalfile.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/types.h>
26 #include <sys/stat.h>
27 #include <string.h>
28 #include <errno.h>
29 #include <fcntl.h>
30 #ifdef HAVE_UNISTD_H
31 #include <unistd.h>
32 #endif
33
34 #if HAVE_SYS_STATFS_H
35 #include <sys/statfs.h>
36 #endif
37 #if HAVE_SYS_STATVFS_H
38 #include <sys/statvfs.h>
39 #endif
40 #if HAVE_SYS_VFS_H
41 #include <sys/vfs.h>
42 #elif HAVE_SYS_MOUNT_H
43 #if HAVE_SYS_PARAM_H
44 #include <sys/param.h>
45 #endif
46 #include <sys/mount.h>
47 #endif
48
49 #ifndef O_BINARY
50 #define O_BINARY 0
51 #endif
52
53 #if defined(HAVE_STATFS) && defined(HAVE_STATVFS)
54 /* Some systems have both statfs and statvfs, pick the
55    most "native" for these */
56 # if defined(sun) && defined(__SVR4)
57    /* on solaris, statfs doesn't even have the
58       f_bavail field */
59 #  define USE_STATVFS
60 # else
61   /* at least on linux, statfs is the actual syscall */
62 #  define USE_STATFS
63 # endif
64
65 #elif defined(HAVE_STATFS)
66
67 # define USE_STATFS
68
69 #elif defined(HAVE_STATVFS)
70
71 # define USE_STATVFS
72
73 #endif
74
75 #include "glocalfile.h"
76 #include "glocalfileinfo.h"
77 #include "glocalfileenumerator.h"
78 #include "glocalfileinputstream.h"
79 #include "glocalfileoutputstream.h"
80 #include "glocaldirectorymonitor.h"
81 #include "glocalfilemonitor.h"
82 #include "gmountprivate.h"
83 #include <glib/gstdio.h>
84 #include "glibintl.h"
85
86 #ifdef G_OS_WIN32
87 #define _WIN32_WINNT 0x0500
88 #include <windows.h>
89 #include <io.h>
90 #include <direct.h>
91
92 #ifndef FILE_READ_ONLY_VOLUME
93 #define FILE_READ_ONLY_VOLUME           0x00080000
94 #endif
95
96 #ifndef S_ISDIR
97 #define S_ISDIR(m) (((m) & _S_IFMT) == _S_IFDIR)
98 #endif
99 #ifndef S_ISLNK
100 #define S_ISLNK(m) (0)
101 #endif
102 #endif
103
104 #include "gioalias.h"
105
106 static void g_local_file_file_iface_init (GFileIface *iface);
107
108 static GFileAttributeInfoList *local_writable_attributes = NULL;
109 static GFileAttributeInfoList *local_writable_namespaces = NULL;
110
111 struct _GLocalFile
112 {
113   GObject parent_instance;
114
115   char *filename;
116 };
117
118 #define g_local_file_get_type _g_local_file_get_type
119 G_DEFINE_TYPE_WITH_CODE (GLocalFile, g_local_file, G_TYPE_OBJECT,
120                          G_IMPLEMENT_INTERFACE (G_TYPE_FILE,
121                                                 g_local_file_file_iface_init))
122
123 static char *find_mountpoint_for (const char *file, dev_t dev);
124
125 static void
126 g_local_file_finalize (GObject *object)
127 {
128   GLocalFile *local;
129
130   local = G_LOCAL_FILE (object);
131
132   g_free (local->filename);
133
134   G_OBJECT_CLASS (g_local_file_parent_class)->finalize (object);
135 }
136
137 static void
138 g_local_file_class_init (GLocalFileClass *klass)
139 {
140   GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
141   GFileAttributeInfoList *list;
142
143   gobject_class->finalize = g_local_file_finalize;
144
145   /* Set up attribute lists */
146
147   /* Writable attributes: */
148
149   list = g_file_attribute_info_list_new ();
150
151   g_file_attribute_info_list_add (list,
152                                   G_FILE_ATTRIBUTE_UNIX_MODE,
153                                   G_FILE_ATTRIBUTE_TYPE_UINT32,
154                                   G_FILE_ATTRIBUTE_INFO_COPY_WITH_FILE |
155                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
156   
157 #ifdef HAVE_CHOWN
158   g_file_attribute_info_list_add (list,
159                                   G_FILE_ATTRIBUTE_UNIX_UID,
160                                   G_FILE_ATTRIBUTE_TYPE_UINT32,
161                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
162   g_file_attribute_info_list_add (list,
163                                   G_FILE_ATTRIBUTE_UNIX_GID,
164                                   G_FILE_ATTRIBUTE_TYPE_UINT32,
165                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
166 #endif
167   
168 #ifdef HAVE_SYMLINK
169   g_file_attribute_info_list_add (list,
170                                   G_FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET,
171                                   G_FILE_ATTRIBUTE_TYPE_BYTE_STRING,
172                                   0);
173 #endif
174   
175 #ifdef HAVE_UTIMES
176   g_file_attribute_info_list_add (list,
177                                   G_FILE_ATTRIBUTE_TIME_MODIFIED,
178                                   G_FILE_ATTRIBUTE_TYPE_UINT64,
179                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
180   g_file_attribute_info_list_add (list,
181                                   G_FILE_ATTRIBUTE_TIME_MODIFIED_USEC,
182                                   G_FILE_ATTRIBUTE_TYPE_UINT32,
183                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
184   g_file_attribute_info_list_add (list,
185                                   G_FILE_ATTRIBUTE_TIME_ACCESS,
186                                   G_FILE_ATTRIBUTE_TYPE_UINT64,
187                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
188   g_file_attribute_info_list_add (list,
189                                   G_FILE_ATTRIBUTE_TIME_ACCESS_USEC,
190                                   G_FILE_ATTRIBUTE_TYPE_UINT32,
191                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
192 #endif
193
194   local_writable_attributes = list;
195
196   /* Writable namespaces: */
197   
198   list = g_file_attribute_info_list_new ();
199
200 #ifdef HAVE_XATTR
201   g_file_attribute_info_list_add (list,
202                                   "xattr",
203                                   G_FILE_ATTRIBUTE_TYPE_STRING,
204                                   G_FILE_ATTRIBUTE_INFO_COPY_WITH_FILE |
205                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
206   g_file_attribute_info_list_add (list,
207                                   "xattr-sys",
208                                   G_FILE_ATTRIBUTE_TYPE_STRING,
209                                   G_FILE_ATTRIBUTE_INFO_COPY_WHEN_MOVED);
210 #endif
211
212   local_writable_namespaces = list;
213 }
214
215 static void
216 g_local_file_init (GLocalFile *local)
217 {
218 }
219
220
221 static char *
222 canonicalize_filename (const char *filename)
223 {
224   char *canon, *start, *p, *q;
225   char *cwd;
226   int i;
227   
228   if (!g_path_is_absolute (filename))
229     {
230       cwd = g_get_current_dir ();
231       canon = g_build_filename (cwd, filename, NULL);
232       g_free (cwd);
233     }
234   else
235     canon = g_strdup (filename);
236
237   start = (char *)g_path_skip_root (canon);
238
239   /* POSIX allows double slashes at the start to
240    * mean something special (as does windows too).
241    * So, "//" != "/", but more than two slashes
242    * is treated as "/".
243    */
244   i = 0;
245   for (p = start - 1;
246        (p >= canon) &&
247          G_IS_DIR_SEPARATOR (*p);
248        p--)
249     i++;
250   if (i > 2)
251     {
252       i -= 1;
253       start -= i;
254       memmove (start, start+i, strlen (start+i)+1);
255     }
256   
257   p = start;
258   while (*p != 0)
259     {
260       if (p[0] == '.' && (p[1] == 0 || G_IS_DIR_SEPARATOR (p[1])))
261         {
262           memmove (p, p+1, strlen (p+1)+1);
263         }
264       else if (p[0] == '.' && p[1] == '.' && (p[2] == 0 || G_IS_DIR_SEPARATOR (p[2])))
265         {
266           q = p + 2;
267           /* Skip previous separator */
268           p = p - 2;
269           if (p < start)
270             p = start;
271           while (p > start && !G_IS_DIR_SEPARATOR (*p))
272             p--;
273           if (G_IS_DIR_SEPARATOR (*p))
274             *p++ = G_DIR_SEPARATOR;
275           memmove (p, q, strlen (q)+1);
276         }
277       else
278         {
279           /* Skip until next separator */
280           while (*p != 0 && !G_IS_DIR_SEPARATOR (*p))
281             p++;
282           
283           if (*p != 0)
284             {
285               /* Canonicalize one separator */
286               *p++ = G_DIR_SEPARATOR;
287             }
288         }
289
290       /* Remove additional separators */
291       q = p;
292       while (*q && G_IS_DIR_SEPARATOR (*q))
293         q++;
294
295       if (p != q)
296         memmove (p, q, strlen (q)+1);
297     }
298
299   /* Remove trailing slashes */
300   if (p > start && G_IS_DIR_SEPARATOR (*(p-1)))
301     *(p-1) = 0;
302   
303   return canon;
304 }
305
306 /**
307  * _g_local_file_new:
308  * @filename: filename of the file to create.
309  * 
310  * Returns: new local #GFile.
311  **/
312 GFile *
313 _g_local_file_new (const char *filename)
314 {
315   GLocalFile *local;
316
317   local = g_object_new (G_TYPE_LOCAL_FILE, NULL);
318   local->filename = canonicalize_filename (filename);
319   
320   return G_FILE (local);
321 }
322
323 static gboolean
324 g_local_file_is_native (GFile *file)
325 {
326   return TRUE;
327 }
328
329 static gboolean
330 g_local_file_has_uri_scheme (GFile      *file,
331                              const char *uri_scheme)
332 {
333   return g_ascii_strcasecmp (uri_scheme, "file") == 0;
334 }
335
336 static char *
337 g_local_file_get_uri_scheme (GFile *file)
338 {
339   return g_strdup ("file");
340 }
341
342 static char *
343 g_local_file_get_basename (GFile *file)
344 {
345   return g_path_get_basename (G_LOCAL_FILE (file)->filename);
346 }
347
348 static char *
349 g_local_file_get_path (GFile *file)
350 {
351   return g_strdup (G_LOCAL_FILE (file)->filename);
352 }
353
354 static char *
355 g_local_file_get_uri (GFile *file)
356 {
357   return g_filename_to_uri (G_LOCAL_FILE (file)->filename, NULL, NULL);
358 }
359
360 static gboolean
361 get_filename_charset (const gchar **filename_charset)
362 {
363   const gchar **charsets;
364   gboolean is_utf8;
365   
366   is_utf8 = g_get_filename_charsets (&charsets);
367
368   if (filename_charset)
369     *filename_charset = charsets[0];
370   
371   return is_utf8;
372 }
373
374 static gboolean
375 name_is_valid_for_display (const char *string,
376                            gboolean    is_valid_utf8)
377 {
378   char c;
379
380   if (!is_valid_utf8 &&
381       !g_utf8_validate (string, -1, NULL))
382     return FALSE;
383
384   while ((c = *string++) != 0)
385     {
386       if (g_ascii_iscntrl (c))
387         return FALSE;
388     }
389
390   return TRUE;
391 }
392
393 static char *
394 g_local_file_get_parse_name (GFile *file)
395 {
396   const char *filename;
397   char *parse_name;
398   const gchar *charset;
399   char *utf8_filename;
400   char *roundtripped_filename;
401   gboolean free_utf8_filename;
402   gboolean is_valid_utf8;
403   char *escaped_path;
404   
405   filename = G_LOCAL_FILE (file)->filename;
406   if (get_filename_charset (&charset))
407     {
408       utf8_filename = (char *)filename;
409       free_utf8_filename = FALSE;
410       is_valid_utf8 = FALSE; /* Can't guarantee this */
411     }
412   else
413     {
414       utf8_filename = g_convert (filename, -1, 
415                                  "UTF-8", charset, NULL, NULL, NULL);
416       free_utf8_filename = TRUE;
417       is_valid_utf8 = TRUE;
418
419       if (utf8_filename != NULL)
420         {
421           /* Make sure we can roundtrip: */
422           roundtripped_filename = g_convert (utf8_filename, -1,
423                                              charset, "UTF-8", NULL, NULL, NULL);
424           
425           if (roundtripped_filename == NULL ||
426               strcmp (utf8_filename, roundtripped_filename) != 0)
427             {
428               g_free (utf8_filename);
429               utf8_filename = NULL;
430             }
431         }
432     }
433
434   if (utf8_filename != NULL &&
435       name_is_valid_for_display (utf8_filename, is_valid_utf8))
436     {
437       if (free_utf8_filename)
438         parse_name = utf8_filename;
439       else
440         parse_name = g_strdup (utf8_filename);
441     }
442   else
443     {
444       escaped_path = g_uri_escape_string (filename,
445                                           G_URI_RESERVED_CHARS_ALLOWED_IN_PATH_ELEMENT "/",
446                                           TRUE);
447       parse_name = g_strconcat ("file://",
448                                 (*escaped_path != '/') ? "/" : "",
449                                 escaped_path,
450                                 NULL);
451       
452       g_free (escaped_path);
453
454       if (free_utf8_filename)
455         g_free (utf8_filename);
456     }
457   
458   return parse_name;
459 }
460
461 static GFile *
462 g_local_file_get_parent (GFile *file)
463 {
464   GLocalFile *local = G_LOCAL_FILE (file);
465   const char *non_root;
466   char *dirname;
467   GFile *parent;
468
469   /* Check for root */
470   non_root = g_path_skip_root (local->filename);
471   if (*non_root == 0)
472     return NULL;
473
474   dirname = g_path_get_dirname (local->filename);
475   parent = _g_local_file_new (dirname);
476   g_free (dirname);
477   return parent;
478 }
479
480 static GFile *
481 g_local_file_dup (GFile *file)
482 {
483   GLocalFile *local = G_LOCAL_FILE (file);
484
485   return _g_local_file_new (local->filename);
486 }
487
488 static guint
489 g_local_file_hash (GFile *file)
490 {
491   GLocalFile *local = G_LOCAL_FILE (file);
492   
493   return g_str_hash (local->filename);
494 }
495
496 static gboolean
497 g_local_file_equal (GFile *file1,
498                     GFile *file2)
499 {
500   GLocalFile *local1 = G_LOCAL_FILE (file1);
501   GLocalFile *local2 = G_LOCAL_FILE (file2);
502
503   return g_str_equal (local1->filename, local2->filename);
504 }
505
506 static const char *
507 match_prefix (const char *path, 
508               const char *prefix)
509 {
510   int prefix_len;
511
512   prefix_len = strlen (prefix);
513   if (strncmp (path, prefix, prefix_len) != 0)
514     return NULL;
515   
516   /* Handle the case where prefix is the root, so that
517    * the IS_DIR_SEPRARATOR check below works */
518   if (prefix_len > 0 &&
519       G_IS_DIR_SEPARATOR (prefix[prefix_len-1]))
520     prefix_len--;
521   
522   return path + prefix_len;
523 }
524
525 static gboolean
526 g_local_file_prefix_matches (GFile *parent,
527                              GFile *descendant)
528 {
529   GLocalFile *parent_local = G_LOCAL_FILE (parent);
530   GLocalFile *descendant_local = G_LOCAL_FILE (descendant);
531   const char *remainder;
532
533   remainder = match_prefix (descendant_local->filename, parent_local->filename);
534   if (remainder != NULL && G_IS_DIR_SEPARATOR (*remainder))
535     return TRUE;
536   return FALSE;
537 }
538
539 static char *
540 g_local_file_get_relative_path (GFile *parent,
541                                 GFile *descendant)
542 {
543   GLocalFile *parent_local = G_LOCAL_FILE (parent);
544   GLocalFile *descendant_local = G_LOCAL_FILE (descendant);
545   const char *remainder;
546
547   remainder = match_prefix (descendant_local->filename, parent_local->filename);
548   
549   if (remainder != NULL && G_IS_DIR_SEPARATOR (*remainder))
550     return g_strdup (remainder + 1);
551   return NULL;
552 }
553
554 static GFile *
555 g_local_file_resolve_relative_path (GFile      *file,
556                                     const char *relative_path)
557 {
558   GLocalFile *local = G_LOCAL_FILE (file);
559   char *filename;
560   GFile *child;
561
562   if (g_path_is_absolute (relative_path))
563     return _g_local_file_new (relative_path);
564   
565   filename = g_build_filename (local->filename, relative_path, NULL);
566   child = _g_local_file_new (filename);
567   g_free (filename);
568   
569   return child;
570 }
571
572 static GFileEnumerator *
573 g_local_file_enumerate_children (GFile                *file,
574                                  const char           *attributes,
575                                  GFileQueryInfoFlags   flags,
576                                  GCancellable         *cancellable,
577                                  GError              **error)
578 {
579   GLocalFile *local = G_LOCAL_FILE (file);
580   return _g_local_file_enumerator_new (local,
581                                        attributes, flags,
582                                        cancellable, error);
583 }
584
585 static GFile *
586 g_local_file_get_child_for_display_name (GFile        *file,
587                                          const char   *display_name,
588                                          GError      **error)
589 {
590   GFile *parent, *new_file;
591   char *basename;
592
593   basename = g_filename_from_utf8 (display_name, -1, NULL, NULL, NULL);
594   if (basename == NULL)
595     {
596       g_set_error (error, G_IO_ERROR,
597                    G_IO_ERROR_INVALID_FILENAME,
598                    _("Invalid filename %s"), display_name);
599       return NULL;
600     }
601
602   parent = g_file_get_parent (file);
603   new_file = g_file_get_child (file, basename);
604   g_object_unref (parent);
605   g_free (basename);
606   
607   return new_file;
608 }
609
610 #ifdef USE_STATFS
611 static const char *
612 get_fs_type (long f_type)
613 {
614
615   /* filesystem ids taken from linux manpage */
616   switch (f_type) 
617     {
618     case 0xadf5:
619       return "adfs";
620     case 0x5346414f:
621       return "afs";
622     case 0x0187:
623       return "autofs";
624     case 0xADFF:
625       return "affs";
626     case 0x42465331:
627       return "befs";
628     case 0x1BADFACE:
629       return "bfs";
630     case 0xFF534D42:
631       return "cifs";
632     case 0x73757245:
633       return "coda";
634     case 0x012FF7B7:
635       return "coh";
636     case 0x28cd3d45:
637       return "cramfs";
638     case 0x1373:
639       return "devfs";
640     case 0x00414A53:
641       return "efs";
642     case 0x137D:
643       return "ext";
644     case 0xEF51:
645       return "ext2";
646     case 0xEF53:
647       return "ext3";
648     case 0x4244:
649       return "hfs";
650     case 0xF995E849:
651       return "hpfs";
652     case 0x958458f6:
653       return "hugetlbfs";
654     case 0x9660:
655       return "isofs";
656     case 0x72b6:
657       return "jffs2";
658     case 0x3153464a:
659       return "jfs";
660     case 0x137F:
661       return "minix";
662     case 0x138F:
663       return "minix2";
664     case 0x2468:
665       return "minix2";
666     case 0x2478:
667       return "minix22";
668     case 0x4d44:
669       return "msdos";
670     case 0x564c:
671       return "ncp";
672     case 0x6969:
673       return "nfs";
674     case 0x5346544e:
675       return "ntfs";
676     case 0x9fa1:
677       return "openprom";
678     case 0x9fa0:
679       return "proc";
680     case 0x002f:
681       return "qnx4";
682     case 0x52654973:
683       return "reiserfs";
684     case 0x7275:
685       return "romfs";
686     case 0x517B:
687       return "smb";
688     case 0x012FF7B6:
689       return "sysv2";
690     case 0x012FF7B5:
691       return "sysv4";
692     case 0x01021994:
693       return "tmpfs";
694     case 0x15013346:
695       return "udf";
696     case 0x00011954:
697       return "ufs";
698     case 0x9fa2:
699       return "usbdevice";
700     case 0xa501FCF5:
701       return "vxfs";
702     case 0x012FF7B4:
703       return "xenix";
704     case 0x58465342:
705       return "xfs";
706     case 0x012FD16D:
707       return "xiafs";
708     default:
709       return NULL;
710     }
711 }
712 #endif
713
714 #ifndef G_OS_WIN32
715
716 G_LOCK_DEFINE_STATIC(mount_info_hash);
717 static GHashTable *mount_info_hash = NULL;
718 static guint64 mount_info_hash_cache_time = 0;
719
720 typedef enum {
721   MOUNT_INFO_READONLY = 1<<0
722 } MountInfo;
723
724 static gboolean
725 device_equal (gconstpointer v1,
726               gconstpointer v2)
727 {
728   return *(dev_t *)v1 == *(dev_t *)v2;
729 }
730
731 static guint
732 device_hash (gconstpointer v)
733 {
734   return (guint) *(dev_t *)v;
735 }
736
737 static void
738 get_mount_info (GFileInfo             *fs_info,
739                 const char            *path,
740                 GFileAttributeMatcher *matcher)
741 {
742   struct stat buf;
743   gboolean got_info;
744   gpointer info_as_ptr;
745   guint mount_info;
746   char *mountpoint;
747   dev_t *dev;
748   GUnixMountEntry *mount;
749   guint64 cache_time;
750
751   if (g_lstat (path, &buf) != 0)
752     return;
753
754   G_LOCK (mount_info_hash);
755
756   if (mount_info_hash == NULL)
757     mount_info_hash = g_hash_table_new_full (device_hash, device_equal,
758                                              g_free, NULL);
759
760
761   if (g_unix_mounts_changed_since (mount_info_hash_cache_time))
762     g_hash_table_remove_all (mount_info_hash);
763   
764   got_info = g_hash_table_lookup_extended (mount_info_hash,
765                                            &buf.st_dev,
766                                            NULL,
767                                            &info_as_ptr);
768   
769   G_UNLOCK (mount_info_hash);
770   
771   mount_info = GPOINTER_TO_UINT (info_as_ptr);
772   
773   if (!got_info)
774     {
775       mount_info = 0;
776
777       mountpoint = find_mountpoint_for (path, buf.st_dev);
778       if (mountpoint == NULL)
779         mountpoint = "/";
780
781       mount = g_unix_mount_at (mountpoint, &cache_time);
782       if (mount)
783         {
784           if (g_unix_mount_is_readonly (mount))
785             mount_info |= MOUNT_INFO_READONLY;
786           
787           g_unix_mount_free (mount);
788         }
789
790       dev = g_new0 (dev_t, 1);
791       *dev = buf.st_dev;
792       
793       G_LOCK (mount_info_hash);
794       mount_info_hash_cache_time = cache_time;
795       g_hash_table_insert (mount_info_hash, dev, GUINT_TO_POINTER (mount_info));
796       G_UNLOCK (mount_info_hash);
797     }
798
799   if (mount_info & MOUNT_INFO_READONLY)
800     g_file_info_set_attribute_boolean (fs_info, G_FILE_ATTRIBUTE_FILESYSTEM_READONLY, TRUE);
801 }
802
803 #endif
804
805 #ifdef G_OS_WIN32
806
807 static gboolean
808 is_xp_or_later (void)
809 {
810   static int result = -1;
811
812   if (result == -1)
813     {
814 #ifndef _MSC_VER    
815       OSVERSIONINFOEX ver_info = {0};
816       DWORDLONG cond_mask = 0;
817       int op = VER_GREATER_EQUAL;
818
819       ver_info.dwOSVersionInfoSize = sizeof ver_info;
820       ver_info.dwMajorVersion = 5;
821       ver_info.dwMinorVersion = 1;
822
823       VER_SET_CONDITION (cond_mask, VER_MAJORVERSION, op);
824       VER_SET_CONDITION (cond_mask, VER_MINORVERSION, op);
825
826       result = VerifyVersionInfo (&ver_info,
827                                   VER_MAJORVERSION | VER_MINORVERSION, 
828                                   cond_mask) != 0;
829 #else
830       result = ((DWORD)(LOBYTE (LOWORD (GetVersion ())))) >= 5;  
831 #endif
832     }
833
834   return result;
835 }
836
837 static wchar_t *
838 get_volume_for_path (const char *path)
839 {
840   long len;
841   wchar_t *wpath;
842   wchar_t *result;
843
844   wpath = g_utf8_to_utf16 (path, -1, NULL, &len, NULL);
845   result = g_new (wchar_t, len + 2);
846
847   if (!GetVolumePathNameW (wpath, result, len + 2))
848     {
849       char *msg = g_win32_error_message (GetLastError ());
850       g_critical ("GetVolumePathName failed: %s", msg);
851       g_free (msg);
852       g_free (result);
853       g_free (wpath);
854       return NULL;
855     }
856
857   len = wcslen (result);
858   if (len > 0 && result[len-1] != L'\\')
859     {
860       result = g_renew (wchar_t, result, len + 2);
861       result[len] = L'\\';
862       result[len + 1] = 0;
863     }
864
865   g_free (wpath);
866   return result;
867 }
868
869 static char *
870 find_mountpoint_for (const char *file, dev_t dev)
871 {
872   wchar_t *wpath;
873   char *utf8_path;
874
875   wpath = get_volume_for_path (file);
876   if (!wpath)
877     return NULL;
878
879   utf8_path = g_utf16_to_utf8 (wpath, -1, NULL, NULL, NULL);
880
881   g_free (wpath);
882   return utf8_path;
883 }
884
885 static void
886 get_filesystem_readonly (GFileInfo  *info,
887                          const char *path)
888 {
889   wchar_t *rootdir;
890
891   rootdir = get_volume_for_path (path);
892
893   if (rootdir)
894     {
895       if (is_xp_or_later ())
896         {
897           DWORD flags;
898           if (GetVolumeInformationW (rootdir, NULL, 0, NULL, NULL, &flags, NULL, 0))
899             g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_FILESYSTEM_READONLY,
900                                                (flags & FILE_READ_ONLY_VOLUME) != 0);
901         }
902       else
903         {
904           if (GetDriveTypeW (rootdir) == DRIVE_CDROM)
905             g_file_info_set_attribute_boolean (info, G_FILE_ATTRIBUTE_FILESYSTEM_READONLY, TRUE);
906         }
907     }
908
909   g_free (rootdir);
910 }
911
912 #endif /* G_OS_WIN32 */
913
914 static GFileInfo *
915 g_local_file_query_filesystem_info (GFile         *file,
916                                     const char    *attributes,
917                                     GCancellable  *cancellable,
918                                     GError       **error)
919 {
920   GLocalFile *local = G_LOCAL_FILE (file);
921   GFileInfo *info;
922   int statfs_result = 0;
923   gboolean no_size;
924 #ifndef G_OS_WIN32
925   guint64 block_size;
926   const char *fstype;
927 #ifdef USE_STATFS
928   struct statfs statfs_buffer;
929 #elif defined(USE_STATVFS)
930   struct statvfs statfs_buffer;
931 #endif
932 #endif
933   GFileAttributeMatcher *attribute_matcher;
934         
935   no_size = FALSE;
936   
937 #ifdef USE_STATFS
938   
939 #if STATFS_ARGS == 2
940   statfs_result = statfs (local->filename, &statfs_buffer);
941 #elif STATFS_ARGS == 4
942   statfs_result = statfs (local->filename, &statfs_buffer,
943                           sizeof (statfs_buffer), 0);
944 #endif
945   block_size = statfs_buffer.f_bsize;
946   
947 #if defined(__linux__)
948   /* ncpfs does not know the amount of available and free space *
949    * assuming ncpfs is linux specific, if you are on a non-linux platform
950    * where ncpfs is available, please file a bug about it on bugzilla.gnome.org
951    */
952   if (statfs_buffer.f_bavail == 0 && statfs_buffer.f_bfree == 0 &&
953       /* linux/ncp_fs.h: NCP_SUPER_MAGIC == 0x564c */
954       statfs_buffer.f_type == 0x564c)
955     no_size = TRUE;
956 #endif
957   
958 #elif defined(USE_STATVFS)
959   statfs_result = statvfs (local->filename, &statfs_buffer);
960   block_size = statfs_buffer.f_frsize; 
961 #endif
962
963   if (statfs_result == -1)
964     {
965       int errsv = errno;
966
967       g_set_error (error, G_IO_ERROR,
968                    g_io_error_from_errno (errsv),
969                    _("Error getting filesystem info: %s"),
970                    g_strerror (errsv));
971       return NULL;
972     }
973
974   info = g_file_info_new ();
975
976   attribute_matcher = g_file_attribute_matcher_new (attributes);
977   
978   if (!no_size &&
979       g_file_attribute_matcher_matches (attribute_matcher,
980                                         G_FILE_ATTRIBUTE_FILESYSTEM_FREE))
981     {
982 #ifdef G_OS_WIN32
983       gchar *localdir = g_path_get_dirname (local->filename);
984       wchar_t *wdirname = g_utf8_to_utf16 (localdir, -1, NULL, NULL, NULL);
985       ULARGE_INTEGER li;
986       
987       g_free (localdir);
988       if (GetDiskFreeSpaceExW (wdirname, &li, NULL, NULL))
989         g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_FILESYSTEM_FREE, (guint64)li.QuadPart);
990       g_free (wdirname);
991 #else
992       g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_FILESYSTEM_FREE, block_size * statfs_buffer.f_bavail);
993 #endif
994     }
995   if (!no_size &&
996       g_file_attribute_matcher_matches (attribute_matcher,
997                                         G_FILE_ATTRIBUTE_FILESYSTEM_SIZE))
998     {
999 #ifdef G_OS_WIN32
1000       gchar *localdir = g_path_get_dirname (local->filename);
1001       wchar_t *wdirname = g_utf8_to_utf16 (localdir, -1, NULL, NULL, NULL);
1002       ULARGE_INTEGER li;
1003       
1004       g_free (localdir);
1005       if (GetDiskFreeSpaceExW (wdirname, NULL, &li, NULL))
1006         g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_FILESYSTEM_SIZE,  (guint64)li.QuadPart);
1007       g_free (wdirname);
1008 #else
1009       g_file_info_set_attribute_uint64 (info, G_FILE_ATTRIBUTE_FILESYSTEM_SIZE, block_size * statfs_buffer.f_blocks);
1010 #endif
1011     }
1012 #ifdef USE_STATFS
1013 #if defined(HAVE_STRUCT_STATFS_F_FSTYPENAME)
1014   fstype = g_strdup(statfs_buffer.f_fstypename);
1015 #else
1016   fstype = get_fs_type (statfs_buffer.f_type);
1017 #endif
1018
1019 #elif defined(USE_STATVFS) && defined(HAVE_STRUCT_STATVFS_F_BASETYPE)
1020   fstype = g_strdup(statfs_buffer.f_basetype); 
1021 #endif
1022
1023 #ifndef G_OS_WIN32
1024   if (fstype &&
1025       g_file_attribute_matcher_matches (attribute_matcher,
1026                                         G_FILE_ATTRIBUTE_FILESYSTEM_TYPE))
1027     g_file_info_set_attribute_string (info, G_FILE_ATTRIBUTE_FILESYSTEM_TYPE, fstype);
1028 #endif  
1029
1030   if (g_file_attribute_matcher_matches (attribute_matcher,
1031                                         G_FILE_ATTRIBUTE_FILESYSTEM_READONLY))
1032     {
1033 #ifdef G_OS_WIN32
1034       get_filesystem_readonly (info, local->filename);
1035 #else
1036       get_mount_info (info, local->filename, attribute_matcher);
1037 #endif
1038     }
1039   
1040   g_file_attribute_matcher_unref (attribute_matcher);
1041   
1042   return info;
1043 }
1044
1045 static GMount *
1046 g_local_file_find_enclosing_mount (GFile         *file,
1047                                    GCancellable  *cancellable,
1048                                    GError       **error)
1049 {
1050   GLocalFile *local = G_LOCAL_FILE (file);
1051   struct stat buf;
1052   char *mountpoint;
1053   GMount *mount;
1054
1055   if (g_lstat (local->filename, &buf) != 0)
1056     {
1057       g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_FOUND,
1058                       /* Translators: This is an error message when trying to
1059                        * find the enclosing (user visible) mount of a file, but
1060                        * none exists. */
1061                       _("Containing mount does not exist"));
1062       return NULL;
1063     }
1064
1065   mountpoint = find_mountpoint_for (local->filename, buf.st_dev);
1066   if (mountpoint == NULL)
1067     {
1068       g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_FOUND,
1069                       /* Translators: This is an error message when trying to
1070                        * find the enclosing (user visible) mount of a file, but
1071                        * none exists. */
1072                       _("Containing mount does not exist"));
1073       return NULL;
1074     }
1075
1076   mount = _g_mount_get_for_mount_path (mountpoint, cancellable);
1077   g_free (mountpoint);
1078   if (mount)
1079     return mount;
1080
1081   g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_FOUND,
1082                   /* Translators: This is an error message when trying to find
1083                    * the enclosing (user visible) mount of a file, but none
1084                    * exists. */
1085                   _("Containing mount does not exist"));
1086   return NULL;
1087 }
1088
1089 static GFile *
1090 g_local_file_set_display_name (GFile         *file,
1091                                const char    *display_name,
1092                                GCancellable  *cancellable,
1093                                GError       **error)
1094 {
1095   GLocalFile *local, *new_local;
1096   GFile *new_file, *parent;
1097   struct stat statbuf;
1098   int errsv;
1099
1100   parent = g_file_get_parent (file);
1101   if (parent == NULL)
1102     {
1103       g_set_error_literal (error, G_IO_ERROR,
1104                            G_IO_ERROR_FAILED,
1105                            _("Can't rename root directory"));
1106       return NULL;
1107     }
1108   
1109   new_file = g_file_get_child_for_display_name (parent, display_name, error);
1110   g_object_unref (parent);
1111   
1112   if (new_file == NULL)
1113     return NULL;
1114   
1115   local = G_LOCAL_FILE (file);
1116   new_local = G_LOCAL_FILE (new_file);
1117
1118   if (!(g_lstat (new_local->filename, &statbuf) == -1 &&
1119         errno == ENOENT))
1120     {
1121       g_set_error_literal (error, G_IO_ERROR,
1122                            G_IO_ERROR_EXISTS,
1123                            _("Can't rename file, filename already exist"));
1124       return NULL;
1125     }
1126
1127   if (g_rename (local->filename, new_local->filename) == -1)
1128     {
1129       errsv = errno;
1130
1131       if (errsv == EINVAL)
1132         /* We can't get a rename file into itself error herer,
1133            so this must be an invalid filename, on e.g. FAT */
1134         g_set_error_literal (error, G_IO_ERROR,
1135                              G_IO_ERROR_INVALID_FILENAME,
1136                              _("Invalid filename"));
1137       else
1138         g_set_error (error, G_IO_ERROR,
1139                      g_io_error_from_errno (errsv),
1140                      _("Error renaming file: %s"),
1141                      g_strerror (errsv));
1142       g_object_unref (new_file);
1143       return NULL;
1144     }
1145   
1146   return new_file;
1147 }
1148
1149 static GFileInfo *
1150 g_local_file_query_info (GFile                *file,
1151                          const char           *attributes,
1152                          GFileQueryInfoFlags   flags,
1153                          GCancellable         *cancellable,
1154                          GError              **error)
1155 {
1156   GLocalFile *local = G_LOCAL_FILE (file);
1157   GFileInfo *info;
1158   GFileAttributeMatcher *matcher;
1159   char *basename, *dirname;
1160   GLocalParentFileInfo parent_info;
1161
1162   matcher = g_file_attribute_matcher_new (attributes);
1163   
1164   basename = g_path_get_basename (local->filename);
1165   
1166   dirname = g_path_get_dirname (local->filename);
1167   _g_local_file_info_get_parent_info (dirname, matcher, &parent_info);
1168   g_free (dirname);
1169   
1170   info = _g_local_file_info_get (basename, local->filename,
1171                                  matcher, flags, &parent_info,
1172                                  error);
1173   
1174   g_free (basename);
1175
1176   g_file_attribute_matcher_unref (matcher);
1177
1178   return info;
1179 }
1180
1181 static GFileAttributeInfoList *
1182 g_local_file_query_settable_attributes (GFile         *file,
1183                                         GCancellable  *cancellable,
1184                                         GError       **error)
1185 {
1186   return g_file_attribute_info_list_ref (local_writable_attributes);
1187 }
1188
1189 static GFileAttributeInfoList *
1190 g_local_file_query_writable_namespaces (GFile         *file,
1191                                         GCancellable  *cancellable,
1192                                         GError       **error)
1193 {
1194   return g_file_attribute_info_list_ref (local_writable_namespaces);
1195 }
1196
1197 static gboolean
1198 g_local_file_set_attribute (GFile                *file,
1199                             const char           *attribute,
1200                             GFileAttributeType    type,
1201                             gpointer              value_p,
1202                             GFileQueryInfoFlags   flags,
1203                             GCancellable         *cancellable,
1204                             GError              **error)
1205 {
1206   GLocalFile *local = G_LOCAL_FILE (file);
1207
1208   return _g_local_file_info_set_attribute (local->filename,
1209                                            attribute,
1210                                            type,
1211                                            value_p,
1212                                            flags,
1213                                            cancellable,
1214                                            error);
1215 }
1216
1217 static gboolean
1218 g_local_file_set_attributes_from_info (GFile                *file,
1219                                        GFileInfo            *info,
1220                                        GFileQueryInfoFlags   flags,
1221                                        GCancellable         *cancellable,
1222                                        GError              **error)
1223 {
1224   GLocalFile *local = G_LOCAL_FILE (file);
1225   int res, chained_res;
1226   GFileIface *default_iface;
1227
1228   res = _g_local_file_info_set_attributes (local->filename,
1229                                            info, flags, 
1230                                            cancellable,
1231                                            error);
1232
1233   if (!res)
1234     error = NULL; /* Don't write over error if further errors */
1235
1236   default_iface = g_type_default_interface_peek (G_TYPE_FILE);
1237
1238   chained_res = (default_iface->set_attributes_from_info) (file, info, flags, cancellable, error);
1239   
1240   return res && chained_res;
1241 }
1242
1243 static GFileInputStream *
1244 g_local_file_read (GFile         *file,
1245                    GCancellable  *cancellable,
1246                    GError       **error)
1247 {
1248   GLocalFile *local = G_LOCAL_FILE (file);
1249   int fd;
1250   struct stat buf;
1251   
1252   fd = g_open (local->filename, O_RDONLY|O_BINARY, 0);
1253   if (fd == -1)
1254     {
1255       int errsv = errno;
1256
1257       g_set_error (error, G_IO_ERROR,
1258                    g_io_error_from_errno (errsv),
1259                    _("Error opening file: %s"),
1260                    g_strerror (errsv));
1261       return NULL;
1262     }
1263
1264   if (fstat(fd, &buf) == 0 && S_ISDIR (buf.st_mode))
1265     {
1266       close (fd);
1267       g_set_error_literal (error, G_IO_ERROR,
1268                            G_IO_ERROR_IS_DIRECTORY,
1269                            _("Can't open directory"));
1270       return NULL;
1271     }
1272   
1273   return _g_local_file_input_stream_new (fd);
1274 }
1275
1276 static GFileOutputStream *
1277 g_local_file_append_to (GFile             *file,
1278                         GFileCreateFlags   flags,
1279                         GCancellable      *cancellable,
1280                         GError           **error)
1281 {
1282   return _g_local_file_output_stream_append (G_LOCAL_FILE (file)->filename,
1283                                              flags, cancellable, error);
1284 }
1285
1286 static GFileOutputStream *
1287 g_local_file_create (GFile             *file,
1288                      GFileCreateFlags   flags,
1289                      GCancellable      *cancellable,
1290                      GError           **error)
1291 {
1292   return _g_local_file_output_stream_create (G_LOCAL_FILE (file)->filename,
1293                                              flags, cancellable, error);
1294 }
1295
1296 static GFileOutputStream *
1297 g_local_file_replace (GFile             *file,
1298                       const char        *etag,
1299                       gboolean           make_backup,
1300                       GFileCreateFlags   flags,
1301                       GCancellable      *cancellable,
1302                       GError           **error)
1303 {
1304   return _g_local_file_output_stream_replace (G_LOCAL_FILE (file)->filename,
1305                                               etag, make_backup, flags,
1306                                               cancellable, error);
1307 }
1308
1309
1310 static gboolean
1311 g_local_file_delete (GFile         *file,
1312                      GCancellable  *cancellable,
1313                      GError       **error)
1314 {
1315   GLocalFile *local = G_LOCAL_FILE (file);
1316   
1317   if (g_remove (local->filename) == -1)
1318     {
1319       int errsv = errno;
1320
1321       /* Posix allows EEXIST too, but the more sane error
1322          is G_IO_ERROR_NOT_FOUND, and its what nautilus
1323          expects */
1324       if (errsv == EEXIST)
1325         errsv = ENOTEMPTY;
1326
1327       g_set_error (error, G_IO_ERROR,
1328                    g_io_error_from_errno (errsv),
1329                    _("Error removing file: %s"),
1330                    g_strerror (errsv));
1331       return FALSE;
1332     }
1333   
1334   return TRUE;
1335 }
1336
1337 static char *
1338 strip_trailing_slashes (const char *path)
1339 {
1340   char *path_copy;
1341   int len;
1342
1343   path_copy = g_strdup (path);
1344   len = strlen (path_copy);
1345   while (len > 1 && path_copy[len-1] == '/')
1346     path_copy[--len] = 0;
1347
1348   return path_copy;
1349  }
1350
1351 static char *
1352 expand_symlink (const char *link)
1353 {
1354   char *resolved, *canonical, *parent, *link2;
1355   char symlink_value[4096];
1356 #ifdef G_OS_WIN32
1357 #else
1358   ssize_t res;
1359 #endif
1360   
1361 #ifdef G_OS_WIN32
1362 #else
1363   res = readlink (link, symlink_value, sizeof (symlink_value) - 1);
1364   
1365   if (res == -1)
1366     return g_strdup (link);
1367   symlink_value[res] = 0;
1368 #endif
1369   
1370   if (g_path_is_absolute (symlink_value))
1371     return canonicalize_filename (symlink_value);
1372   else
1373     {
1374       link2 = strip_trailing_slashes (link);
1375       parent = g_path_get_dirname (link2);
1376       g_free (link2);
1377       
1378       resolved = g_build_filename (parent, symlink_value, NULL);
1379       g_free (parent);
1380       
1381       canonical = canonicalize_filename (resolved);
1382       
1383       g_free (resolved);
1384
1385       return canonical;
1386     }
1387 }
1388
1389 static char *
1390 get_parent (const char *path, 
1391             dev_t      *parent_dev)
1392 {
1393   char *parent, *tmp;
1394   struct stat parent_stat;
1395   int num_recursions;
1396   char *path_copy;
1397
1398   path_copy = strip_trailing_slashes (path);
1399   
1400   parent = g_path_get_dirname (path_copy);
1401   if (strcmp (parent, ".") == 0 ||
1402       strcmp (parent, path_copy) == 0)
1403     {
1404       g_free (parent);
1405       g_free (path_copy);
1406       return NULL;
1407     }
1408   g_free (path_copy);
1409
1410   num_recursions = 0;
1411   do {
1412     if (g_lstat (parent, &parent_stat) != 0)
1413       {
1414         g_free (parent);
1415         return NULL;
1416       }
1417     
1418     if (S_ISLNK (parent_stat.st_mode))
1419       {
1420         tmp = parent;
1421         parent = expand_symlink (parent);
1422         g_free (tmp);
1423       }
1424     
1425     num_recursions++;
1426     if (num_recursions > 12)
1427       {
1428         g_free (parent);
1429         return NULL;
1430       }
1431   } while (S_ISLNK (parent_stat.st_mode));
1432
1433   *parent_dev = parent_stat.st_dev;
1434   
1435   return parent;
1436 }
1437
1438 static char *
1439 expand_all_symlinks (const char *path)
1440 {
1441   char *parent, *parent_expanded;
1442   char *basename, *res;
1443   dev_t parent_dev;
1444
1445   parent = get_parent (path, &parent_dev);
1446   if (parent)
1447     {
1448       parent_expanded = expand_all_symlinks (parent);
1449       g_free (parent);
1450       basename = g_path_get_basename (path);
1451       res = g_build_filename (parent_expanded, basename, NULL);
1452       g_free (basename);
1453       g_free (parent_expanded);
1454     }
1455   else
1456     res = g_strdup (path);
1457   
1458   return res;
1459 }
1460
1461 #ifndef G_OS_WIN32
1462
1463 static char *
1464 find_mountpoint_for (const char *file, 
1465                      dev_t       dev)
1466 {
1467   char *dir, *parent;
1468   dev_t dir_dev, parent_dev;
1469
1470   dir = g_strdup (file);
1471   dir_dev = dev;
1472
1473   while (1) 
1474     {
1475       parent = get_parent (dir, &parent_dev);
1476       if (parent == NULL)
1477         return dir;
1478     
1479       if (parent_dev != dir_dev)
1480         {
1481           g_free (parent);
1482           return dir;
1483         }
1484     
1485       g_free (dir);
1486       dir = parent;
1487     }
1488 }
1489
1490 static char *
1491 find_topdir_for (const char *file)
1492 {
1493   char *dir;
1494   dev_t dir_dev;
1495
1496   dir = get_parent (file, &dir_dev);
1497   if (dir == NULL)
1498     return NULL;
1499
1500   return find_mountpoint_for (dir, dir_dev);
1501 }
1502
1503 static char *
1504 get_unique_filename (const char *basename, 
1505                      int         id)
1506 {
1507   const char *dot;
1508       
1509   if (id == 1)
1510     return g_strdup (basename);
1511
1512   dot = strchr (basename, '.');
1513   if (dot)
1514     return g_strdup_printf ("%.*s.%d%s", (int)(dot - basename), basename, id, dot);
1515   else
1516     return g_strdup_printf ("%s.%d", basename, id);
1517 }
1518
1519 static gboolean
1520 path_has_prefix (const char *path, 
1521                  const char *prefix)
1522 {
1523   int prefix_len;
1524
1525   if (prefix == NULL)
1526     return TRUE;
1527
1528   prefix_len = strlen (prefix);
1529   
1530   if (strncmp (path, prefix, prefix_len) == 0 &&
1531       (prefix_len == 0 || /* empty prefix always matches */
1532        prefix[prefix_len - 1] == '/' || /* last char in prefix was a /, so it must be in path too */
1533        path[prefix_len] == 0 ||
1534        path[prefix_len] == '/'))
1535     return TRUE;
1536   
1537   return FALSE;
1538 }
1539
1540 static char *
1541 try_make_relative (const char *path, 
1542                    const char *base)
1543 {
1544   char *path2, *base2;
1545   char *relative;
1546
1547   path2 = expand_all_symlinks (path);
1548   base2 = expand_all_symlinks (base);
1549
1550   relative = NULL;
1551   if (path_has_prefix (path2, base2))
1552     {
1553       relative = path2 + strlen (base2);
1554       while (*relative == '/')
1555         relative ++;
1556       relative = g_strdup (relative);
1557     }
1558   g_free (path2);
1559   g_free (base2);
1560
1561   if (relative)
1562     return relative;
1563   
1564   /* Failed, use abs path */
1565   return g_strdup (path);
1566 }
1567
1568 static char *
1569 escape_trash_name (char *name)
1570 {
1571   GString *str;
1572   const gchar hex[16] = "0123456789ABCDEF";
1573   
1574   str = g_string_new ("");
1575
1576   while (*name != 0)
1577     {
1578       char c;
1579
1580       c = *name++;
1581
1582       if (g_ascii_isprint (c))
1583         g_string_append_c (str, c);
1584       else
1585         {
1586           g_string_append_c (str, '%');
1587           g_string_append_c (str, hex[((guchar)c) >> 4]);
1588           g_string_append_c (str, hex[((guchar)c) & 0xf]);
1589         }
1590     }
1591
1592   return g_string_free (str, FALSE);
1593 }
1594
1595 gboolean
1596 _g_local_file_has_trash_dir (const char *dirname, dev_t dir_dev)
1597 {
1598   static gsize home_dev_set = 0;
1599   static dev_t home_dev;
1600   char *topdir, *globaldir, *trashdir, *tmpname;
1601   uid_t uid;
1602   char uid_str[32];
1603   struct stat global_stat, trash_stat;
1604   gboolean res;
1605   int statres;
1606       
1607   if (g_once_init_enter (&home_dev_set))
1608     {
1609       struct stat home_stat;
1610       
1611       g_stat (g_get_home_dir (), &home_stat);
1612       home_dev = home_stat.st_dev;
1613       g_once_init_leave (&home_dev_set, 1);
1614     }
1615
1616   /* Assume we can trash to the home */
1617   if (dir_dev == home_dev)
1618     return TRUE;
1619
1620   topdir = find_mountpoint_for (dirname, dir_dev);
1621   if (topdir == NULL)
1622     return FALSE;
1623
1624   globaldir = g_build_filename (topdir, ".Trash", NULL); 
1625   statres = g_lstat (globaldir, &global_stat);
1626  if (g_lstat (globaldir, &global_stat) == 0 &&
1627       S_ISDIR (global_stat.st_mode) &&
1628       (global_stat.st_mode & S_ISVTX) != 0)
1629     {
1630       /* got a toplevel sysadmin created dir, assume we
1631        * can trash to it (we should be able to create a dir)
1632        * This fails for the FAT case where the ownership of
1633        * that dir would be wrong though..
1634        */
1635       g_free (globaldir);
1636       g_free (topdir);
1637       return TRUE;
1638     }
1639   g_free (globaldir);
1640
1641   /* No global trash dir, or it failed the tests, fall back to $topdir/.Trash-$uid */
1642   uid = geteuid ();
1643   g_snprintf (uid_str, sizeof (uid_str), "%lu", (unsigned long) uid);
1644   
1645   tmpname = g_strdup_printf (".Trash-%s", uid_str);
1646   trashdir = g_build_filename (topdir, tmpname, NULL);
1647   g_free (tmpname);
1648
1649   if (g_lstat (trashdir, &trash_stat) == 0)
1650     {
1651       g_free (topdir);
1652       g_free (trashdir);
1653       return
1654         S_ISDIR (trash_stat.st_mode) &&
1655         trash_stat.st_uid == uid;
1656     }
1657   g_free (trashdir);
1658
1659   /* User specific trash didn't exist, can we create it? */
1660   res = g_access (topdir, W_OK) == 0;
1661   
1662   g_free (topdir);
1663   
1664   return res;
1665 }
1666
1667
1668 static gboolean
1669 g_local_file_trash (GFile         *file,
1670                     GCancellable  *cancellable,
1671                     GError       **error)
1672 {
1673   GLocalFile *local = G_LOCAL_FILE (file);
1674   struct stat file_stat, home_stat;
1675   const char *homedir;
1676   char *trashdir, *topdir, *infodir, *filesdir;
1677   char *basename, *trashname, *trashfile, *infoname, *infofile;
1678   char *original_name, *original_name_escaped;
1679   int i;
1680   char *data;
1681   gboolean is_homedir_trash;
1682   char delete_time[32];
1683   int fd;
1684   struct stat trash_stat, global_stat;
1685   char *dirname, *globaldir;
1686   
1687   if (g_lstat (local->filename, &file_stat) != 0)
1688     {
1689       int errsv = errno;
1690
1691       g_set_error (error, G_IO_ERROR,
1692                    g_io_error_from_errno (errsv),
1693                    _("Error trashing file: %s"),
1694                    g_strerror (errsv));
1695       return FALSE;
1696     }
1697     
1698   homedir = g_get_home_dir ();
1699   g_stat (homedir, &home_stat);
1700
1701   is_homedir_trash = FALSE;
1702   trashdir = NULL;
1703   if (file_stat.st_dev == home_stat.st_dev)
1704     {
1705       is_homedir_trash = TRUE;
1706       errno = 0;
1707       trashdir = g_build_filename (g_get_user_data_dir (), "Trash", NULL);
1708       if (g_mkdir_with_parents (trashdir, 0700) < 0)
1709         {
1710           char *display_name;
1711           int errsv = errno;
1712
1713           display_name = g_filename_display_name (trashdir);
1714           g_set_error (error, G_IO_ERROR,
1715                        g_io_error_from_errno (errsv),
1716                        _("Unable to create trash dir %s: %s"),
1717                        display_name, g_strerror (errsv));
1718           g_free (display_name);
1719           g_free (trashdir);
1720           return FALSE;
1721         }
1722       topdir = g_strdup (g_get_user_data_dir ());
1723     }
1724   else
1725     {
1726       uid_t uid;
1727       char uid_str[32];
1728
1729       uid = geteuid ();
1730       g_snprintf (uid_str, sizeof (uid_str), "%lu", (unsigned long)uid);
1731       
1732       topdir = find_topdir_for (local->filename);
1733       if (topdir == NULL)
1734         {
1735           g_set_error_literal (error, G_IO_ERROR,
1736                                G_IO_ERROR_NOT_SUPPORTED,
1737                                _("Unable to find toplevel directory for trash"));
1738           return FALSE;
1739         }
1740       
1741       /* Try looking for global trash dir $topdir/.Trash/$uid */
1742       globaldir = g_build_filename (topdir, ".Trash", NULL);
1743       if (g_lstat (globaldir, &global_stat) == 0 &&
1744           S_ISDIR (global_stat.st_mode) &&
1745           (global_stat.st_mode & S_ISVTX) != 0)
1746         {
1747           trashdir = g_build_filename (globaldir, uid_str, NULL);
1748
1749           if (g_lstat (trashdir, &trash_stat) == 0)
1750             {
1751               if (!S_ISDIR (trash_stat.st_mode) ||
1752                   trash_stat.st_uid != uid)
1753                 {
1754                   /* Not a directory or not owned by user, ignore */
1755                   g_free (trashdir);
1756                   trashdir = NULL;
1757                 }
1758             }
1759           else if (g_mkdir (trashdir, 0700) == -1)
1760             {
1761               g_free (trashdir);
1762               trashdir = NULL;
1763             }
1764         }
1765       g_free (globaldir);
1766
1767       if (trashdir == NULL)
1768         {
1769           gboolean tried_create;
1770           
1771           /* No global trash dir, or it failed the tests, fall back to $topdir/.Trash-$uid */
1772           dirname = g_strdup_printf (".Trash-%s", uid_str);
1773           trashdir = g_build_filename (topdir, dirname, NULL);
1774           g_free (dirname);
1775
1776           tried_create = FALSE;
1777
1778         retry:
1779           if (g_lstat (trashdir, &trash_stat) == 0)
1780             {
1781               if (!S_ISDIR (trash_stat.st_mode) ||
1782                   trash_stat.st_uid != uid)
1783                 {
1784                   /* Remove the failed directory */
1785                   if (tried_create)
1786                     g_remove (trashdir);
1787                   
1788                   /* Not a directory or not owned by user, ignore */
1789                   g_free (trashdir);
1790                   trashdir = NULL;
1791                 }
1792             }
1793           else
1794             {
1795               if (!tried_create &&
1796                   g_mkdir (trashdir, 0700) != -1)
1797                 {
1798                   /* Ensure that the created dir has the right uid etc.
1799                      This might fail on e.g. a FAT dir */
1800                   tried_create = TRUE;
1801                   goto retry;
1802                 }
1803               else
1804                 {
1805                   g_free (trashdir);
1806                   trashdir = NULL;
1807                 }
1808             }
1809         }
1810
1811       if (trashdir == NULL)
1812         {
1813           g_free (topdir);
1814           g_set_error_literal (error, G_IO_ERROR,
1815                                G_IO_ERROR_NOT_SUPPORTED,
1816                                _("Unable to find or create trash directory"));
1817           return FALSE;
1818         }
1819     }
1820
1821   /* Trashdir points to the trash dir with the "info" and "files" subdirectories */
1822
1823   infodir = g_build_filename (trashdir, "info", NULL);
1824   filesdir = g_build_filename (trashdir, "files", NULL);
1825   g_free (trashdir);
1826
1827   /* Make sure we have the subdirectories */
1828   if ((g_mkdir (infodir, 0700) == -1 && errno != EEXIST) ||
1829       (g_mkdir (filesdir, 0700) == -1 && errno != EEXIST))
1830     {
1831       g_free (topdir);
1832       g_free (infodir);
1833       g_free (filesdir);
1834       g_set_error_literal (error, G_IO_ERROR,
1835                            G_IO_ERROR_NOT_SUPPORTED,
1836                            _("Unable to find or create trash directory"));
1837       return FALSE;
1838     }  
1839
1840   basename = g_path_get_basename (local->filename);
1841   i = 1;
1842   trashname = NULL;
1843   infofile = NULL;
1844   do {
1845     g_free (trashname);
1846     g_free (infofile);
1847     
1848     trashname = get_unique_filename (basename, i++);
1849     infoname = g_strconcat (trashname, ".trashinfo", NULL);
1850     infofile = g_build_filename (infodir, infoname, NULL);
1851     g_free (infoname);
1852
1853     fd = open (infofile, O_CREAT | O_EXCL, 0666);
1854   } while (fd == -1 && errno == EEXIST);
1855
1856   g_free (basename);
1857   g_free (infodir);
1858
1859   if (fd == -1)
1860     {
1861       int errsv = errno;
1862
1863       g_free (filesdir);
1864       g_free (topdir);
1865       g_free (trashname);
1866       g_free (infofile);
1867       
1868       g_set_error (error, G_IO_ERROR,
1869                    g_io_error_from_errno (errsv),
1870                    _("Unable to create trashing info file: %s"),
1871                    g_strerror (errsv));
1872       return FALSE;
1873     }
1874
1875   close (fd);
1876
1877   /* TODO: Maybe we should verify that you can delete the file from the trash
1878      before moving it? OTOH, that is hard, as it needs a recursive scan */
1879
1880   trashfile = g_build_filename (filesdir, trashname, NULL);
1881
1882   g_free (filesdir);
1883
1884   if (g_rename (local->filename, trashfile) == -1)
1885     {
1886       int errsv = errno;
1887
1888       g_free (topdir);
1889       g_free (trashname);
1890       g_free (infofile);
1891       g_free (trashfile);
1892       
1893       g_set_error (error, G_IO_ERROR,
1894                    g_io_error_from_errno (errsv),
1895                    _("Unable to trash file: %s"),
1896                    g_strerror (errsv));
1897       return FALSE;
1898     }
1899
1900   g_free (trashfile);
1901
1902   /* TODO: Do we need to update mtime/atime here after the move? */
1903
1904   /* Use absolute names for homedir */
1905   if (is_homedir_trash)
1906     original_name = g_strdup (local->filename);
1907   else
1908     original_name = try_make_relative (local->filename, topdir);
1909   original_name_escaped = escape_trash_name (original_name);
1910   
1911   g_free (original_name);
1912   g_free (topdir);
1913   
1914   {
1915     time_t t;
1916     struct tm now;
1917     t = time (NULL);
1918     localtime_r (&t, &now);
1919     delete_time[0] = 0;
1920     strftime(delete_time, sizeof (delete_time), "%Y-%m-%dT%H:%M:%S", &now);
1921   }
1922
1923   data = g_strdup_printf ("[Trash Info]\nPath=%s\nDeletionDate=%s\n",
1924                           original_name_escaped, delete_time);
1925
1926   g_file_set_contents (infofile, data, -1, NULL);
1927   g_free (infofile);
1928   g_free (data);
1929   
1930   g_free (original_name_escaped);
1931   g_free (trashname);
1932   
1933   return TRUE;
1934 }
1935 #else /* G_OS_WIN32 */
1936 gboolean
1937 _g_local_file_has_trash_dir (const char *dirname, dev_t dir_dev)
1938 {
1939   return FALSE;                 /* XXX ??? */
1940 }
1941
1942 static gboolean
1943 g_local_file_trash (GFile         *file,
1944                     GCancellable  *cancellable,
1945                     GError       **error)
1946 {
1947   GLocalFile *local = G_LOCAL_FILE (file);
1948   SHFILEOPSTRUCTW op = {0};
1949   gboolean success;
1950   wchar_t *wfilename;
1951   long len;
1952
1953   wfilename = g_utf8_to_utf16 (local->filename, -1, NULL, &len, NULL);
1954   /* SHFILEOPSTRUCT.pFrom is double-zero-terminated */
1955   wfilename = g_renew (wchar_t, wfilename, len + 2);
1956   wfilename[len + 1] = 0;
1957
1958   op.wFunc = FO_DELETE;
1959   op.pFrom = wfilename;
1960   op.fFlags = FOF_ALLOWUNDO;
1961
1962   success = SHFileOperationW (&op) == 0;
1963
1964   if (success && op.fAnyOperationsAborted)
1965     {
1966       if (cancellable && !g_cancellable_is_cancelled (cancellable))
1967         g_cancellable_cancel (cancellable);
1968       g_set_error (error, G_IO_ERROR,
1969                    G_IO_ERROR_CANCELLED,
1970                    _("Unable to trash file: %s"),
1971                    _("Operation was cancelled"));
1972       success = FALSE;
1973     }
1974   else if (!success)
1975     g_set_error (error, G_IO_ERROR,
1976                  G_IO_ERROR_FAILED,
1977                  _("Unable to trash file: %s"),
1978                  _("internal error"));
1979
1980   g_free (wfilename);
1981   return success;
1982 }
1983 #endif /* G_OS_WIN32 */
1984
1985 static gboolean
1986 g_local_file_make_directory (GFile         *file,
1987                              GCancellable  *cancellable,
1988                              GError       **error)
1989 {
1990   GLocalFile *local = G_LOCAL_FILE (file);
1991   
1992   if (g_mkdir (local->filename, 0755) == -1)
1993     {
1994       int errsv = errno;
1995
1996       if (errsv == EINVAL)
1997         /* This must be an invalid filename, on e.g. FAT */
1998         g_set_error_literal (error, G_IO_ERROR,
1999                              G_IO_ERROR_INVALID_FILENAME,
2000                              _("Invalid filename"));
2001       else
2002         g_set_error (error, G_IO_ERROR,
2003                      g_io_error_from_errno (errsv),
2004                      _("Error creating directory: %s"),
2005                      g_strerror (errsv));
2006       return FALSE;
2007     }
2008   
2009   return TRUE;
2010 }
2011
2012 static gboolean
2013 g_local_file_make_symbolic_link (GFile         *file,
2014                                  const char    *symlink_value,
2015                                  GCancellable  *cancellable,
2016                                  GError       **error)
2017 {
2018 #ifdef HAVE_SYMLINK
2019   GLocalFile *local = G_LOCAL_FILE (file);
2020   
2021   if (symlink (symlink_value, local->filename) == -1)
2022     {
2023       int errsv = errno;
2024
2025       if (errsv == EINVAL)
2026         /* This must be an invalid filename, on e.g. FAT */
2027         g_set_error_literal (error, G_IO_ERROR,
2028                              G_IO_ERROR_INVALID_FILENAME,
2029                              _("Invalid filename"));
2030       else
2031         g_set_error (error, G_IO_ERROR,
2032                      g_io_error_from_errno (errsv),
2033                      _("Error making symbolic link: %s"),
2034                      g_strerror (errsv));
2035       return FALSE;
2036     }
2037   return TRUE;
2038 #else
2039   g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_SUPPORTED, "Symlinks not supported");
2040   return FALSE;
2041 #endif
2042 }
2043
2044
2045 static gboolean
2046 g_local_file_copy (GFile                  *source,
2047                    GFile                  *destination,
2048                    GFileCopyFlags          flags,
2049                    GCancellable           *cancellable,
2050                    GFileProgressCallback   progress_callback,
2051                    gpointer                progress_callback_data,
2052                    GError                **error)
2053 {
2054   /* Fall back to default copy */
2055   g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_SUPPORTED, "Copy not supported");
2056   return FALSE;
2057 }
2058
2059 static gboolean
2060 g_local_file_move (GFile                  *source,
2061                    GFile                  *destination,
2062                    GFileCopyFlags          flags,
2063                    GCancellable           *cancellable,
2064                    GFileProgressCallback   progress_callback,
2065                    gpointer                progress_callback_data,
2066                    GError                **error)
2067 {
2068   GLocalFile *local_source, *local_destination;
2069   struct stat statbuf;
2070   gboolean destination_exist, source_is_dir;
2071   char *backup_name;
2072   int res;
2073   off_t source_size;
2074   
2075   if (!G_IS_LOCAL_FILE (source) ||
2076       !G_IS_LOCAL_FILE (destination))
2077     {
2078       /* Fall back to default move */
2079       g_set_error_literal (error, G_IO_ERROR, G_IO_ERROR_NOT_SUPPORTED, "Move not supported");
2080       return FALSE;
2081     }
2082   
2083   local_source = G_LOCAL_FILE (source);
2084   local_destination = G_LOCAL_FILE (destination);
2085   
2086   res = g_lstat (local_source->filename, &statbuf);
2087   if (res == -1)
2088     {
2089       int errsv = errno;
2090
2091       g_set_error (error, G_IO_ERROR,
2092                    g_io_error_from_errno (errsv),
2093                    _("Error moving file: %s"),
2094                    g_strerror (errsv));
2095       return FALSE;
2096     }
2097
2098   source_is_dir = S_ISDIR (statbuf.st_mode);
2099   source_size = statbuf.st_size;
2100   
2101   destination_exist = FALSE;
2102   res = g_lstat (local_destination->filename, &statbuf);
2103   if (res == 0)
2104     {
2105       destination_exist = TRUE; /* Target file exists */
2106
2107       if (flags & G_FILE_COPY_OVERWRITE)
2108         {
2109           /* Always fail on dirs, even with overwrite */
2110           if (S_ISDIR (statbuf.st_mode))
2111             {
2112               if (source_is_dir)
2113                 g_set_error_literal (error,
2114                                      G_IO_ERROR,
2115                                      G_IO_ERROR_WOULD_MERGE,
2116                                      _("Can't move directory over directory"));
2117               else
2118                 g_set_error_literal (error,
2119                                      G_IO_ERROR,
2120                                      G_IO_ERROR_IS_DIRECTORY,
2121                                      _("Can't copy over directory"));
2122               return FALSE;
2123             }
2124         }
2125       else
2126         {
2127           g_set_error_literal (error,
2128                                G_IO_ERROR,
2129                                G_IO_ERROR_EXISTS,
2130                                _("Target file exists"));
2131           return FALSE;
2132         }
2133     }
2134   
2135   if (flags & G_FILE_COPY_BACKUP && destination_exist)
2136     {
2137       backup_name = g_strconcat (local_destination->filename, "~", NULL);
2138       if (g_rename (local_destination->filename, backup_name) == -1)
2139         {
2140           g_set_error_literal (error,
2141                                G_IO_ERROR,
2142                                G_IO_ERROR_CANT_CREATE_BACKUP,
2143                                _("Backup file creation failed"));
2144           g_free (backup_name);
2145           return FALSE;
2146         }
2147       g_free (backup_name);
2148       destination_exist = FALSE; /* It did, but no more */
2149     }
2150
2151   if (source_is_dir && destination_exist && (flags & G_FILE_COPY_OVERWRITE))
2152     {
2153       /* Source is a dir, destination exists (and is not a dir, because that would have failed
2154          earlier), and we're overwriting. Manually remove the target so we can do the rename. */
2155       res = g_unlink (local_destination->filename);
2156       if (res == -1)
2157         {
2158           int errsv = errno;
2159
2160           g_set_error (error, G_IO_ERROR,
2161                        g_io_error_from_errno (errsv),
2162                        _("Error removing target file: %s"),
2163                        g_strerror (errsv));
2164           return FALSE;
2165         }
2166     }
2167   
2168   if (g_rename (local_source->filename, local_destination->filename) == -1)
2169     {
2170       int errsv = errno;
2171
2172       if (errsv == EXDEV)
2173         /* This will cause the fallback code to run */
2174         g_set_error_literal (error, G_IO_ERROR,
2175                              G_IO_ERROR_NOT_SUPPORTED,
2176                              _("Move between mounts not supported"));
2177       else if (errsv == EINVAL)
2178         /* This must be an invalid filename, on e.g. FAT, or
2179            we're trying to move the file into itself...
2180            We return invalid filename for both... */
2181         g_set_error_literal (error, G_IO_ERROR,
2182                              G_IO_ERROR_INVALID_FILENAME,
2183                              _("Invalid filename"));
2184       else
2185         g_set_error (error, G_IO_ERROR,
2186                      g_io_error_from_errno (errsv),
2187                      _("Error moving file: %s"),
2188                      g_strerror (errsv));
2189       return FALSE;
2190     }
2191
2192   /* Make sure we send full copied size */
2193   if (progress_callback)
2194     progress_callback (source_size, source_size, progress_callback_data);
2195   
2196   return TRUE;
2197 }
2198
2199 static GFileMonitor*
2200 g_local_file_monitor_dir (GFile             *file,
2201                           GFileMonitorFlags  flags,
2202                           GCancellable      *cancellable,
2203                           GError           **error)
2204 {
2205   GLocalFile* local_file = G_LOCAL_FILE(file);
2206   return _g_local_directory_monitor_new (local_file->filename, flags, error);
2207 }
2208
2209 static GFileMonitor*
2210 g_local_file_monitor_file (GFile             *file,
2211                            GFileMonitorFlags  flags,
2212                            GCancellable      *cancellable,
2213                            GError           **error)
2214 {
2215   GLocalFile* local_file = G_LOCAL_FILE(file);
2216   return _g_local_file_monitor_new (local_file->filename, flags, error);
2217 }
2218
2219 static void
2220 g_local_file_file_iface_init (GFileIface *iface)
2221 {
2222   iface->dup = g_local_file_dup;
2223   iface->hash = g_local_file_hash;
2224   iface->equal = g_local_file_equal;
2225   iface->is_native = g_local_file_is_native;
2226   iface->has_uri_scheme = g_local_file_has_uri_scheme;
2227   iface->get_uri_scheme = g_local_file_get_uri_scheme;
2228   iface->get_basename = g_local_file_get_basename;
2229   iface->get_path = g_local_file_get_path;
2230   iface->get_uri = g_local_file_get_uri;
2231   iface->get_parse_name = g_local_file_get_parse_name;
2232   iface->get_parent = g_local_file_get_parent;
2233   iface->prefix_matches = g_local_file_prefix_matches;
2234   iface->get_relative_path = g_local_file_get_relative_path;
2235   iface->resolve_relative_path = g_local_file_resolve_relative_path;
2236   iface->get_child_for_display_name = g_local_file_get_child_for_display_name;
2237   iface->set_display_name = g_local_file_set_display_name;
2238   iface->enumerate_children = g_local_file_enumerate_children;
2239   iface->query_info = g_local_file_query_info;
2240   iface->query_filesystem_info = g_local_file_query_filesystem_info;
2241   iface->find_enclosing_mount = g_local_file_find_enclosing_mount;
2242   iface->query_settable_attributes = g_local_file_query_settable_attributes;
2243   iface->query_writable_namespaces = g_local_file_query_writable_namespaces;
2244   iface->set_attribute = g_local_file_set_attribute;
2245   iface->set_attributes_from_info = g_local_file_set_attributes_from_info;
2246   iface->read_fn = g_local_file_read;
2247   iface->append_to = g_local_file_append_to;
2248   iface->create = g_local_file_create;
2249   iface->replace = g_local_file_replace;
2250   iface->delete_file = g_local_file_delete;
2251   iface->trash = g_local_file_trash;
2252   iface->make_directory = g_local_file_make_directory;
2253   iface->make_symbolic_link = g_local_file_make_symbolic_link;
2254   iface->copy = g_local_file_copy;
2255   iface->move = g_local_file_move;
2256   iface->monitor_dir = g_local_file_monitor_dir;
2257   iface->monitor_file = g_local_file_monitor_file;
2258 }