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-05-30 07:27:29 +00:00
parent 022dd7ed4d
commit 632665b7ab
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ase/stx/bootstrp.c
View File

@ -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 <xp/stx/bootstrp.h> #include <xp/stx/bootstrp.h>
@ -11,6 +11,7 @@
static void __create_bootstrapping_objects (xp_stx_t* stx); static void __create_bootstrapping_objects (xp_stx_t* stx);
static void __create_builtin_classes (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 xp_stx_word_t __count_names (const xp_stx_char_t* str);
static void __set_names ( static void __set_names (
@ -41,6 +42,7 @@ static class_info_t class_info[] =
XP_NULL, XP_NULL,
XP_NULL, XP_NULL,
XP_NULL, XP_NULL,
XP_NULL,
0 0
}, },
{ {
@ -249,6 +251,8 @@ int xp_stx_bootstrap (xp_stx_t* stx)
XP_STX_CLASS(stx,stx->false) = XP_STX_CLASS(stx,stx->false) =
xp_stx_lookup_class (stx, XP_STX_TEXT("False")); xp_stx_lookup_class (stx, XP_STX_TEXT("False"));
__filein_kernel (stx);
return 0; return 0;
} }
@ -542,3 +546,12 @@ static void __set_metaclass_subclasses (
array[n++] = XP_STX_CLASS(stx,class); 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: */
}
}