diff --git a/ase/stx/bootstrp.c b/ase/stx/bootstrp.c index 40f6ece1..f8645d1e 100644 --- a/ase/stx/bootstrp.c +++ b/ase/stx/bootstrp.c @@ -1,5 +1,5 @@ /* - * $Id: bootstrp.c,v 1.9 2005-05-29 16:51:16 bacon Exp $ + * $Id: bootstrp.c,v 1.10 2005-05-30 07:27:29 bacon Exp $ */ #include @@ -11,6 +11,7 @@ static void __create_bootstrapping_objects (xp_stx_t* stx); static void __create_builtin_classes (xp_stx_t* stx); +static void __filein_kernel (xp_stx_t* stx); static xp_stx_word_t __count_names (const xp_stx_char_t* str); static void __set_names ( @@ -41,6 +42,7 @@ static class_info_t class_info[] = XP_NULL, XP_NULL, XP_NULL, + XP_NULL, 0 }, { @@ -249,6 +251,8 @@ int xp_stx_bootstrap (xp_stx_t* stx) XP_STX_CLASS(stx,stx->false) = xp_stx_lookup_class (stx, XP_STX_TEXT("False")); + + __filein_kernel (stx); return 0; } @@ -542,3 +546,12 @@ static void __set_metaclass_subclasses ( array[n++] = XP_STX_CLASS(stx,class); } } + +static void __filein_kernel (xp_stx_t* stx) +{ + class_info_t* p; + + for (p = class_info; p->name != XP_NULL; p++) { + /* TODO: */ + } +}