gtk2/gtk/gtkfilesystemwin32.c

1488 lines
43 KiB
C
Raw Normal View History

/* GTK - The GIMP Toolkit
* gtkfilesystemwin32.c: Default implementation of GtkFileSystem for Windows
* Copyright (C) 2003, Red Hat, Inc.
* Copyright (C) 2004, Hans Breuer
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#include <config.h>
#include "gtkalias.h"
#include "gtkfilesystem.h"
#include "gtkfilesystemwin32.h"
#include "gtkintl.h"
#include "gtkstock.h"
#include "gtkiconfactory.h"
#include <errno.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#ifdef G_OS_WIN32
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <shellapi.h> /* ExtractAssociatedIcon */
#include <direct.h>
#include <io.h>
#define mkdir(p,m) _mkdir(p)
#include <gdk/win32/gdkwin32.h> /* gdk_win32_hdc_get */
#else
#error "The implementation is win32 only."
#endif /* G_OS_WIN32 */
#ifndef G_IS_DIR_SEPARATOR
#define G_IS_DIR_SEPARATOR(c) ((c) == G_DIR_SEPARATOR || (c) == '/')
#endif
typedef struct _GtkFileSystemWin32Class GtkFileSystemWin32Class;
#define GTK_FILE_SYSTEM_WIN32_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GTK_TYPE_FILE_SYSTEM_WIN32, GtkFileSystemWin32Class))
#define GTK_IS_FILE_SYSTEM_WIN32_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GTK_TYPE_FILE_SYSTEM_WIN32))
#define GTK_FILE_SYSTEM_WIN32_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_FILE_SYSTEM_WIN32, GtkFileSystemWin32Class))
struct _GtkFileSystemWin32Class
{
GObjectClass parent_class;
};
struct _GtkFileSystemWin32
{
GObject parent_instance;
GHashTable *folder_hash;
};
#define GTK_TYPE_FILE_FOLDER_WIN32 (gtk_file_folder_win32_get_type ())
#define GTK_FILE_FOLDER_WIN32(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GTK_TYPE_FILE_FOLDER_WIN32, GtkFileFolderWin32))
#define GTK_IS_FILE_FOLDER_WIN32(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GTK_TYPE_FILE_FOLDER_WIN32))
#define GTK_FILE_FOLDER_WIN32_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GTK_TYPE_FILE_FOLDER_WIN32, GtkFileFolderWin32Class))
#define GTK_IS_FILE_FOLDER_WIN32_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GTK_TYPE_FILE_FOLDER_WIN32))
#define GTK_FILE_FOLDER_WIN32_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_FILE_FOLDER_WIN32, GtkFileFolderWin32Class))
typedef struct _GtkFileFolderWin32 GtkFileFolderWin32;
typedef struct _GtkFileFolderWin32Class GtkFileFolderWin32Class;
struct _GtkFileFolderWin32Class
{
GObjectClass parent_class;
};
struct _GtkFileFolderWin32
{
GObject parent_instance;
GtkFileSystemWin32 *system_win32;
GtkFileInfoType types;
gchar *filename;
};
static GObjectClass *system_parent_class;
static GObjectClass *folder_parent_class;
static void gtk_file_system_win32_class_init (GtkFileSystemWin32Class *class);
static void gtk_file_system_win32_iface_init (GtkFileSystemIface *iface);
static void gtk_file_system_win32_init (GtkFileSystemWin32 *impl);
static void gtk_file_system_win32_finalize (GObject *object);
static GSList * gtk_file_system_win32_list_volumes (GtkFileSystem *file_system);
static GtkFileSystemVolume *gtk_file_system_win32_get_volume_for_path (GtkFileSystem *file_system,
const GtkFilePath *path);
static GtkFileFolder *gtk_file_system_win32_get_folder (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkFileInfoType types,
GError **error);
static gboolean gtk_file_system_win32_create_folder (GtkFileSystem *file_system,
const GtkFilePath *path,
GError **error);
static void gtk_file_system_win32_volume_free (GtkFileSystem *file_system,
GtkFileSystemVolume *volume);
static GtkFilePath *gtk_file_system_win32_volume_get_base_path (GtkFileSystem *file_system,
GtkFileSystemVolume *volume);
static gboolean gtk_file_system_win32_volume_get_is_mounted (GtkFileSystem *file_system,
GtkFileSystemVolume *volume);
static gboolean gtk_file_system_win32_volume_mount (GtkFileSystem *file_system,
GtkFileSystemVolume *volume,
GError **error);
static gchar * gtk_file_system_win32_volume_get_display_name (GtkFileSystem *file_system,
GtkFileSystemVolume *volume);
static GdkPixbuf * gtk_file_system_win32_volume_render_icon (GtkFileSystem *file_system,
GtkFileSystemVolume *volume,
GtkWidget *widget,
gint pixel_size,
GError **error);
static gboolean gtk_file_system_win32_get_parent (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkFilePath **parent,
GError **error);
static GtkFilePath * gtk_file_system_win32_make_path (GtkFileSystem *file_system,
const GtkFilePath *base_path,
const gchar *display_name,
GError **error);
static gboolean gtk_file_system_win32_parse (GtkFileSystem *file_system,
const GtkFilePath *base_path,
const gchar *str,
GtkFilePath **folder,
gchar **file_part,
GError **error);
static gchar * gtk_file_system_win32_path_to_uri (GtkFileSystem *file_system,
const GtkFilePath *path);
static gchar * gtk_file_system_win32_path_to_filename (GtkFileSystem *file_system,
const GtkFilePath *path);
static GtkFilePath * gtk_file_system_win32_uri_to_path (GtkFileSystem *file_system,
const gchar *uri);
static GtkFilePath * gtk_file_system_win32_filename_to_path (GtkFileSystem *file_system,
const gchar *filename);
static GdkPixbuf *gtk_file_system_win32_render_icon (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkWidget *widget,
gint pixel_size,
GError **error);
static gboolean gtk_file_system_win32_insert_bookmark (GtkFileSystem *file_system,
const GtkFilePath *path,
gint position,
GError **error);
static gboolean gtk_file_system_win32_remove_bookmark (GtkFileSystem *file_system,
const GtkFilePath *path,
GError **error);
static GSList * gtk_file_system_win32_list_bookmarks (GtkFileSystem *file_system);
static GType gtk_file_folder_win32_get_type (void);
static void gtk_file_folder_win32_class_init (GtkFileFolderWin32Class *class);
static void gtk_file_folder_win32_iface_init (GtkFileFolderIface *iface);
static void gtk_file_folder_win32_init (GtkFileFolderWin32 *impl);
static void gtk_file_folder_win32_finalize (GObject *object);
static GtkFileInfo * gtk_file_folder_win32_get_info (GtkFileFolder *folder,
const GtkFilePath *path,
GError **error);
static gboolean gtk_file_folder_win32_list_children (GtkFileFolder *folder,
GSList **children,
GError **error);
static gchar * filename_from_path (const GtkFilePath *path);
static GtkFilePath * filename_to_path (const gchar *filename);
static gboolean filename_is_drive_root (const char *filename);
static gboolean filename_is_some_root (const char *filename);
static GtkFileInfo * filename_get_info (const gchar *filename,
GtkFileInfoType types,
GError **error);
/* some info kept together for volumes */
struct _GtkFileSystemVolume
{
gchar *drive;
gboolean is_mounted;
};
/*
* GtkFileSystemWin32
*/
GType
gtk_file_system_win32_get_type (void)
{
static GType file_system_win32_type = 0;
if (!file_system_win32_type)
{
static const GTypeInfo file_system_win32_info =
{
sizeof (GtkFileSystemWin32Class),
NULL, /* base_init */
NULL, /* base_finalize */
(GClassInitFunc) gtk_file_system_win32_class_init,
NULL, /* class_finalize */
NULL, /* class_data */
sizeof (GtkFileSystemWin32),
0, /* n_preallocs */
(GInstanceInitFunc) gtk_file_system_win32_init,
};
static const GInterfaceInfo file_system_info =
{
(GInterfaceInitFunc) gtk_file_system_win32_iface_init, /* interface_init */
NULL, /* interface_finalize */
NULL /* interface_data */
};
file_system_win32_type = g_type_register_static (G_TYPE_OBJECT,
"GtkFileSystemWin32",
&file_system_win32_info, 0);
g_type_add_interface_static (file_system_win32_type,
GTK_TYPE_FILE_SYSTEM,
&file_system_info);
}
return file_system_win32_type;
}
/**
* gtk_file_system_win32_new:
*
* Creates a new #GtkFileSystemWin32 object. #GtkFileSystemWin32
* implements the #GtkFileSystem interface with direct access to
* the filesystem using Windows API calls
*
* Return value: the new #GtkFileSystemWin32 object
**/
GtkFileSystem *
gtk_file_system_win32_new (void)
{
return g_object_new (GTK_TYPE_FILE_SYSTEM_WIN32, NULL);
}
static void
gtk_file_system_win32_class_init (GtkFileSystemWin32Class *class)
{
GObjectClass *gobject_class = G_OBJECT_CLASS (class);
system_parent_class = g_type_class_peek_parent (class);
gobject_class->finalize = gtk_file_system_win32_finalize;
}
static void
gtk_file_system_win32_iface_init (GtkFileSystemIface *iface)
{
iface->list_volumes = gtk_file_system_win32_list_volumes;
iface->get_volume_for_path = gtk_file_system_win32_get_volume_for_path;
iface->get_folder = gtk_file_system_win32_get_folder;
iface->create_folder = gtk_file_system_win32_create_folder;
iface->volume_free = gtk_file_system_win32_volume_free;
iface->volume_get_base_path = gtk_file_system_win32_volume_get_base_path;
iface->volume_get_is_mounted = gtk_file_system_win32_volume_get_is_mounted;
iface->volume_mount = gtk_file_system_win32_volume_mount;
iface->volume_get_display_name = gtk_file_system_win32_volume_get_display_name;
iface->volume_render_icon = gtk_file_system_win32_volume_render_icon;
iface->get_parent = gtk_file_system_win32_get_parent;
iface->make_path = gtk_file_system_win32_make_path;
iface->parse = gtk_file_system_win32_parse;
iface->path_to_uri = gtk_file_system_win32_path_to_uri;
iface->path_to_filename = gtk_file_system_win32_path_to_filename;
iface->uri_to_path = gtk_file_system_win32_uri_to_path;
iface->filename_to_path = gtk_file_system_win32_filename_to_path;
iface->render_icon = gtk_file_system_win32_render_icon;
iface->insert_bookmark = gtk_file_system_win32_insert_bookmark;
iface->remove_bookmark = gtk_file_system_win32_remove_bookmark;
iface->list_bookmarks = gtk_file_system_win32_list_bookmarks;
}
static void
gtk_file_system_win32_init (GtkFileSystemWin32 *system_win32)
{
system_win32->folder_hash = g_hash_table_new (g_str_hash, g_str_equal);
}
static void
gtk_file_system_win32_finalize (GObject *object)
{
GtkFileSystemWin32 *system_win32;
system_win32 = GTK_FILE_SYSTEM_WIN32 (object);
/* FIXME: assert that the hash is empty? */
g_hash_table_destroy (system_win32->folder_hash);
system_parent_class->finalize (object);
}
static GSList *
gtk_file_system_win32_list_volumes (GtkFileSystem *file_system)
{
DWORD drives;
gchar drive[4] = "A:\\";
GSList *list = NULL;
drives = GetLogicalDrives();
if (!drives)
g_warning ("GetLogicalDrives failed.");
while (drives && drive[0] <= 'Z')
{
if (drives & 1)
{
GtkFileSystemVolume *vol = g_new0 (GtkFileSystemVolume, 1);
if (drive[0] == 'A' || drive[0] == 'B')
vol->is_mounted = FALSE; /* skip floppy */
else
vol->is_mounted = TRUE; /* handle other removable drives special, too? */
vol->drive = g_strdup (drive);
list = g_slist_append (list, vol);
}
drives >>= 1;
drive[0]++;
}
return list;
}
static GtkFileSystemVolume *
gtk_file_system_win32_get_volume_for_path (GtkFileSystem *file_system,
const GtkFilePath *path)
{
GtkFileSystemVolume *vol = g_new0 (GtkFileSystemVolume, 1);
gchar* p = g_strndup (gtk_file_path_get_string (path), 3);
g_return_val_if_fail (p != NULL, NULL);
/*FIXME: gtk_file_path_compare() is case sensitive, we are not*/
p[0] = g_ascii_toupper (p[0]);
vol->drive = p;
vol->is_mounted = (p[0] != 'A' && p[0] != 'B');
return vol;
}
static GtkFileFolder *
gtk_file_system_win32_get_folder (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkFileInfoType types,
GError **error)
{
GtkFileSystemWin32 *system_win32;
GtkFileFolderWin32 *folder_win32;
gchar *filename;
system_win32 = GTK_FILE_SYSTEM_WIN32 (file_system);
filename = filename_from_path (path);
g_return_val_if_fail (filename != NULL, NULL);
folder_win32 = g_hash_table_lookup (system_win32->folder_hash, filename);
if (folder_win32)
return g_object_ref (folder_win32);
if (!g_file_test (filename, G_FILE_TEST_IS_DIR))
{
int save_errno = errno;
gchar *filename_utf8 = g_filename_to_utf8 (filename, -1, NULL, NULL, NULL);
/* If g_file_test() returned FALSE but not due to an error, it means
* that the filename is not a directory.
*/
if (save_errno == 0)
/* ENOTDIR */
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_NOT_FOLDER,
_("%s: %s"),
filename_utf8 ? filename_utf8 : "???",
g_strerror (ENOTDIR));
else
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_NONEXISTENT,
_("error getting information for '%s': %s"),
filename_utf8 ? filename_utf8 : "???",
g_strerror (save_errno));
g_free (filename_utf8);
return NULL;
}
folder_win32 = g_object_new (GTK_TYPE_FILE_FOLDER_WIN32, NULL);
folder_win32->system_win32 = system_win32;
folder_win32->filename = filename;
folder_win32->types = types;
g_hash_table_insert (system_win32->folder_hash, folder_win32->filename, folder_win32);
return GTK_FILE_FOLDER (folder_win32);
}
static gboolean
gtk_file_system_win32_create_folder (GtkFileSystem *file_system,
const GtkFilePath *path,
GError **error)
{
GtkFileSystemWin32 *system_win32;
gchar *filename;
gboolean result;
char *parent;
system_win32 = GTK_FILE_SYSTEM_WIN32 (file_system);
filename = filename_from_path (path);
g_return_val_if_fail (filename != NULL, FALSE);
result = mkdir (filename, 0777) == 0;
if (!result)
{
gchar *filename_utf8 = g_filename_to_utf8 (filename, -1, NULL, NULL, NULL);
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_NONEXISTENT,
_("error creating directory '%s': %s"),
filename_utf8 ? filename_utf8 : "???",
g_strerror (errno));
g_free (filename_utf8);
}
else if (!filename_is_drive_root (filename))
{
parent = g_path_get_dirname (filename);
if (parent)
{
GtkFileFolderWin32 *folder_win32;
folder_win32 = g_hash_table_lookup (system_win32->folder_hash, parent);
if (folder_win32)
{
GSList *paths;
paths = g_slist_append (NULL, (GtkFilePath *) path);
g_signal_emit_by_name (folder_win32, "files-added", paths);
g_slist_free (paths);
}
g_free(parent);
}
}
g_free (filename);
return result;
}
static void
gtk_file_system_win32_volume_free (GtkFileSystem *file_system,
GtkFileSystemVolume *volume)
{
g_free (volume->drive);
g_free (volume);
}
static GtkFilePath *
gtk_file_system_win32_volume_get_base_path (GtkFileSystem *file_system,
GtkFileSystemVolume *volume)
{
return (GtkFilePath *) g_strdup (volume->drive);
}
static gboolean
gtk_file_system_win32_volume_get_is_mounted (GtkFileSystem *file_system,
GtkFileSystemVolume *volume)
{
return volume->is_mounted;
}
static gboolean
gtk_file_system_win32_volume_mount (GtkFileSystem *file_system,
GtkFileSystemVolume *volume,
GError **error)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_FAILED,
_("This file system does not support mounting"));
return FALSE;
}
static gchar *
gtk_file_system_win32_volume_get_display_name (GtkFileSystem *file_system,
GtkFileSystemVolume *volume)
{
gchar *real_display_name;
gunichar2 *wdrive = g_utf8_to_utf16 (volume->drive, -1, NULL, NULL, NULL);
gunichar2 wname[80];
g_return_val_if_fail (wdrive != NULL, NULL);
if (GetVolumeInformationW (wdrive,
wname, G_N_ELEMENTS(wname),
NULL, /* serial number */
NULL, /* max. component length */
NULL, /* fs flags */
NULL, 0) /* fs type like FAT, NTFS */
&& wname[0])
{
gchar *name = g_utf16_to_utf8 (wname, -1, NULL, NULL, NULL);
real_display_name = g_strconcat (name, " (", volume->drive, ")", NULL);
g_free (name);
}
else
real_display_name = g_strdup (volume->drive);
g_free (wdrive);
return real_display_name;
}
static GdkPixbuf *
gtk_file_system_win32_volume_render_icon (GtkFileSystem *file_system,
GtkFileSystemVolume *volume,
GtkWidget *widget,
gint pixel_size,
GError **error)
{
GtkIconSet *icon_set = NULL;
DWORD dt = GetDriveType (volume->drive);
switch (dt)
{
case DRIVE_REMOVABLE :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_FLOPPY);
break;
case DRIVE_CDROM :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_CDROM);
break;
case DRIVE_REMOTE :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_NETWORK);
break;
case DRIVE_FIXED :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_HARDDISK);
break;
case DRIVE_RAMDISK :
/*FIXME: need a ram stock icon
gtk_file_info_set_icon_type (info, GTK_STOCK_OPEN);*/
break;
default :
g_assert_not_reached ();
}
return gtk_icon_set_render_icon (icon_set,
widget->style,
gtk_widget_get_direction (widget),
GTK_STATE_NORMAL,
GTK_ICON_SIZE_BUTTON,
widget, NULL);
}
static gboolean
gtk_file_system_win32_get_parent (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkFilePath **parent,
GError **error)
{
const char *filename;
filename = gtk_file_path_get_string (path);
g_return_val_if_fail (filename != NULL, FALSE);
g_return_val_if_fail (g_path_is_absolute (filename), FALSE);
if (filename_is_some_root (filename))
{
*parent = NULL;
}
else
{
gchar *parent_filename = g_path_get_dirname (filename);
*parent = filename_to_path (parent_filename);
g_free (parent_filename);
}
return TRUE;
}
static GtkFilePath *
gtk_file_system_win32_make_path (GtkFileSystem *file_system,
const GtkFilePath *base_path,
const gchar *display_name,
GError **error)
{
const char *base_filename;
gchar *filename;
gchar *full_filename;
GError *tmp_error = NULL;
GtkFilePath *result;
base_filename = gtk_file_path_get_string (base_path);
g_return_val_if_fail (base_filename != NULL, NULL);
g_return_val_if_fail (g_path_is_absolute (base_filename), NULL);
filename = g_filename_from_utf8 (display_name, -1, NULL, NULL, &tmp_error);
if (!filename)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_BAD_FILENAME,
"%s",
tmp_error->message);
g_error_free (tmp_error);
return NULL;
}
full_filename = g_build_filename (base_filename, filename, NULL);
result = filename_to_path (full_filename);
g_free (filename);
g_free (full_filename);
return result;
}
/* If this was a publically exported function, it should return
* a dup'ed result, but we make it modify-in-place for efficiency
* here, and because it works for us.
*/
static void
canonicalize_filename (gchar *filename)
{
gchar *p, *q;
gchar *past_root;
gboolean last_was_slash = FALSE;
#if 0
printf("canonicalize_filename: %s ", filename);
#endif
p = filename;
q = filename;
if (g_ascii_isalpha (*filename) &&
filename[1] == ':' &&
G_IS_DIR_SEPARATOR (filename[2]))
past_root = filename + 3;
else
past_root = filename + 1;
while (*p)
{
if (G_IS_DIR_SEPARATOR (*p))
{
if (!last_was_slash)
*q++ = G_DIR_SEPARATOR;
last_was_slash = TRUE;
}
else
{
if (last_was_slash && *p == '.')
{
if (G_IS_DIR_SEPARATOR (*(p + 1)) ||
*(p + 1) == '\0')
{
if (*(p + 1) == '\0')
break;
p += 1;
}
else if (*(p + 1) == '.' &&
(G_IS_DIR_SEPARATOR (*(p + 2)) ||
*(p + 2) == '\0'))
{
if (q > past_root)
{
q--;
while (q > past_root &&
!G_IS_DIR_SEPARATOR (*(q - 1)))
q--;
}
if (*(p + 2) == '\0')
break;
p += 2;
}
else
{
*q++ = *p;
last_was_slash = FALSE;
}
}
else
{
*q++ = *p;
last_was_slash = FALSE;
}
}
p++;
}
if (q > past_root && G_IS_DIR_SEPARATOR (*(q - 1)))
q--;
*q = '\0';
#if 0
printf(" => %s\n", filename);
#endif
}
static gboolean
gtk_file_system_win32_parse (GtkFileSystem *file_system,
const GtkFilePath *base_path,
const gchar *str,
GtkFilePath **folder,
gchar **file_part,
GError **error)
{
const char *base_filename;
gchar *last_backslash, *last_slash;
gboolean result = FALSE;
#if 0
printf("gtk_file_system_win32_parse: base_path=%s str=%s\n",(char*)base_path,str);
#endif
base_filename = gtk_file_path_get_string (base_path);
g_return_val_if_fail (base_filename != NULL, FALSE);
g_return_val_if_fail (g_path_is_absolute (base_filename), FALSE);
last_backslash = strrchr (str, G_DIR_SEPARATOR);
last_slash = strrchr (str, '/');
if (last_slash == NULL ||
(last_backslash != NULL && last_backslash > last_slash))
last_slash = last_backslash;
if (!last_slash)
{
*folder = gtk_file_path_copy (base_path);
*file_part = g_strdup (str);
result = TRUE;
}
else
{
gchar *folder_part;
gchar *folder_path;
GError *tmp_error = NULL;
if (last_slash == str)
{
if (g_ascii_isalpha (base_filename[0]) &&
base_filename[1] == ':')
folder_part = g_strdup_printf ("%c:%c", base_filename[0],
G_DIR_SEPARATOR);
else
folder_part = g_strdup (G_DIR_SEPARATOR_S);
}
else if (g_ascii_isalpha (str[0]) &&
str[1] == ':' &&
G_IS_DIR_SEPARATOR (str[2]))
folder_part = g_filename_from_utf8 (str, last_slash - str + 1,
NULL, NULL, &tmp_error);
else
folder_part = g_filename_from_utf8 (str, last_slash - str,
NULL, NULL, &tmp_error);
if (!folder_part)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_BAD_FILENAME,
"%s",
tmp_error->message);
g_error_free (tmp_error);
}
else
{
if (g_path_is_absolute (folder_part))
folder_path = folder_part;
else
{
folder_path = g_build_filename (base_filename, folder_part, NULL);
g_free (folder_part);
}
canonicalize_filename (folder_path);
*folder = filename_to_path (folder_path);
*file_part = g_strdup (last_slash + 1);
g_free (folder_path);
result = TRUE;
}
}
#if 0
printf("gtk_file_system_win32_parse:returning folder=%s file_part=%s\n",(*folder?(char*)*folder:"NULL"),*file_part);
#endif
return result;
}
static gchar *
gtk_file_system_win32_path_to_uri (GtkFileSystem *file_system,
const GtkFilePath *path)
{
return g_filename_to_uri (gtk_file_path_get_string (path), NULL, NULL);
}
static gchar *
gtk_file_system_win32_path_to_filename (GtkFileSystem *file_system,
const GtkFilePath *path)
{
return g_strdup (gtk_file_path_get_string (path));
}
static GtkFilePath *
gtk_file_system_win32_uri_to_path (GtkFileSystem *file_system,
const gchar *uri)
{
GtkFilePath *path = NULL;
gchar *filename = g_filename_from_uri (uri, NULL, NULL);
if (filename)
{
path = filename_to_path (filename);
g_free (filename);
}
return path;
}
static GtkFilePath *
gtk_file_system_win32_filename_to_path (GtkFileSystem *file_system,
const gchar *filename)
{
return filename_to_path (filename);
}
static gboolean
bookmarks_serialize (GSList **bookmarks,
gchar *uri,
gboolean add,
gint position,
GError **error)
{
gchar *filename;
gboolean ok = TRUE;
GSList *list = *bookmarks;
filename = g_build_filename (g_get_home_dir (), ".gtk-bookmarks", NULL);
if (filename)
{
gchar *contents = NULL;
gsize len = 0;
GSList *entry;
FILE *f;
if (g_file_test (filename, G_FILE_TEST_EXISTS))
{
if (g_file_get_contents (filename, &contents, &len, error))
{
gchar **lines = g_strsplit (contents, "\n", -1);
gint i;
for (i = 0; lines[i] != NULL; i++)
{
if (lines[i][0] && !g_slist_find_custom (list, lines[i], (GCompareFunc) strcmp))
list = g_slist_append (list, g_strdup (lines[i]));
}
g_strfreev (lines);
}
else
ok = FALSE;
}
if (ok && (f = fopen (filename, "wb")) != NULL)
{
entry = g_slist_find_custom (list, uri, (GCompareFunc) strcmp);
if (add)
{
/* g_slist_insert() and our insert semantics are
* compatible, but maybe we should check for
* positon > length ?
*
*/
if (!entry)
list = g_slist_insert (list, g_strdup (uri), position);
else
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_ALREADY_EXISTS,
"%s already exists in the bookmarks list",
uri);
ok = FALSE;
}
}
else
{
/* to remove the given uri */
if (entry)
list = g_slist_delete_link(list, entry);
for (entry = list; entry != NULL; entry = entry->next)
{
fputs (entry->data, f);
fputs ("\n", f);
}
}
fclose (f);
}
else if (ok && error)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_FAILED,
_("Bookmark saving failed (%s)"),
g_strerror (errno));
}
}
*bookmarks = list;
return ok;
}
static GdkPixbuf*
extract_icon (const char* filename)
{
GdkPixbuf *pixbuf = NULL;
WORD iicon;
HICON hicon;
char filename_copy[MAX_PATH];
if (!filename || !filename[0])
return NULL;
/* the ugly ExtractAssociatedIcon modifies filename in place - at least on win98 */
strcpy(filename_copy, filename);
hicon = ExtractAssociatedIcon (GetModuleHandle (NULL), filename_copy, &iicon);
if (hicon > (HICON)1)
{
ICONINFO ii;
if (GetIconInfo (hicon, &ii))
{
struct
{
BITMAPINFOHEADER bi;
RGBQUAD colors[2];
} bmi;
HDC hdc;
memset (&bmi, 0, sizeof (bmi));
bmi.bi.biSize = sizeof (bmi.bi);
hdc = CreateCompatibleDC (NULL);
if (GetDIBits (hdc, ii.hbmColor, 0, 1, NULL, (BITMAPINFO *)&bmi, DIB_RGB_COLORS))
{
gchar *pixels, *bits;
gint rowstride, x, y, w = bmi.bi.biWidth, h = bmi.bi.biHeight;
bmi.bi.biBitCount = 24;
bmi.bi.biCompression = BI_RGB;
bmi.bi.biHeight = -h;
pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB, TRUE, 8, w, h);
bits = g_malloc (4 * w * h);
/* color data */
if (!GetDIBits (hdc, ii.hbmColor, 0, h, bits, (BITMAPINFO *)&bmi, DIB_RGB_COLORS))
g_warning(G_STRLOC ": Failed to get dibits");
pixels = gdk_pixbuf_get_pixels (pixbuf);
rowstride = gdk_pixbuf_get_rowstride (pixbuf);
for (y = 0; y < h; y++)
{
for (x = 0; x < w; x++)
{
pixels[2] = bits[(x+y*w) * 3];
pixels[1] = bits[(x+y*w) * 3 + 1];
pixels[0] = bits[(x+y*w) * 3 + 2];
pixels += 4;
}
pixels += (w * 4 - rowstride);
}
/* transparency */
if (!GetDIBits (hdc, ii.hbmMask, 0, h, bits, (BITMAPINFO *)&bmi, DIB_RGB_COLORS))
g_warning(G_STRLOC ": Failed to get dibits");
pixels = gdk_pixbuf_get_pixels (pixbuf);
for (y = 0; y < h; y++)
{
for (x = 0; x < w; x++)
{
pixels[3] = 255 - bits[(x + y * w) * 3];
pixels += 4;
}
pixels += (w * 4 - rowstride);
}
/* release temporary resources */
g_free (bits);
if (!DeleteObject (ii.hbmColor) || !DeleteObject (ii.hbmMask))
g_warning(G_STRLOC ": Leaking Icon Bitmaps ?");
}
else
g_warning(G_STRLOC ": GetDIBits () failed, %s", g_win32_error_message (GetLastError ()));
DeleteDC (hdc);
}
else
g_warning(G_STRLOC ": GetIconInfo failed: %s\n", g_win32_error_message (GetLastError ()));
if (!DestroyIcon (hicon))
g_warning(G_STRLOC ": DestroyIcon failed");
}
else
g_print ("ExtractAssociatedIcon(%s) failed: %s\n", filename, g_win32_error_message (GetLastError ()));
return pixbuf;
}
static GtkIconSet *
win32_pseudo_mime_lookup (const char* name)
{
static GHashTable *mime_hash = NULL;
GtkIconSet *is = NULL;
char *p = strrchr(name, '.');
char *extension = p ? g_ascii_strdown (p, -1) : g_strdup ("");
if (!mime_hash)
mime_hash = g_hash_table_new (g_str_hash, g_str_equal);
/* do we already have it ? */
is = g_hash_table_lookup (mime_hash, extension);
if (is)
{
g_free (extension);
return is;
}
/* create icon and set */
{
GdkPixbuf *pixbuf = extract_icon (name);
if (pixbuf)
{
GtkIconSource* source = gtk_icon_source_new ();
is = gtk_icon_set_new_from_pixbuf (pixbuf);
gtk_icon_source_set_pixbuf (source, pixbuf);
gtk_icon_set_add_source (is, source);
gtk_icon_source_free (source);
}
g_hash_table_insert (mime_hash, extension, is);
return is;
}
}
static GdkPixbuf *
gtk_file_system_win32_render_icon (GtkFileSystem *file_system,
const GtkFilePath *path,
GtkWidget *widget,
gint pixel_size,
GError **error)
{
GtkIconSet *icon_set = NULL;
const char* filename = gtk_file_path_get_string (path);
/* handle drives with stock icons */
if (filename_is_drive_root (filename))
{
gchar filename2[] = "?:\\";
DWORD dt;
filename2[0] = filename[0];
dt = GetDriveType (filename2);
switch (dt)
{
case DRIVE_REMOVABLE :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_FLOPPY);
break;
case DRIVE_CDROM :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_CDROM);
break;
case DRIVE_FIXED :
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_HARDDISK);
break;
default :
break;
}
}
else if (g_file_test (filename, G_FILE_TEST_IS_DIR))
{
if (0 == strcmp (g_get_home_dir(), filename))
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_HOME);
else
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_DIRECTORY);
}
else if (g_file_test (filename, G_FILE_TEST_IS_EXECUTABLE))
{
/* don't lookup all executable icons */
icon_set = gtk_style_lookup_icon_set (widget->style, GTK_STOCK_EXECUTE);
}
else if (g_file_test (filename, G_FILE_TEST_EXISTS))
{
icon_set = win32_pseudo_mime_lookup (filename);
}
if (!icon_set)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_FAILED,
_("This file system does not support icons for everything"));
return NULL;
}
// FIXME : I'd like to get from pixel_size (=20) back to
// icon size, which is an index, but there appears to be no way ?
return gtk_icon_set_render_icon (icon_set,
widget->style,
gtk_widget_get_direction (widget),
GTK_STATE_NORMAL,
GTK_ICON_SIZE_BUTTON,
widget, NULL);
}
static GSList *_bookmarks = NULL;
static gboolean
gtk_file_system_win32_insert_bookmark (GtkFileSystem *file_system,
const GtkFilePath *path,
gint position,
GError **error)
{
gchar *uri = gtk_file_system_win32_path_to_uri (file_system, path);
gboolean ret = bookmarks_serialize (&_bookmarks, uri, TRUE, position, error);
if (ret)
g_signal_emit_by_name (file_system, "bookmarks-changed", 0);
g_free (uri);
return ret;
}
static gboolean
gtk_file_system_win32_remove_bookmark (GtkFileSystem *file_system,
const GtkFilePath *path,
GError **error)
{
gchar *uri = gtk_file_system_win32_path_to_uri (file_system, path);
gboolean ret = bookmarks_serialize (&_bookmarks, uri, FALSE, 0, error);
if (ret)
g_signal_emit_by_name (file_system, "bookmarks-changed", 0);
g_free (uri);
return ret;
}
static GSList *
gtk_file_system_win32_list_bookmarks (GtkFileSystem *file_system)
{
GSList *list = NULL;
GSList *entry;
if (bookmarks_serialize (&_bookmarks, "", FALSE, 0, NULL))
{
for (entry = _bookmarks; entry != NULL; entry = entry->next)
{
GtkFilePath *path = gtk_file_system_win32_uri_to_path (
file_system, (gchar *)entry->data);
list = g_slist_append (list, path);
}
}
return list;
}
/*
* GtkFileFolderWin32
*/
static GType
gtk_file_folder_win32_get_type (void)
{
static GType file_folder_win32_type = 0;
if (!file_folder_win32_type)
{
static const GTypeInfo file_folder_win32_info =
{
sizeof (GtkFileFolderWin32Class),
NULL, /* base_init */
NULL, /* base_finalize */
(GClassInitFunc) gtk_file_folder_win32_class_init,
NULL, /* class_finalize */
NULL, /* class_data */
sizeof (GtkFileFolderWin32),
0, /* n_preallocs */
(GInstanceInitFunc) gtk_file_folder_win32_init,
};
static const GInterfaceInfo file_folder_info =
{
(GInterfaceInitFunc) gtk_file_folder_win32_iface_init, /* interface_init */
NULL, /* interface_finalize */
NULL /* interface_data */
};
file_folder_win32_type = g_type_register_static (G_TYPE_OBJECT,
"GtkFileFolderWin32",
&file_folder_win32_info, 0);
g_type_add_interface_static (file_folder_win32_type,
GTK_TYPE_FILE_FOLDER,
&file_folder_info);
}
return file_folder_win32_type;
}
static void
gtk_file_folder_win32_class_init (GtkFileFolderWin32Class *class)
{
GObjectClass *gobject_class = G_OBJECT_CLASS (class);
folder_parent_class = g_type_class_peek_parent (class);
gobject_class->finalize = gtk_file_folder_win32_finalize;
}
static void
gtk_file_folder_win32_iface_init (GtkFileFolderIface *iface)
{
iface->get_info = gtk_file_folder_win32_get_info;
iface->list_children = gtk_file_folder_win32_list_children;
}
static void
gtk_file_folder_win32_init (GtkFileFolderWin32 *impl)
{
}
static void
gtk_file_folder_win32_finalize (GObject *object)
{
GtkFileFolderWin32 *folder_win32 = GTK_FILE_FOLDER_WIN32 (object);
g_hash_table_remove (folder_win32->system_win32->folder_hash, folder_win32->filename);
g_free (folder_win32->filename);
folder_parent_class->finalize (object);
}
static GtkFileInfo *
gtk_file_folder_win32_get_info (GtkFileFolder *folder,
const GtkFilePath *path,
GError **error)
{
GtkFileFolderWin32 *folder_win32 = GTK_FILE_FOLDER_WIN32 (folder);
GtkFileInfo *info;
gchar *dirname;
gchar *filename;
if (!path)
{
g_return_val_if_fail (filename_is_some_root (folder_win32->filename), NULL);
/* ??? */
info = filename_get_info (folder_win32->filename, folder_win32->types, error);
return info;
}
filename = filename_from_path (path);
g_return_val_if_fail (filename != NULL, NULL);
#if 0
dirname = g_path_get_dirname (filename);
g_return_val_if_fail (strcmp (dirname, folder_win32->filename) == 0, NULL);
g_free (dirname);
#endif
info = filename_get_info (filename, folder_win32->types, error);
g_free (filename);
return info;
}
static gboolean
gtk_file_folder_win32_list_children (GtkFileFolder *folder,
GSList **children,
GError **error)
{
GtkFileFolderWin32 *folder_win32 = GTK_FILE_FOLDER_WIN32 (folder);
GError *tmp_error = NULL;
GDir *dir;
*children = NULL;
dir = g_dir_open (folder_win32->filename, 0, &tmp_error);
if (!dir)
{
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_NONEXISTENT,
"%s",
tmp_error->message);
g_error_free (tmp_error);
return FALSE;
}
while (TRUE)
{
const gchar *filename = g_dir_read_name (dir);
gchar *fullname;
if (!filename)
break;
fullname = g_build_filename (folder_win32->filename, filename, NULL);
*children = g_slist_prepend (*children, filename_to_path (fullname));
g_free (fullname);
}
g_dir_close (dir);
*children = g_slist_reverse (*children);
return TRUE;
}
static GtkFileInfo *
filename_get_info (const gchar *filename,
GtkFileInfoType types,
GError **error)
{
GtkFileInfo *info;
#if 0 /* it's dead in GtkFileSystemUnix.c, too */
GtkFileIconType icon_type = GTK_FILE_ICON_REGULAR;
#endif
WIN32_FILE_ATTRIBUTE_DATA wfad;
if (!GetFileAttributesEx (filename, GetFileExInfoStandard, &wfad))
{
gchar *filename_utf8 = g_filename_to_utf8 (filename, -1, NULL, NULL, NULL);
g_set_error (error,
GTK_FILE_SYSTEM_ERROR,
GTK_FILE_SYSTEM_ERROR_NONEXISTENT,
_("error getting information for '%s': %s"),
filename_utf8 ? filename_utf8 : "???",
g_win32_error_message (GetLastError ()));
g_free (filename_utf8);
return NULL;
}
info = gtk_file_info_new ();
if (filename_is_some_root (filename))
{
if (types & GTK_FILE_INFO_DISPLAY_NAME)
gtk_file_info_set_display_name (info, filename);
if (types & GTK_FILE_INFO_IS_HIDDEN)
gtk_file_info_set_is_hidden (info, FALSE);
}
else
{
gchar *basename = g_path_get_basename (filename);
if (types & GTK_FILE_INFO_DISPLAY_NAME)
{
gchar *display_name = g_filename_to_utf8 (basename, -1, NULL, NULL, NULL);
if (!display_name)
display_name = g_strescape (basename, NULL);
gtk_file_info_set_display_name (info, display_name);
g_free (display_name);
}
if (types & GTK_FILE_INFO_IS_HIDDEN)
{
/* win32 convention ... */
gboolean is_hidden = basename[0] == '.';
/* ... _and_ windoze attribute */
is_hidden = is_hidden || !!(wfad.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN);
gtk_file_info_set_is_hidden (info, is_hidden);
}
g_free (basename);
}
if (types & GTK_FILE_INFO_IS_FOLDER)
{
gtk_file_info_set_is_folder (info, !!(wfad.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY));
}
#if 0 /* it's dead in GtkFileSystemUnix.c, too */
if (types & GTK_FILE_INFO_ICON)
{
if (wfad.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
icon_type = GTK_FILE_ICON_DIRECTORY;
gtk_file_info_set_icon_type (info, icon_type);
}
#endif
if ((types & GTK_FILE_INFO_MIME_TYPE)
#if 0 /* it's dead in GtkFileSystemUnix.c, too */
|| ((types & GTK_FILE_INFO_ICON) && icon_type == GTK_FILE_ICON_REGULAR)
#endif
)
{
#if 0
const char *mime_type = xdg_mime_get_mime_type_for_file (filename);
gtk_file_info_set_mime_type (info, mime_type);
if ((types & GTK_FILE_INFO_ICON) && icon_type == GTK_FILE_ICON_REGULAR &&
(statbuf.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH)) &&
(strcmp (mime_type, XDG_MIME_TYPE_UNKNOWN) == 0 ||
strcmp (mime_type, "application/x-executable") == 0 ||
strcmp (mime_type, "application/x-shellscript") == 0))
gtk_file_info_set_icon_type (info, GTK_FILE_ICON_EXECUTABLE);
#endif
}
if (types & GTK_FILE_INFO_MODIFICATION_TIME)
{
GtkFileTime time = wfad.ftLastWriteTime.dwLowDateTime
| ((guint64)wfad.ftLastWriteTime.dwHighDateTime) << 32;
/* 100-nanosecond intervals since January 1, 1601, urgh! */
time /= G_GINT64_CONSTANT (10000000); /* now seconds */
time -= G_GINT64_CONSTANT (134774) * 24 * 3600; /* good old Unix time */
gtk_file_info_set_modification_time (info, time);
}
if (types & GTK_FILE_INFO_SIZE)
{
gint64 size = wfad.nFileSizeLow | ((guint64)wfad.nFileSizeHigh) << 32;
gtk_file_info_set_size (info, size);
}
return info;
}
static gchar *
filename_from_path (const GtkFilePath *path)
{
return g_strdup (gtk_file_path_get_string (path));
}
static GtkFilePath *
filename_to_path (const char *filename)
{
return gtk_file_path_new_dup (filename);
}
static gboolean
filename_is_drive_root (const char *filename)
{
guint len = strlen (filename);
/* accept both forms */
return (len == 3 && filename[1] == ':' && G_IS_DIR_SEPARATOR (filename[2]));
}
static gboolean
filename_is_some_root (const char *filename)
{
return (G_IS_DIR_SEPARATOR (filename[0]) && filename[1] == '\0') ||
filename_is_drive_root (filename);
}