Additional debug features
[geeqie.git] / src / ui_fileops.c
index 1467989..c4466fc 100644 (file)
@@ -1,13 +1,22 @@
 /*
- * (SLIK) SimpLIstic sKin functions
- * (C) 2006 John Ellis
- * Copyright (C) 2008 The Geeqie Team
+ * Copyright (C) 2006 John Ellis
+ * Copyright (C) 2008 - 2016 The Geeqie Team
  *
  * Author: John Ellis
  *
- * This software is released under the GNU General Public License (GNU GPL).
- * Please read the included file COPYING for more information.
- * This software comes with no warranty of any kind, use at your own risk!
+ * 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.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  */
 
 #ifdef HAVE_CONFIG_H
 #include "ui_fileops.h"
 
 #include "ui_utildlg.h"        /* for locale warning dialog */
+#include "md5-util.h"
+
+#include "filefilter.h"
+#include "secure_save.h"
 
 /*
  *-----------------------------------------------------------------------------
@@ -44,45 +57,20 @@ void print_term(const gchar *text_utf8)
        gchar *text_l;
 
        text_l = g_locale_from_utf8(text_utf8, -1, NULL, NULL, NULL);
-       fputs((text_l) ? text_l : text_utf8, stdout);
+       fputs((text_l) ? text_l : text_utf8, stderr);
+       if(command_line && command_line->ssi)
+               secure_fputs(command_line->ssi, (text_l) ? text_l : text_utf8);
        g_free(text_l);
 }
 
-static void encoding_dialog(const gchar *path);
-
-static gint encoding_dialog_idle(gpointer data)
-{
-       gchar *path = data;
-
-       encoding_dialog(path);
-       g_free(path);
-
-       return FALSE;
-}
-
-static gint encoding_dialog_delay(gpointer data)
-{
-       g_idle_add(encoding_dialog_idle, data);
-
-       return 0;
-}
-
 static void encoding_dialog(const gchar *path)
 {
-       static gint warned_user = FALSE;
+       static gboolean warned_user = FALSE;
        GenericDialog *gd;
        GString *string;
        const gchar *lc;
        const gchar *bf;
 
-       /* check that gtk is initialized (loop is level > 0) */
-       if (gtk_main_level() == 0)
-               {
-               /* gtk not initialized */
-               gtk_init_add(encoding_dialog_delay, g_strdup(path));
-               return;
-               }
-
        if (warned_user) return;
        warned_user = TRUE;
 
@@ -106,7 +94,7 @@ static void encoding_dialog(const gchar *path)
                name = g_convert(path, -1, "UTF-8", "ISO-8859-1", NULL, NULL, NULL);
                string = g_string_append(string, _("\nPreferred encoding appears to be UTF-8, however the file:\n"));
                g_string_append_printf(string, "\"%s\"\n", (name) ? name : _("[name not displayable]"));
-               
+
                if (g_utf8_validate(path, -1, NULL))
                        g_string_append_printf(string, _("\"%s\" is encoded in valid UTF-8."), (name) ? name : _("[name not displayable]"));
                else
@@ -127,7 +115,11 @@ static void encoding_dialog(const gchar *path)
        g_string_free(string, TRUE);
 }
 
+#if GQ_DEBUG_PATH_UTF8
+gchar *path_to_utf8_debug(const gchar *path, const gchar *file, gint line)
+#else
 gchar *path_to_utf8(const gchar *path)
+#endif
 {
        gchar *utf8;
        GError *error = NULL;
@@ -137,7 +129,11 @@ gchar *path_to_utf8(const gchar *path)
        utf8 = g_filename_to_utf8(path, -1, NULL, NULL, &error);
        if (error)
                {
+#if GQ_DEBUG_PATH_UTF8
+               log_printf("%s:%d: Unable to convert filename to UTF-8:\n%s\n%s\n", file, line, path, error->message);
+#else
                log_printf("Unable to convert filename to UTF-8:\n%s\n%s\n", path, error->message);
+#endif
                g_error_free(error);
                encoding_dialog(path);
                }
@@ -150,7 +146,11 @@ gchar *path_to_utf8(const gchar *path)
        return utf8;
 }
 
+#if GQ_DEBUG_PATH_UTF8
+gchar *path_from_utf8_debug(const gchar *utf8, const gchar *file, gint line)
+#else
 gchar *path_from_utf8(const gchar *utf8)
