PIKApp/app/core/pika-user-install.c

1118 lines
34 KiB
C
Raw Permalink Normal View History

2023-09-26 00:35:21 +02:00
/* PIKA - Photo and Image Kooker Application
* a rebranding of The GNU Image Manipulation Program (created with heckimp)
* A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio
*
* Original copyright, applying to most contents (license remains unchanged):
* Copyright (C) 1995 Spencer Kimball and Peter Mattis
*
* pika-user-install.c
* Copyright (C) 2000-2008 Michael Natterer and Sven Neumann
*
* 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 3 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, see <https://www.gnu.org/licenses/>.
*/
/* This file contains functions to help migrate the settings from a
* previous PIKA version to be used with the current (newer) version.
*/
#include "config.h"
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef PLATFORM_OSX
#include <AppKit/AppKit.h>
#endif
#include <gio/gio.h>
#include <glib/gstdio.h>
#ifdef G_OS_WIN32
#include <libpikabase/pikawin32-io.h>
#endif
#include "libpikabase/pikabase.h"
#include "core-types.h"
#include "config/pikaconfig-file.h"
#include "config/pikarc.h"
#include "pika-templates.h"
#include "pika-tags.h"
#include "pika-user-install.h"
#include "pika-intl.h"
struct _PikaUserInstall
{
GObject *pika;
gboolean verbose;
gchar *old_dir;
gint old_major;
gint old_minor;
gint scale_factor;
const gchar *migrate;
PikaUserInstallLogFunc log;
gpointer log_data;
};
typedef enum
{
USER_INSTALL_MKDIR, /* Create the directory */
USER_INSTALL_COPY /* Copy from sysconf directory */
} PikaUserInstallAction;
static const struct
{
const gchar *name;
PikaUserInstallAction action;
}
pika_user_install_items[] =
{
{ "brushes", USER_INSTALL_MKDIR },
{ "dynamics", USER_INSTALL_MKDIR },
{ "fonts", USER_INSTALL_MKDIR },
{ "gradients", USER_INSTALL_MKDIR },
{ "palettes", USER_INSTALL_MKDIR },
{ "patterns", USER_INSTALL_MKDIR },
{ "tool-presets", USER_INSTALL_MKDIR },
{ "plug-ins", USER_INSTALL_MKDIR },
{ "modules", USER_INSTALL_MKDIR },
{ "interpreters", USER_INSTALL_MKDIR },
{ "environ", USER_INSTALL_MKDIR },
{ "scripts", USER_INSTALL_MKDIR },
{ "templates", USER_INSTALL_MKDIR },
{ "themes", USER_INSTALL_MKDIR },
{ "icons", USER_INSTALL_MKDIR },
{ "tmp", USER_INSTALL_MKDIR },
{ "curves", USER_INSTALL_MKDIR },
{ "levels", USER_INSTALL_MKDIR },
{ "filters", USER_INSTALL_MKDIR },
{ "fractalexplorer", USER_INSTALL_MKDIR },
{ "gfig", USER_INSTALL_MKDIR },
{ "gflare", USER_INSTALL_MKDIR },
{ "pikaressionist", USER_INSTALL_MKDIR }
};
static gboolean user_install_detect_old (PikaUserInstall *install,
const gchar *pika_dir);
static gchar * user_install_old_style_pikadir (void);
static void user_install_log (PikaUserInstall *install,
const gchar *format,
...) G_GNUC_PRINTF (2, 3);
static void user_install_log_newline (PikaUserInstall *install);
static void user_install_log_error (PikaUserInstall *install,
GError **error);
static gboolean user_install_mkdir (PikaUserInstall *install,
const gchar *dirname);
static gboolean user_install_mkdir_with_parents (PikaUserInstall *install,
const gchar *dirname);
static gboolean user_install_file_copy (PikaUserInstall *install,
const gchar *source,
const gchar *dest,
const gchar *old_options_regexp,
GRegexEvalCallback update_callback);
static gboolean user_install_dir_copy (PikaUserInstall *install,
gint level,
const gchar *source,
const gchar *base,
const gchar *update_pattern,
GRegexEvalCallback update_callback);
static gboolean user_install_create_files (PikaUserInstall *install);
static gboolean user_install_migrate_files (PikaUserInstall *install);
/* public functions */
PikaUserInstall *
pika_user_install_new (GObject *pika,
gboolean verbose)
{
PikaUserInstall *install = g_slice_new0 (PikaUserInstall);
install->pika = pika;
install->verbose = verbose;
user_install_detect_old (install, pika_directory ());
#ifdef PLATFORM_OSX
/* The config path on OSX has for a very short time frame (2.8.2 only)
been "~/Library/PIKA". It changed to "~/Library/Application Support"
in 2.8.4 and was in the home folder (as was other UNIX) before. */
if (! install->old_dir)
{
gchar *dir;
NSAutoreleasePool *pool;
NSArray *path;
NSString *library_dir;
pool = [[NSAutoreleasePool alloc] init];
path = NSSearchPathForDirectoriesInDomains (NSLibraryDirectory,
NSUserDomainMask, YES);
library_dir = [path objectAtIndex:0];
dir = g_build_filename ([library_dir UTF8String],
PIKADIR, PIKA_USER_VERSION, NULL);
[pool drain];
user_install_detect_old (install, dir);
g_free (dir);
}
#endif
if (! install->old_dir)
{
/* if the default XDG-style config directory was not found, try
* the "old-style" path in the home folder.
*/
gchar *dir = user_install_old_style_pikadir ();
user_install_detect_old (install, dir);
g_free (dir);
}
return install;
}
gboolean
pika_user_install_run (PikaUserInstall *install,
gint scale_factor)
{
gchar *dirname;
g_return_val_if_fail (install != NULL, FALSE);
install->scale_factor = scale_factor;
dirname = g_filename_display_name (pika_directory ());
if (install->migrate)
user_install_log (install,
_("It seems you have used PIKA %s before. "
"PIKA will now migrate your user settings to '%s'."),
install->migrate, dirname);
else
user_install_log (install,
_("It appears that you are using PIKA for the "
"first time. PIKA will now create a folder "
"named '%s' and copy some files to it."),
dirname);
g_free (dirname);
user_install_log_newline (install);
if (! user_install_mkdir_with_parents (install, pika_directory ()))
return FALSE;
if (install->migrate)
if (! user_install_migrate_files (install))
return FALSE;
return user_install_create_files (install);
}
void
pika_user_install_free (PikaUserInstall *install)
{
g_return_if_fail (install != NULL);
g_free (install->old_dir);
g_slice_free (PikaUserInstall, install);
}
void
pika_user_install_set_log_handler (PikaUserInstall *install,
PikaUserInstallLogFunc log,
gpointer user_data)
{
g_return_if_fail (install != NULL);
install->log = log;
install->log_data = user_data;
}
/* Local functions */
static gboolean
user_install_detect_old (PikaUserInstall *install,
const gchar *pika_dir)
{
gchar *dir = g_strdup (pika_dir);
gchar *version;
gboolean migrate = FALSE;
version = strstr (dir, PIKA_APP_VERSION);
g_snprintf (version, 5, "%d.XY", 2);
if (version)
{
gint i;
for (i = (PIKA_MINOR_VERSION & ~1); i >= 0; i -= 2)
{
/* we assume that PIKA_APP_VERSION is in the form '2.x' */
g_snprintf (version + 2, 3, "%d", i);
migrate = g_file_test (dir, G_FILE_TEST_IS_DIR);
if (migrate)
{
#ifdef PIKA_UNSTABLE
g_printerr ("pika-user-install: migrating from %s\n", dir);
#endif
install->old_major = 2;
install->old_minor = i;
break;
}
}
}
if (migrate)
{
install->old_dir = dir;
install->migrate = (const gchar *) version;
}
else
{
g_free (dir);
}
return migrate;
}
static gchar *
user_install_old_style_pikadir (void)
{
const gchar *home_dir = g_get_home_dir ();
gchar *pika_dir = NULL;
if (home_dir)
{
pika_dir = g_build_filename (home_dir, ".pika-" PIKA_APP_VERSION, NULL);
}
else
{
gchar *user_name = g_strdup (g_get_user_name ());
gchar *subdir_name;
#ifdef G_OS_WIN32
gchar *p = user_name;
while (*p)
{
/* Replace funny characters in the user name with an
* underscore. The code below also replaces some
* characters that in fact are legal in file names, but
* who cares, as long as the definitely illegal ones are
* caught.
*/
if (!g_ascii_isalnum (*p) && !strchr ("-.,@=", *p))
*p = '_';
p++;
}
#endif
#ifndef G_OS_WIN32
g_message ("warning: no home directory.");
#endif
subdir_name = g_strconcat (".pika-" PIKA_APP_VERSION ".", user_name, NULL);
pika_dir = g_build_filename (pika_data_directory (),
subdir_name,
NULL);
g_free (user_name);
g_free (subdir_name);
}
return pika_dir;
}
static void
user_install_log (PikaUserInstall *install,
const gchar *format,
...)
{
va_list args;
va_start (args, format);
if (format)
{
gchar *message = g_strdup_vprintf (format, args);
if (install->verbose)
g_print ("%s\n", message);
if (install->log)
install->log (message, FALSE, install->log_data);
g_free (message);
}
va_end (args);
}
static void
user_install_log_newline (PikaUserInstall *install)
{
if (install->verbose)
g_print ("\n");
if (install->log)
install->log (NULL, FALSE, install->log_data);
}
static void
user_install_log_error (PikaUserInstall *install,
GError **error)
{
if (error && *error)
{
const gchar *message = ((*error)->message ?
(*error)->message : "(unknown error)");
if (install->log)
install->log (message, TRUE, install->log_data);
else
g_print ("error: %s\n", message);
g_clear_error (error);
}
}
static gboolean
user_install_file_copy (PikaUserInstall *install,
const gchar *source,
const gchar *dest,
const gchar *old_options_regexp,
GRegexEvalCallback update_callback)
{
GError *error = NULL;
gboolean success;
user_install_log (install, _("Copying file '%s' from '%s'..."),
pika_filename_to_utf8 (dest),
pika_filename_to_utf8 (source));
success = pika_config_file_copy (source, dest, old_options_regexp, update_callback, install, &error);
user_install_log_error (install, &error);
return success;
}
static gboolean
user_install_mkdir (PikaUserInstall *install,
const gchar *dirname)
{
user_install_log (install, _("Creating folder '%s'..."),
pika_filename_to_utf8 (dirname));
if (g_mkdir (dirname,
S_IRUSR | S_IWUSR | S_IXUSR |
S_IRGRP | S_IXGRP |
S_IROTH | S_IXOTH) == -1)
{
GError *error = NULL;
g_set_error (&error, G_FILE_ERROR, g_file_error_from_errno (errno),
_("Cannot create folder '%s': %s"),
pika_filename_to_utf8 (dirname), g_strerror (errno));
user_install_log_error (install, &error);
return FALSE;
}
return TRUE;
}
static gboolean
user_install_mkdir_with_parents (PikaUserInstall *install,
const gchar *dirname)
{
user_install_log (install, _("Creating folder '%s'..."),
pika_filename_to_utf8 (dirname));
if (g_mkdir_with_parents (dirname,
S_IRUSR | S_IWUSR | S_IXUSR |
S_IRGRP | S_IXGRP |
S_IROTH | S_IXOTH) == -1)
{
GError *error = NULL;
g_set_error (&error, G_FILE_ERROR, g_file_error_from_errno (errno),
_("Cannot create folder '%s': %s"),
pika_filename_to_utf8 (dirname), g_strerror (errno));
user_install_log_error (install, &error);
return FALSE;
}
return TRUE;
}
/* The regexp pattern of all options changed from menurc of PIKA 2.8.
* Add any pattern that we want to recognize for replacement in the menurc of
* the next release
*/
#define MENURC_OVER20_UPDATE_PATTERN \
"(;)? *\\(gtk_accel_path \"<Actions>/[a-zA-Z0-9-]*/([a-zA-Z0-9-]*)\" *\"([a-zA-Z0-9<>_]*)\"\\)" "|" \
"(;.*)"
/**
* callback to use for updating a menurc from PIKA over 2.0.
* data is unused (always NULL).
* The updated value will be matched line by line.
*/
static gboolean
user_update_menurc_over20 (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
PikaUserInstall *install = (PikaUserInstall *) data;
gchar *comment_match = g_match_info_fetch (matched_value, 1);
gchar *action_match = g_match_info_fetch (matched_value, 2);
gchar *accel_match = g_match_info_fetch (matched_value, 3);
gchar *ignore_match = g_match_info_fetch (matched_value, 4);
gchar *new_action_name = NULL;
if (strlen (ignore_match) == 0)
{
/* "*-paste-as-new" renamed to "*-paste-as-new-image" */
if (g_strcmp0 (action_match, "buffers-paste-as-new") == 0)
new_action_name = g_strdup ("buffers-paste-as-new-image");
else if (g_strcmp0 (action_match, "edit-paste-as-new") == 0)
new_action_name = g_strdup ("edit-paste-as-new-image");
/* file-export-* changes to follow file-save-* patterns. Actions
* available since PIKA 2.8, changed for 2.10 in commit 4b14ed2.
*/
else if (g_strcmp0 (action_match, "file-export") == 0 &&
install->old_major == 2 && install->old_minor <= 8)
new_action_name = g_strdup ("file-export-as");
else if (g_strcmp0 (action_match, "file-export-to") == 0 &&
install->old_major == 2 && install->old_minor <= 8)
new_action_name = g_strdup ("file-export");
else if (g_strcmp0 (action_match, "layers-text-tool") == 0)
new_action_name = g_strdup ("layers-edit");
/* plug-in-gauss doesn't exist anymore since commit ff59aebbe88.
* The expected replacement would be filters-gaussian-blur which is
* gegl:gaussian-blur operation. See also bug 775931.
*/
else if (g_strcmp0 (action_match, "plug-in-gauss") == 0)
new_action_name = g_strdup ("filters-gaussian-blur");
/* Tools settings renamed more user-friendly. Actions available
* since PIKA 2.4, changed for 2.10 in commit 0bdb747.
*/
else if (g_str_has_prefix (action_match, "tools-value-1-"))
new_action_name = g_strdup ("tools-opacity-");
else if (g_str_has_prefix (action_match, "tools-value-2-"))
new_action_name = g_strdup_printf ("tools-size-%s", action_match + 14);
else if (g_str_has_prefix (action_match, "tools-value-3-"))
new_action_name = g_strdup_printf ("tools-aspect-%s", action_match + 14);
else if (g_str_has_prefix (action_match, "tools-value-4-"))
new_action_name = g_strdup_printf ("tools-angle-%s", action_match + 14);
else if (g_strcmp0 (action_match, "vectors-path-tool") == 0)
new_action_name = g_strdup ("vectors-edit");
else if (g_strcmp0 (action_match, "tools-blend") == 0)
new_action_name = g_strdup ("tools-gradient");
/* view-rotate-reset became view-reset and new view-rotate-reset and
* view-flip-reset actions were created. See commit 15fb4a7be0.
*/
else if (g_strcmp0 (action_match, "view-rotate-reset") == 0 &&
install->old_major == 2)
new_action_name = g_strdup ("view-reset");
2023-12-02 20:03:24 +01:00
/* select-float became select-cut-float in 3.0 (select-copy-float added). */
else if (g_strcmp0 (action_match, "select-float") == 0)
new_action_name = g_strdup ("select-cut-float");
2023-09-26 00:35:21 +02:00
if (new_action_name == NULL)
new_action_name = g_strdup (action_match);
if (g_strcmp0 (comment_match, ";") == 0)
g_string_append (new_value, "# ");
if (strlen (accel_match) > 0)
g_string_append_printf (new_value, "(action \"%s\" \"%s\")",
new_action_name, accel_match);
else
g_string_append_printf (new_value, "(action \"%s\")",
new_action_name);
}
g_free (comment_match);
g_free (action_match);
g_free (accel_match);
g_free (ignore_match);
g_free (new_action_name);
return FALSE;
}
#define CONTROLLERRC_UPDATE_PATTERN \
"\\(map \"(scroll|cursor)-[^\"]*\\bcontrol\\b[^\"]*\""
static gboolean
user_update_controllerrc (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
gchar *original;
gchar *replacement;
GRegex *regexp = NULL;
/* No need of a complicated pattern here.
* CONTROLLERRC_UPDATE_PATTERN took care of it first.
*/
regexp = g_regex_new ("\\bcontrol\\b", 0, 0, NULL);
original = g_match_info_fetch (matched_value, 0);
replacement = g_regex_replace (regexp, original, -1, 0,
"primary", 0, NULL);
g_string_append (new_value, replacement);
g_free (original);
g_free (replacement);
g_regex_unref (regexp);
return FALSE;
}
#define SESSIONRC_UPDATE_PATTERN \
"\\(position [0-9]* [0-9]*\\)" "|" \
"\\(size [0-9]* [0-9]*\\)" "|" \
"\\(left-docks-width \"?[0-9]*\"?\\)" "|" \
"\\(right-docks-width \"?[0-9]*\"?\\)"
static gboolean
user_update_sessionrc (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
PikaUserInstall *install = (PikaUserInstall *) data;
gchar *original;
original = g_match_info_fetch (matched_value, 0);
if (install->scale_factor != 1 && install->scale_factor > 0)
{
/* GTK < 3.0 didn't have scale factor support. It means that any
* size and position back then would be in real pixel size. Now
* with GTK3 and over, we need to think of position and size in
* virtual/application pixels.
* In particular it means that if we were to just copy the numbers
* from GTK2 to GTK3 on a display with scale factor of 2, every
* width, height and position would be 2 times too big (a full
* screen window would end up off-screen).
*/
GRegex *regexp;
GMatchInfo *match_info;
gchar *match;
/* First copy the pattern title. */
regexp = g_regex_new ("\\([a-z-]* ", 0, 0, NULL);
g_regex_match (regexp, original, 0, &match_info);
match = g_match_info_fetch (match_info, 0);
g_string_append (new_value, match);
g_match_info_free (match_info);
g_regex_unref (regexp);
g_free (match);
/* Now copy the numbers. */
regexp = g_regex_new ("[0-9]+|\"", 0, 0, NULL);
g_regex_match (regexp, original, 0, &match_info);
while (g_match_info_matches (match_info))
{
match = g_match_info_fetch (match_info, 0);
if (g_strcmp0 (match, "\"") == 0)
{
g_string_append (new_value, match);
}
else
{
gint num;
num = g_ascii_strtoll (match, NULL, 10);
num /= install->scale_factor;
g_string_append_printf (new_value, " %d", num);
}
g_free (match);
g_match_info_next (match_info, NULL);
}
g_match_info_free (match_info);
g_regex_unref (regexp);
g_string_append (new_value, ")");
}
else
{
/* Just copy as-is. */
g_string_append (new_value, original);
}
g_free (original);
return FALSE;
}
#define PIKARC_UPDATE_PATTERN \
"\\(theme [^)]*\\)" "|" \
"^ *\\(.*-path \".*\"\\) *$" "|" \
"\\(style solid\\)"
static gboolean
user_update_pikarc (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
gchar *match = g_match_info_fetch (matched_value, 0);
if (g_strcmp0 (match, "(style solid)") == 0)
{
/* See MR !706: PIKA_FILL_STYLE_SOLID was split in
* PIKA_FILL_STYLE_FG_COLOR and PIKA_FILL_STYLE_BG_COLOR.
*/
g_string_append (new_value, "(style fg-color)");
}
else
{
/* Do not migrate paths and themes from PIKA < 3.0. */
}
g_free (match);
return FALSE;
}
#define PIKARESSIONIST_UPDATE_PATTERN \
"selectedbrush=Brushes/paintbrush.pgm"
static gboolean
user_update_pikaressionist (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
gchar *match = g_match_info_fetch (matched_value, 0);
/* See bug 791934: both brushes are identical. */
if (g_strcmp0 (match, "selectedbrush=Brushes/paintbrush.pgm") == 0)
{
g_string_append (new_value, "selectedbrush=Brushes/paintbrush01.pgm");
}
else
{
g_message ("(WARNING) %s: invalid match \"%s\"", G_STRFUNC, match);
g_string_append (new_value, match);
}
g_free (match);
return FALSE;
}
#define TOOL_PRESETS_UPDATE_PATTERN \
"PikaImageMapOptions" "|" \
"PikaBlendOptions" "|" \
"pika-blend-tool" "|" \
"pika-tool-blend" "|" \
"dynamics \"Dynamics Off\"" "|" \
"\\(dynamics-expanded yes\\)"
static gboolean
user_update_tool_presets (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
gchar *match = g_match_info_fetch (matched_value, 0);
if (g_strcmp0 (match, "PikaImageMapOptions") == 0)
{
g_string_append (new_value, "PikaFilterOptions");
}
else if (g_strcmp0 (match, "PikaBlendOptions") == 0)
{
g_string_append (new_value, "PikaGradientOptions");
}
else if (g_strcmp0 (match, "pika-blend-tool") == 0)
{
g_string_append (new_value, "pika-gradient-tool");
}
else if (g_strcmp0 (match, "pika-tool-blend") == 0)
{
g_string_append (new_value, "pika-tool-gradient");
}
else if (g_strcmp0 (match, "dynamics \"Dynamics Off\"") == 0)
{
g_string_append (new_value, "dynamics-enabled no");
}
else if (g_strcmp0 (match, "(dynamics-expanded yes)") == 0)
{
/* This option just doesn't exist anymore. */
}
else
{
g_message ("(WARNING) %s: invalid match \"%s\"", G_STRFUNC, match);
g_string_append (new_value, match);
}
g_free (match);
return FALSE;
}
/* Actually not only for contextrc, but all other files where
* pika-blend-tool may appear. Apparently that is also "devicerc", as
* well as "toolrc" (but this one is skipped anyway).
*/
#define CONTEXTRC_UPDATE_PATTERN \
"pika-blend-tool" "|" \
"dynamics \"Dynamics Off\"" "|" \
"\\(dynamics-expanded yes\\)"
static gboolean
user_update_contextrc_over20 (const GMatchInfo *matched_value,
GString *new_value,
gpointer data)
{
gchar *match = g_match_info_fetch (matched_value, 0);
if (g_strcmp0 (match, "pika-blend-tool") == 0)
{
g_string_append (new_value, "pika-gradient-tool");
}
else if (g_strcmp0 (match, "dynamics \"Dynamics Off\"") == 0)
{
g_string_append (new_value, "dynamics-enabled no");
}
else if (g_strcmp0 (match, "(dynamics-expanded yes)") == 0)
{
/* This option just doesn't exist anymore. */
}
else
{
g_message ("(WARNING) %s: invalid match \"%s\"", G_STRFUNC, match);
g_string_append (new_value, match);
}
g_free (match);
return FALSE;
}
static gboolean
user_install_dir_copy (PikaUserInstall *install,
gint level,
const gchar *source,
const gchar *base,
const gchar *update_pattern,
GRegexEvalCallback update_callback)
{
GDir *source_dir = NULL;
GDir *dest_dir = NULL;
gchar dest[1024];
const gchar *basename;
gchar *dirname = NULL;
gchar *name;
GError *error = NULL;
gboolean success = FALSE;
if (level >= 5)
{
/* Config migration is recursive, but we can't go on forever,
* since we may fall into recursive symlinks in particular (which
* is a security risk to fill a disk, and would also block PIKA
* forever at migration stage).
* Let's just break the recursivity at 5 levels, which is just an
* arbitrary value (but I don't think there should be any data
* deeper than this).
*/
goto error;
}
name = g_path_get_basename (source);
dirname = g_build_filename (base, name, NULL);
g_free (name);
success = user_install_mkdir (install, dirname);
if (! success)
goto error;
success = (dest_dir = g_dir_open (dirname, 0, &error)) != NULL;
if (! success)
goto error;
success = (source_dir = g_dir_open (source, 0, &error)) != NULL;
if (! success)
goto error;
while ((basename = g_dir_read_name (source_dir)) != NULL)
{
name = g_build_filename (source, basename, NULL);
if (g_file_test (name, G_FILE_TEST_IS_REGULAR))
{
g_snprintf (dest, sizeof (dest), "%s%c%s",
dirname, G_DIR_SEPARATOR, basename);
success = user_install_file_copy (install, name, dest,
update_pattern,
update_callback);
if (! success)
{
g_free (name);
goto error;
}
}
else
{
user_install_dir_copy (install, level + 1, name, dirname,
update_pattern, update_callback);
}
g_free (name);
}
error:
user_install_log_error (install, &error);
if (source_dir)
g_dir_close (source_dir);
if (dest_dir)
g_dir_close (dest_dir);
if (dirname)
g_free (dirname);
return success;
}
static gboolean
user_install_create_files (PikaUserInstall *install)
{
gchar dest[1024];
gchar source[1024];
gint i;
for (i = 0; i < G_N_ELEMENTS (pika_user_install_items); i++)
{
g_snprintf (dest, sizeof (dest), "%s%c%s",
pika_directory (),
G_DIR_SEPARATOR,
pika_user_install_items[i].name);
if (g_file_test (dest, G_FILE_TEST_EXISTS))
continue;
switch (pika_user_install_items[i].action)
{
case USER_INSTALL_MKDIR:
if (! user_install_mkdir (install, dest))
return FALSE;
break;
case USER_INSTALL_COPY:
g_snprintf (source, sizeof (source), "%s%c%s",
pika_sysconf_directory (), G_DIR_SEPARATOR,
pika_user_install_items[i].name);
if (! user_install_file_copy (install, source, dest, NULL, NULL))
return FALSE;
break;
}
}
g_snprintf (dest, sizeof (dest), "%s%c%s",
pika_directory (), G_DIR_SEPARATOR, "tags.xml");
if (! g_file_test (dest, G_FILE_TEST_IS_REGULAR))
{
/* if there was no tags.xml, install it with default tag set.
*/
if (! pika_tags_user_install ())
{
return FALSE;
}
}
return TRUE;
}
static gboolean
user_install_migrate_files (PikaUserInstall *install)
{
GDir *dir;
const gchar *basename;
gchar dest[1024];
PikaRc *pikarc;
GError *error = NULL;
dir = g_dir_open (install->old_dir, 0, &error);
if (! dir)
{
user_install_log_error (install, &error);
return FALSE;
}
while ((basename = g_dir_read_name (dir)) != NULL)
{
gchar *source = g_build_filename (install->old_dir, basename, NULL);
const gchar *new_dest = NULL;
if (g_file_test (source, G_FILE_TEST_IS_REGULAR))
{
const gchar *update_pattern = NULL;
GRegexEvalCallback update_callback = NULL;
/* skip these files for all old versions */
if (strcmp (basename, "documents") == 0 ||
g_str_has_prefix (basename, "pikaswap.") ||
strcmp (basename, "pluginrc") == 0 ||
strcmp (basename, "themerc") == 0 ||
strcmp (basename, "toolrc") == 0 ||
strcmp (basename, "gtkrc") == 0)
{
goto next_file;
}
else if (install->old_major < 3 &&
strcmp (basename, "sessionrc") == 0)
{
/* We need to update size and positions because of scale
* factor support.
*/
update_pattern = SESSIONRC_UPDATE_PATTERN;
update_callback = user_update_sessionrc;
}
else if (strcmp (basename, "menurc") == 0)
{
switch (install->old_minor)
{
case 0:
/* skip menurc for pika 2.0 as the format has changed */
goto next_file;
break;
default:
update_pattern = MENURC_OVER20_UPDATE_PATTERN;
update_callback = user_update_menurc_over20;
/* menurc becomes shortcutsrc in 3.0. */
new_dest = "shortcutsrc";
break;
}
}
else if (strcmp (basename, "controllerrc") == 0)
{
update_pattern = CONTROLLERRC_UPDATE_PATTERN;
update_callback = user_update_controllerrc;
}
else if (strcmp (basename, "pikarc") == 0)
{
update_pattern = PIKARC_UPDATE_PATTERN;
update_callback = user_update_pikarc;
}
else if (strcmp (basename, "contextrc") == 0 ||
strcmp (basename, "devicerc") == 0)
{
update_pattern = CONTEXTRC_UPDATE_PATTERN;
update_callback = user_update_contextrc_over20;
}
g_snprintf (dest, sizeof (dest), "%s%c%s",
pika_directory (), G_DIR_SEPARATOR,
new_dest ? new_dest : basename);
user_install_file_copy (install, source, dest,
update_pattern, update_callback);
}
else if (g_file_test (source, G_FILE_TEST_IS_DIR))
{
const gchar *update_pattern = NULL;
GRegexEvalCallback update_callback = NULL;
/* skip these directories for all old versions */
if (strcmp (basename, "tmp") == 0 ||
strcmp (basename, "tool-options") == 0 ||
strcmp (basename, "themes") == 0)
{
goto next_file;
}
else if (install->old_major < 3 &&
(strcmp (basename, "plug-ins") == 0 ||
strcmp (basename, "scripts") == 0))
{
/* Major API update. */
goto next_file;
}
if (strcmp (basename, "pikaressionist") == 0)
{
update_pattern = PIKARESSIONIST_UPDATE_PATTERN;
update_callback = user_update_pikaressionist;
}
else if (strcmp (basename, "tool-presets") == 0)
{
update_pattern = TOOL_PRESETS_UPDATE_PATTERN;
update_callback = user_update_tool_presets;
}
user_install_dir_copy (install, 0, source, pika_directory (),
update_pattern, update_callback);
}
next_file:
g_free (source);
}
/* create the tmp directory that was explicitly not copied */
g_snprintf (dest, sizeof (dest), "%s%c%s",
pika_directory (), G_DIR_SEPARATOR, "tmp");
user_install_mkdir (install, dest);
g_dir_close (dir);
pika_templates_migrate (install->old_dir);
pikarc = pika_rc_new (install->pika, NULL, NULL, FALSE);
pika_rc_migrate (pikarc);
pika_rc_save (pikarc);
g_object_unref (pikarc);
return TRUE;
}