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-09-21 15:53:55 +00:00
parent d41d43a23c
commit f02c1f25a6
1 changed files with 43 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
ase/lsp/obj.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: obj.h,v 1.3 2005-09-20 12:06:51 bacon Exp $ * $Id: obj.h,v 1.4 2005-09-21 15:53:55 bacon Exp $
*/ */
#ifndef _XP_LSP_OBJ_H_ #ifndef _XP_LSP_OBJ_H_
@ -7,7 +7,7 @@
#include <xp/lsp/types.h> #include <xp/lsp/types.h>
// object types /* object types */
enum enum
{ {
XP_LSP_OBJ_NIL = 0, XP_LSP_OBJ_NIL = 0,
@ -24,43 +24,58 @@ enum
XP_LSP_TYPE_COUNT // the number of lsp object types XP_LSP_TYPE_COUNT // the number of lsp object types
}; };
#define XP_LSP_OBJ_HEADER \ typedef struct xp_lsp_objhdr_t xp_lsp_objhdr_t;
xp_uint32_t type: 24; \ typedef struct xp_lsp_obj_t xp_lsp_obj_t;
xp_uint32_t mark: 4; \ typedef struct xp_lsp_obj_nil_t xp_lsp_obj_nil_t;
xp_uint32_t lock: 4; \ typedef struct xp_lsp_obj_true_t xp_lsp_obj_true_t;
xp_size_t size; \ typedef struct xp_lsp_obj_int_t xp_lsp_obj_int_t;
struct xp_lsp_obj_t* link typedef struct xp_lsp_obj_real_t xp_lsp_obj_real_t;
typedef struct xp_lsp_obj_symbol_t xp_lsp_obj_symbol_t;
typedef struct xp_lsp_obj_string_t xp_lsp_obj_string_t;
typedef struct xp_lsp_obj_cons_t xp_lsp_obj_cons_t;
typedef struct xp_lsp_obj_func_t xp_lsp_obj_func_t;
typedef struct xp_lsp_obj_macro_t xp_lsp_obj_macro_t;
typedef struct xp_lsp_obj_prim_t xp_lsp_obj_prim_t;
struct xp_lsp_objhdr_t
{
xp_uint32_t type: 24;
xp_uint32_t mark: 4;
xp_uint32_t lock: 4;
xp_size_t size;
xp_lsp_obj_t* link;
};
struct xp_lsp_obj_t struct xp_lsp_obj_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
}; };
struct xp_lsp_obj_nil_t struct xp_lsp_obj_nil_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
}; };
struct xp_lsp_obj_true_t struct xp_lsp_obj_true_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
}; };
struct xp_lsp_obj_int_t struct xp_lsp_obj_int_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
xp_lsp_int_t value; xp_lsp_int_t value;
}; };
struct xp_lsp_obj_real_t struct xp_lsp_obj_real_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
xp_lsp_real_t value; xp_lsp_real_t value;
}; };
struct xp_lsp_obj_symbol_t struct xp_lsp_obj_symbol_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
#ifdef __BORLANDC__ #ifdef __BORLANDC__
#else #else
xp_char_t buffer[0]; xp_char_t buffer[0];
@ -69,7 +84,7 @@ struct xp_lsp_obj_symbol_t
struct xp_lsp_obj_string_t struct xp_lsp_obj_string_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
#ifdef __BORLANDC__ #ifdef __BORLANDC__
#else #else
xp_char_t buffer[0]; xp_char_t buffer[0];
@ -78,51 +93,39 @@ struct xp_lsp_obj_string_t
struct xp_lsp_obj_cons_t struct xp_lsp_obj_cons_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
struct xp_lsp_obj_t* car; struct xp_lsp_obj_t* car;
struct xp_lsp_obj_t* cdr; struct xp_lsp_obj_t* cdr;
}; };
struct xp_lsp_obj_func_t struct xp_lsp_obj_func_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
struct xp_lsp_obj_t* formal; struct xp_lsp_obj_t* formal;
struct xp_lsp_obj_t* body; struct xp_lsp_obj_t* body;
}; };
struct xp_lsp_obj_macro_t struct xp_lsp_obj_macro_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
struct xp_lsp_obj_t* formal; struct xp_lsp_obj_t* formal;
struct xp_lsp_obj_t* body; struct xp_lsp_obj_t* body;
}; };
struct xp_lsp_obj_prim_t struct xp_lsp_obj_prim_t
{ {
XP_LSP_OBJ_HEADER; xp_lsp_objhdr_t hdr;
void* impl; /* xp_lsp_prim_t */ void* impl; /* xp_lsp_prim_t */
}; };
typedef struct xp_lsp_obj_t xp_lsp_obj_t; /* header access */
typedef struct xp_lsp_obj_nil_t xp_lsp_obj_nil_t; #define XP_LSP_TYPE(x) (((xp_lsp_obj_t*)x)->hdr.type)
typedef struct xp_lsp_obj_true_t xp_lsp_obj_true_t; #define XP_LSP_SIZE(x) (((xp_lsp_obj_t*)x)->hdr.size)
typedef struct xp_lsp_obj_int_t xp_lsp_obj_int_t; #define XP_LSP_MARK(x) (((xp_lsp_obj_t*)x)->hdr.mark)
typedef struct xp_lsp_obj_real_t xp_lsp_obj_real_t; #define XP_LSP_LOCK(x) (((xp_lsp_obj_t*)x)->hdr.lock)
typedef struct xp_lsp_obj_symbol_t xp_lsp_obj_symbol_t; #define XP_LSP_LINK(x) (((xp_lsp_obj_t*)x)->hdr.link)
typedef struct xp_lsp_obj_string_t xp_lsp_obj_string_t;
typedef struct xp_lsp_obj_cons_t xp_lsp_obj_cons_t;
typedef struct xp_lsp_obj_func_t xp_lsp_obj_func_t;
typedef struct xp_lsp_obj_macro_t xp_lsp_obj_macro_t;
typedef struct xp_lsp_obj_prim_t xp_lsp_obj_prim_t;
// header access /* value access */
#define XP_LSP_TYPE(x) (((xp_lsp_obj_t*)x)->type)
#define XP_LSP_SIZE(x) (((xp_lsp_obj_t*)x)->size)
#define XP_LSP_MARK(x) (((xp_lsp_obj_t*)x)->mark)
#define XP_LSP_LOCK(x) (((xp_lsp_obj_t*)x)->lock)
#define XP_LSP_LINK(x) (((xp_lsp_obj_t*)x)->link)
// value access
#define XP_LSP_IVALUE(x) (((xp_lsp_obj_int_t*)x)->value) #define XP_LSP_IVALUE(x) (((xp_lsp_obj_int_t*)x)->value)
#define XP_LSP_RVALUE(x) (((xp_lsp_obj_real_t*)x)->value) #define XP_LSP_RVALUE(x) (((xp_lsp_obj_real_t*)x)->value)
@ -131,14 +134,14 @@ typedef struct xp_lsp_obj_prim_t xp_lsp_obj_prim_t;
#else #else
#define XP_LSP_SYMVALUE(x) (((xp_lsp_obj_symbol_t*)x)->buffer) #define XP_LSP_SYMVALUE(x) (((xp_lsp_obj_symbol_t*)x)->buffer)
#endif #endif
#define XP_LSP_SYMLEN(x) ((((xp_lsp_obj_symbol_t*)x)->size - sizeof(xp_lsp_obj_t)) / sizeof(xp_char_t) - 1) #define XP_LSP_SYMLEN(x) ((((xp_lsp_obj_symbol_t*)x)->hdr.size - sizeof(xp_lsp_obj_t)) / sizeof(xp_char_t) - 1)
#ifdef __BORLANDC__ #ifdef __BORLANDC__
#define XP_LSP_STRVALUE(x) ((xp_char_t*)(((xp_lsp_obj_string_t*)x) + 1)) #define XP_LSP_STRVALUE(x) ((xp_char_t*)(((xp_lsp_obj_string_t*)x) + 1))
#else #else
#define XP_LSP_STRVALUE(x) (((xp_lsp_obj_string_t*)x)->buffer) #define XP_LSP_STRVALUE(x) (((xp_lsp_obj_string_t*)x)->buffer)
#endif #endif
#define XP_LSP_STRLEN(x) ((((xp_lsp_obj_string_t*)x)->size - sizeof(xp_lsp_obj_t)) / sizeof(xp_char_t) - 1) #define XP_LSP_STRLEN(x) ((((xp_lsp_obj_string_t*)x)->hdr.size - sizeof(xp_lsp_obj_t)) / sizeof(xp_char_t) - 1)
#define XP_LSP_CAR(x) (((xp_lsp_obj_cons_t*)x)->car) #define XP_LSP_CAR(x) (((xp_lsp_obj_cons_t*)x)->car)
#define XP_LSP_CDR(x) (((xp_lsp_obj_cons_t*)x)->cdr) #define XP_LSP_CDR(x) (((xp_lsp_obj_cons_t*)x)->cdr)