+#endif
 {
        gchar *path;
        GError *error = NULL;
@@ -160,7 +160,11 @@ gchar *path_from_utf8(const gchar *utf8)
        path = g_filename_from_utf8(utf8, -1, NULL, NULL, &error);
        if (error)
                {
+#if GQ_DEBUG_PATH_UTF8
+               log_printf("%s:%d: Unable to convert filename to locale from UTF-8:\n%s\n%s\n", file, line, utf8, error->message);
+#else
                log_printf("Unable to convert filename to locale from UTF-8:\n%s\n%s\n", utf8, error->message);
+#endif
                g_error_free(error);
                }
        if (!path)
@@ -179,7 +183,7 @@ const gchar *homedir(void)
 
        if (!home)
                home = path_to_utf8(getenv("HOME"));
-       
+
        if (!home)
                home = path_to_utf8(g_get_home_dir());
 
@@ -194,7 +198,7 @@ static gchar *xdg_dir_get(const gchar *key, const gchar *fallback)
                {
                return g_build_filename(homedir(), fallback, NULL);
                }
-       
+
        return path_to_utf8(dir);
 }
 
@@ -203,7 +207,7 @@ const gchar *xdg_data_home_get(void)
        static const gchar *xdg_data_home = NULL;
 
        if (xdg_data_home) return xdg_data_home;
-       
+
        xdg_data_home = xdg_dir_get("XDG_DATA_HOME", ".local/share");
 
        return xdg_data_home;
@@ -214,7 +218,7 @@ const gchar *xdg_config_home_get(void)
        static const gchar *xdg_config_home = NULL;
 
        if (xdg_config_home) return xdg_config_home;
-       
+
        xdg_config_home = xdg_dir_get("XDG_CONFIG_HOME", ".config");
 
        return xdg_config_home;
@@ -225,7 +229,7 @@ const gchar *xdg_cache_home_get(void)
        static const gchar *xdg_cache_home = NULL;
 
        if (xdg_cache_home) return xdg_cache_home;
-       
+
        xdg_cache_home = xdg_dir_get("XDG_CACHE_HOME", ".cache");
 
        return xdg_cache_home;
