*** empty log message ***
This commit is contained in:
@ -1,10 +1,10 @@
|
||||
/*
|
||||
* $Id: array.c,v 1.3 2005-02-05 05:43:55 bacon Exp $
|
||||
* $Id: array.c,v 1.4 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/array.h>
|
||||
#include <xp/c/memory.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/bas/memory.h>
|
||||
#include <xp/bas/assert.h>
|
||||
|
||||
xp_lisp_array_t* xp_lisp_array_new (xp_size_t capacity)
|
||||
{
|
||||
|
@ -1,10 +1,10 @@
|
||||
/*
|
||||
* $Id: env.c,v 1.4 2005-02-05 05:43:55 bacon Exp $
|
||||
* $Id: env.c,v 1.5 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/env.h>
|
||||
#include <xp/c/memory.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/bas/memory.h>
|
||||
#include <xp/bas/assert.h>
|
||||
|
||||
xp_lisp_assoc_t* xp_lisp_assoc_new (xp_lisp_obj_t* name, xp_lisp_obj_t* value)
|
||||
{
|
||||
|
@ -1,11 +1,11 @@
|
||||
/*
|
||||
* $Id: eval.c,v 1.5 2005-02-05 05:43:55 bacon Exp $
|
||||
* $Id: eval.c,v 1.6 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/lisp.h>
|
||||
#include <xp/lisp/env.h>
|
||||
#include <xp/lisp/primitive.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/bas/assert.h>
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
|
@ -1,10 +1,10 @@
|
||||
/*
|
||||
* $Id: lisp.c,v 1.7 2005-02-07 15:10:41 bacon Exp $
|
||||
* $Id: lisp.c,v 1.8 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/lisp.h>
|
||||
#include <xp/c/memory.h>
|
||||
#include <xp/c/assert.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)
|
||||
{
|
||||
|
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: lisp.h,v 1.3 2005-02-07 15:10:41 bacon Exp $
|
||||
* $Id: lisp.h,v 1.4 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#ifndef _XP_LISP_LISP_H_
|
||||
@ -10,7 +10,7 @@
|
||||
#include <xp/lisp/object.h>
|
||||
#include <xp/lisp/memory.h>
|
||||
|
||||
#include <xp/c/stdio.h> // TODO: may have to remove dependency on stdio?
|
||||
#include <xp/bas/stdio.h> // TODO: may have to remove dependency on stdio?
|
||||
|
||||
// NOTICE: the function of xp_lisp_creader_t must return -1 on error
|
||||
// and 0 on success. the first argument must be set to
|
||||
|
@ -1,12 +1,12 @@
|
||||
/*
|
||||
* $Id: memory.c,v 1.9 2005-02-14 14:37:50 bacon Exp $
|
||||
* $Id: memory.c,v 1.10 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/memory.h>
|
||||
#include <xp/lisp/primitive.h>
|
||||
#include <xp/c/memory.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/c/dprint.h>
|
||||
#include <xp/bas/memory.h>
|
||||
#include <xp/bas/assert.h>
|
||||
#include <xp/bas/dprint.h>
|
||||
|
||||
xp_lisp_mem_t* xp_lisp_mem_new (xp_size_t ubound, xp_size_t ubound_inc)
|
||||
{
|
||||
|
@ -1,11 +1,11 @@
|
||||
/*
|
||||
* $Id: primitive.c,v 1.5 2005-02-14 14:37:50 bacon Exp $
|
||||
* $Id: primitive.c,v 1.6 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/lisp.h>
|
||||
#include <xp/lisp/memory.h>
|
||||
#include <xp/lisp/primitive.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/bas/assert.h>
|
||||
|
||||
xp_lisp_obj_t* xp_lisp_prim_abort (xp_lisp_t* lsp, xp_lisp_obj_t* args)
|
||||
{
|
||||
|
@ -1,11 +1,11 @@
|
||||
/*
|
||||
* $Id: read.c,v 1.7 2005-02-14 14:37:50 bacon Exp $
|
||||
* $Id: read.c,v 1.8 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/lisp.h>
|
||||
#include <xp/lisp/token.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/c/ctype.h>
|
||||
#include <xp/bas/assert.h>
|
||||
#include <xp/bas/ctype.h>
|
||||
|
||||
#define IS_SPACE(x) xp_isspace(x)
|
||||
#define IS_DIGIT(x) xp_isdigit(x)
|
||||
|
@ -1,10 +1,10 @@
|
||||
/*
|
||||
* $Id: token.c,v 1.7 2005-02-07 15:10:41 bacon Exp $
|
||||
* $Id: token.c,v 1.8 2005-04-24 07:48:16 bacon Exp $
|
||||
*/
|
||||
|
||||
#include <xp/lisp/token.h>
|
||||
#include <xp/c/memory.h>
|
||||
#include <xp/c/assert.h>
|
||||
#include <xp/bas/memory.h>
|
||||
#include <xp/bas/assert.h>
|
||||
|
||||
xp_lisp_token_t* xp_lisp_token_new (xp_size_t capacity)
|
||||
{
|
||||
|
Reference in New Issue
Block a user