hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2005-07-17 15:55:01 +00:00
parent b9f5a3d616
commit e519a026ef
2 changed files with 4 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
ase/stx/symbol.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: symbol.c,v 1.14 2005-07-07 07:45:05 bacon Exp $ * $Id: symbol.c,v 1.15 2005-07-17 15:55:01 bacon Exp $
*/ */
#include <xp/stx/symbol.h> #include <xp/stx/symbol.h>
@ -21,40 +21,7 @@ xp_word_t xp_stx_new_symlink (xp_stx_t* stx, xp_word_t sym)
xp_word_t xp_stx_new_symbol (xp_stx_t* stx, const xp_char_t* name) xp_word_t xp_stx_new_symbol (xp_stx_t* stx, const xp_char_t* name)
{ {
xp_word_t x, hash, table, link, next; return xp_stx_new_symbolx (stx, name, xp_strlen(name));
table = stx->symbol_table;
hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
link = XP_STX_WORDAT(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_WORDAT(stx,table,hash) = xp_stx_new_symlink(stx,x);
}
else {
do {
x = XP_STX_WORDAT(stx,link,XP_STX_SYMLINK_SYMBOL);
xp_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);
if (xp_strxcmp (
&XP_STX_CHARAT(stx,x,0),
XP_STX_SIZE(stx,x), name) == 0) return x;
next = XP_STX_WORDAT(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_WORDAT(stx,link,XP_STX_SYMLINK_LINK) =
xp_stx_new_symlink(stx,x);
break;
}
link = next;
} while (1);
}
return x;
} }
xp_word_t xp_stx_new_symbolx ( xp_word_t xp_stx_new_symbolx (
@ -63,7 +30,7 @@ xp_word_t xp_stx_new_symbolx (
xp_word_t x, hash, table, link, next; xp_word_t x, hash, table, link, next;
table = stx->symbol_table; table = stx->symbol_table;
hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table); hash = xp_stx_strxhash(name,len) % XP_STX_SIZE(stx,table);
link = XP_STX_WORDAT(stx,table,hash); link = XP_STX_WORDAT(stx,table,hash);
if (link == stx->nil) { if (link == stx->nil) {
@ -96,47 +63,6 @@ xp_word_t xp_stx_new_symbolx (
return x; return x;
} }
xp_word_t xp_stx_new_symbol_pp (
xp_stx_t* stx, const xp_char_t* name,
const xp_char_t* prefix, const xp_char_t* postfix)
{
xp_word_t x, hash, table, link, next;
table = stx->symbol_table;
hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
link = XP_STX_WORDAT(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_WORDAT(stx,table,hash) = xp_stx_new_symlink(stx,x);
}
else {
do {
x = XP_STX_WORDAT(stx,link,XP_STX_SYMLINK_SYMBOL);
xp_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);
if (xp_strxcmp (
&XP_STX_CHARAT(stx,x,0),
XP_STX_SIZE(stx,x), name) == 0) return x;
next = XP_STX_WORDAT(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_WORDAT(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 ( void xp_stx_traverse_symbol_table (
xp_stx_t* stx, void (*func) (xp_stx_t*,xp_word_t,void*), void* data) xp_stx_t* stx, void (*func) (xp_stx_t*,xp_word_t,void*), void* data)
{ {

6
ase/stx/symbol.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: symbol.h,v 1.7 2005-07-07 07:45:05 bacon Exp $ * $Id: symbol.h,v 1.8 2005-07-17 15:55:01 bacon Exp $
*/ */
#ifndef _XP_STX_SYMBOL_H_ #ifndef _XP_STX_SYMBOL_H_
@ -30,10 +30,6 @@ xp_word_t xp_stx_new_symbol (
xp_stx_t* stx, const xp_char_t* name); xp_stx_t* stx, const xp_char_t* name);
xp_word_t xp_stx_new_symbolx ( xp_word_t xp_stx_new_symbolx (
xp_stx_t* stx, const xp_char_t* name, xp_word_t len); xp_stx_t* stx, const xp_char_t* name, xp_word_t len);
xp_word_t xp_stx_new_symbol_pp (
xp_stx_t* stx, const xp_char_t* name,
const xp_char_t* prefix, const xp_char_t* postfix);
void xp_stx_traverse_symbol_table ( void xp_stx_traverse_symbol_table (
xp_stx_t* stx, void (*func) (xp_stx_t*,xp_word_t,void*), void* data); xp_stx_t* stx, void (*func) (xp_stx_t*,xp_word_t,void*), void* data);