@@ -234,7 +238,7 @@ const gchar *xdg_cache_home_get(void)
 const gchar *get_rc_dir(void)
 {
        static gchar *rc_dir = NULL;
-       
+
        if (rc_dir) return rc_dir;
 
        if (USE_XDG)
@@ -272,7 +276,7 @@ const gchar *get_trash_dir(void)
        static gchar *trash_dir = NULL;
 
        if (trash_dir) return trash_dir;
-       
+
        if (USE_XDG)
                {
                trash_dir = g_build_filename(xdg_data_home_get(), GQ_APPNAME_LC, GQ_TRASH_DIR, NULL);
@@ -285,10 +289,10 @@ const gchar *get_trash_dir(void)
        return trash_dir;
 }
 
-gint stat_utf8(const gchar *s, struct stat *st)
+gboolean stat_utf8(const gchar *s, struct stat *st)
 {
        gchar *sl;
-       gint ret;
+       gboolean ret;
 
        if (!s) return FALSE;
        sl = path_from_utf8(s);
@@ -298,10 +302,10 @@ gint stat_utf8(const gchar *s, struct stat *st)
        return ret;
 }
 
-gint lstat_utf8(const gchar *s, struct stat *st)
+gboolean lstat_utf8(const gchar *s, struct stat *st)
 {
        gchar *sl;
-       gint ret;
+       gboolean ret;
 
        if (!s) return FALSE;
        sl = path_from_utf8(s);
@@ -311,73 +315,28 @@ gint lstat_utf8(const gchar *s, struct stat *st)
        return ret;
 }
 
-/* extension must contain only ASCII characters */
-gint stat_utf8_case_insensitive_ext(GString *base, const gchar *ext, struct stat *st)
-{
-       gchar *sl;
-       gchar *extl;
-       gint ret = 0;
-       gint ext_len;
-       gint base_len = strlen(base->str);
-
-       g_string_append(base, ext);
-       sl = path_from_utf8(base->str);
-       
-       extl = strrchr(sl, '.');
-       if (extl)
-               {
-               gint i, j;
-               extl++; /* the first char after . */
-               ext_len = strlen(extl);
-       
-               for (i = 0; i < (1 << ext_len); i++)
-                       {
-                       for (j = 0; j < ext_len; j++)
-                               {
-                               if (i & (1 << j)) 
-                                       extl[j] = g_ascii_toupper(extl[j]);
-                               else
-                                       extl[j] = g_ascii_tolower(extl[j]);
-                               }
-                       ret = (stat(sl, st) == 0);
-                       if (ret) break;
-                       }
-               
-               if (ret)
-                       {
-                       /* append the found extension to base */
-                       base = g_string_truncate(base, base_len);
-                       extl--;
-                       g_string_append(base, extl);
-                       }
-               }
-       g_free(sl);
-
-       return ret;
-}
-
-gint isname(const gchar *s)
+gboolean isname(const gchar *s)
 {
        struct stat st;
 
        return stat_utf8(s, &st);
 }
 
-gint isfile(const gchar *s)
+gboolean isfile(const gchar *s)
 {
        struct stat st;
 
        return (stat_utf8(s, &st) && S_ISREG(st.st_mode));
 }
 
-gint isdir(const gchar *s)
+gboolean isdir(const gchar *s)
 {
        struct stat st;
 
        return (stat_utf8(s, &st) && S_ISDIR(st.st_mode));
 }
 
-gint islink(const gchar *s)
+gboolean islink(const gchar *s)
 {
        struct stat st;
 
@@ -400,9 +359,9 @@ time_t filetime(const gchar *s)
        return st.st_mtime;
 }
 
-gint filetime_set(const gchar *s, time_t tval)
+gboolean filetime_set(const gchar *s, time_t tval)
 {
-       gint ret = FALSE;
+       gboolean ret = FALSE;
 
        if (tval > 0)
                {
@@ -419,12 +378,18 @@ gint filetime_set(const gchar *s, time_t tval)
        return ret;
 }
 
-gint access_file(const gchar *s, gint mode)
+gboolean is_readable_file(const gchar *s)
+{
+       if (!s || !s[0] || !isfile(s)) return FALSE;
+       return access_file(s, R_OK);
+}
+
+gboolean access_file(const gchar *s, gint mode)
 {
        gchar *sl;
        gint ret;
 
-       if (!s) return FALSE;
+       if (!s || !s[0]) return FALSE;
 
        sl = path_from_utf8(s);
        ret = (access(sl, mode) == 0);
@@ -433,10 +398,10 @@ gint access_file(const gchar *s, gint mode)
        return ret;
 }
 
-gint unlink_file(const gchar *s)
+gboolean unlink_file(const gchar *s)
 {
        gchar *sl;
-       gint ret;
+       gboolean ret;
 
        if (!s) return FALSE;
 
@@ -447,11 +412,11 @@ gint unlink_file(const gchar *s)
        return ret;
 }
 
-gint symlink_utf8(const gchar *source, const gchar *target)
+gboolean symlink_utf8(const gchar *source, const gchar *target)
 {
        gchar *sl;
        gchar *tl;
-       gint ret;
+       gboolean ret;
 
        if (!source || !target) return FALSE;
 
@@ -466,10 +431,10 @@ gint symlink_utf8(const gchar *source, const gchar *target)
        return ret;
 }
 
-gint mkdir_utf8(const gchar *s, gint mode)
+gboolean mkdir_utf8(const gchar *s, gint mode)
 {
        gchar *sl;
-       gint ret;
+       gboolean ret;
 
        if (!s) return FALSE;
 
@@ -479,10 +444,10 @@ gint mkdir_utf8(const gchar *s, gint mode)
        return ret;
 }
 
-gint rmdir_utf8(const gchar *s)
+gboolean rmdir_utf8(const gchar *s)
 {
        gchar *sl;
-       gint ret;
+       gboolean ret;
 
        if (!s) return FALSE;
 
@@ -493,11 +458,11 @@ gint rmdir_utf8(const gchar *s)
        return ret;
 }
 
-gint copy_file_attributes(const gchar *s, const gchar *t, gint perms, gint mtime)
+gboolean copy_file_attributes(const gchar *s, const gchar *t, gint perms, gint mtime)
 {
        struct stat st;
        gchar *sl, *tl;
-       gint ret = FALSE;
+       gboolean ret = FALSE;
 
        if (!s || !t) return FALSE;
 
@@ -512,8 +477,14 @@ gint copy_file_attributes(const gchar *s, const gchar *t, gint perms, gint mtime
 
                /* set the dest file attributes to that of source (ignoring errors) */
 
-               if (perms && chown(tl, st.st_uid, st.st_gid) < 0) ret = FALSE;
-               if (perms && chmod(tl, st.st_mode) < 0) ret = FALSE;
+               if (perms)
+                       {
+                       ret = chown(tl, st.st_uid, st.st_gid);
+                       /* Ignores chown errors, while still doing chown
+                          (so root still can copy files preserving ownership) */
+                       ret = TRUE;
+                       if (chmod(tl, st.st_mode) < 0) ret = FALSE;
+                       }
 
                tb.actime = st.st_atime;
                tb.modtime = st.st_mtime;
@@ -527,7 +498,7 @@ gint copy_file_attributes(const gchar *s, const gchar *t, gint perms, gint mtime
 }
 
 /* paths are in filesystem encoding */
-static gint hard_linked(const gchar *a, const gchar *b)
+static gboolean hard_linked(const gchar *a, const gchar *b)
 {
        struct stat sta;
        struct stat stb;
@@ -538,62 +509,76 @@ static gint hard_linked(const gchar *a, const gchar *b)
                sta.st_ino == stb.st_ino);
 }
 
-gint copy_file(const gchar *s, const gchar *t)
+gboolean copy_file(const gchar *s, const gchar *t)
 {
        FILE *fi = NULL;
        FILE *fo = NULL;
-       gchar *sl, *tl;
-       gchar buf[4096];
+       gchar *sl = NULL;
+       gchar *tl = NULL;
+       gchar *randname = NULL;
+       gchar buf[16384];
        size_t b;
+       gint ret = FALSE;
+       gint fd = -1;
 
        sl = path_from_utf8(s);
        tl = path_from_utf8(t);
 
        if (hard_linked(sl, tl))
                {
-               g_free(sl);
-               g_free(tl);
-               return TRUE;
+               ret = TRUE;
+               goto end;
                }
 
        fi = fopen(sl, "rb");
-       if (fi)
-               {
-               fo = fopen(tl, "wb");
-               if (!fo)
-                       {
-                       fclose(fi);
-                       fi = NULL;
-                       }
-               }
+       if (!fi) goto end;
 
-       g_free(sl);
-       g_free(tl);
+       /* First we write to a temporary file, then we rename it on success,
+          and attributes from original file are copied */
+       randname = g_strconcat(tl, ".tmp_XXXXXX", NULL);
+       if (!randname) goto end;
+
+       fd = g_mkstemp(randname);
+       if (fd == -1) goto end;
 
-       if (!fi || !fo) return FALSE;
+       fo = fdopen(fd, "wb");
+       if (!fo) {
+               close(fd);
+               goto end;
+       }
 
        while ((b = fread(buf, sizeof(gchar), sizeof(buf), fi)) && b != 0)
                {
                if (fwrite(buf, sizeof(gchar), b, fo) != b)
                        {
-                       fclose(fi);
-                       fclose(fo);
-                       return FALSE;
+                       unlink(randname);
+                       goto end;
                        }
                }
 
-       fclose(fi);
-       fclose(fo);
+       fclose(fi); fi = NULL;
+       fclose(fo); fo = NULL;
 
-       copy_file_attributes(s, t, TRUE, TRUE);
+       if (rename(randname, tl) < 0) {
+               unlink(randname);
+               goto end;
+       }
 
-       return TRUE;
+       ret = copy_file_attributes(s, t, TRUE, TRUE);
+
+end:
+       if (fi) fclose(fi);
+       if (fo) fclose(fo);
+       if (sl) g_free(sl);
+       if (tl) g_free(tl);
+       if (randname) g_free(randname);
+       return ret;
 }
 
-gint move_file(const gchar *s, const gchar *t)
+gboolean move_file(const gchar *s, const gchar *t)
 {
        gchar *sl, *tl;
-       gint ret = TRUE;
+       gboolean ret = TRUE;
 
        if (!s || !t) return FALSE;
 
@@ -622,10 +607,10 @@ gint move_file(const gchar *s, const gchar *t)
        return ret;
 }
 
-gint rename_file(const gchar *s, const gchar *t)
+gboolean rename_file(const gchar *s, const gchar *t)
 {
        gchar *sl, *tl;
-       gint ret;
+       gboolean ret;
 
        if (!s || !t) return FALSE;
 
@@ -659,9 +644,8 @@ void string_list_free(GList *list)
 GList *string_list_copy(const GList *list)
 {
        GList *new_list = NULL;
-       GList *work;
+       GList *work = (GList *) list;
 
-       work = list;
        while (work)
                {
                gchar *path;
@@ -675,7 +659,7 @@ GList *string_list_copy(const GList *list)
        return g_list_reverse(new_list);
 }
 
-gchar *unique_filename(const gchar *path, const gchar *ext, const gchar *divider, gint pad)
+gchar *unique_filename(const gchar *path, const gchar *ext, const gchar *divider, gboolean pad)
 {
        gchar *unique;
        gint n = 1;
@@ -718,7 +702,7 @@ gchar *unique_filename_simple(const gchar *path)
        name = filename_from_path(path);
        if (!name) return NULL;
 
-       ext = extension_from_path(name);
+       ext = registered_extension_from_path(name);
 
        if (!ext)
                {
@@ -750,27 +734,17 @@ const gchar *filename_from_path(const gchar *path)
 
 gchar *remove_level_from_path(const gchar *path)
 {
-       gint p = 0, n = -1;
+       const gchar *base;
 
        if (!path) return NULL;
 
-       while (path[p])
-               {
-               if (path[p] == G_DIR_SEPARATOR) n = p;
-               p++;
-               }
-       if (n <= 0) n++;
-
-       return g_strndup(path, (gsize) n);
-}
+       base = strrchr(path, G_DIR_SEPARATOR);
+       if (base) return g_strndup(path, strlen(path)-strlen(base));
 
-const gchar *extension_from_path(const gchar *path)
-{
-       if (!path) return NULL;
-       return strrchr(path, '.');
+       return NULL;
 }
 
-gint file_extension_match(const gchar *path, const gchar *ext)
+gboolean file_extension_match(const gchar *path, const gchar *ext)
 {
        gint p;
        gint e;
@@ -782,23 +756,18 @@ gint file_extension_match(const gchar *path, const gchar *ext)
        e = strlen(ext);
 
        /* FIXME: utf8 */
-       return (p > e && strncasecmp(path + p - e, ext, e) == 0);
+       return (p > e && g_ascii_strncasecmp(path + p - e, ext, e) == 0);
 }
 
 gchar *remove_extension_from_path(const gchar *path)
 {
-       gint p = 0, n = -1;
+       const gchar *reg_ext;
 
        if (!path) return NULL;
 
-       while (path[p])
-               {
-               if (path[p] == '.') n = p;
-               p++;
-               }
-       if (n < 0) n = p;
+       reg_ext = registered_extension_from_path(path);
 
-       return g_strndup(path, (gsize) n);
+       return g_strndup(path, strlen(path) - (reg_ext == NULL ? 0 : strlen(reg_ext)));
 }
 
 void parse_out_relatives(gchar *path)
@@ -831,7 +800,7 @@ void parse_out_relatives(gchar *path)
                                continue;
                                }
                        }
-       
+
                if (s != t) path[t] = path[s];
                t++;
                s++;
@@ -842,12 +811,12 @@ void parse_out_relatives(gchar *path)
        path[t] = '\0';
 }
 
-gint file_in_path(const gchar *name)
+gboolean file_in_path(const gchar *name)
 {
        gchar *path;
        gchar *namel;
        gint p, l;
-       gint ret = FALSE;
+       gboolean ret = FALSE;
 
        if (!name) return FALSE;
        path = g_strdup(getenv("PATH"));
@@ -888,14 +857,14 @@ gboolean recursive_mkdir_if_not_exists(const gchar *path, mode_t mode)
                        p++;
                        if (p[0] == G_DIR_SEPARATOR || p[0] == '\0')
                                {
-                               gint end = TRUE;
+                               gboolean end = TRUE;
 
                                if (p[0] != '\0')
                                        {
                                        p[0] = '\0';
                                        end = FALSE;
                                        }
-                               
+
                                if (!isdir(npath))
                                        {
                                        DEBUG_1("creating sub dir:%s", npath);
@@ -906,7 +875,7 @@ gboolean recursive_mkdir_if_not_exists(const gchar *path, mode_t mode)
                                                return FALSE;
                                                }
                                        }
-                               
+
                                if (!end) p[0] = G_DIR_SEPARATOR;
                                }
                        }
@@ -916,6 +885,28 @@ gboolean recursive_mkdir_if_not_exists(const gchar *path, mode_t mode)
        return TRUE;
 }
 
+/* does filename utf8 to filesystem encoding first */
+gboolean md5_get_digest_from_file_utf8(const gchar *path, guchar digest[16])
+{
+       gboolean success;
+       gchar *pathl;
+
+       pathl = path_from_utf8(path);
+       success = md5_get_digest_from_file(pathl, digest);
+       g_free(pathl);
+
+       return success;
+}
+
+
+gchar *md5_text_from_file_utf8(const gchar *path, const gchar *error_text)
+{
+       guchar digest[16];
+
+       if (!md5_get_digest_from_file_utf8(path, digest)) return g_strdup(error_text);
+
+       return md5_digest_to_text(digest);
+}
 
 
 /* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */