mercury/bytecode/dict.c

/*
** Copyright (C) 1997 The University of Melbourne.
** This file may only be copied under the terms of the GNU Library General
** Public License - see the file COPYING.LIB in the Mercury distribution.
**
** $Id: dict.c,v 1.3 1997-07-27 14:59:19 fjh Exp $
*/

/* Imports */
#include	<stdlib.h>
#include	<unistd.h>
#include	<assert.h>

#include	"mem.h"
#include	"util.h"

#include	"dict.h"

/* Exported definitions */

/* Local declarations */

static char
rcs_id[]	= "$Id: dict.c,v 1.3 1997-07-27 14:59:19 fjh Exp $";

static p_Dict_Item *
insert(KeyComparison cmp, void *key, void *val, p_Dict_Item *items);

static MB_Bool
lookup(KeyComparison cmp, void *key, p_Dict_Item *items, void **val_p);

static p_Dict_Item *
delete(KeyComparison cmp, void *key, p_Dict_Item *items);

static p_Dict_Item *
new_item_p(void *key, void *val, p_Dict_Item *next);

static MB_Bool
next_key(KeyComparison cmp, p_Dict_Item *items, 
	void *this_key, void **next_key_p);

/* Implementation */

/*
**	XXX: Yes, this implementation is hopelessly inefficient.
**	I'll replace it with a hash table when things are working.
*/

Dict
dict_new(KeyComparison key_cmp)
{
	Dict	*new_dict_p;

	new_dict_p = (Dict*) MB_malloc(sizeof(Dict));

	new_dict_p->p_key_cmp = key_cmp;
	new_dict_p->p_items = NULL;

	return *new_dict_p;
}

MB_Bool
dict_is_empty(Dict dict)
{
	return (dict.p_items == NULL);
}

void
dict_insert(void *key, void *val, Dict *dict_p)
{
	assert(dict_p != NULL);
	assert(dict_p->p_key_cmp != NULL);

	dict_p->p_items = insert(dict_p->p_key_cmp, key, val, dict_p->p_items);
}

/*
** Insert items in ascending order sorted on keys.
*/
static p_Dict_Item *
insert(KeyComparison cmp, void *key, void *val, p_Dict_Item *items)
{
	if (items == NULL) {
		return new_item_p(key, val, NULL);
	} else if (cmp(key, items->p_key) < 0) {
		return new_item_p(key, val, items);
	} else if (cmp(key, items->p_key) > 0) {
		items->p_next = insert(cmp, key, val, items->p_next);
		return items;
	} else { /* keys are same */
		items->p_val = val;
		return items;
	}
}

MB_Bool
dict_lookup(void *key, Dict dict, void **val_p)
{
	assert (dict.p_key_cmp != NULL);
	return lookup(dict.p_key_cmp, key, dict.p_items, val_p);
}

static MB_Bool
lookup(KeyComparison cmp, void *key, p_Dict_Item *items, void **val_p)
{
	p_Dict_Item	*cur;

	cur = items;

	while (TRUE) {
		if (cur == NULL) {
			return FALSE;
		} else if (cmp(cur->p_key,key) == 0) {
			*val_p = cur->p_val;
			return TRUE;
		} else {
			cur = cur->p_next;
		}
	}
}

void
dict_delete(void *key, Dict *dict_p)
{
	assert(dict_p != NULL);
	assert(dict_p->p_key_cmp != NULL);

	dict_p->p_items = delete(dict_p->p_key_cmp, key, dict_p->p_items);
	return;
}

static p_Dict_Item *
delete(KeyComparison cmp, void *key, p_Dict_Item *items)
{
	if (items == NULL) {
		return NULL;
	} else if (cmp(key,items->p_key) == 0) {
		/*
		** XXX: Use Boehm GC to collect garbage node.
		*/
		return items->p_next;
	} else {
		items->p_next = delete(cmp, key, items->p_next);
		return items;
	}
}


KeyComparison
dict_key_compare(Dict dict)
{
	return dict.p_key_cmp;
}

static p_Dict_Item *
new_item_p(void *key, void *val, p_Dict_Item* next)
{
	p_Dict_Item	*item_p;

	item_p = (p_Dict_Item*) MB_malloc(sizeof(p_Dict_Item));

	item_p->p_key = key;
	item_p->p_val = val;
	item_p->p_next = next;

	assert(item_p != NULL);
	return item_p;
}


MB_Bool
dict_first_key(Dict dict, void **first_key_p)
{
	if (dict.p_items == NULL)
	{
		*first_key_p = NULL;
		return FALSE;
	}
	else
	{
		*first_key_p = dict.p_items->p_key;
		return TRUE;
	}
}


MB_Bool
dict_next_key(Dict dict, void *this_key, void **next_key_p)
{
	if (dict.p_items == NULL)
	{
		next_key_p = NULL;
		return FALSE;
	}
	else
	{
		assert(dict.p_key_cmp != NULL);
		return next_key(dict.p_key_cmp, dict.p_items, 
			this_key, next_key_p);
	}
}

static MB_Bool
next_key(KeyComparison cmp, p_Dict_Item *items, 
	void *this_key, void **next_key_p
)
{
	if (items == NULL)
	{
		*next_key_p = NULL;
		return FALSE;
	}
	else if (cmp(items->p_key, this_key) < 0)
	{
		return next_key(cmp, items->p_next, this_key, next_key_p);
	}
	else if (cmp(items->p_key, this_key) == 0)
	{
		if (items->p_next == NULL)
		{
			*next_key_p = NULL;
			return FALSE;
		}
		else
		{
			*next_key_p = items->p_next->p_key;
			return TRUE;
		}
	}
	else /* items->p_key > this_key */
	{
		*next_key_p = NULL;
		return FALSE;
	}
}


#ifdef TEST_DICT

#include	<string.h>

void
main()
{
	const char *
	strings[] = {"Twas", "brillig", "and", "the", 
		"slithy", "toves", "did", "gimble", NULL};
	const char	**str_p;
	Dict		dict;
	char		*val;
	char		*key;

	dict = dict_new((KeyComparison)strcmp);

	for (str_p = strings; *str_p != NULL; str_p++)
	{
		dict_insert(*str_p, *str_p, &dict);
	}

	for (str_p = strings; *str_p != NULL; str_p++)
	{
		if (dict_lookup((void*)*str_p, dict, (void**) &val))
		{
			printf("Lookup succeeded: key=\"%s\" val=\"%s\"\n",
				*str_p, val);
		}
		else
		{
			printf("Lookup failed for \"%s\"\n", *str_p);
		}
	}

	printf("\nITERATE THROUGH ALL KEYS\n\n");

	if ( ! dict_first_key(dict, (void**) &key))
	{
		fprintf(stderr, "No first key!\n");
		exit(EXIT_FAILURE);
	}
	else
	{
		while (TRUE)
		{
			dict_lookup((void*)key, dict, (void**) &val);
			printf("Lookup succeeded: key=\"%s\" val=\"%s\"\n",
				key, val);
			if ( ! dict_next_key(dict, (void*) key, (void**) &key))
				break;
		}
	}

	exit(EXIT_SUCCESS);
}

#endif /* TEST_DICT */