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-17 17:42:21 +00:00
parent 92d04986d6
commit f0448b3e43
3 changed files with 58 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ase/lsp/lisp.c → ase/lsp/lsp.c
View File

@ -1,17 +1,19 @@
/*
* $Id: lisp.c,v 1.10 2005-05-30 07:15:35 bacon Exp $
* $Id: lsp.c,v 1.1 2005-09-17 17:42:21 bacon Exp $
*/
#include <xp/lsp/lisp.h>
#include <xp/bas/memory.h>
#include <xp/bas/assert.h>
xp_lisp_t* xp_lisp_new (xp_size_t mem_ubound, xp_size_t mem_ubound_inc)
xp_lisp_t* xp_lisp_open (xp_lisp_t* lsp, xp_size_t mem_ubound, xp_size_t mem_ubound_inc)
{
xp_lisp_t* lsp;
lsp = (xp_lisp_t*)xp_malloc(sizeof(xp_lisp_t));
if (lsp == XP_NULL) return lsp;
if (lsp == XP_NULL) {
lsp = (xp_lisp_t*)xp_malloc(sizeof(xp_lisp_t));
if (lsp == XP_NULL) return lsp;
lsp->__malloced = xp_true;
}
else lsp->__malloced = xp_false;
lsp->token = xp_lisp_token_new (256);
if (lsp->token == XP_NULL) {
@ -52,7 +54,7 @@ void xp_lisp_free (xp_lisp_t* lsp)
xp_lisp_mem_free (lsp->mem);
xp_lisp_token_free (lsp->token);
free (lsp);
if (lsp->__malloced) xp_free (lsp);
}
int xp_lisp_error (xp_lisp_t* lsp, xp_char_t* buf, xp_size_t size)

11
ase/lsp/lisp.h → ase/lsp/lsp.h
View File

@ -1,5 +1,5 @@
/*
* $Id: lisp.h,v 1.5 2005-05-28 13:34:26 bacon Exp $
* $Id: lsp.h,v 1.1 2005-09-17 17:42:21 bacon Exp $
*/
#ifndef _XP_LSP_LISP_H_
@ -58,6 +58,7 @@ struct xp_lisp_t
/* memory manager */
xp_lisp_mem_t* mem;
xp_bool_t __malloced;
};
typedef struct xp_lisp_t xp_lisp_t;
@ -67,9 +68,11 @@ extern "C" {
#endif
/* lsp.c */
xp_lisp_t* xp_lisp_new (xp_size_t mem_ubound, xp_size_t mem_ubound_inc);
void xp_lisp_free (xp_lisp_t* lsp);
int xp_lisp_error (xp_lisp_t* lsp, xp_char_t* buf, xp_size_t size);
xp_lisp_t* xp_lisp_open (xp_lisp_t* lisp,
xp_size_t mem_ubound, xp_size_t mem_ubound_inc);
void xp_lisp_close (xp_lisp_t* lsp);
int xp_lisp_error (xp_lisp_t* lsp, xp_char_t* buf, xp_size_t size);
/* read.c */
// TODO: move xp_lisp_set_creader to lsp.c

43
ase/types.h
View File

@ -1,5 +1,5 @@
/*
* $Id: types.h,v 1.31 2005-08-15 04:14:54 bacon Exp $
* $Id: types.h,v 1.32 2005-09-17 17:42:21 bacon Exp $
*/
#ifndef _XP_TYPES_H_
@ -13,6 +13,47 @@
#include <xp/config.h>
#endif
/*
* HEADER: types.h
* The toolkit predefines some of commonly used data types.
*
* GROUP: State Types
*
* TYPE: xp_bool_t
* Boolean type
*
* TYPE: xp_tri_t
* Tri-State type
*
* GROUP: Integral Types
*
* TYPE: xp_byte_t
*
* TYPE: xp_int_t
*
* TYPE: xp_uint_t
*
* TYPE: xp_long_t
*
* TYPE: xp_ulong_t
*
* TYPE: xp_int8_t
*
* TYPE: xp_uint8_t
*
* TYPE: xp_int16_t
*
* TYPE: xp_uint16_t
*
* TYPE: xp_int32_t
*
* TYPE: xp_uint32_t
*
* TYPE: xp_int64_t
*
* TYPE: xp_uint64_t
*/
/* boolean type */
/*
#ifdef __cplusplus