71 lines
1.6 KiB
C
71 lines
1.6 KiB
C
/*
|
|
* $Id: stx.c,v 1.37 2005-08-15 16:03:57 bacon Exp $
|
|
*/
|
|
|
|
#include <xp/stx/stx.h>
|
|
#include <xp/stx/memory.h>
|
|
#include <xp/stx/misc.h>
|
|
|
|
xp_stx_t* xp_stx_open (xp_stx_t* stx, xp_word_t capacity)
|
|
{
|
|
xp_word_t i;
|
|
|
|
if (stx == XP_NULL) {
|
|
stx = (xp_stx_t*)xp_malloc (xp_sizeof(stx));
|
|
if (stx == XP_NULL) return XP_NULL;
|
|
stx->__malloced = xp_true;
|
|
}
|
|
else stx->__malloced = xp_false;
|
|
|
|
if (xp_stx_memory_open (&stx->memory, capacity) == XP_NULL) {
|
|
if (stx->__malloced) xp_free (stx);
|
|
return XP_NULL;
|
|
}
|
|
|
|
stx->symtab.size = 0;
|
|
stx->symtab.capacity = 128; /* TODO: symbol table size */
|
|
stx->symtab.datum = (xp_word_t*)xp_malloc (
|
|
xp_sizeof(xp_word_t) * stx->symtab.capacity);
|
|
if (stx->symtab.datum == XP_NULL) {
|
|
xp_stx_memory_close (&stx->memory);
|
|
if (stx->__malloced) xp_free (stx);
|
|
return XP_NULL;
|
|
}
|
|
|
|
stx->nil = XP_STX_NIL;
|
|
stx->true = XP_STX_TRUE;
|
|
stx->false = XP_STX_FALSE;
|
|
|
|
stx->smalltalk = XP_STX_NIL;
|
|
|
|
stx->class_symbol = XP_STX_NIL;
|
|
stx->class_metaclass = XP_STX_NIL;
|
|
stx->class_association = XP_STX_NIL;
|
|
|
|
stx->class_object = XP_STX_NIL;
|
|
stx->class_class = XP_STX_NIL;
|
|
stx->class_array = XP_STX_NIL;
|
|
stx->class_bytearray = XP_STX_NIL;
|
|
stx->class_string = XP_STX_NIL;
|
|
stx->class_character = XP_STX_NIL;
|
|
stx->class_context = XP_STX_NIL;
|
|
stx->class_system_dictionary = XP_STX_NIL;
|
|
stx->class_method = XP_STX_NIL;
|
|
stx->class_smallinteger = XP_STX_NIL;
|
|
|
|
for (i = 0; i < stx->symtab.capacity; i++) {
|
|
stx->symtab.datum[i] = stx->nil;
|
|
}
|
|
|
|
stx->__wantabort = xp_false;
|
|
return stx;
|
|
}
|
|
|
|
void xp_stx_close (xp_stx_t* stx)
|
|
{
|
|
xp_free (stx->symtab.datum);
|
|
xp_stx_memory_close (&stx->memory);
|
|
if (stx->__malloced) xp_free (stx);
|
|
}
|
|
|