120 lines
2.8 KiB
C
120 lines
2.8 KiB
C
/*
|
|
* $Id: symbol.c,v 1.5 2005-05-22 04:34:22 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_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);
|
|
}
|
|
}
|
|
}
|