/*
* Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
- * Copyright (C) 1999-2007 Hiroyuki Yamamoto & The Claws Mail Team
+ * Copyright (C) 1999-2013 Hiroyuki Yamamoto & The Claws Mail Team
*
* 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
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *
+ * The code of the g_utf8_substring function below is owned by
+ * Matthias Clasen <matthiasc@src.gnome.org>/<mclasen@redhat.com>
+ * and is got from GLIB 2.30
*
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
+#include "claws-features.h"
#endif
#include "defs.h"
#include <glib.h>
+#include <gio/gio.h>
#include <glib/gi18n.h>
+#ifdef USE_PTHREAD
+#include <pthread.h>
+#endif
+
#include <stdio.h>
#include <string.h>
#include <ctype.h>
# include <w32lib.h>
#endif
-#ifdef MAEMO
-#include <libosso.h>
-#ifdef CHINOOK
-# include <tablet-browser-interface.h>
-#else
-# include <osso-browser-interface.h>
-#endif
-#endif
-
#include "utils.h"
#include "socket.h"
#include "../codeconv.h"
-#if !GLIB_CHECK_VERSION(2, 7, 0) && !defined(G_OS_UNIX)
+#if !defined(G_OS_UNIX)
gint g_chdir(const gchar *path)
{
#ifdef G_OS_WIN32
return fopen(filename, mode);
#endif
}
-#endif /* GLIB_CHECK_VERSION && G_OS_UNIX */
+int g_open(const gchar *filename, int flags, int mode)
+{
+#ifdef G_OS_WIN32
+ char *name = g_win32_locale_filename_from_utf8(filename);
+ int fd = open(name, flags, mode);
+ g_free(name);
+ return fp;
+#else
+ return open(filename, flags, mode);
+#endif
+}
+#endif /* G_OS_UNIX */
#ifdef G_OS_WIN32
int tmpfd;
*name_used = g_strdup_printf("%s.%ld",_mktemp(template),count++);
- tmpfd = open (*name_used, (O_CREAT | O_RDWR | O_BINARY),
+ tmpfd = g_open (*name_used, (O_CREAT | O_RDWR | O_BINARY),
(S_IRUSR | S_IWUSR));
tempfiles=g_slist_append(tempfiles, g_strdup(*name_used));
}
#endif /* G_OS_WIN32 */
+GSList *slist_copy_deep(GSList *list, GCopyFunc func)
+{
+#if GLIB_CHECK_VERSION(2, 34, 0)
+ return g_slist_copy_deep(list, func, NULL);
+#else
+ GSList *res = g_slist_copy(list);
+ GSList *walk = res;
+ while (walk) {
+ walk->data = func(walk->data, NULL);
+ walk = walk->next;
+ }
+ return res;
+#endif
+}
+
void list_free_strings(GList *list)
{
list = g_list_first(list);
}
}
+void slist_free_strings_full(GSList *list)
+{
+#if GLIB_CHECK_VERSION(2,28,0)
+ g_slist_free_full(list, (GDestroyNotify)g_free);
+#else
+ g_slist_foreach(list, (GFunc)g_free, NULL);
+ g_slist_free(list);
+#endif
+}
+
static void hash_free_strings_func(gpointer key, gpointer value, gpointer data)
{
g_free(key);
gint i;
gchar *str;
- g_return_if_fail(array != NULL);
+ cm_return_if_fail(array != NULL);
for (i = 0; i < array->len; i++) {
str = g_ptr_array_index(array, i);
}
}
-gboolean str_find(const gchar *haystack, const gchar *needle)
-{
- return strstr(haystack, needle) != NULL ? TRUE : FALSE;
-}
-
-gboolean str_case_find(const gchar *haystack, const gchar *needle)
-{
- return strcasestr(haystack, needle) != NULL ? TRUE : FALSE;
-}
-
gint to_number(const gchar *nstr)
{
register const gchar *p;
d = (d*100) >> divisor; \
}
+
+/*!
+ * \brief Convert a given size in bytes in a human-readable string
+ *
+ * \param size The size expressed in bytes to convert in string
+ * \return The string that respresents the size in an human-readable way
+ */
gchar *to_human_readable(goffset size)
{
static gchar str[14];
if (file == NULL)
goto freeout;
- fp = fopen(file, "rb");
+ fp = g_fopen(file, "rb");
if (!fp)
goto freeout;
- outfp = fopen(out, "wb");
+ outfp = g_fopen(out, "wb");
if (!outfp) {
fclose(fp);
goto freeout;
goto unlinkout;
}
- if (rename_force(out, file) < 0)
+ if (move_file(out, file, TRUE) < 0)
goto unlinkout;
g_free(out);
/* Similar to `strstr' but this function ignores the case of both strings. */
gchar *strcasestr(const gchar *haystack, const gchar *needle)
{
- register size_t haystack_len, needle_len;
+ size_t haystack_len = strlen(haystack);
+
+ return strncasestr(haystack, haystack_len, needle);
+}
+
+gchar *strncasestr(const gchar *haystack, gint haystack_len, const gchar *needle)
+{
+ register size_t needle_len;
- haystack_len = strlen(haystack);
needle_len = strlen(needle);
if (haystack_len < needle_len || needle_len == 0)
register gchar *srcp, *destp;
gint in_brace;
- srcp = destp = str;
+ destp = str;
while ((destp = strchr(destp, op))) {
in_brace = 1;
register gchar *srcp, *destp;
gint in_brace;
- srcp = destp = str;
+ destp = str;
while ((srcp = strchr(destp, op))) {
if (destp > str)
gint in_brace;
gboolean in_quote = FALSE;
- srcp = destp = str;
+ destp = str;
while ((srcp = strchr_with_skip_quote(destp, quote_chr, op))) {
if (destp > str)
}
}
+/* Returns a newly allocated string with all quote_chr not at the beginning
+ or the end of str escaped with '\' or the given str if not required. */
+gchar *escape_internal_quotes(gchar *str, gchar quote_chr)
+{
+ register gchar *p, *q;
+ gchar *qstr;
+ int k = 0, l = 0;
+
+ if (str == NULL || *str == '\0')
+ return str;
+
+ /* search for unescaped quote_chr */
+ p = str;
+ if (*p == quote_chr)
+ ++p, ++l;
+ while (*p) {
+ if (*p == quote_chr && *(p - 1) != '\\' && *(p + 1) != '\0')
+ ++k;
+ ++p, ++l;
+ }
+ if (!k) /* nothing to escape */
+ return str;
+
+ /* unescaped quote_chr found */
+ qstr = g_malloc(l + k + 1);
+ p = str;
+ q = qstr;
+ if (*p == quote_chr) {
+ *q = quote_chr;
+ ++p, ++q;
+ }
+ while (*p) {
+ if (*p == quote_chr && *(p - 1) != '\\' && *(p + 1) != '\0')
+ *q++ = '\\';
+ *q++ = *p++;
+ }
+ *q = '\0';
+
+ return qstr;
+}
+
void eliminate_address_comment(gchar *str)
{
register gchar *srcp, *destp;
gint in_brace;
- srcp = destp = str;
+ destp = str;
while ((destp = strchr(destp, '"'))) {
if ((srcp = strchr(destp + 1, '"'))) {
}
}
- srcp = destp = str;
+ destp = str;
while ((destp = strchr_with_skip_quote(destp, '"', '('))) {
in_brace = 1;
void extract_address(gchar *str)
{
+ cm_return_if_fail(str != NULL);
eliminate_address_comment(str);
if (strchr_with_skip_quote(str, '"', '<'))
extract_parenthesis_with_skip_quote(str, '"', '<', '>');
GList *add_history(GList *list, const gchar *str)
{
GList *old;
+ gchar *oldstr;
- g_return_val_if_fail(str != NULL, list);
+ cm_return_val_if_fail(str != NULL, list);
old = g_list_find_custom(list, (gpointer)str, (GCompareFunc)strcmp2);
if (old) {
- g_free(old->data);
+ oldstr = old->data;
list = g_list_remove(list, old->data);
+ g_free(oldstr);
} else if (g_list_length(list) >= MAX_HISTORY_SIZE) {
GList *last;
last = g_list_last(list);
if (last) {
- g_free(last->data);
+ oldstr = last->data;
list = g_list_remove(list, last->data);
+ g_free(oldstr);
}
}
int i;
if (quote_chars == NULL)
- return FALSE;
+ return NULL;
for (i = 0; i < strlen(quote_chars); i++) {
tmp_pos = strrchr (str, quote_chars[i]);
if (strchr(quote_chars, *p))
quote_level++;
else if (*p != '-' && !g_ascii_isspace(*p) && p <= last_pos) {
- /* any characters are allowed except '-' and space */
- while (*p != '-'
+ /* any characters are allowed except '-','<' and space */
+ while (*p != '-' && *p != '<'
&& !strchr(quote_chars, *p)
&& !g_ascii_isspace(*p)
&& p < last_pos)
in_dquote = FALSE;
else if (!in_squote)
in_dquote = TRUE;
+ } else if (*haystack == '\\') {
+ haystack++;
+ haystack_len--;
}
haystack++;
gchar **str_array, *s, *new_str;
guint i, n = 1, len;
- g_return_val_if_fail(str != NULL, NULL);
- g_return_val_if_fail(delim != NULL, NULL);
+ cm_return_val_if_fail(str != NULL, NULL);
+ cm_return_val_if_fail(delim != NULL, NULL);
if (max_tokens < 1)
max_tokens = G_MAXINT;
const gchar *p = group;
const gchar *last;
- g_return_val_if_fail(group != NULL, NULL);
+ cm_return_val_if_fail(group != NULL, NULL);
last = group + strlen(group);
abbrev_group = ap = g_malloc(strlen(group) + 1);
* g_filename_from_uri() rejects escaped/locale encoded uri
* string which come from Nautilus.
*/
+#ifndef G_OS_WIN32
if (g_utf8_validate(file, -1, NULL))
locale_file
= conv_codeset_strdup(
conv_get_locale_charset_str());
if (!locale_file)
locale_file = g_strdup(file + 5);
+#else
+ locale_file = g_filename_from_uri(file, NULL, NULL);
+#endif
result = g_list_append(result, locale_file);
}
}
}
gint scan_mailto_url(const gchar *mailto, gchar **from, gchar **to, gchar **cc, gchar **bcc,
- gchar **subject, gchar **body, gchar ***attach)
+ gchar **subject, gchar **body, gchar ***attach, gchar **inreplyto)
{
gchar *tmp_mailto;
gchar *p;
*body = decode_uri_gdup(value);
} else if (body && !*body && !g_ascii_strcasecmp(field, "insert")) {
gchar *tmp = decode_uri_gdup(value);
- if (!g_file_get_contents(value, body, NULL, NULL)) {
- g_error("Error: couldn't set insert file '%s' in body\n", value);
+ if (!g_file_get_contents(tmp, body, NULL, NULL)) {
+ g_warning("Error: couldn't set insert file '%s' in body\n", value);
}
g_free(tmp);
tmp = NULL;
my_att[num_attach-1] = tmp;
my_att[num_attach] = NULL;
}
+ } else if (inreplyto && !*inreplyto &&
+ !g_ascii_strcasecmp(field, "in-reply-to")) {
+ *inreplyto = decode_uri_gdup(value);
}
}
handle = dlopen (dllnames[i], RTLD_LAZY);
if (handle)
{
- func = dlsym (handle, "SHGetFolderPathA");
+ func = dlsym (handle, "SHGetFolderPathW");
if (!func)
{
dlclose (handle);
const gchar *get_home_dir(void)
{
#ifdef G_OS_WIN32
- static char home_dir[MAX_PATH] = "";
-
- if (home_dir[0] == '\0') {
+ static char home_dir_utf16[MAX_PATH] = "";
+ static gchar *home_dir_utf8 = NULL;
+ if (home_dir_utf16[0] == '\0') {
if (w32_shgetfolderpath
(NULL, CSIDL_APPDATA|CSIDL_FLAG_CREATE,
- NULL, 0, home_dir) < 0)
- strcpy (home_dir, "C:\\Sylpheed");
+ NULL, 0, home_dir_utf16) < 0)
+ strcpy (home_dir_utf16, "C:\\Sylpheed");
+ home_dir_utf8 = g_utf16_to_utf8 ((const gunichar *)home_dir_utf16, -1, NULL, NULL, NULL);
}
- return home_dir;
+ return home_dir_utf8;
#else
static const gchar *homeenv = NULL;
const gchar *get_rc_dir(void)
{
- if (!claws_rc_dir)
+ if (!claws_rc_dir) {
claws_rc_dir = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S,
RC_DIR, NULL);
-
+ debug_print("using default rc_dir %s\n", claws_rc_dir);
+ }
return claws_rc_dir;
}
void set_rc_dir(const gchar *dir)
{
+ gchar *canonical_dir;
if (claws_rc_dir != NULL) {
g_print("Error: rc_dir already set\n");
} else {
- rc_dir_alt = TRUE;
- if (g_path_is_absolute(dir))
- claws_rc_dir = g_strdup(dir);
- else {
- claws_rc_dir = g_strconcat(g_get_current_dir(),
- G_DIR_SEPARATOR_S, dir, NULL);
+ int err = cm_canonicalize_filename(dir, &canonical_dir);
+ int len;
+
+ if (err) {
+ g_print("Error looking for %s: %d(%s)\n",
+ dir, -err, strerror(-err));
+ exit(0);
}
+ rc_dir_alt = TRUE;
+
+ claws_rc_dir = canonical_dir;
+
+ len = strlen(claws_rc_dir);
+ if (claws_rc_dir[len - 1] == G_DIR_SEPARATOR)
+ claws_rc_dir[len - 1] = '\0';
+
debug_print("set rc_dir to %s\n", claws_rc_dir);
if (!is_dir_exist(claws_rc_dir)) {
if (make_dir_hier(claws_rc_dir) != 0) {
g_print("Error: can't create %s\n",
claws_rc_dir);
+ exit(0);
}
}
}
return get_home_dir();
}
-#ifdef MAEMO
-const gchar *prefs_common_get_data_root(void);
-gchar *last_data_root = NULL;
-#endif
-
const gchar *get_news_cache_dir(void)
{
static gchar *news_cache_dir = NULL;
-#ifdef MAEMO
- const gchar *data_root = prefs_common_get_data_root();
- if (strcmp2(data_root, last_data_root)) {
- g_free(news_cache_dir);
- news_cache_dir = NULL;
- }
-#endif
if (!news_cache_dir)
-#ifndef MAEMO
news_cache_dir = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
NEWS_CACHE_DIR, NULL);
-#else
- {
- if (data_root) {
- news_cache_dir = g_strconcat(data_root, G_DIR_SEPARATOR_S,
- "Claws", G_DIR_SEPARATOR_S,
- g_get_user_name(), G_DIR_SEPARATOR_S,
- NEWS_CACHE_DIR, NULL);
- g_free(last_data_root);
- last_data_root = g_strdup(last_data_root);
- } else {
- news_cache_dir = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
- NEWS_CACHE_DIR, NULL);
- g_free(last_data_root);
- last_data_root = NULL;
- }
- }
-#endif
+
return news_cache_dir;
}
const gchar *get_imap_cache_dir(void)
{
static gchar *imap_cache_dir = NULL;
-#ifdef MAEMO
- const gchar *data_root = prefs_common_get_data_root();
- if (strcmp2(data_root, last_data_root)) {
- g_free(imap_cache_dir);
- imap_cache_dir = NULL;
- }
-#endif
if (!imap_cache_dir)
-#ifndef MAEMO
imap_cache_dir = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
IMAP_CACHE_DIR, NULL);
-#else
- {
- if (data_root) {
- imap_cache_dir = g_strconcat(data_root, G_DIR_SEPARATOR_S,
- "Claws", G_DIR_SEPARATOR_S,
- g_get_user_name(), G_DIR_SEPARATOR_S,
- IMAP_CACHE_DIR, NULL);
- g_free(last_data_root);
- last_data_root = g_strdup(last_data_root);
- } else {
- imap_cache_dir = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
- IMAP_CACHE_DIR, NULL);
- g_free(last_data_root);
- last_data_root = NULL;
- }
- }
-#endif
return imap_cache_dir;
}
return template_dir;
}
+#ifdef G_OS_WIN32
+const gchar *get_cert_file(void)
+{
+ const gchar *cert_file = NULL;
+ if (!cert_file)
+ cert_file = g_strconcat(w32_get_module_dir(),
+ "\\share\\claws-mail\\",
+ "ca-certificates.crt",
+ NULL);
+ return cert_file;
+}
+#endif
+
+/* Return the filepath of the claws-mail.desktop file */
+const gchar *get_desktop_file(void)
+{
+#ifdef DESKTOPFILEPATH
+ return DESKTOPFILEPATH;
+#else
+ return NULL;
+#endif
+}
+
/* Return the default directory for Plugins. */
const gchar *get_plugin_dir(void)
{
#endif
}
+
+#ifdef G_OS_WIN32
+/* Return the default directory for Themes. */
+const gchar *get_themes_dir(void)
+{
+ static gchar *themes_dir = NULL;
+
+ if (!themes_dir)
+ themes_dir = g_strconcat(w32_get_module_dir(),
+ "\\share\\claws-mail\\themes",
+ NULL);
+ return themes_dir;
+}
+#endif
+
const gchar *get_tmp_dir(void)
{
static gchar *tmp_dir = NULL;
if (gethostname(hostname, sizeof(hostname)) != 0) {
perror("gethostname");
- domain_name = "unknown";
+ domain_name = "localhost";
} else {
hostname[sizeof(hostname) - 1] = '\0';
if ((hp = my_gethostbyname(hostname)) == NULL) {
return domain_name;
#else
- return "unknown";
+ return "localhost";
#endif
}
gchar buf[BUFFSIZE];
if ((fp = g_fopen(file, "rb")) == NULL) {
- FILE_OP_ERROR(file, "fopen");
+ FILE_OP_ERROR(file, "g_fopen");
return -1;
}
gboolean dirent_is_regular_file(struct dirent *d)
{
-#if !defined(G_OS_WIN32) && !defined(MAEMO) && defined(HAVE_DIRENT_D_TYPE)
+#if !defined(G_OS_WIN32) && defined(HAVE_DIRENT_D_TYPE)
if (d->d_type == DT_REG)
return TRUE;
else if (d->d_type != DT_UNKNOWN)
gchar *prev_dir;
gint file_no;
+ if (first == last) {
+ /* Skip all the dir reading part. */
+ gchar *filename = g_strdup_printf("%s%s%u", dir, G_DIR_SEPARATOR_S, first);
+ if (is_dir_exist(filename)) {
+ /* a numbered directory with this name exists,
+ * remove the dot-file instead */
+ g_free(filename);
+ filename = g_strdup_printf("%s%s.%u", dir, G_DIR_SEPARATOR_S, first);
+ }
+ if (claws_unlink(filename) < 0) {
+ FILE_OP_ERROR(filename, "unlink");
+ g_free(filename);
+ return -1;
+ }
+ g_free(filename);
+ return 0;
+ }
+
prev_dir = g_get_current_dir();
if (g_chdir(dir) < 0) {
while ((dir_name = g_dir_read_name(dp)) != NULL) {
file_no = to_number(dir_name);
if (file_no > 0 && first <= file_no && file_no <= last) {
- if (is_dir_exist(dir_name))
+ if (is_dir_exist(dir_name)) {
+ gchar *dot_file = g_strdup_printf(".%s", dir_name);
+ if (is_file_exist(dot_file) && claws_unlink(dot_file) < 0) {
+ FILE_OP_ERROR(dot_file, "unlink");
+ }
+ g_free(dot_file);
continue;
+ }
if (claws_unlink(dir_name) < 0)
FILE_OP_ERROR(dir_name, "unlink");
}
const gchar *dir_name;
gchar *prev_dir;
gint file_no;
+ GHashTable *wanted_files;
+ GSList *cur;
+
+ if (numberlist == NULL)
+ return 0;
prev_dir = g_get_current_dir();
return -1;
}
+ wanted_files = g_hash_table_new(g_direct_hash, g_direct_equal);
+ for (cur = numberlist; cur != NULL; cur = cur->next) {
+ /* numberlist->data is expected to be GINT_TO_POINTER */
+ g_hash_table_insert(wanted_files, cur->data, GINT_TO_POINTER(1));
+ }
+
while ((dir_name = g_dir_read_name(dp)) != NULL) {
file_no = to_number(dir_name);
- if (file_no > 0 && (g_slist_find(numberlist, GINT_TO_POINTER(file_no)) == NULL)) {
+ if (is_dir_exist(dir_name))
+ continue;
+ if (file_no > 0 && g_hash_table_lookup(wanted_files, GINT_TO_POINTER(file_no)) == NULL) {
debug_print("removing unwanted file %d from %s\n", file_no, dir);
- if (is_dir_exist(dir_name))
+ if (is_dir_exist(dir_name)) {
+ gchar *dot_file = g_strdup_printf(".%s", dir_name);
+ if (is_file_exist(dot_file) && claws_unlink(dot_file) < 0) {
+ FILE_OP_ERROR(dot_file, "unlink");
+ }
+ g_free(dot_file);
continue;
+ }
if (claws_unlink(dir_name) < 0)
FILE_OP_ERROR(dir_name, "unlink");
}
}
g_dir_close(dp);
+ g_hash_table_destroy(wanted_files);
if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
gboolean err = FALSE;
if ((src_fp = g_fopen(src, "rb")) == NULL) {
- FILE_OP_ERROR(src, "fopen");
+ FILE_OP_ERROR(src, "g_fopen");
return -1;
}
if ((dest_fp = g_fopen(dest, "ab")) == NULL) {
- FILE_OP_ERROR(dest, "fopen");
+ FILE_OP_ERROR(dest, "g_fopen");
fclose(src_fp);
return -1;
}
gboolean err = FALSE;
if ((src_fp = g_fopen(src, "rb")) == NULL) {
- FILE_OP_ERROR(src, "fopen");
+ FILE_OP_ERROR(src, "g_fopen");
return -1;
}
if (is_file_exist(dest)) {
}
if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
- FILE_OP_ERROR(dest, "fopen");
+ FILE_OP_ERROR(dest, "g_fopen");
fclose(src_fp);
if (dest_bak) {
if (rename_force(dest_bak, dest) < 0)
gboolean err = FALSE;
if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
- FILE_OP_ERROR(dest, "fopen");
+ FILE_OP_ERROR(dest, "g_fopen");
return -1;
}
gboolean err = FALSE;
gboolean last_linebreak = FALSE;
+ if (src == NULL || dest == NULL)
+ return -1;
+
if ((src_fp = g_fopen(src, "rb")) == NULL) {
- FILE_OP_ERROR(src, "fopen");
+ FILE_OP_ERROR(src, "g_fopen");
return -1;
}
if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
- FILE_OP_ERROR(dest, "fopen");
+ FILE_OP_ERROR(dest, "g_fopen");
fclose(src_fp);
return -1;
}
gchar *normalize_newlines(const gchar *str)
{
- const gchar *p = str;
+ const gchar *p;
gchar *out, *outp;
out = outp = g_malloc(strlen(str) + 1);
#else
*filename = g_strdup_printf("%s%cclaws.XXXXXX", dir, G_DIR_SEPARATOR);
fd = mkstemp(*filename);
+ if (fd < 0)
+ return NULL;
#endif
return fdopen(fd, "w+");
}
FILE *fp;
size_t len;
- g_return_val_if_fail(str != NULL, NULL);
+ cm_return_val_if_fail(str != NULL, NULL);
fp = my_tmpfile();
if (!fp) {
FILE *fp;
size_t len;
- g_return_val_if_fail(str != NULL, -1);
- g_return_val_if_fail(file != NULL, -1);
+ cm_return_val_if_fail(str != NULL, -1);
+ cm_return_val_if_fail(file != NULL, -1);
if ((fp = g_fopen(file, "wb")) == NULL) {
- FILE_OP_ERROR(file, "fopen");
+ FILE_OP_ERROR(file, "g_fopen");
return -1;
}
gint n_read;
gchar *str;
- g_return_val_if_fail(fp != NULL, NULL);
+ cm_return_val_if_fail(fp != NULL, NULL);
array = g_byte_array_new();
int fflags = 0;
#endif
- g_return_val_if_fail(file != NULL, NULL);
+ cm_return_val_if_fail(file != NULL, NULL);
if (g_stat(file, &s) != 0) {
FILE_OP_ERROR(file, "stat");
}
#ifdef G_OS_WIN32
- fp = fopen (file, "rb");
+ fp = g_fopen (file, "rb");
if (fp == NULL) {
FILE_OP_ERROR(file, "open");
return NULL;
}
#else
/* test whether the file is readable without blocking */
- fd = open(file, O_RDONLY | O_NONBLOCK);
+ fd = g_open(file, O_RDONLY | O_NONBLOCK, 0);
if (fd == -1) {
FILE_OP_ERROR(file, "open");
return NULL;
static gint execute_async(gchar *const argv[])
{
- g_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
+ cm_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
if (g_spawn_async(NULL, (gchar **)argv, NULL, G_SPAWN_SEARCH_PATH,
NULL, NULL, NULL, FALSE) == FALSE) {
{
gint status;
- g_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
+ cm_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
+#ifdef G_OS_UNIX
if (g_spawn_sync(NULL, (gchar **)argv, NULL, G_SPAWN_SEARCH_PATH,
NULL, NULL, NULL, NULL, &status, NULL) == FALSE) {
g_warning("Couldn't execute command: %s\n", argv[0]);
return -1;
}
-#ifdef G_OS_UNIX
if (WIFEXITED(status))
return WEXITSTATUS(status);
else
return -1;
#else
+ if (g_spawn_sync(NULL, (gchar **)argv, NULL, G_SPAWN_SEARCH_PATH|
+ G_SPAWN_CHILD_INHERITS_STDIN|G_SPAWN_LEAVE_DESCRIPTORS_OPEN,
+ NULL, NULL, NULL, NULL, &status, NULL) == FALSE) {
+ g_warning("Couldn't execute command: %s\n", argv[0]);
+ return -1;
+ }
+
return status;
#endif
}
gchar *child_stdout;
gint status;
- g_return_val_if_fail(cmdline != NULL, NULL);
+ cm_return_val_if_fail(cmdline != NULL, NULL);
debug_print("get_command_output(): executing: %s\n", cmdline);
return child_stdout;
}
-#ifndef MAEMO
+
static gint is_unchanged_uri_char(char c)
{
switch (c) {
}
encoded_uri[k] = 0;
}
-#endif
+
gint open_uri(const gchar *uri, const gchar *cmdline)
{
-#ifndef MAEMO
+
+#ifndef G_OS_WIN32
gchar buf[BUFFSIZE];
gchar *p;
gchar encoded_uri[BUFFSIZE];
- g_return_val_if_fail(uri != NULL, -1);
+ cm_return_val_if_fail(uri != NULL, -1);
/* an option to choose whether to use encode_uri or not ? */
encode_uri(encoded_uri, BUFFSIZE, uri);
g_snprintf(buf, sizeof(buf), cmdline, encoded_uri);
else {
if (cmdline)
- g_warning("Open URI command line is invalid "
+ g_warning("Open URI command-line is invalid "
"(there must be only one '%%s'): %s",
cmdline);
g_snprintf(buf, sizeof(buf), DEFAULT_BROWSER_CMD, encoded_uri);
execute_command_line(buf, TRUE);
#else
- extern osso_context_t *get_osso_context(void);
- osso_rpc_run_with_defaults(get_osso_context(), "osso_browser",
- OSSO_BROWSER_OPEN_NEW_WINDOW_REQ, NULL,
- DBUS_TYPE_STRING, uri, DBUS_TYPE_INVALID);
+ ShellExecute(NULL, "open", uri, NULL, NULL, SW_SHOW);
#endif
return 0;
}
gchar buf[BUFFSIZE];
gchar *p;
- g_return_val_if_fail(filepath != NULL, -1);
+ cm_return_val_if_fail(filepath != NULL, -1);
if (cmdline &&
(p = strchr(cmdline, '%')) && *(p + 1) == 's' &&
g_snprintf(buf, sizeof(buf), cmdline, filepath);
else {
if (cmdline)
- g_warning("Open Text Editor command line is invalid "
+ g_warning("Open Text Editor command-line is invalid "
"(there must be only one '%%s'): %s",
cmdline);
g_snprintf(buf, sizeof(buf), DEFAULT_EDITOR_CMD, filepath);
{
struct tm gmt, *lt;
gint off;
-#ifndef G_OS_WIN32
struct tm buf1, buf2;
-#endif
#ifdef G_OS_WIN32
if (now && *now < 0)
return 0;
struct tm gmt, *lt;
gint off;
gchar sign = '+';
-#ifndef G_OS_WIN32
struct tm buf1, buf2;
-#endif
#ifdef G_OS_WIN32
if (now && *now < 0)
return 0;
time_t t;
gchar day[4], mon[4];
gint dd, hh, mm, ss, yyyy;
-#ifndef G_OS_WIN32
struct tm buf1;
gchar buf2[BUFFSIZE];
-#endif
t = time(NULL);
lt = localtime_r(&t, &buf1);
g_hash_table_remove(subject_table, subject);
}
-/*!
- *\brief Check if a string is prefixed with known (combinations)
- * of prefixes. The function assumes that each prefix
- * is terminated by zero or exactly _one_ space.
- *
- *\param str String to check for a prefixes
- *
- *\return int Number of chars in the prefix that should be skipped
- * for a "clean" subject line. If no prefix was found, 0
- * is returned.
- */
-
#ifndef G_OS_WIN32
static regex_t u_regex;
static gboolean u_init_;
#endif
}
+/*!
+ *\brief Check if a string is prefixed with known (combinations)
+ * of prefixes. The function assumes that each prefix
+ * is terminated by zero or exactly _one_ space.
+ *
+ *\param str String to check for a prefixes
+ *
+ *\return int Number of chars in the prefix that should be skipped
+ * for a "clean" subject line. If no prefix was found, 0
+ * is returned.
+ */
int subject_get_prefix_length(const gchar *subject)
{
#ifndef G_OS_WIN32
"Antw\\:", /* "Antw:" (Dutch / German Outlook) */
"Aw\\:", /* "Aw:" (German) */
"Antwort\\:", /* "Antwort:" (German Lotus Notes) */
- "Res\\:", /* "Res:" (Brazilian Outlook) */
+ "Res\\:", /* "Res:" (Spanish/Brazilian Outlook) */
"Fw\\:", /* "Fw:" Forward */
"Fwd\\:", /* "Fwd:" Forward */
"Enc\\:", /* "Enc:" Forward (Brazilian Outlook) */
"Sv\\:", /* "Sv" (Norwegian) */
"Vs\\:", /* "Vs" (Norwegian) */
"Ad\\:", /* "Ad" (Norwegian) */
- "\347\255\224\345\244\215\\:" /* "Re" (Chinese, UTF-8) */
+ "\347\255\224\345\244\215\\:", /* "Re" (Chinese, UTF-8) */
+ "R\303\251f\\. \\:", /* "R�f. :" (French Lotus Notes) */
+ "Re \\:", /* "Re :" (French Yahoo Mail) */
/* add more */
};
const int PREFIXES = sizeof prefixes / sizeof prefixes[0];
"antw:", /* "Antw:" (Dutch / German Outlook) */
"aw:", /* "Aw:" (German) */
"antwort:", /* "Antwort:" (German Lotus Notes) */
- "res:", /* "Res:" (Brazilian Outlook) */
+ "res:", /* "Res:" (Spanish/Brazilian Outlook) */
"fw:", /* "Fw:" Forward */
"fwd:", /* "Fwd:" Forward */
"enc:", /* "Enc:" Forward (Brazilian Outlook) */
"sv:", /* "Sv" (Norwegian) */
"vs:", /* "Vs" (Norwegian) */
"ad:", /* "Ad" (Norwegian) */
+ "R\303\251f. :", /* "R�f. :" (French Lotus Notes) */
+ "Re :", /* "Re :" (French Yahoo Mail) */
/* add more */
};
const int PREFIXES = sizeof prefixes / sizeof prefixes[0];
for (n = 0; n < PREFIXES; n++) {
int len = strlen(prefixes[n]);
- if (!strncasecmp(subject, prefixes[n], len))
- return len;
+ if (!strncasecmp(subject, prefixes[n], len)) {
+ if (subject[len] == ' ')
+ return len+1;
+ else
+ return len;
+ }
}
return 0;
#endif
return GPOINTER_TO_INT(a) - GPOINTER_TO_INT(b);
}
-gchar *generate_msgid(gchar *buf, gint len)
+gchar *generate_msgid(gchar *buf, gint len, gchar *user_addr)
{
struct tm *lt;
time_t t;
gchar *addr;
-#ifndef G_OS_WIN32
struct tm buft;
-#endif
t = time(NULL);
lt = localtime_r(&t, &buft);
- if (strcmp(buf, "") == 0) {
- addr = g_strconcat("@", get_domain_name(), NULL);
- }
- else {
- addr = g_strconcat("@", buf, NULL);
- }
+ if (user_addr != NULL)
+ addr = g_strdup_printf(".%s", user_addr);
+ else if (strlen(buf) != 0)
+ addr = g_strdup_printf("@%s", buf);
+ else
+ addr = g_strdup_printf("@%s", get_domain_name());
+
+ /* Replace all @ but the last one in addr, with underscores.
+ * RFC 2822 States that msg-id syntax only allows one @.
+ */
+ while (strchr(addr, '@') != NULL && strchr(addr, '@') != strrchr(addr, '@'))
+ *(strchr(addr, '@')) = '_';
g_snprintf(buf, len, "%04d%02d%02d%02d%02d%02d.%08x%s",
lt->tm_year + 1900, lt->tm_mon + 1,
return a quoted string safely usable in argument of a command.
- code is extracted and adapted from etPan! project -- DINH V. Hoà .
+ code is extracted and adapted from etPan! project -- DINH V. Ho�.
*/
gint quote_cmd_argument(gchar * result, guint size,
GNode *root;
GNodeMapData mapdata;
- g_return_val_if_fail(node != NULL, NULL);
- g_return_val_if_fail(func != NULL, NULL);
+ cm_return_val_if_fail(node != NULL, NULL);
+ cm_return_val_if_fail(func != NULL, NULL);
root = g_node_new(func(node->data, data));
INT_TO_HEX(hex, ch >> 4);
*out++ = hex;
INT_TO_HEX(hex, ch & 0x0f);
- *out++ = hex;
+ *out = hex;
}
#undef REF_DEBUG
const gchar *ep_;
gint parenthese_cnt = 0;
- g_return_val_if_fail(start != NULL, FALSE);
- g_return_val_if_fail(scanpos != NULL, FALSE);
- g_return_val_if_fail(bp != NULL, FALSE);
- g_return_val_if_fail(ep != NULL, FALSE);
+ cm_return_val_if_fail(start != NULL, FALSE);
+ cm_return_val_if_fail(scanpos != NULL, FALSE);
+ cm_return_val_if_fail(bp != NULL, FALSE);
+ cm_return_val_if_fail(ep != NULL, FALSE);
*bp = scanpos;
* should pass some URI type to this function and decide on that whether
* to perform punctuation stripping */
-#define IS_REAL_PUNCT(ch) (g_ascii_ispunct(ch) && !strchr("/?=-)", ch))
+#define IS_REAL_PUNCT(ch) (g_ascii_ispunct(ch) && !strchr("/?=-_)", ch))
for (; ep_ - 1 > scanpos + 1 &&
IS_REAL_PUNCT(*(ep_ - 1));
gint n;
GHashTable *htab = g_hash_table_new(g_stricase_hash, g_stricase_equal);
- g_return_val_if_fail(htab, NULL);
+ cm_return_val_if_fail(htab, NULL);
for (n = 0; n < sizeof toplvl_domains / sizeof toplvl_domains[0]; n++)
g_hash_table_insert(htab, (gpointer) toplvl_domains[n], (gpointer) toplvl_domains[n]);
return htab;
gchar closure_stack[128];
gchar *ptr = closure_stack;
- g_return_val_if_fail(start != NULL, FALSE);
- g_return_val_if_fail(scanpos != NULL, FALSE);
- g_return_val_if_fail(bp != NULL, FALSE);
- g_return_val_if_fail(ep != NULL, FALSE);
+ cm_return_val_if_fail(start != NULL, FALSE);
+ cm_return_val_if_fail(scanpos != NULL, FALSE);
+ cm_return_val_if_fail(bp != NULL, FALSE);
+ cm_return_val_if_fail(ep != NULL, FALSE);
if (hdr) {
const gchar *start_quote = NULL;
if (!dom_tab)
dom_tab = create_domain_tab();
- g_return_val_if_fail(dom_tab, FALSE);
+ cm_return_val_if_fail(dom_tab, FALSE);
/* scan start of address */
for (bp_ = scanpos - 1;
POP_STACK();
continue;
}
- if (*bp_ == '\'' || *bp_ == '"') {
+ if (!IN_STACK() && (*bp_ == '\'' || *bp_ == '"')) {
PUSH_STACK(*bp_);
continue;
}
static gchar *mailcap_get_command_in_file(const gchar *path, const gchar *type, const gchar *file_to_open)
{
- FILE *fp = fopen(path, "rb");
+ FILE *fp = g_fopen(path, "rb");
gchar buf[BUFFSIZE];
gchar *result = NULL;
if (!fp)
gchar *path = NULL, *outpath = NULL;
path = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S, ".mailcap", NULL);
outpath = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S, ".mailcap.new", NULL);
- FILE *fp = fopen(path, "rb");
- FILE *outfp = fopen(outpath, "wb");
+ FILE *fp = g_fopen(path, "rb");
+ FILE *outfp = NULL;
gchar buf[BUFFSIZE];
gboolean err = FALSE;
+ if (!fp) {
+ g_free(path);
+ g_free(outpath);
+ return;
+ }
+
+ outfp = g_fopen(outpath, "wb");
if (!outfp) {
g_free(path);
g_free(outpath);
&& fgets(buffer, sizeof (buffer), fp) > 0) {
if (!strncmp(buffer, "From:", strlen("From:")))
score++;
- if (!strncmp(buffer, "To:", strlen("To:")))
+ else if (!strncmp(buffer, "Date:", strlen("Date:")))
+ score++;
+ else if (!strncmp(buffer, "Message-ID:", strlen("Message-ID:")))
score++;
- if (!strncmp(buffer, "Subject:", strlen("Subject:")))
+ else if (!strncmp(buffer, "Subject:", strlen("Subject:")))
score++;
i++;
}
gint s_am_low_len = 0;
gint s_pm_low_len = 0;
-const gchar *def_loc_format = NULL;
-const gchar *date_loc_format = NULL;
-const gchar *time_loc_format = NULL;
-const gchar *time_am_pm = NULL;
-
static gboolean time_names_init_done = FALSE;
static void init_time_names(void)
{
int i = 0;
- daynames[0] = Q_("Complete day name for use by strftime|Sunday");
- daynames[1] = Q_("Complete day name for use by strftime|Monday");
- daynames[2] = Q_("Complete day name for use by strftime|Tuesday");
- daynames[3] = Q_("Complete day name for use by strftime|Wednesday");
- daynames[4] = Q_("Complete day name for use by strftime|Thursday");
- daynames[5] = Q_("Complete day name for use by strftime|Friday");
- daynames[6] = Q_("Complete day name for use by strftime|Saturday");
-
- monthnames[0] = Q_("Complete month name for use by strftime|January");
- monthnames[1] = Q_("Complete month name for use by strftime|February");
- monthnames[2] = Q_("Complete month name for use by strftime|March");
- monthnames[3] = Q_("Complete month name for use by strftime|April");
- monthnames[4] = Q_("Complete month name for use by strftime|May");
- monthnames[5] = Q_("Complete month name for use by strftime|June");
- monthnames[6] = Q_("Complete month name for use by strftime|July");
- monthnames[7] = Q_("Complete month name for use by strftime|August");
- monthnames[8] = Q_("Complete month name for use by strftime|September");
- monthnames[9] = Q_("Complete month name for use by strftime|October");
- monthnames[10] = Q_("Complete month name for use by strftime|November");
- monthnames[11] = Q_("Complete month name for use by strftime|December");
-
- s_daynames[0] = Q_("Abbr. day name for use by strftime|Sun");
- s_daynames[1] = Q_("Abbr. day name for use by strftime|Mon");
- s_daynames[2] = Q_("Abbr. day name for use by strftime|Tue");
- s_daynames[3] = Q_("Abbr. day name for use by strftime|Wed");
- s_daynames[4] = Q_("Abbr. day name for use by strftime|Thu");
- s_daynames[5] = Q_("Abbr. day name for use by strftime|Fri");
- s_daynames[6] = Q_("Abbr. day name for use by strftime|Sat");
+ daynames[0] = C_("Complete day name for use by strftime", "Sunday");
+ daynames[1] = C_("Complete day name for use by strftime", "Monday");
+ daynames[2] = C_("Complete day name for use by strftime", "Tuesday");
+ daynames[3] = C_("Complete day name for use by strftime", "Wednesday");
+ daynames[4] = C_("Complete day name for use by strftime", "Thursday");
+ daynames[5] = C_("Complete day name for use by strftime", "Friday");
+ daynames[6] = C_("Complete day name for use by strftime", "Saturday");
+
+ monthnames[0] = C_("Complete month name for use by strftime", "January");
+ monthnames[1] = C_("Complete month name for use by strftime", "February");
+ monthnames[2] = C_("Complete month name for use by strftime", "March");
+ monthnames[3] = C_("Complete month name for use by strftime", "April");
+ monthnames[4] = C_("Complete month name for use by strftime", "May");
+ monthnames[5] = C_("Complete month name for use by strftime", "June");
+ monthnames[6] = C_("Complete month name for use by strftime", "July");
+ monthnames[7] = C_("Complete month name for use by strftime", "August");
+ monthnames[8] = C_("Complete month name for use by strftime", "September");
+ monthnames[9] = C_("Complete month name for use by strftime", "October");
+ monthnames[10] = C_("Complete month name for use by strftime", "November");
+ monthnames[11] = C_("Complete month name for use by strftime", "December");
+
+ s_daynames[0] = C_("Abbr. day name for use by strftime", "Sun");
+ s_daynames[1] = C_("Abbr. day name for use by strftime", "Mon");
+ s_daynames[2] = C_("Abbr. day name for use by strftime", "Tue");
+ s_daynames[3] = C_("Abbr. day name for use by strftime", "Wed");
+ s_daynames[4] = C_("Abbr. day name for use by strftime", "Thu");
+ s_daynames[5] = C_("Abbr. day name for use by strftime", "Fri");
+ s_daynames[6] = C_("Abbr. day name for use by strftime", "Sat");
- s_monthnames[0] = Q_("Abbr. month name for use by strftime|Jan");
- s_monthnames[1] = Q_("Abbr. month name for use by strftime|Feb");
- s_monthnames[2] = Q_("Abbr. month name for use by strftime|Mar");
- s_monthnames[3] = Q_("Abbr. month name for use by strftime|Apr");
- s_monthnames[4] = Q_("Abbr. month name for use by strftime|May");
- s_monthnames[5] = Q_("Abbr. month name for use by strftime|Jun");
- s_monthnames[6] = Q_("Abbr. month name for use by strftime|Jul");
- s_monthnames[7] = Q_("Abbr. month name for use by strftime|Aug");
- s_monthnames[8] = Q_("Abbr. month name for use by strftime|Sep");
- s_monthnames[9] = Q_("Abbr. month name for use by strftime|Oct");
- s_monthnames[10] = Q_("Abbr. month name for use by strftime|Nov");
- s_monthnames[11] = Q_("Abbr. month name for use by strftime|Dec");
+ s_monthnames[0] = C_("Abbr. month name for use by strftime", "Jan");
+ s_monthnames[1] = C_("Abbr. month name for use by strftime", "Feb");
+ s_monthnames[2] = C_("Abbr. month name for use by strftime", "Mar");
+ s_monthnames[3] = C_("Abbr. month name for use by strftime", "Apr");
+ s_monthnames[4] = C_("Abbr. month name for use by strftime", "May");
+ s_monthnames[5] = C_("Abbr. month name for use by strftime", "Jun");
+ s_monthnames[6] = C_("Abbr. month name for use by strftime", "Jul");
+ s_monthnames[7] = C_("Abbr. month name for use by strftime", "Aug");
+ s_monthnames[8] = C_("Abbr. month name for use by strftime", "Sep");
+ s_monthnames[9] = C_("Abbr. month name for use by strftime", "Oct");
+ s_monthnames[10] = C_("Abbr. month name for use by strftime", "Nov");
+ s_monthnames[11] = C_("Abbr. month name for use by strftime", "Dec");
for (i = 0; i < 7; i++) {
daynames_len[i] = strlen(daynames[i]);
s_monthnames_len[i] = strlen(s_monthnames[i]);
}
- s_am_up = Q_("For use by strftime (morning)|AM");
- s_pm_up = Q_("For use by strftime (afternoon)|PM");
- s_am_low = Q_("For use by strftime (morning, lowercase)|am");
- s_pm_low = Q_("For use by strftime (afternoon, lowercase)|pm");
+ s_am_up = C_("For use by strftime (morning)", "AM");
+ s_pm_up = C_("For use by strftime (afternoon)", "PM");
+ s_am_low = C_("For use by strftime (morning, lowercase)", "am");
+ s_pm_low = C_("For use by strftime (afternoon, lowercase)", "pm");
s_am_up_len = strlen(s_am_up);
s_pm_up_len = strlen(s_pm_up);
s_am_low_len = strlen(s_am_low);
s_pm_low_len = strlen(s_pm_low);
-
- def_loc_format = Q_("For use by strftime (default date+time format)|%a %b %e %H:%M:%S %Y");
- date_loc_format = Q_("For use by strftime (default date format)|%m/%d/%y");
- time_loc_format = Q_("For use by strftime (default time format)|%H:%M:%S");
-
- time_am_pm = Q_("For use by strftime (default 12-hour time format)|%I:%M:%S %p");
time_names_init_done = TRUE;
}
strncpy2(curpos, monthnames[lt->tm_mon], buflen - total_done);
break;
case 'c':
- fast_strftime(subbuf, 64, def_loc_format, lt);
+ strftime(subbuf, 64, "%c", lt);
len = strlen(subbuf); CHECK_SIZE();
strncpy2(curpos, subbuf, buflen - total_done);
break;
}
break;
case 'r':
- fast_strftime(subbuf, 64, time_am_pm, lt);
+ strftime(subbuf, 64, "%r", lt);
len = strlen(subbuf); CHECK_SIZE();
strncpy2(curpos, subbuf, buflen - total_done);
break;
snprintf(curpos, buflen - total_done, "%d", lt->tm_wday);
break;
case 'x':
- fast_strftime(subbuf, 64, date_loc_format, lt);
+ strftime(subbuf, 64, "%x", lt);
len = strlen(subbuf); CHECK_SIZE();
strncpy2(curpos, subbuf, buflen - total_done);
break;
case 'X':
- fast_strftime(subbuf, 64, time_loc_format, lt);
+ strftime(subbuf, 64, "%X", lt);
len = strlen(subbuf); CHECK_SIZE();
strncpy2(curpos, subbuf, buflen - total_done);
break;
format++;
break;
default:
- if (format && *format)
- g_warning("format error (%c)", *format);
+ g_warning("format error (%c)", *format);
*curpos = '\0';
return total_done;
}
*curpos++ = *format++;
}
}
- *curpos++ = '\0';
+ *curpos = '\0';
return total_done;
}
}
return g_unlink(filename);
}
+
+GMutex *cm_mutex_new(void) {
+#if GLIB_CHECK_VERSION(2,32,0)
+ GMutex *m = g_new0(GMutex, 1);
+ g_mutex_init(m);
+ return m;
+#else
+ return g_mutex_new();
+#endif
+}
+
+void cm_mutex_free(GMutex *mutex) {
+#if GLIB_CHECK_VERSION(2,32,0)
+ g_mutex_clear(mutex);
+ g_free(mutex);
+#else
+ g_mutex_free(mutex);
+#endif
+}
+
+static gchar *canonical_list_to_file(GSList *list)
+{
+ GString *result = g_string_new(NULL);
+ GSList *pathlist = g_slist_reverse(g_slist_copy(list));
+ GSList *cur;
+ gchar *str;
+
+#ifndef G_OS_WIN32
+ result = g_string_append(result, G_DIR_SEPARATOR_S);
+#else
+ if (pathlist->data) {
+ const gchar *root = (gchar *)pathlist->data;
+ if (root[0] != '\0' && g_ascii_isalpha(root[0]) &&
+ root[1] == ':') {
+ /* drive - don't prepend dir separator */
+ } else {
+ result = g_string_append(result, G_DIR_SEPARATOR_S);
+ }
+ }
+#endif
+
+ for (cur = pathlist; cur; cur = cur->next) {
+ result = g_string_append(result, (gchar *)cur->data);
+ if (cur->next)
+ result = g_string_append(result, G_DIR_SEPARATOR_S);
+ }
+ g_slist_free(pathlist);
+
+ str = result->str;
+ g_string_free(result, FALSE);
+
+ return str;
+}
+
+static GSList *cm_split_path(const gchar *filename, int depth)
+{
+ gchar **path_parts;
+ GSList *canonical_parts = NULL;
+ struct stat st;
+ int i;
+ gboolean follow_symlinks = TRUE;
+
+ if (depth > 32) {
+#ifndef G_OS_WIN32
+ errno = ELOOP;
+#else
+ errno = EINVAL; /* can't happen, no symlink handling */
+#endif
+ return NULL;
+ }
+
+ if (!g_path_is_absolute(filename)) {
+ errno =EINVAL;
+ return NULL;
+ }
+
+ path_parts = g_strsplit(filename, G_DIR_SEPARATOR_S, -1);
+
+ for (i = 0; path_parts[i] != NULL; i++) {
+ if (!strcmp(path_parts[i], ""))
+ continue;
+ if (!strcmp(path_parts[i], "."))
+ continue;
+ else if (!strcmp(path_parts[i], "..")) {
+ if (i == 0) {
+ errno =ENOTDIR;
+ return NULL;
+ }
+ else /* Remove the last inserted element */
+ canonical_parts =
+ g_slist_delete_link(canonical_parts,
+ canonical_parts);
+ } else {
+ gchar *tmp_path;
+
+ canonical_parts = g_slist_prepend(canonical_parts,
+ g_strdup(path_parts[i]));
+
+ tmp_path = canonical_list_to_file(canonical_parts);
+
+ if(g_stat(tmp_path, &st) < 0) {
+ if (errno == ENOENT) {
+ errno = 0;
+ follow_symlinks = FALSE;
+ }
+ if (errno != 0) {
+ g_free(tmp_path);
+ slist_free_strings_full(canonical_parts);
+ g_strfreev(path_parts);
+
+ return NULL;
+ }
+ }
+#ifndef G_OS_WIN32
+ if (follow_symlinks && g_file_test(tmp_path, G_FILE_TEST_IS_SYMLINK)) {
+ GError *error = NULL;
+ gchar *target = g_file_read_link(tmp_path, &error);
+
+ if (!g_path_is_absolute(target)) {
+ /* remove the last inserted element */
+ canonical_parts =
+ g_slist_delete_link(canonical_parts,
+ canonical_parts);
+ /* add the target */
+ canonical_parts = g_slist_prepend(canonical_parts,
+ g_strdup(target));
+ g_free(target);
+
+ /* and get the new target */
+ target = canonical_list_to_file(canonical_parts);
+ }
+
+ /* restart from absolute target */
+ slist_free_strings_full(canonical_parts);
+ canonical_parts = NULL;
+ if (!error)
+ canonical_parts = cm_split_path(target, depth + 1);
+ else
+ g_error_free(error);
+ if (canonical_parts == NULL) {
+ g_free(tmp_path);
+ g_strfreev(path_parts);
+ return NULL;
+ }
+ g_free(target);
+ }
+#endif
+ g_free(tmp_path);
+ }
+ }
+ g_strfreev(path_parts);
+ return canonical_parts;
+}
+
+/*
+ * Canonicalize a filename, resolving symlinks along the way.
+ * Returns a negative errno in case of error.
+ */
+int cm_canonicalize_filename(const gchar *filename, gchar **canonical_name) {
+ GSList *canonical_parts;
+ gboolean is_absolute;
+
+ if (filename == NULL)
+ return -EINVAL;
+ if (canonical_name == NULL)
+ return -EINVAL;
+ *canonical_name = NULL;
+
+ is_absolute = g_path_is_absolute(filename);
+ if (!is_absolute) {
+ /* Always work on absolute filenames. */
+ gchar *cur = g_get_current_dir();
+ gchar *absolute_filename = g_strconcat(cur, G_DIR_SEPARATOR_S,
+ filename, NULL);
+
+ canonical_parts = cm_split_path(absolute_filename, 0);
+ g_free(absolute_filename);
+ g_free(cur);
+ } else
+ canonical_parts = cm_split_path(filename, 0);
+
+ if (canonical_parts == NULL)
+ return -errno;
+
+ *canonical_name = canonical_list_to_file(canonical_parts);
+ slist_free_strings_full(canonical_parts);
+ return 0;
+}
+
+#if !GLIB_CHECK_VERSION(2, 30, 0)
+/**
+ * g_utf8_substring:
+ * @str: a UTF-8 encoded string
+ * @start_pos: a character offset within @str
+ * @end_pos: another character offset within @str
+ *
+ * Copies a substring out of a UTF-8 encoded string.
+ * The substring will contain @end_pos - @start_pos
+ * characters.
+ *
+ * Returns: a newly allocated copy of the requested
+ * substring. Free with g_free() when no longer needed.
+ *
+ * Since: GLIB 2.30
+ */
+gchar *
+g_utf8_substring (const gchar *str,
+ glong start_pos,
+ glong end_pos)
+{
+ gchar *start, *end, *out;
+
+ start = g_utf8_offset_to_pointer (str, start_pos);
+ end = g_utf8_offset_to_pointer (start, end_pos - start_pos);
+
+ out = g_malloc (end - start + 1);
+ memcpy (out, start, end - start);
+ out[end - start] = 0;
+
+ return out;
+}
+#endif