qse/ase/lsp/object.h

152 lines
3.5 KiB
C
Raw Normal View History

2005-02-04 15:39:11 +00:00
/*
2005-02-14 14:37:50 +00:00
* $Id: object.h,v 1.4 2005-02-14 14:37:50 bacon Exp $
2005-02-04 15:39:11 +00:00
*/
2005-02-04 16:00:37 +00:00
#ifndef _XP_LISP_OBJECT_H_
#define _XP_LISP_OBJECT_H_
2005-02-04 15:39:11 +00:00
2005-02-04 16:00:37 +00:00
#include <xp/lisp/types.h>
2005-02-04 15:39:11 +00:00
// object types
enum
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_NIL = 0,
XP_LISP_OBJ_TRUE,
XP_LISP_OBJ_INT,
XP_LISP_OBJ_FLOAT,
XP_LISP_OBJ_SYMBOL,
XP_LISP_OBJ_STRING,
XP_LISP_OBJ_CONS,
XP_LISP_OBJ_FUNC,
XP_LISP_OBJ_MACRO,
XP_LISP_OBJ_PRIM,
XP_LISP_TYPE_COUNT // the number of lisp object types
2005-02-04 15:39:11 +00:00
};
2005-02-04 16:00:37 +00:00
#define XP_LISP_OBJ_HEADER \
xp_uint32_t type: 24; \
xp_uint32_t mark: 4; \
xp_uint32_t lock: 4; \
2005-02-04 15:39:11 +00:00
xp_size_t size; \
struct xp_lisp_obj_t* link
struct xp_lisp_obj_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
};
struct xp_lisp_obj_nil_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
};
struct xp_lisp_obj_true_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
};
struct xp_lisp_obj_int_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-14 14:37:50 +00:00
xp_lisp_int_t value;
2005-02-04 15:39:11 +00:00
};
struct xp_lisp_obj_float_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-14 14:37:50 +00:00
xp_lisp_real_t value;
2005-02-04 15:39:11 +00:00
};
struct xp_lisp_obj_symbol_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
#ifdef __BORLANDC__
#else
2005-02-07 15:10:41 +00:00
xp_char_t buffer[0];
2005-02-04 15:39:11 +00:00
#endif
};
struct xp_lisp_obj_string_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
#ifdef __BORLANDC__
#else
2005-02-07 15:10:41 +00:00
xp_char_t buffer[0];
2005-02-04 15:39:11 +00:00
#endif
};
struct xp_lisp_obj_cons_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
struct xp_lisp_obj_t* car;
struct xp_lisp_obj_t* cdr;
};
struct xp_lisp_obj_func_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
struct xp_lisp_obj_t* formal;
struct xp_lisp_obj_t* body;
};
struct xp_lisp_obj_macro_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
struct xp_lisp_obj_t* formal;
struct xp_lisp_obj_t* body;
};
struct xp_lisp_obj_prim_t
{
2005-02-04 16:00:37 +00:00
XP_LISP_OBJ_HEADER;
2005-02-04 15:39:11 +00:00
void* impl; // xp_lisp_prim_t
};
typedef struct xp_lisp_obj_t xp_lisp_obj_t;
typedef struct xp_lisp_obj_nil_t xp_lisp_obj_nil_t;
typedef struct xp_lisp_obj_true_t xp_lisp_obj_true_t;
typedef struct xp_lisp_obj_int_t xp_lisp_obj_int_t;
typedef struct xp_lisp_obj_float_t xp_lisp_obj_float_t;
typedef struct xp_lisp_obj_symbol_t xp_lisp_obj_symbol_t;
typedef struct xp_lisp_obj_string_t xp_lisp_obj_string_t;
typedef struct xp_lisp_obj_cons_t xp_lisp_obj_cons_t;
typedef struct xp_lisp_obj_func_t xp_lisp_obj_func_t;
typedef struct xp_lisp_obj_macro_t xp_lisp_obj_macro_t;
typedef struct xp_lisp_obj_prim_t xp_lisp_obj_prim_t;
// header access
2005-02-04 16:00:37 +00:00
#define XP_LISP_TYPE(x) (((xp_lisp_obj_t*)x)->type)
#define XP_LISP_SIZE(x) (((xp_lisp_obj_t*)x)->size)
#define XP_LISP_MARK(x) (((xp_lisp_obj_t*)x)->mark)
#define XP_LISP_LOCK(x) (((xp_lisp_obj_t*)x)->lock)
#define XP_LISP_LINK(x) (((xp_lisp_obj_t*)x)->link)
2005-02-04 15:39:11 +00:00
// value access
2005-02-04 16:00:37 +00:00
#define XP_LISP_IVALUE(x) (((xp_lisp_obj_int_t*)x)->value)
#define XP_LISP_FVALUE(x) (((xp_lisp_obj_float_t*)x)->value)
2005-02-04 15:39:11 +00:00
#ifdef __BORLANDC__
2005-02-07 15:10:41 +00:00
#define XP_LISP_SYMVALUE(x) ((xp_char_t*)(((xp_lisp_obj_symbol_t*)x) + 1))
2005-02-04 15:39:11 +00:00
#else
2005-02-04 16:00:37 +00:00
#define XP_LISP_SYMVALUE(x) (((xp_lisp_obj_symbol_t*)x)->buffer)
2005-02-04 15:39:11 +00:00
#endif
2005-02-07 15:10:41 +00:00
#define XP_LISP_SYMLEN(x) ((((xp_lisp_obj_symbol_t*)x)->size - sizeof(xp_lisp_obj_t)) / sizeof(xp_char_t) - 1)
2005-02-04 15:39:11 +00:00
#ifdef __BORLANDC__
2005-02-07 15:10:41 +00:00
#define XP_LISP_STRVALUE(x) ((xp_char_t*)(((xp_lisp_obj_string_t*)x) + 1))
2005-02-04 15:39:11 +00:00
#else
2005-02-04 16:00:37 +00:00
#define XP_LISP_STRVALUE(x) (((xp_lisp_obj_string_t*)x)->buffer)
2005-02-04 15:39:11 +00:00
#endif
2005-02-07 15:10:41 +00:00
#define XP_LISP_STRLEN(x) ((((xp_lisp_obj_string_t*)x)->size - sizeof(xp_lisp_obj_t)) / sizeof(xp_char_t) - 1)
2005-02-04 16:00:37 +00:00
#define XP_LISP_CAR(x) (((xp_lisp_obj_cons_t*)x)->car)
#define XP_LISP_CDR(x) (((xp_lisp_obj_cons_t*)x)->cdr)
#define XP_LISP_FFORMAL(x) (((xp_lisp_obj_func_t*)x)->formal)
#define XP_LISP_FBODY(x) (((xp_lisp_obj_func_t*)x)->body)
#define XP_LISP_MFORMAL(x) (((xp_lisp_obj_macro_t*)x)->formal)
#define XP_LISP_MBODY(x) (((xp_lisp_obj_macro_t*)x)->body)
#define XP_LISP_PIMPL(x) ((xp_lisp_pimpl_t)(((xp_lisp_obj_prim_t*)x)->impl))
2005-02-04 15:39:11 +00:00
#endif