/* -*- mode: C; c-file-style: "gnu" -*- */
/* xdgmimealias.c: Private file.  Datastructure for storing the aliases.
 *
 * More info can be found at http://www.freedesktop.org/standards/
 *
 * Copyright (C) 2004  Red Hat, Inc.
 * Copyright (C) 2004  Matthias Clasen <mclasen@redhat.com>
 *
 * Licensed under the Academic Free License version 2.0
 * Or under the following terms:
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "xdgmimealias.h"
#include "xdgmimeint.h"
#include <stdlib.h>
#include <stdio.h>
#include <assert.h>
#include <string.h>
#include <fnmatch.h>

#ifndef  FALSE
#define  FALSE  (0)
#endif

#ifndef  TRUE
#define  TRUE  (!FALSE)
#endif

typedef struct XdgAlias XdgAlias;

struct XdgAlias
{
    char *alias;
    char *mime_type;
};

struct XdgAliasList
{
    struct XdgAlias *aliases;
    int n_aliases;
};

XdgAliasList *
_xdg_mime_alias_list_new(void)
{
    XdgAliasList *list;

    list = (XdgAliasList *)malloc(sizeof(XdgAliasList));

    list->aliases = NULL;
    list->n_aliases = 0;

    return list;
}

void
_xdg_mime_alias_list_free(XdgAliasList *list)
{
    int i;

    if (list->aliases)
    {
        for (i = 0; i < list->n_aliases; i++)
        {
            free(list->aliases[i].alias);
            free(list->aliases[i].mime_type);
        }
        free(list->aliases);
    }
    free(list);
}

static int
alias_entry_cmp(const void *v1, const void *v2)
{
    return strcmp(((XdgAlias *)v1)->alias, ((XdgAlias *)v2)->alias);
}

const char  *
_xdg_mime_alias_list_lookup(XdgAliasList *list,
                            const char   *alias)
{
    XdgAlias *entry;
    XdgAlias key;

    if (list->n_aliases > 0)
    {
        key.alias = (char *)alias;
        key.mime_type = 0;

        entry = (XdgAlias *)bsearch(&key, list->aliases, list->n_aliases,
                                    sizeof(XdgAlias), alias_entry_cmp);
        if (entry)
            return entry->mime_type;
    }

    return NULL;
}

void
_xdg_mime_alias_read_from_file(XdgAliasList *list,
                               const char   *file_name)
{
    FILE *file;
    char line[255];
    int alloc;

    /* OK to not use CLO_EXEC here because mimedb is single threaded */
    file = fopen(file_name, "r");

    if (file == NULL)
        return;

    /* FIXME: Not UTF-8 safe.  Doesn't work if lines are greater than 255 chars.
     * Blah */
    alloc = list->n_aliases + 16;
    list->aliases = (XdgAlias *)realloc(list->aliases, alloc * sizeof(XdgAlias));
    while (fgets(line, 255, file) != NULL)
    {
        char *sep;
        if (line[0] == '#')
            continue;

        sep = strchr(line, ' ');
        if (sep == NULL)
            continue;
        *(sep++) = '\000';
        sep[strlen(sep) -1] = '\000';
        if (list->n_aliases == alloc)
        {
            alloc <<= 1;
            list->aliases = (XdgAlias *)realloc(list->aliases,
                                                alloc * sizeof(XdgAlias));
        }
        list->aliases[list->n_aliases].alias = strdup(line);
        list->aliases[list->n_aliases].mime_type = strdup(sep);
        list->n_aliases++;
    }
    list->aliases = (XdgAlias *)realloc(list->aliases,
                                        list->n_aliases * sizeof(XdgAlias));

    fclose(file);

    if (list->n_aliases > 1)
        qsort(list->aliases, list->n_aliases,
              sizeof(XdgAlias), alias_entry_cmp);
}


void
_xdg_mime_alias_list_dump(XdgAliasList *list)
{
    int i;

    if (list->aliases)
    {
        for (i = 0; i < list->n_aliases; i++)
        {
            printf("%s %s\n",
                   list->aliases[i].alias,
                   list->aliases[i].mime_type);
        }
    }
}