365 lines
9.2 KiB
C
365 lines
9.2 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
|
||
|
|
*
|
||
|
|
* 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 <cairo.h>
|
||
|
|
#include <gegl.h>
|
||
|
|
#include <gdk-pixbuf/gdk-pixbuf.h>
|
||
|
|
|
||
|
|
#include "libpikabase/pikabase.h"
|
||
|
|
#include "libpikamath/pikamath.h"
|
||
|
|
#include "libpikacolor/pikacolor.h"
|
||
|
|
|
||
|
|
#include "core-types.h"
|
||
|
|
|
||
|
|
#include "pika-memsize.h"
|
||
|
|
#include "pikaparamspecs.h"
|
||
|
|
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_type_instance_get_memsize (GTypeInstance *instance)
|
||
|
|
{
|
||
|
|
if (instance)
|
||
|
|
{
|
||
|
|
GTypeQuery type_query;
|
||
|
|
|
||
|
|
g_type_query (G_TYPE_FROM_INSTANCE (instance), &type_query);
|
||
|
|
|
||
|
|
return type_query.instance_size;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_object_get_memsize (GObject *object)
|
||
|
|
{
|
||
|
|
if (object)
|
||
|
|
return pika_g_type_instance_get_memsize ((GTypeInstance *) object);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_hash_table_get_memsize (GHashTable *hash,
|
||
|
|
gint64 data_size)
|
||
|
|
{
|
||
|
|
if (hash)
|
||
|
|
return (2 * sizeof (gint) +
|
||
|
|
5 * sizeof (gpointer) +
|
||
|
|
g_hash_table_size (hash) * (3 * sizeof (gpointer) + data_size));
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
typedef struct
|
||
|
|
{
|
||
|
|
PikaMemsizeFunc func;
|
||
|
|
gint64 memsize;
|
||
|
|
gint64 gui_size;
|
||
|
|
} HashMemsize;
|
||
|
|
|
||
|
|
static void
|
||
|
|
hash_memsize_foreach (gpointer key,
|
||
|
|
gpointer value,
|
||
|
|
HashMemsize *memsize)
|
||
|
|
{
|
||
|
|
gint64 gui_size = 0;
|
||
|
|
|
||
|
|
memsize->memsize += memsize->func (value, &gui_size);
|
||
|
|
memsize->gui_size += gui_size;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_hash_table_get_memsize_foreach (GHashTable *hash,
|
||
|
|
PikaMemsizeFunc func,
|
||
|
|
gint64 *gui_size)
|
||
|
|
{
|
||
|
|
HashMemsize memsize;
|
||
|
|
|
||
|
|
g_return_val_if_fail (func != NULL, 0);
|
||
|
|
|
||
|
|
if (! hash)
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
memsize.func = func;
|
||
|
|
memsize.memsize = 0;
|
||
|
|
memsize.gui_size = 0;
|
||
|
|
|
||
|
|
g_hash_table_foreach (hash, (GHFunc) hash_memsize_foreach, &memsize);
|
||
|
|
|
||
|
|
if (gui_size)
|
||
|
|
*gui_size = memsize.gui_size;
|
||
|
|
|
||
|
|
return memsize.memsize + pika_g_hash_table_get_memsize (hash, 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_slist_get_memsize (GSList *slist,
|
||
|
|
gint64 data_size)
|
||
|
|
{
|
||
|
|
return g_slist_length (slist) * (data_size + sizeof (GSList));
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_slist_get_memsize_foreach (GSList *slist,
|
||
|
|
PikaMemsizeFunc func,
|
||
|
|
gint64 *gui_size)
|
||
|
|
{
|
||
|
|
GSList *l;
|
||
|
|
gint64 memsize = 0;
|
||
|
|
|
||
|
|
g_return_val_if_fail (func != NULL, 0);
|
||
|
|
|
||
|
|
for (l = slist; l; l = g_slist_next (l))
|
||
|
|
memsize += sizeof (GSList) + func (l->data, gui_size);
|
||
|
|
|
||
|
|
return memsize;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_list_get_memsize (GList *list,
|
||
|
|
gint64 data_size)
|
||
|
|
{
|
||
|
|
return g_list_length (list) * (data_size + sizeof (GList));
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_list_get_memsize_foreach (GList *list,
|
||
|
|
PikaMemsizeFunc func,
|
||
|
|
gint64 *gui_size)
|
||
|
|
{
|
||
|
|
GList *l;
|
||
|
|
gint64 memsize = 0;
|
||
|
|
|
||
|
|
g_return_val_if_fail (func != NULL, 0);
|
||
|
|
|
||
|
|
for (l = list; l; l = g_list_next (l))
|
||
|
|
memsize += sizeof (GList) + func (l->data, gui_size);
|
||
|
|
|
||
|
|
return memsize;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_queue_get_memsize (GQueue *queue,
|
||
|
|
gint64 data_size)
|
||
|
|
{
|
||
|
|
if (queue)
|
||
|
|
{
|
||
|
|
return sizeof (GQueue) +
|
||
|
|
g_queue_get_length (queue) * (data_size + sizeof (GList));
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_queue_get_memsize_foreach (GQueue *queue,
|
||
|
|
PikaMemsizeFunc func,
|
||
|
|
gint64 *gui_size)
|
||
|
|
{
|
||
|
|
gint64 memsize = 0;
|
||
|
|
|
||
|
|
g_return_val_if_fail (func != NULL, 0);
|
||
|
|
|
||
|
|
if (queue)
|
||
|
|
{
|
||
|
|
GList *l;
|
||
|
|
|
||
|
|
memsize = sizeof (GQueue);
|
||
|
|
|
||
|
|
for (l = queue->head; l; l = g_list_next (l))
|
||
|
|
memsize += sizeof (GList) + func (l->data, gui_size);
|
||
|
|
}
|
||
|
|
|
||
|
|
return memsize;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_value_get_memsize (GValue *value)
|
||
|
|
{
|
||
|
|
gint64 memsize = 0;
|
||
|
|
|
||
|
|
if (! value)
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
if (G_VALUE_HOLDS_STRING (value))
|
||
|
|
{
|
||
|
|
memsize += pika_string_get_memsize (g_value_get_string (value));
|
||
|
|
}
|
||
|
|
else if (G_VALUE_HOLDS_BOXED (value))
|
||
|
|
{
|
||
|
|
if (PIKA_VALUE_HOLDS_RGB (value))
|
||
|
|
{
|
||
|
|
memsize += sizeof (PikaRGB);
|
||
|
|
}
|
||
|
|
else if (PIKA_VALUE_HOLDS_MATRIX2 (value))
|
||
|
|
{
|
||
|
|
memsize += sizeof (PikaMatrix2);
|
||
|
|
}
|
||
|
|
else if (PIKA_VALUE_HOLDS_PARASITE (value))
|
||
|
|
{
|
||
|
|
memsize += pika_parasite_get_memsize (g_value_get_boxed (value),
|
||
|
|
NULL);
|
||
|
|
}
|
||
|
|
else if (PIKA_VALUE_HOLDS_ARRAY (value) ||
|
||
|
|
PIKA_VALUE_HOLDS_INT32_ARRAY (value) ||
|
||
|
|
PIKA_VALUE_HOLDS_FLOAT_ARRAY (value))
|
||
|
|
{
|
||
|
|
PikaArray *array = g_value_get_boxed (value);
|
||
|
|
|
||
|
|
if (array)
|
||
|
|
memsize += sizeof (PikaArray) +
|
||
|
|
(array->static_data ? 0 : array->length);
|
||
|
|
}
|
||
|
|
else if (G_VALUE_HOLDS (value, G_TYPE_BYTES))
|
||
|
|
{
|
||
|
|
GBytes *bytes = g_value_get_boxed (value);
|
||
|
|
|
||
|
|
if (bytes)
|
||
|
|
{
|
||
|
|
memsize += g_bytes_get_size (bytes);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (G_VALUE_HOLDS (value, G_TYPE_STRV))
|
||
|
|
{
|
||
|
|
gchar **array = g_value_get_boxed (value);
|
||
|
|
|
||
|
|
if (array)
|
||
|
|
{
|
||
|
|
guint length = g_strv_length (array);
|
||
|
|
|
||
|
|
memsize += (length + 1) * sizeof (gchar *);
|
||
|
|
for (gint i = 0; i < length; i++)
|
||
|
|
memsize += pika_string_get_memsize (array[i]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (strcmp ("PikaValueArray", G_VALUE_TYPE_NAME (value)) == 0)
|
||
|
|
{
|
||
|
|
PikaValueArray *array = g_value_get_boxed (value);
|
||
|
|
|
||
|
|
if (array)
|
||
|
|
{
|
||
|
|
gint n_values = pika_value_array_length (array), i;
|
||
|
|
|
||
|
|
memsize += /* sizeof (PikaValueArray) */ sizeof (GValue *) + 3 * sizeof (gint);
|
||
|
|
|
||
|
|
for (i = 0; i < n_values; i++)
|
||
|
|
memsize += pika_g_value_get_memsize (pika_value_array_index (array, i));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_printerr ("%s: unhandled boxed value type: %s\n",
|
||
|
|
G_STRFUNC, G_VALUE_TYPE_NAME (value));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (G_VALUE_HOLDS_OBJECT (value))
|
||
|
|
{
|
||
|
|
if (strcmp ("PikaPattern", G_VALUE_TYPE_NAME (value)) == 0)
|
||
|
|
memsize += pika_g_object_get_memsize (g_value_get_object (value));
|
||
|
|
else if (strcmp ("PikaFont", G_VALUE_TYPE_NAME (value)) == 0)
|
||
|
|
memsize += pika_g_object_get_memsize (g_value_get_object (value));
|
||
|
|
else
|
||
|
|
g_printerr ("%s: unhandled object value type: %s\n",
|
||
|
|
G_STRFUNC, G_VALUE_TYPE_NAME (value));
|
||
|
|
}
|
||
|
|
|
||
|
|
return memsize + sizeof (GValue);
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_g_param_spec_get_memsize (GParamSpec *pspec)
|
||
|
|
{
|
||
|
|
gint64 memsize = 0;
|
||
|
|
|
||
|
|
if (! pspec)
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
if (! (pspec->flags & G_PARAM_STATIC_NAME))
|
||
|
|
memsize += pika_string_get_memsize (g_param_spec_get_name (pspec));
|
||
|
|
|
||
|
|
if (! (pspec->flags & G_PARAM_STATIC_NICK))
|
||
|
|
memsize += pika_string_get_memsize (g_param_spec_get_nick (pspec));
|
||
|
|
|
||
|
|
if (! (pspec->flags & G_PARAM_STATIC_BLURB))
|
||
|
|
memsize += pika_string_get_memsize (g_param_spec_get_blurb (pspec));
|
||
|
|
|
||
|
|
return memsize + pika_g_type_instance_get_memsize ((GTypeInstance *) pspec);
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_gegl_buffer_get_memsize (GeglBuffer *buffer)
|
||
|
|
{
|
||
|
|
if (buffer)
|
||
|
|
{
|
||
|
|
const Babl *format = gegl_buffer_get_format (buffer);
|
||
|
|
|
||
|
|
return ((gint64) babl_format_get_bytes_per_pixel (format) *
|
||
|
|
(gint64) gegl_buffer_get_width (buffer) *
|
||
|
|
(gint64) gegl_buffer_get_height (buffer) +
|
||
|
|
pika_g_object_get_memsize (G_OBJECT (buffer)));
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_gegl_pyramid_get_memsize (GeglBuffer *buffer)
|
||
|
|
{
|
||
|
|
if (buffer)
|
||
|
|
{
|
||
|
|
const Babl *format = gegl_buffer_get_format (buffer);
|
||
|
|
|
||
|
|
/* The pyramid levels constitute a geometric sum with a ratio of 1/4. */
|
||
|
|
return ((gint64) babl_format_get_bytes_per_pixel (format) *
|
||
|
|
(gint64) gegl_buffer_get_width (buffer) *
|
||
|
|
(gint64) gegl_buffer_get_height (buffer) * 1.33 +
|
||
|
|
pika_g_object_get_memsize (G_OBJECT (buffer)));
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_string_get_memsize (const gchar *string)
|
||
|
|
{
|
||
|
|
if (string)
|
||
|
|
return strlen (string) + 1;
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
gint64
|
||
|
|
pika_parasite_get_memsize (PikaParasite *parasite,
|
||
|
|
gint64 *gui_size)
|
||
|
|
{
|
||
|
|
if (parasite)
|
||
|
|
return (sizeof (PikaParasite) +
|
||
|
|
pika_string_get_memsize (parasite->name) +
|
||
|
|
parasite->size);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
