xfce-winxp-tc/shared/comgtk/src/list.c

#include <glib.h>

#include "../public/list.h"

//
// PUBLIC FUNCTIONS
//
GList* wintc_list_append_list(
    GList* list,
    GList* other_list
)
{
    // If either list is NULL, return the other one
    // (this also returns NULL if both are NULL)
    //
    if (!list)
    {
        return other_list;
    }
    else if (!other_list)
    {
        return list;
    }

    // Invalid op if other list is not the head
    //
    if (other_list->prev)
    {
        g_critical(
            "%s",
            "comgtk: cannot append list to list, other list is not the head"
        );

        return list;
    }

    GList* tail = g_list_last(list);

    tail->next       = other_list;
    other_list->prev = tail;

    return list;
}

GList* wintc_list_distinct_append(
    GList*         list,
    gpointer       data,
    GCompareFunc   comparer,
    GDestroyNotify free_func
)
{
    return wintc_list_distinct_insert(
        list,
        data,
        -1,
        comparer,
        free_func
    );
}

GList* wintc_list_distinct_insert(
    GList*         list,
    gpointer       data,
    gint           position,
    GCompareFunc   comparer,
    GDestroyNotify free_func
)
{
    GList* search_result =
        g_list_find_custom(
            list,
            data,
            comparer
        );

    if (search_result != NULL)
    {
        list =
            g_list_remove_link(
                list,
                search_result
            );

        if (free_func != NULL)
        {
            g_list_free_full(search_result, free_func);
        }
        else
        {
            g_list_free(search_result);
        }
    }

    return g_list_insert(
        list,
        data,
        position
    );
}

GList* wintc_list_distinct_prepend(
    GList*         list,
    gpointer       data,
    GCompareFunc   comparer,
    GDestroyNotify free_func
)
{
    return wintc_list_distinct_insert(
        list,
        data,
        0,
        comparer,
        free_func
    );
}

gchar* wintc_list_implode_strings(
    GList* list
)
{
    gboolean first = TRUE;
    GList*   iter;
    GString* str   = g_string_new(NULL);

    iter = list;

    while (iter != NULL)
    {
        if (first)
        {
            g_string_append_printf(
                str,
                "%s",
                (gchar*) iter->data
            );

            first = FALSE;
        }
        else
        {
            g_string_append_printf(
                str,
                "\n%s",
                (gchar*) iter->data
            );
        }

        iter = g_list_next(iter);
    }

    return g_string_free(str, FALSE);
}

GList* wintc_list_limit(
    GList*         list,
    gint           limit,
    GDestroyNotify free_func
)
{
    GList* res       = g_list_first(list);
    gint   oversized; 
    guint  size      = g_list_length(list);
    GList* to_remove;

    oversized = size - limit;

    for (gint i = 0; i < oversized; i++)
    {
        to_remove = g_list_last(list);
        res       = g_list_remove_link(
                        list,
                        to_remove
                    );

        if (free_func != NULL)
        {
            g_list_free_full(to_remove, free_func);
        }
        else
        {
            g_list_free(to_remove);
        }
    }

    return res;
}

GList* wintc_list_read_from_string(
    const gchar* str
)
{
    guint   count;
    gchar** lines = NULL;
    GList*  list  = NULL;

    lines = g_strsplit(str, "\n", -1);
    count = g_strv_length(lines);

    for (guint i = 0; i < count; i++)
    {
        list =
            g_list_append(
                list,
                g_strdup(lines[i])
            );
    }

    g_strfreev(lines);
    
    return list;
}