Fix typo in variable name in Windows g_open() implementation.
[claws.git] / src / common / utils.c
index a48d4e4cf7168a5fdda6d17245571338cf1326fa..064d12a958c20fa669d30636e6da0a0df2447d02 100644 (file)
@@ -1,6 +1,6 @@
 /*
- * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
- * Copyright (C) 1999-2012 Hiroyuki Yamamoto & The Claws Mail Team
+ * Claws Mail -- a GTK+ based, lightweight, and fast e-mail client
+ * Copyright (C) 1999-2015 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: https://git.gnome.org/browse/glib/commit/
+ *  ?h=glib-2-30&id=9eb65dd3ed5e1a9638595cbe10699c7606376511
+ *
+ * GLib 2.30 is licensed under GPL v2 or later and:
+ * Copyright (C) 1999 Tom Tromey
+ * Copyright (C) 2000 Red Hat, Inc.
+ *
+ * https://git.gnome.org/browse/glib/tree/glib/gutf8.c
+ *  ?h=glib-2-30&id=9eb65dd3ed5e1a9638595cbe10699c7606376511
  */
 
 #ifdef HAVE_CONFIG_H
@@ -25,6 +36,7 @@
 #include "defs.h"
 
 #include <glib.h>
+#include <gio/gio.h>
 
 #include <glib/gi18n.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"
@@ -99,7 +102,7 @@ gboolean superuser_p (void)
 
 
 
-#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
@@ -207,12 +210,12 @@ int g_open(const gchar *filename, int flags, int mode)
        char *name = g_win32_locale_filename_from_utf8(filename);
        int fd = open(name, flags, mode);
        g_free(name);
-       return fp;
+       return fd;
 #else
        return open(filename, flags, mode);
 #endif
 }
-#endif /* GLIB_CHECK_VERSION && G_OS_UNIX */
+#endif /* G_OS_UNIX */
 
 
 #ifdef G_OS_WIN32
@@ -246,6 +249,21 @@ gint mkstemp(gchar *template)
 }
 #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);
@@ -269,10 +287,7 @@ void slist_free_strings_full(GSList *list)
 #if GLIB_CHECK_VERSION(2,28,0)
        g_slist_free_full(list, (GDestroyNotify)g_free);
 #else
-       while (list != NULL) {
-               g_free(list->data);
-               list = list->next;
-       }
+       g_slist_foreach(list, (GFunc)g_free, NULL);
        g_slist_free(list);
 #endif
 }
@@ -819,6 +834,47 @@ void extract_quote(gchar *str, gchar quote_chr)
        }
 }
 
