523 lines
13 KiB
C
523 lines
13 KiB
C
|
/* 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
|
||
|
|
*
|
||
|
|
* pikaenvirontable.c
|
||
|
|
* (C) 2002 Manish Singh <yosh@gimp.org>
|
||
|
|
*
|
||
|
|
* 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/>.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "config.h"
|
||
|
|
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
#include <gio/gio.h>
|
||
|
|
|
||
|
|
#include "libpikabase/pikabase.h"
|
||
|
|
#include "libpikaconfig/pikaconfig.h"
|
||
|
|
|
||
|
|
#include "plug-in-types.h"
|
||
|
|
|
||
|
|
#include "pikaenvirontable.h"
|
||
|
|
|
||
|
|
#include "pika-intl.h"
|
||
|
|
|
||
|
|
|
||
|
|
typedef struct _PikaEnvironValue PikaEnvironValue;
|
||
|
|
|
||
|
|
struct _PikaEnvironValue
|
||
|
|
{
|
||
|
|
gchar *value;
|
||
|
|
gchar *separator;
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
static void pika_environ_table_finalize (GObject *object);
|
||
|
|
|
||
|
|
static void pika_environ_table_load_env_file (PikaEnvironTable *environ_table,
|
||
|
|
GFile *file);
|
||
|
|
static gboolean pika_environ_table_legal_name (gchar *name);
|
||
|
|
|
||
|
|
static void pika_environ_table_populate (PikaEnvironTable *environ_table);
|
||
|
|
static void pika_environ_table_populate_one (const gchar *name,
|
||
|
|
PikaEnvironValue *val,
|
||
|
|
GPtrArray *env_array);
|
||
|
|
static gboolean pika_environ_table_pass_through (PikaEnvironTable *environ_table,
|
||
|
|
const gchar *name);
|
||
|
|
|
||
|
|
static void pika_environ_table_clear_vars (PikaEnvironTable *environ_table);
|
||
|
|
static void pika_environ_table_clear_internal (PikaEnvironTable *environ_table);
|
||
|
|
static void pika_environ_table_clear_envp (PikaEnvironTable *environ_table);
|
||
|
|
|
||
|
|
static void pika_environ_table_free_value (PikaEnvironValue *val);
|
||
|
|
|
||
|
|
|
||
|
|
G_DEFINE_TYPE (PikaEnvironTable, pika_environ_table, G_TYPE_OBJECT)
|
||
|
|
|
||
|
|
#define parent_class pika_environ_table_parent_class
|
||
|
|
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_class_init (PikaEnvironTableClass *class)
|
||
|
|
{
|
||
|
|
GObjectClass *object_class = G_OBJECT_CLASS (class);
|
||
|
|
|
||
|
|
object_class->finalize = pika_environ_table_finalize;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_init (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_finalize (GObject *object)
|
||
|
|
{
|
||
|
|
PikaEnvironTable *environ_table = PIKA_ENVIRON_TABLE (object);
|
||
|
|
|
||
|
|
pika_environ_table_clear_all (environ_table);
|
||
|
|
|
||
|
|
G_OBJECT_CLASS (parent_class)->finalize (object);
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaEnvironTable *
|
||
|
|
pika_environ_table_new (gboolean verbose)
|
||
|
|
{
|
||
|
|
PikaEnvironTable *table = g_object_new (PIKA_TYPE_ENVIRON_TABLE, NULL);
|
||
|
|
|
||
|
|
table->verbose = verbose;
|
||
|
|
|
||
|
|
return table;
|
||
|
|
}
|
||
|
|
|
||
|
|
static guint
|
||
|
|
pika_environ_table_str_hash (gconstpointer v)
|
||
|
|
{
|
||
|
|
#ifdef G_OS_WIN32
|
||
|
|
gchar *p = g_ascii_strup ((const gchar *) v, -1);
|
||
|
|
guint retval = g_str_hash (p);
|
||
|
|
|
||
|
|
g_free (p);
|
||
|
|
|
||
|
|
return retval;
|
||
|
|
#else
|
||
|
|
return g_str_hash (v);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
pika_environ_table_str_equal (gconstpointer v1,
|
||
|
|
gconstpointer v2)
|
||
|
|
{
|
||
|
|
#ifdef G_OS_WIN32
|
||
|
|
gchar *string1 = g_ascii_strup ((const gchar *) v1, -1);
|
||
|
|
gchar *string2 = g_ascii_strup ((const gchar *) v2, -1);
|
||
|
|
gboolean retval = g_str_equal (string1, string2);
|
||
|
|
|
||
|
|
g_free (string1);
|
||
|
|
g_free (string2);
|
||
|
|
|
||
|
|
return retval;
|
||
|
|
#else
|
||
|
|
return g_str_equal (v1, v2);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pika_environ_table_load (PikaEnvironTable *environ_table,
|
||
|
|
GList *path)
|
||
|
|
{
|
||
|
|
GList *list;
|
||
|
|
|
||
|
|
g_return_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table));
|
||
|
|
|
||
|
|
pika_environ_table_clear (environ_table);
|
||
|
|
|
||
|
|
environ_table->vars =
|
||
|
|
g_hash_table_new_full (pika_environ_table_str_hash,
|
||
|
|
pika_environ_table_str_equal,
|
||
|
|
g_free,
|
||
|
|
(GDestroyNotify) pika_environ_table_free_value);
|
||
|
|
|
||
|
|
for (list = path; list; list = g_list_next (list))
|
||
|
|
{
|
||
|
|
GFile *dir = list->data;
|
||
|
|
GFileEnumerator *enumerator;
|
||
|
|
|
||
|
|
enumerator =
|
||
|
|
g_file_enumerate_children (dir,
|
||
|
|
G_FILE_ATTRIBUTE_STANDARD_NAME ","
|
||
|
|
G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN ","
|
||
|
|
G_FILE_ATTRIBUTE_STANDARD_TYPE,
|
||
|
|
G_FILE_QUERY_INFO_NONE,
|
||
|
|
NULL, NULL);
|
||
|
|
|
||
|
|
if (enumerator)
|
||
|
|
{
|
||
|
|
GFileInfo *info;
|
||
|
|
|
||
|
|
while ((info = g_file_enumerator_next_file (enumerator,
|
||
|
|
NULL, NULL)))
|
||
|
|
{
|
||
|
|
if (! g_file_info_get_is_hidden (info) &&
|
||
|
|
g_file_info_get_file_type (info) == G_FILE_TYPE_REGULAR)
|
||
|
|
{
|
||
|
|
GFile *file = g_file_enumerator_get_child (enumerator, info);
|
||
|
|
|
||
|
|
pika_environ_table_load_env_file (environ_table, file);
|
||
|
|
|
||
|
|
g_object_unref (file);
|
||
|
|
}
|
||
|
|
|
||
|
|
g_object_unref (info);
|
||
|
|
}
|
||
|
|
|
||
|
|
g_object_unref (enumerator);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pika_environ_table_add (PikaEnvironTable *environ_table,
|
||
|
|
const gchar *name,
|
||
|
|
const gchar *value,
|
||
|
|
const gchar *separator)
|
||
|
|
{
|
||
|
|
PikaEnvironValue *val;
|
||
|
|
|
||
|
|
g_return_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table));
|
||
|
|
|
||
|
|
pika_environ_table_clear_envp (environ_table);
|
||
|
|
|
||
|
|
if (! environ_table->internal)
|
||
|
|
environ_table->internal =
|
||
|
|
g_hash_table_new_full (g_str_hash, g_str_equal,
|
||
|
|
g_free,
|
||
|
|
(GDestroyNotify) pika_environ_table_free_value);
|
||
|
|
|
||
|
|
val = g_slice_new (PikaEnvironValue);
|
||
|
|
|
||
|
|
val->value = g_strdup (value);
|
||
|
|
val->separator = g_strdup (separator);
|
||
|
|
|
||
|
|
g_hash_table_insert (environ_table->internal, g_strdup (name), val);
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pika_environ_table_remove (PikaEnvironTable *environ_table,
|
||
|
|
const gchar *name)
|
||
|
|
{
|
||
|
|
g_return_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table));
|
||
|
|
|
||
|
|
if (! environ_table->internal)
|
||
|
|
return;
|
||
|
|
|
||
|
|
pika_environ_table_clear_envp (environ_table);
|
||
|
|
|
||
|
|
g_hash_table_remove (environ_table->internal, name);
|
||
|
|
|
||
|
|
if (g_hash_table_size (environ_table->internal) == 0)
|
||
|
|
pika_environ_table_clear_internal (environ_table);
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pika_environ_table_clear (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
g_return_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table));
|
||
|
|
|
||
|
|
pika_environ_table_clear_envp (environ_table);
|
||
|
|
|
||
|
|
pika_environ_table_clear_vars (environ_table);
|
||
|
|
}
|
||
|
|
|
||
|
|
void
|
||
|
|
pika_environ_table_clear_all (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
g_return_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table));
|
||
|
|
|
||
|
|
pika_environ_table_clear_envp (environ_table);
|
||
|
|
|
||
|
|
pika_environ_table_clear_vars (environ_table);
|
||
|
|
pika_environ_table_clear_internal (environ_table);
|
||
|
|
}
|
||
|
|
|
||
|
|
gchar **
|
||
|
|
pika_environ_table_get_envp (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
g_return_val_if_fail (PIKA_IS_ENVIRON_TABLE (environ_table), NULL);
|
||
|
|
|
||
|
|
/* Hmm.. should we return a copy here in the future? Not thread safe atm,
|
||
|
|
* but the rest of it isn't either.
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (! environ_table->envp)
|
||
|
|
pika_environ_table_populate (environ_table);
|
||
|
|
|
||
|
|
return environ_table->envp;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* private */
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_load_env_file (PikaEnvironTable *environ_table,
|
||
|
|
GFile *file)
|
||
|
|
{
|
||
|
|
GInputStream *input;
|
||
|
|
GDataInputStream *data_input;
|
||
|
|
gchar *buffer;
|
||
|
|
gsize buffer_len;
|
||
|
|
GError *error = NULL;
|
||
|
|
|
||
|
|
if (environ_table->verbose)
|
||
|
|
g_print ("Parsing '%s'\n", pika_file_get_utf8_name (file));
|
||
|
|
|
||
|
|
input = G_INPUT_STREAM (g_file_read (file, NULL, &error));
|
||
|
|
if (! input)
|
||
|
|
{
|
||
|
|
g_message (_("Could not open '%s' for reading: %s"),
|
||
|
|
pika_file_get_utf8_name (file),
|
||
|
|
error->message);
|
||
|
|
g_clear_error (&error);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
data_input = g_data_input_stream_new (input);
|
||
|
|
g_object_unref (input);
|
||
|
|
|
||
|
|
while ((buffer = g_data_input_stream_read_line (data_input, &buffer_len,
|
||
|
|
NULL, &error)))
|
||
|
|
{
|
||
|
|
gchar *name;
|
||
|
|
gchar *value;
|
||
|
|
gchar *separator;
|
||
|
|
gchar *p;
|
||
|
|
gchar *q;
|
||
|
|
|
||
|
|
/* Skip comments */
|
||
|
|
if (buffer[0] == '#')
|
||
|
|
{
|
||
|
|
g_free (buffer);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
p = strchr (buffer, '=');
|
||
|
|
if (! p)
|
||
|
|
{
|
||
|
|
g_free (buffer);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
*p = '\0';
|
||
|
|
|
||
|
|
name = buffer;
|
||
|
|
value = p + 1;
|
||
|
|
|
||
|
|
if (name[0] == '\0')
|
||
|
|
{
|
||
|
|
g_message (_("Empty variable name in environment file %s"),
|
||
|
|
pika_file_get_utf8_name (file));
|
||
|
|
g_free (buffer);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
separator = NULL;
|
||
|
|
|
||
|
|
q = strchr (name, ' ');
|
||
|
|
if (q)
|
||
|
|
{
|
||
|
|
*q = '\0';
|
||
|
|
|
||
|
|
separator = name;
|
||
|
|
name = q + 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (! pika_environ_table_legal_name (name))
|
||
|
|
{
|
||
|
|
g_message (_("Illegal variable name in environment file %s: %s"),
|
||
|
|
pika_file_get_utf8_name (file), name);
|
||
|
|
g_free (buffer);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (! g_hash_table_lookup (environ_table->vars, name))
|
||
|
|
{
|
||
|
|
PikaEnvironValue *val = g_slice_new (PikaEnvironValue);
|
||
|
|
|
||
|
|
val->value = pika_config_path_expand (value, FALSE, NULL);
|
||
|
|
val->separator = g_strdup (separator);
|
||
|
|
|
||
|
|
g_hash_table_insert (environ_table->vars, g_strdup (name), val);
|
||
|
|
}
|
||
|
|
|
||
|
|
g_free (buffer);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (error)
|
||
|
|
{
|
||
|
|
g_message (_("Error reading '%s': %s"),
|
||
|
|
pika_file_get_utf8_name (file),
|
||
|
|
error->message);
|
||
|
|
g_clear_error (&error);
|
||
|
|
}
|
||
|
|
|
||
|
|
g_object_unref (data_input);
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
pika_environ_table_legal_name (gchar *name)
|
||
|
|
{
|
||
|
|
gchar *s;
|
||
|
|
|
||
|
|
if (! g_ascii_isalpha (*name) && (*name != '_'))
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
for (s = name + 1; *s; s++)
|
||
|
|
if (! g_ascii_isalnum (*s) && (*s != '_'))
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_populate (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
gchar **env = g_listenv ();
|
||
|
|
gchar **var;
|
||
|
|
GPtrArray *env_array;
|
||
|
|
|
||
|
|
var = env;
|
||
|
|
env_array = g_ptr_array_new ();
|
||
|
|
|
||
|
|
while (*var)
|
||
|
|
{
|
||
|
|
/* g_listenv() only returns the names of environment variables
|
||
|
|
* that are correctly specified (name=value) in the environ
|
||
|
|
* array (Unix) or the process environment string table (Win32).
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (pika_environ_table_pass_through (environ_table, *var))
|
||
|
|
g_ptr_array_add (env_array, g_strconcat (*var, "=", g_getenv (*var), NULL));
|
||
|
|
|
||
|
|
var++;
|
||
|
|
}
|
||
|
|
|
||
|
|
g_strfreev (env);
|
||
|
|
|
||
|
|
if (environ_table->vars)
|
||
|
|
g_hash_table_foreach (environ_table->vars,
|
||
|
|
(GHFunc) pika_environ_table_populate_one,
|
||
|
|
env_array);
|
||
|
|
|
||
|
|
if (environ_table->internal)
|
||
|
|
g_hash_table_foreach (environ_table->internal,
|
||
|
|
(GHFunc) pika_environ_table_populate_one,
|
||
|
|
env_array);
|
||
|
|
|
||
|
|
g_ptr_array_add (env_array, NULL);
|
||
|
|
|
||
|
|
environ_table->envp = (gchar **) g_ptr_array_free (env_array, FALSE);
|
||
|
|
|
||
|
|
#ifdef ENVP_DEBUG
|
||
|
|
var = environ_table->envp;
|
||
|
|
|
||
|
|
g_print ("PikaEnvironTable:\n");
|
||
|
|
while (*var)
|
||
|
|
{
|
||
|
|
g_print ("%s\n", *var);
|
||
|
|
var++;
|
||
|
|
}
|
||
|
|
#endif /* ENVP_DEBUG */
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_populate_one (const gchar *name,
|
||
|
|
PikaEnvironValue *val,
|
||
|
|
GPtrArray *env_array)
|
||
|
|
{
|
||
|
|
const gchar *old;
|
||
|
|
gchar *var = NULL;
|
||
|
|
|
||
|
|
if (val->separator)
|
||
|
|
{
|
||
|
|
old = g_getenv (name);
|
||
|
|
|
||
|
|
if (old)
|
||
|
|
var = g_strconcat (name, "=", val->value, val->separator, old, NULL);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (! var)
|
||
|
|
var = g_strconcat (name, "=", val->value, NULL);
|
||
|
|
|
||
|
|
g_ptr_array_add (env_array, var);
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
pika_environ_table_pass_through (PikaEnvironTable *environ_table,
|
||
|
|
const gchar *name)
|
||
|
|
{
|
||
|
|
gboolean vars, internal;
|
||
|
|
|
||
|
|
vars = environ_table->vars &&
|
||
|
|
g_hash_table_lookup (environ_table->vars, name);
|
||
|
|
|
||
|
|
internal = environ_table->internal &&
|
||
|
|
g_hash_table_lookup (environ_table->internal, name);
|
||
|
|
|
||
|
|
return (!vars && !internal);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_clear_vars (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
if (environ_table->vars)
|
||
|
|
{
|
||
|
|
g_hash_table_destroy (environ_table->vars);
|
||
|
|
environ_table->vars = NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_clear_internal (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
if (environ_table->internal)
|
||
|
|
{
|
||
|
|
g_hash_table_destroy (environ_table->internal);
|
||
|
|
environ_table->internal = NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_clear_envp (PikaEnvironTable *environ_table)
|
||
|
|
{
|
||
|
|
if (environ_table->envp)
|
||
|
|
{
|
||
|
|
g_strfreev (environ_table->envp);
|
||
|
|
environ_table->envp = NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
pika_environ_table_free_value (PikaEnvironValue *val)
|
||
|
|
{
|
||
|
|
g_free (val->value);
|
||
|
|
g_free (val->separator);
|
||
|
|
|
||
|
|
g_slice_free (PikaEnvironValue, val);
|
||
|
|
}
|
