*** empty log message ***
This commit is contained in:
parent
7abd54ea12
commit
05951ad1bf
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: bootstrp.c,v 1.1 2005-05-23 12:06:53 bacon Exp $
|
* $Id: bootstrp.c,v 1.2 2005-05-23 14:43:03 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 xp_stx_word_t __count_names (const xp_stx_char_t* str);
|
||||||
|
|
||||||
struct class_info_t
|
struct class_info_t
|
||||||
{
|
{
|
||||||
@ -23,117 +24,122 @@ struct class_info_t
|
|||||||
|
|
||||||
typedef struct class_info_t class_info_t;
|
typedef struct class_info_t class_info_t;
|
||||||
|
|
||||||
#define T XP_STX_TEXT
|
|
||||||
|
|
||||||
static class_info_t class_info[] =
|
static class_info_t class_info[] =
|
||||||
{
|
{
|
||||||
{
|
{
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("UndefinedObject"),
|
XP_STX_TEXT("UndefinedObject"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Behavior"),
|
XP_STX_TEXT("Behavior"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
T("name instanceSize methods superclass intsanceVariables classVariables poolDictionaries category"),
|
XP_STX_TEXT("name instanceSize methods superclass intsanceVariables classVariables poolDictionaries category"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Class"),
|
XP_STX_TEXT("Class"),
|
||||||
T("Behavior"),
|
XP_STX_TEXT("Behavior"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Metaclass"),
|
XP_STX_TEXT("Metaclass"),
|
||||||
T("Behavior"),
|
XP_STX_TEXT("Behavior"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Block"),
|
XP_STX_TEXT("Block"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
T("context argCount argLoc bytePointer"),
|
XP_STX_TEXT("context argCount argLoc bytePointer"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Boolean"),
|
XP_STX_TEXT("Boolean"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("True"),
|
XP_STX_TEXT("True"),
|
||||||
T("Boolean"),
|
XP_STX_TEXT("Boolean"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("False"),
|
XP_STX_TEXT("False"),
|
||||||
T("Boolean"),
|
XP_STX_TEXT("Boolean"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Context"),
|
XP_STX_TEXT("Context"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Method"),
|
XP_STX_TEXT("Method"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
T("text message bytecodes literals stackSize temporarySize class"),
|
XP_STX_TEXT("text message bytecodes literals stackSize temporarySize class"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Magnitude"),
|
XP_STX_TEXT("Magnitude"),
|
||||||
T("Object"),
|
XP_STX_TEXT("Object"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("Collection"),
|
XP_STX_TEXT("Collection"),
|
||||||
T("Magnitude"),
|
XP_STX_TEXT("Magnitude"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("IndexedCollection"),
|
XP_STX_TEXT("IndexedCollection"),
|
||||||
T("Collection"),
|
XP_STX_TEXT("Collection"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("SymbolTable"),
|
XP_STX_TEXT("Array"),
|
||||||
T("IndexedCollection"),
|
XP_STX_TEXT("IndexedCollection"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
T("SystemDictionary"),
|
XP_STX_TEXT("SymbolTable"),
|
||||||
T("IndexedCollection"),
|
XP_STX_TEXT("IndexedCollection"),
|
||||||
|
XP_NULL,
|
||||||
|
XP_NULL,
|
||||||
|
XP_NULL
|
||||||
|
},
|
||||||
|
{
|
||||||
|
XP_STX_TEXT("SystemDictionary"),
|
||||||
|
XP_STX_TEXT("IndexedCollection"),
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL,
|
XP_NULL,
|
||||||
XP_NULL
|
XP_NULL
|
||||||
@ -147,6 +153,11 @@ static class_info_t class_info[] =
|
|||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
|
int xp_stx_new_array (xp_stx_t* stx, xp_stx_word_t size)
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
int xp_stx_bootstrap (xp_stx_t* stx)
|
int xp_stx_bootstrap (xp_stx_t* stx)
|
||||||
{
|
{
|
||||||
xp_stx_word_t symbol_Smalltalk;
|
xp_stx_word_t symbol_Smalltalk;
|
||||||
@ -154,6 +165,11 @@ int xp_stx_bootstrap (xp_stx_t* stx)
|
|||||||
xp_stx_word_t tmp;
|
xp_stx_word_t tmp;
|
||||||
|
|
||||||
__create_bootstrapping_objects (stx);
|
__create_bootstrapping_objects (stx);
|
||||||
|
|
||||||
|
/* array class is precreated for easier instansition
|
||||||
|
* of builtin classes */
|
||||||
|
stx->class_array = xp_stx_new_class (stx, XP_STX_TEXT("Array"));
|
||||||
|
|
||||||
__create_builtin_classes (stx);
|
__create_builtin_classes (stx);
|
||||||
|
|
||||||
/* more initialization */
|
/* more initialization */
|
||||||
@ -299,14 +315,17 @@ static void __create_bootstrapping_objects (xp_stx_t* stx)
|
|||||||
symbol_Pairlink, stx->class_pairlink);
|
symbol_Pairlink, stx->class_pairlink);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
static void __create_builtin_classes (xp_stx_t* stx)
|
static void __create_builtin_classes (xp_stx_t* stx)
|
||||||
{
|
{
|
||||||
class_info_t* p = class_info;
|
class_info_t* p;
|
||||||
xp_stx_word_t class;
|
xp_stx_word_t class, array;
|
||||||
xp_stx_class_t* class_obj;
|
xp_stx_class_t* class_obj;
|
||||||
|
xp_stx_word_object_t* array_obj;
|
||||||
|
xp_stx_word_t n;
|
||||||
|
|
||||||
while (p->name != XP_NULL) {
|
xp_stx_assert (stx->class_array != stx->nil);
|
||||||
|
|
||||||
|
for (p = class_info; p->name != XP_NULL; p++) {
|
||||||
class = xp_stx_lookup_class(stx, p->name);
|
class = xp_stx_lookup_class(stx, p->name);
|
||||||
if (class == stx->nil) {
|
if (class == stx->nil) {
|
||||||
class = xp_stx_new_class (stx, p->name);
|
class = xp_stx_new_class (stx, p->name);
|
||||||
@ -318,6 +337,58 @@ static void __create_builtin_classes (xp_stx_t* stx)
|
|||||||
class_obj->superclass = (p->superclass == XP_NULL)?
|
class_obj->superclass = (p->superclass == XP_NULL)?
|
||||||
stx->nil: xp_stx_lookup_class(stx,p->superclass);
|
stx->nil: xp_stx_lookup_class(stx,p->superclass);
|
||||||
|
|
||||||
p++;
|
/*TODO:handle variables of super class first.... */
|
||||||
|
if (p->instance_variables != XP_NULL) {
|
||||||
|
n = __count_names (p->instance_variables);
|
||||||
|
array = xp_stx_new_array (stx, n);
|
||||||
|
array_obj = XP_STX_DATA(stx,array);
|
||||||
|
__set_names (array_obj, p->instance_variables);
|
||||||
|
class_obj->variables = array;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (p->class_variables != XP_NULL) {
|
||||||
|
n = __count_names (p->instance_variables);
|
||||||
|
array = xp_stx_new_array (stx, n);
|
||||||
|
|
||||||
|
class_obj->classvars = array;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static xp_stx_word_t __count_names (const xp_stx_char_t* str)
|
||||||
|
{
|
||||||
|
xp_stx_word_t n = 0;
|
||||||
|
const xp_stx_char_t* p = str;
|
||||||
|
|
||||||
|
do {
|
||||||
|
while (*p == XP_STX_CHAR(' ') ||
|
||||||
|
*p == XP_STX_CHAR('\t')) p++;
|
||||||
|
if (*p == XP_STX_CHAR('\0')) break;
|
||||||
|
|
||||||
|
n++;
|
||||||
|
while (*p != XP_STX_CHAR(' ') &&
|
||||||
|
*p != XP_STX_CHAR('\t') &&
|
||||||
|
*p != XP_STX_CHAR('\0')) p++;
|
||||||
|
} while (1);
|
||||||
|
|
||||||
|
return n;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void __set_names (const xp_stx_char_t* str)
|
||||||
|
{
|
||||||
|
xp_stx_word_t n = 0;
|
||||||
|
const xp_stx_char_t* p = str;
|
||||||
|
|
||||||
|
do {
|
||||||
|
while (*p == XP_STX_CHAR(' ') ||
|
||||||
|
*p == XP_STX_CHAR('\t')) p++;
|
||||||
|
if (*p == XP_STX_CHAR('\0')) break;
|
||||||
|
|
||||||
|
n++;
|
||||||
|
while (*p != XP_STX_CHAR(' ') &&
|
||||||
|
*p != XP_STX_CHAR('\t') &&
|
||||||
|
*p != XP_STX_CHAR('\0')) p++;
|
||||||
|
} while (1);
|
||||||
|
|
||||||
|
return n;
|
||||||
|
}
|
||||||
|
@ -1,9 +1,10 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: context.c,v 1.6 2005-05-22 04:34:22 bacon Exp $
|
* $Id: context.c,v 1.7 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/context.h>
|
#include <xp/stx/context.h>
|
||||||
#include <xp/stx/object.h>
|
#include <xp/stx/object.h>
|
||||||
|
#include <xp/stx/class.h>
|
||||||
#include <xp/stx/misc.h>
|
#include <xp/stx/misc.h>
|
||||||
|
|
||||||
xp_stx_word_t xp_stx_new_context (xp_stx_t* stx,
|
xp_stx_word_t xp_stx_new_context (xp_stx_t* stx,
|
||||||
@ -22,7 +23,7 @@ xp_stx_word_t xp_stx_new_context (xp_stx_t* stx,
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
obj = (xp_stx_context_t*)XP_STX_OBJECT(stx,context);
|
obj = (xp_stx_context_t*)XP_STX_OBJECT(stx,context);
|
||||||
obj->header.class = stx->class_context;
|
obj->header.class = xp_stx_lookup_class(stx,XP_STX_TEXT("Context"));
|
||||||
obj->ip = XP_STX_TO_SMALLINT(0);
|
obj->ip = XP_STX_TO_SMALLINT(0);
|
||||||
obj->method = method;
|
obj->method = method;
|
||||||
obj->arguments = args;
|
obj->arguments = args;
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: object.c,v 1.21 2005-05-22 15:03:20 bacon Exp $
|
* $Id: object.c,v 1.22 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/object.h>
|
#include <xp/stx/object.h>
|
||||||
@ -135,20 +135,6 @@ xp_stx_word_t xp_stx_hash_char_object (xp_stx_t* stx, xp_stx_word_t idx)
|
|||||||
{
|
{
|
||||||
xp_stx_assert (XP_STX_TYPE(stx,idx) == XP_STX_CHAR_INDEXED);
|
xp_stx_assert (XP_STX_TYPE(stx,idx) == XP_STX_CHAR_INDEXED);
|
||||||
return xp_stx_strxhash (
|
return xp_stx_strxhash (
|
||||||
&XP_STX_CHARAT(stx,idx,0), XP_STX_SIZE(stx,idx));
|
XP_STX_DATA(stx,idx), XP_STX_SIZE(stx,idx));
|
||||||
}
|
}
|
||||||
|
|
||||||
int xp_stx_lookup_global (
|
|
||||||
xp_stx_t* stx, xp_stx_word_t key, xp_stx_word_t* value)
|
|
||||||
{
|
|
||||||
xp_stx_word_t link;
|
|
||||||
|
|
||||||
/* TODO: maybe xp_stx_hash_object is required instead of
|
|
||||||
xp_stx_hash_char_object. */
|
|
||||||
link = xp_stx_hash_lookup (stx, stx->smalltalk,
|
|
||||||
xp_stx_hash_char_object(stx,key), key);
|
|
||||||
if (link == stx->nil) return -1;
|
|
||||||
|
|
||||||
*value = XP_STX_AT(stx,link,XP_STX_PAIRLINK_VALUE);
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: parser.c,v 1.3 2005-05-22 15:03:20 bacon Exp $
|
* $Id: parser.c,v 1.4 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/parser.h>
|
#include <xp/stx/parser.h>
|
||||||
@ -48,9 +48,9 @@ int xp_stx_parser_parse_method (xp_stx_parser_t* parser, const xp_char_t* text)
|
|||||||
|
|
||||||
int xp_stx_filein_raw (xp_stx_t* stx, xp_stx_getc_t getc)
|
int xp_stx_filein_raw (xp_stx_t* stx, xp_stx_getc_t getc)
|
||||||
{
|
{
|
||||||
|
/*
|
||||||
xp_cint_t c;
|
xp_cint_t c;
|
||||||
|
|
||||||
/*
|
|
||||||
getc()
|
getc()
|
||||||
gettoken ();
|
gettoken ();
|
||||||
if (token->type == XP_STX_TOKEN_IDENT) {
|
if (token->type == XP_STX_TOKEN_IDENT) {
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: stx.c,v 1.27 2005-05-22 15:38:31 bacon Exp $
|
* $Id: stx.c,v 1.28 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/stx.h>
|
#include <xp/stx/stx.h>
|
||||||
@ -32,8 +32,7 @@ xp_stx_t* xp_stx_open (xp_stx_t* stx, xp_stx_word_t capacity)
|
|||||||
stx->class_metaclass = XP_STX_NIL;
|
stx->class_metaclass = XP_STX_NIL;
|
||||||
stx->class_pairlink = XP_STX_NIL;
|
stx->class_pairlink = XP_STX_NIL;
|
||||||
|
|
||||||
stx->class_method = XP_STX_NIL;
|
stx->class_array = XP_STX_NIL;
|
||||||
stx->class_context = XP_STX_NIL;
|
|
||||||
|
|
||||||
stx->__wantabort = xp_false;
|
stx->__wantabort = xp_false;
|
||||||
return stx;
|
return stx;
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: stx.h,v 1.20 2005-05-22 15:03:20 bacon Exp $
|
* $Id: stx.h,v 1.21 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef _XP_STX_STX_H_
|
#ifndef _XP_STX_STX_H_
|
||||||
@ -81,8 +81,7 @@ struct xp_stx_t
|
|||||||
xp_stx_word_t class_metaclass;
|
xp_stx_word_t class_metaclass;
|
||||||
xp_stx_word_t class_pairlink;
|
xp_stx_word_t class_pairlink;
|
||||||
|
|
||||||
xp_stx_word_t class_method;
|
xp_stx_word_t class_array;
|
||||||
xp_stx_word_t class_context;
|
|
||||||
|
|
||||||
xp_bool_t __malloced;
|
xp_bool_t __malloced;
|
||||||
xp_bool_t __wantabort; /* TODO: make it a function pointer */
|
xp_bool_t __wantabort; /* TODO: make it a function pointer */
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: symbol.c,v 1.5 2005-05-22 04:34:22 bacon Exp $
|
* $Id: symbol.c,v 1.6 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/symbol.h>
|
#include <xp/stx/symbol.h>
|
||||||
@ -53,6 +53,43 @@ xp_stx_word_t xp_stx_new_symbol (xp_stx_t* stx, const xp_stx_char_t* name)
|
|||||||
} while (1);
|
} while (1);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
return x;
|
||||||
|
}
|
||||||
|
|
||||||
|
xp_stx_word_t xp_stx_new_symbol_with_len (
|
||||||
|
{
|
||||||
|
xp_stx_word_t x, hash, table, link, next;
|
||||||
|
|
||||||
|
table = stx->symbol_table;
|
||||||
|
hash = xp_stx_strhash(name) % XP_STX_SIZE(stx,table);
|
||||||
|
link = XP_STX_AT(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_AT(stx,table,hash) = xp_stx_new_symlink(stx,x);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
do {
|
||||||
|
x = XP_STX_AT(stx,link,XP_STX_SYMLINK_SYMBOL);
|
||||||
|
xp_stx_assert (XP_STX_CLASS(stx,x) == stx->class_symbol);
|
||||||
|
|
||||||
|
if (xp_stx_strxcmp (
|
||||||
|
&XP_STX_CHARAT(stx,x,0),
|
||||||
|
XP_STX_SIZE(stx,x), name) == 0) return x;
|
||||||
|
|
||||||
|
next = XP_STX_AT(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_AT(stx,link,XP_STX_SYMLINK_LINK) =
|
||||||
|
xp_stx_new_symlink(stx,x);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
link = next;
|
||||||
|
} while (1);
|
||||||
|
}
|
||||||
|
|
||||||
return x;
|
return x;
|
||||||
}
|
}
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: symbol.h,v 1.3 2005-05-21 15:55:49 bacon Exp $
|
* $Id: symbol.h,v 1.4 2005-05-23 14:43:03 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef _XP_STX_SYMBOL_H_
|
#ifndef _XP_STX_SYMBOL_H_
|
||||||
@ -11,6 +11,15 @@
|
|||||||
#define XP_STX_SYMLINK_LINK 0
|
#define XP_STX_SYMLINK_LINK 0
|
||||||
#define XP_STX_SYMLINK_SYMBOL 1
|
#define XP_STX_SYMLINK_SYMBOL 1
|
||||||
|
|
||||||
|
struct xp_stx_symlink_t
|
||||||
|
{
|
||||||
|
xp_stx_objhdr_t header;
|
||||||
|
xp_stx_word_t link;
|
||||||
|
xp_stx_word_t symbol;
|
||||||
|
};
|
||||||
|
|
||||||
|
typedef struct xp_stx_symlink_t xp_stx_symlink_t;
|
||||||
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
extern "C" {
|
extern "C" {
|
||||||
#endif
|
#endif
|
||||||
@ -23,7 +32,6 @@ xp_stx_word_t xp_stx_new_symbol_pp (
|
|||||||
void xp_stx_traverse_symbol_table (
|
void xp_stx_traverse_symbol_table (
|
||||||
xp_stx_t* stx, void (*func) (xp_stx_t*,xp_stx_word_t));
|
xp_stx_t* stx, void (*func) (xp_stx_t*,xp_stx_word_t));
|
||||||
|
|
||||||
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
Loading…
Reference in New Issue
Block a user