1 files changed, 342 insertions, 0 deletions
diff --git a/shell/e-local-storage.c b/shell/e-local-storage.c
new file mode 100644
index 0000000000..d4d30d67c5
--- /dev/null
+++ b/shell/e-local-storage.c
@@ -0,0 +1,342 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
+/* e-local-storage.c
+ *
+ * Copyright (C) 2000 Helix Code, Inc.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * This program 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
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public
+ * License along with this program; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ * Author: Ettore Perazzoli
+ */
+
+/* FIXMEs:
+ *
+ *   - If we have `.' or `..' as path elements, we lose.
+ *
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#define _POSIX_SOURCE /* Yuck.  */
+#include <dirent.h>
+
+#include <string.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include <gnome.h>
+
+#include "e-util/e-util.h"
+#include "e-local-folder.h"
+
+#include "e-local-storage.h"
+
+
+#define PARENT_TYPE E_TYPE_STORAGE
+static EStorageClass *parent_class = NULL;
+
+#define SUBFOLDER_DIR_NAME     "subfolders"
+#define SUBFOLDER_DIR_NAME_LEN 10
+
+struct _ELocalStoragePrivate {
+	char *base_path;
+};
+
+
+/* Utility functions.  */
+
+#if 0
+/* Translate a storage path into a real path on the file system.  */
+static char *
+get_real_path (ELocalStorage *local_storage,
+	       const char *path)
+{
+	EStorage *storage;
+	ELocalStoragePrivate *priv;
+	const char *p, *newp;
+	char *dp;
+	char *real_path;
+	int real_path_len;
+	int base_path_len;
+
+	storage = E_STORAGE (local_storage);
+	priv = local_storage->priv;
+
+	/* @path is always absolute, so it starts with a slash.  The base class should
+           make sure this is the case; if not, it's broken.  */
+	g_assert (*path != G_DIR_SEPARATOR);
+	path++;
+
+	/* Calculate the length of the real path. */
+
+	real_path_len = strlen (path);
+	real_path_len++;	/* For the ending zero.  */
+
+	base_path_len = strlen (priv->base_path);
+	real_path_len += base_path_len;
+	real_path_len++;	/* For the separating slash.  */
+
+	/* Take account for the fact that we need to translate every separator into
+           `children/'. */
+	p = path;
+	while (1) {
+		newp = strchr (p, G_DIR_SEPARATOR);
+		if (newp == NULL)
+			break;
+
+		real_path_len += SUBFOLDER_DIR_NAME_LEN;
+		real_path_len++; /* For the separating slash.  */
+
+		/* Skip consecutive slashes.  */
+		while (*newp == G_DIR_SEPARATOR)
+			newp++;
+
+		p = newp;
+	};
+
+	real_path = g_malloc (real_path_len);
+	dp = real_path;
+
+	memcpy (dp, priv->base_path, base_path_len);
+	dp += base_path_len;
+	*(dp++) = G_DIR_SEPARATOR;
+
+	/* Copy the mangled path.  */
+	p = path;
+ 	while (1) {
+		newp = strchr (p, G_DIR_SEPARATOR);
+		if (newp == NULL)
+			break;
+
+		memcpy (dp, p, newp - p + 1); /* `+ 1' to copy the slash too.  */
+		dp += newp - p + 1;
+
+		memcpy (dp, SUBFOLDER_DIR_NAME, SUBFOLDER_DIR_NAME_LEN);
+		dp += SUBFOLDER_DIR_NAME_LEN;
+
+		*(dp++) = G_DIR_SEPARATOR;
+
+		/* Skip consecutive slashes.  */
+		while (*newp == G_DIR_SEPARATOR)
+			newp++;
+
+		p = newp;
+	}
+
+	return real_path;
+}
+#endif
+
+static gboolean
+load_folders (ELocalStorage *local_storage,
+	      const char *parent_path,
+	      const char *path,
+	      const char *physical_path)
+{
+	DIR *dir;
+	char *subfolder_directory_path;
+	struct dirent *dirent;
+
+	if (parent_path == NULL) {
+		/* On the top level, we don't have any folders and, consequently, no
+		   subfolder directory.  */
+
+		subfolder_directory_path = g_strdup (physical_path);
+	} else {
+		EFolder *folder;
+
+		/*  Otherwise, we have to load the corresponding folder.  */
+
+		folder = e_local_folder_new_from_path (physical_path);
+		if (folder == NULL)
+			return FALSE;
+
+		e_storage_new_folder (E_STORAGE (local_storage), parent_path, folder);
+
+		subfolder_directory_path = g_concat_dir_and_file (physical_path, SUBFOLDER_DIR_NAME);
+	}
+
+	/* Now scan the subfolders and load them.  The subfolders are represented by
+           directories under the "SUBFOLDER_DIR_NAME" directory.  */
+
+	dir = opendir (subfolder_directory_path);
+
+	if (dir == NULL) {
+		g_free (subfolder_directory_path);
+		return FALSE;
+	}
+
+	dirent = g_malloc (sizeof (struct dirent) + MAXPATHLEN + 1);
+
+	while (1) {
+		struct stat file_stat;
+		struct dirent *result;
+		char *file_path;
+		char *new_path;
+
+		if (readdir_r (dir, dirent, &result) != 0)
+			break;
+		if (result == NULL)
+			break;
+
+		if (strcmp (result->d_name, ".") == 0 || strcmp (result->d_name, "..") == 0)
+			continue;
+
+		file_path = g_concat_dir_and_file (subfolder_directory_path,
+						   result->d_name);
+
+		if (stat (file_path, &file_stat) < 0) {
+			g_free (file_path);
+			continue;
+		}
+		if (! S_ISDIR (file_stat.st_mode)) {
+			g_free (file_path);
+			continue;
+		}
+
+		new_path = g_concat_dir_and_file (path, result->d_name);
+
+		load_folders (local_storage, path, new_path, file_path);
+
+		g_free (file_path);
+		g_free (new_path);
+	}
+
+	g_free (dirent);
+	closedir (dir);
+	g_free (subfolder_directory_path);
+
+	return TRUE;
+}
+
+static gboolean
+load_all_folders (ELocalStorage *local_storage)
+{
+	const char *base_path;
+
+	base_path = e_local_storage_get_base_path (local_storage);
+
+	return load_folders (local_storage, NULL, G_DIR_SEPARATOR_S, base_path);
+}
+
+
+/* GtkObject methods.  */
+
+static void
+destroy (GtkObject *object)
+{
+	ELocalStorage *local_storage;
+	ELocalStoragePrivate *priv;
+
+	local_storage = E_LOCAL_STORAGE (object);
+	priv = local_storage->priv;
+
+	g_free (priv->base_path);
+	g_free (priv);
+
+	(* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
+}
+
+
+/* EStorage methods.  */
+
+static const char *
+get_name (EStorage *storage)
+{
+	/* FIXME this sucks.  */
+	return "local";
+}
+
+
+/* Initialization.  */
+
+static void
+class_init (ELocalStorageClass *class)
+{
+	EStorageClass *storage_class;
+	GtkObjectClass *object_class;
+
+	parent_class = gtk_type_class (e_storage_get_type ());
+
+	object_class = GTK_OBJECT_CLASS (class);
+	object_class->destroy = destroy;
+
+	storage_class = E_STORAGE_CLASS (class);
+	storage_class->get_name = get_name;
+}
+
+static void
+init (ELocalStorage *local_storage)
+{
+	ELocalStoragePrivate *priv;
+
+	priv = g_new (ELocalStoragePrivate, 1);
+
+	priv->base_path = NULL;
+
+	local_storage->priv = priv;
+}
+
+
+static gboolean
+construct (ELocalStorage *local_storage,
+	   const char *base_path)
+{
+	int base_path_len;
+
+	e_storage_construct (E_STORAGE (local_storage));
+
+	base_path_len = strlen (base_path);
+	while (base_path_len > 0 && base_path[base_path_len - 1] == G_DIR_SEPARATOR)
+		base_path_len--;
+
+	g_return_val_if_fail (base_path_len != 0, FALSE);
+
+	local_storage->priv->base_path = g_strndup (base_path, base_path_len);
+
+	return load_all_folders (local_storage);
+}
+
+EStorage *
+e_local_storage_open (const char *base_path)
+{
+	EStorage *new;
+
+	g_return_val_if_fail (base_path != NULL, NULL);
+
+	new = gtk_type_new (e_local_storage_get_type ());
+
+	if (! construct (E_LOCAL_STORAGE (new), base_path)) {
+		gtk_object_unref (GTK_OBJECT (new));
+		return NULL;
+	}
+
+	return new;
+}
+
+const char *
+e_local_storage_get_base_path (ELocalStorage *local_storage)
+{
+	g_return_val_if_fail (local_storage != NULL, NULL);
+	g_return_val_if_fail (E_IS_LOCAL_STORAGE (local_storage), NULL);
+
+	return local_storage->priv->base_path;
+}
+
+
+E_MAKE_TYPE (e_local_storage, "ELocalStorage", ELocalStorage, class_init, init, PARENT_TYPE)