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-09-11 15:15:35 +00:00
parent f69814e193
commit ef790d9aa8
12 changed files with 86 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
ase/stx/class.c
View File

@@ -1,5 +1,5 @@
/*
* $Id: class.c,v 1.23 2005-07-19 15:52:19 bacon Exp $
* $Id: class.c,v 1.24 2005-09-11 15:15:35 bacon Exp $
*/
#include <xp/stx/class.h>
@@ -112,3 +112,28 @@ xp_word_t xp_stx_lookup_class_variable (
return stx->nil;
}
xp_word_t xp_stx_lookup_method (
xp_stx_t* stx, xp_word_t class_index, const xp_char_t* name)
{
xp_stx_class_t* class_obj;
class_obj = (xp_stx_class_t*)XP_STX_OBJECT(stx, class_index);
xp_assert (class_obj != XP_NULL);
/* TODO: can a metaclas have class variables? */
if (class_obj->header.class != stx->class_metaclass &&
class_obj->class_variables != stx->nil) {
if (xp_stx_dict_lookup(stx,
class_obj->methods,name) != stx->nil) return class_index;
}
if (class_obj->superclass != stx->nil) {
xp_word_t tmp;
tmp = xp_stx_lookup_method (
stx, class_obj->superclass, name);
if (tmp != stx->nil) return tmp;
}
return stx->nil;
}