+/* 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;
@@ -877,6 +933,7 @@ gchar *strchr_with_skip_quote(const gchar *str, gint quote_chr, gint c)
 
 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, '"', '<', '>');
@@ -1887,7 +1944,7 @@ void set_rc_dir(const gchar *dir)
 
                if (err) {
                        g_print("Error looking for %s: %d(%s)\n",
-                               dir, -err, strerror(-err));
+                               dir, -err, g_strerror(-err));
                        exit(0);
                }
                rc_dir_alt = TRUE;
@@ -1918,77 +1975,23 @@ const gchar *get_mail_base_dir(void)
        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;
 }
@@ -2111,7 +2114,7 @@ const gchar *get_domain_name(void)
 
                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) {
@@ -2126,7 +2129,7 @@ const gchar *get_domain_name(void)
 
        return domain_name;
 #else
-       return "unknown";
+       return "localhost";
 #endif
 }
 
@@ -2240,7 +2243,7 @@ gboolean is_file_entry_exist(const gchar *file)
 
 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)
@@ -2360,6 +2363,12 @@ gint remove_numbered_files(const gchar *dir, guint first, guint last)
        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);
@@ -2386,8 +2395,14 @@ gint remove_numbered_files(const gchar *dir, guint first, guint last)
        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");
                }
@@ -2412,7 +2427,8 @@ gint remove_numbered_files_not_in_list(const gchar *dir, GSList *numberlist)
        const gchar *dir_name;
        gchar *prev_dir;
        gint file_no;
-       GHashTable *file_no_tbl;
+       GHashTable *wanted_files;
+       GSList *cur;
 
        if (numberlist == NULL)
            return 0;
@@ -2431,26 +2447,33 @@ gint remove_numbered_files_not_in_list(const gchar *dir, GSList *numberlist)
                return -1;
        }
 
-       file_no_tbl = g_hash_table_new(g_direct_hash, g_direct_equal);
+       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 (is_dir_exist(dir_name))
-                   continue;
-               if (file_no > 0)
-                   g_hash_table_insert(file_no_tbl, GINT_TO_POINTER(file_no), GINT_TO_POINTER(1));
-       }
-       
-       do {
-               if (g_hash_table_lookup(file_no_tbl, numberlist->data) == NULL) {
-                       debug_print("removing unwanted file %d from %s\n", 
-                                   GPOINTER_TO_INT(numberlist->data), dir);
+                       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)) {
+                               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");
                }
-       } while ((numberlist = g_slist_next(numberlist)));
+       }
 
        g_dir_close(dp);
-       g_hash_table_destroy(file_no_tbl);
+       g_hash_table_destroy(wanted_files);
 
        if (g_chdir(prev_dir) < 0) {
                FILE_OP_ERROR(prev_dir, "chdir");
@@ -3107,6 +3130,8 @@ FILE *get_tmpfile_in_dir(const gchar *dir, gchar **filename)
 #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+");
 }
@@ -3421,7 +3446,7 @@ gchar *get_command_output(const gchar *cmdline)
 
        return child_stdout;
 }
-#ifndef MAEMO
+
 static gint is_unchanged_uri_char(char c)
 {
        switch (c) {
@@ -3457,10 +3482,10 @@ static void encode_uri(gchar *encoded_uri, gint bufsize, const gchar *uri)
        }
        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;
@@ -3485,12 +3510,6 @@ gint open_uri(const gchar *uri, const gchar *cmdline)
        execute_command_line(buf, TRUE);
 #else
        ShellExecute(NULL, "open", uri, NULL, NULL, SW_SHOW);
-#endif
-#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);
 #endif
        return 0;
 }
@@ -4788,11 +4807,30 @@ void mailcap_update_default(const gchar *type, const gchar *command)
        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 = g_fopen(path, "rb");
-       FILE *outfp = g_fopen(outpath, "wb");
+       FILE *outfp = NULL;
        gchar buf[BUFFSIZE];
        gboolean err = FALSE;
 
+       if (!fp) {
+               fp = g_fopen(path, "a");
+               if (!fp) {
+                       g_warning("failed to create file %s\n", path);
+                       g_free(path);
+                       g_free(outpath);
+                       return;
+               }
+               fp = g_freopen(path, "rb", fp);
+               if (!fp) {
+                       g_warning("failed to reopen file %s\n", path);
+                       g_free(path);
+                       g_free(outpath);
+                       return;
+               }
+       }
+
+       outfp = g_fopen(outpath, "wb");
        if (!outfp) {
+               g_warning("failed to create file %s\n", outpath);
                g_free(path);
                g_free(outpath);
                fclose(fp);
@@ -4960,11 +4998,6 @@ gint s_pm_up_len = 0;
 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)
@@ -5031,12 +5064,6 @@ static void init_time_names(void)
        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 = C_("For use by strftime (default date+time format)", "%a %b %e %H:%M:%S %Y");
-       date_loc_format = C_("For use by strftime (default date format)", "%m/%d/%y");
-       time_loc_format = C_("For use by strftime (default time format)", "%H:%M:%S");
-
-       time_am_pm = C_("For use by strftime (default 12-hour time format)", "%I:%M:%S %p");
 
        time_names_init_done = TRUE;
 }
@@ -5093,7 +5120,7 @@ size_t fast_strftime(gchar *buf, gint buflen, const gchar *format, struct tm *lt
                                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;
@@ -5195,7 +5222,7 @@ size_t fast_strftime(gchar *buf, gint buflen, const gchar *format, struct tm *lt
                                }
                                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;
@@ -5241,12 +5268,12 @@ size_t fast_strftime(gchar *buf, gint buflen, const gchar *format, struct tm *lt
                                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;
@@ -5284,8 +5311,7 @@ size_t fast_strftime(gchar *buf, gint buflen, const gchar *format, struct tm *lt
                                format++;
                                break;
                        default:
-                               if (format && *format)
-                                       g_warning("format error (%c)", *format);
+                               g_warning("format error (%c)", *format);
                                *curpos = '\0';
                                return total_done;
                        }
@@ -5530,3 +5556,52 @@ int cm_canonicalize_filename(const gchar *filename, gchar **canonical_name) {
        slist_free_strings_full(canonical_parts);
        return 0;
 }
+
+/* Returns a decoded base64 string, guaranteed to be null-terminated. */
+guchar *g_base64_decode_zero(const gchar *text, gsize *out_len)
+{
+       gchar *tmp = g_base64_decode(text, out_len);
+       gchar *out = g_strndup(tmp, *out_len);
+
+       g_free(tmp);
+
+       if (strlen(out) != *out_len) {
+               g_warning ("strlen(out) %d != *out_len %d", strlen(out), *out_len);
+       }
+
+       return out;
+}
+
+#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