qse/ase/stx/symbol.c

/*
 * $Id: symbol.c,v 1.7 2005-05-23 15:51:03 bacon Exp $
 */

#include <xp/stx/symbol.h>
#include <xp/stx/object.h>
#include <xp/stx/misc.h>

xp_stx_word_t xp_stx_new_symlink (xp_stx_t* stx, xp_stx_word_t sym)
{
	xp_stx_word_t x;

	x = xp_stx_alloc_word_object (stx, XP_STX_SYMLINK_SIZE);
	XP_STX_CLASS(stx,x) = stx->class_symlink;
	XP_STX_AT(stx,x,XP_STX_SYMLINK_LINK) = stx->nil;
	XP_STX_AT(stx,x,XP_STX_SYMLINK_SYMBOL) = sym;

	return x;
}

xp_stx_word_t xp_stx_new_symbol (xp_stx_t* stx, const xp_stx_char_t* name)
{
	xp_stx_word_t x, hash, table, link, next;

	table = stx->symbol_table;
	hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
	link = XP_STX_AT(stx,table,hash);

	if (link == stx->nil) {
		x = xp_stx_alloc_char_object (stx, name);
		XP_STX_CLASS(stx,x) = stx->class_symbol;
		XP_STX_AT(stx,table,hash) = xp_stx_new_symlink(stx,x);
	}
	else {
		do {
			x = XP_STX_AT(stx,link,XP_STX_SYMLINK_SYMBOL);
			xp_stx_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);

			if (xp_stx_strxcmp (
				&XP_STX_CHARAT(stx,x,0),
				XP_STX_SIZE(stx,x), name) == 0) return x;

			next = XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK);
			if (next == stx->nil) {
				x = xp_stx_alloc_char_object (stx, name);
				XP_STX_CLASS(stx,x) = stx->class_symbol;
				XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK) = 
					xp_stx_new_symlink(stx,x);
				break;
			}

			link = next;
		} while (1);
	}
		
	return x;
}

xp_stx_word_t xp_stx_new_symbolx (
	xp_stx_t* stx, const xp_stx_char_t* name, xp_stx_word_t len)
{
	xp_stx_word_t x, hash, table, link, next;

	table = stx->symbol_table;
	hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
	link = XP_STX_AT(stx,table,hash);

	if (link == stx->nil) {
		x = xp_stx_alloc_char_objectx (stx, name, len);
		XP_STX_CLASS(stx,x) = stx->class_symbol;
		XP_STX_AT(stx,table,hash) = xp_stx_new_symlink(stx,x);
	}
	else {
		do {
			x = XP_STX_AT(stx,link,XP_STX_SYMLINK_SYMBOL);
			xp_stx_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);

			if (xp_stx_strxcmp (
				&XP_STX_CHARAT(stx,x,0),
				XP_STX_SIZE(stx,x), name) == 0) return x;

			next = XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK);
			if (next == stx->nil) {
				x = xp_stx_alloc_char_objectx (stx, name, len);
				XP_STX_CLASS(stx,x) = stx->class_symbol;
				XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK) = 
					xp_stx_new_symlink(stx,x);
				break;
			}

			link = next;
		} while (1);
	}
		
	return x;
}

xp_stx_word_t xp_stx_new_symbol_pp (
	xp_stx_t* stx, const xp_stx_char_t* name,
	const xp_stx_char_t* prefix, const xp_stx_char_t* postfix)
{
	xp_stx_word_t x, hash, table, link, next;

	table = stx->symbol_table;
	hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
	link = XP_STX_AT(stx,table,hash);

	if (link == stx->nil) {
		x = xp_stx_allocn_char_object (stx, prefix, name, postfix);
		XP_STX_CLASS(stx,x) = stx->class_symbol;
		XP_STX_AT(stx,table,hash) = xp_stx_new_symlink(stx,x);
	}
	else {
		do {
			x = XP_STX_AT(stx,link,XP_STX_SYMLINK_SYMBOL);
			xp_stx_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);

			if (xp_stx_strxcmp (
				&XP_STX_CHARAT(stx,x,0),
				XP_STX_SIZE(stx,x), name) == 0) return x;

			next = XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK);
			if (next == stx->nil) {
				x = xp_stx_allocn_char_object (stx, prefix, name, postfix);
				XP_STX_CLASS(stx,x) = stx->class_symbol;
				XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK) = 
					xp_stx_new_symlink(stx,x);
				break;
			}

			link = next;
		} while (1);
	}
	
		
	return x;
}

void xp_stx_traverse_symbol_table (
	xp_stx_t* stx, void (*func) (xp_stx_t*,xp_stx_word_t))
{
	xp_stx_word_t link;
	xp_stx_word_t size;
	xp_stx_word_t table;

	table = stx->symbol_table;
	size = XP_STX_SIZE(stx,table);
	
	while (size-- > 0) {
		link = XP_STX_AT(stx,table,size);

		while (link != stx->nil) {
			func (stx,XP_STX_AT(stx,link,XP_STX_SYMLINK_SYMBOL));
			link = XP_STX_AT(stx,link,XP_STX_SYMLINK_LINK);
		}
	}
}