PIKApp/app/core/pika-memsize.c

365 lines
9.2 KiB
C
Raw 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
*
* 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;
}