/*

 *  ALSA lisp implementation

 *  Copyright (c) 2003 by Jaroslav Kysela <perex@perex.cz>

 *

 *  Based on work of Sandro Sigala (slisp-1.2)

 *

 *

 *   This library is free software; you can redistribute it and/or modify

 *   it under the terms of the GNU Lesser General Public License as

 *   published by the Free Software Foundation; either version 2.1 of

 *   the License, or (at your option) any later version.

 *

 *   This program is distributed in the hope that it will be useful,

 *   but WITHOUT ANY WARRANTY; without even the implied warranty of

 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 *   GNU Lesser General Public License for more details.

 *

 *   You should have received a copy of the GNU Lesser General Public

 *   License along with this library; if not, write to the Free Software

 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

 *

 */

#include "list.h"

enum alisp_tokens {

	ALISP_IDENTIFIER,

	ALISP_INTEGER,

	ALISP_FLOAT,

	ALISP_FLOATE,

	ALISP_STRING

};

enum alisp_objects {

	ALISP_OBJ_INTEGER,

	ALISP_OBJ_FLOAT,

	ALISP_OBJ_IDENTIFIER,

	ALISP_OBJ_STRING,

	ALISP_OBJ_POINTER,

	ALISP_OBJ_CONS,

	ALISP_OBJ_LAST_SEARCH = ALISP_OBJ_CONS,

	ALISP_OBJ_NIL,

	ALISP_OBJ_T,

};

struct alisp_object;

#define ALISP_TYPE_MASK	0xf0000000

#define ALISP_TYPE_SHIFT 28

#define ALISP_REFS_MASK 0x0fffffff

#define ALISP_REFS_SHIFT 0

#define ALISP_MAX_REFS (ALISP_REFS_MASK>>ALISP_REFS_SHIFT)

#define ALISP_MAX_REFS_LIMIT ((ALISP_MAX_REFS + 1) / 2)

struct alisp_object {

	struct list_head list;

	unsigned int	type_refs;	/* type and count of references */

	union {

		char	*s;

		long	i;

		double	f;

		const void *ptr;

		struct {

			struct alisp_object *car;

			struct alisp_object *cdr;

		} c;

	} value;

};

static inline enum alisp_objects alisp_get_type(struct alisp_object *p)

{

	return (p->type_refs >> ALISP_TYPE_SHIFT);

}

static inline void alisp_set_type(struct alisp_object *p, enum alisp_objects type)

{

	p->type_refs &= ~ALISP_TYPE_MASK;

	p->type_refs |= (unsigned int)type << ALISP_TYPE_SHIFT;

}

static inline int alisp_compare_type(struct alisp_object *p, enum alisp_objects type)

{

	return ((unsigned int)type << ALISP_TYPE_SHIFT) ==

	       (p->type_refs & ALISP_TYPE_MASK);

}

static inline void alisp_set_refs(struct alisp_object *p, unsigned int refs)

{

	p->type_refs &= ~ALISP_REFS_MASK;

	p->type_refs |= refs & ALISP_REFS_MASK;

}

static inline unsigned int alisp_get_refs(struct alisp_object *p)

{

	return p->type_refs & ALISP_REFS_MASK;

}

static inline unsigned int alisp_inc_refs(struct alisp_object *p)

{

	unsigned r = alisp_get_refs(p) + 1;

	alisp_set_refs(p, r);

	return r;

}

static inline unsigned int alisp_dec_refs(struct alisp_object *p)

{

	unsigned r = alisp_get_refs(p) - 1;

	alisp_set_refs(p, r);

	return r;

}

struct alisp_object_pair {

	struct list_head list;

	const char *name;

 	struct alisp_object *value;

};

#define ALISP_LEX_BUF_MAX	16

#define ALISP_OBJ_PAIR_HASH_SHIFT 4

#define ALISP_OBJ_PAIR_HASH_SIZE (1<

#define ALISP_OBJ_PAIR_HASH_MASK (ALISP_OBJ_PAIR_HASH_SIZE-1)

#define ALISP_FREE_OBJ_POOL	512	/* free objects above this pool */

struct alisp_instance {

	int verbose: 1,

	    warning: 1,

	    debug: 1;

	/* i/o */

	snd_input_t *in;

	snd_output_t *out;

	snd_output_t *eout;	/* error output */

	snd_output_t *vout;	/* verbose output */

	snd_output_t *wout;	/* warning output */

	snd_output_t *dout;	/* debug output */

	/* lexer */

	int charno;

	int lineno;

	int lex_buf[ALISP_LEX_BUF_MAX];

	int *lex_bufp;

	char *token_buffer;

	int token_buffer_max;

	int thistoken;

	/* object allocator / storage */

	long free_objs;

	long used_objs;

	long max_objs;

	struct list_head free_objs_list;

	struct list_head used_objs_list[ALISP_OBJ_PAIR_HASH_SIZE][ALISP_OBJ_LAST_SEARCH + 1];

	/* set object */

	struct list_head setobjs_list[ALISP_OBJ_PAIR_HASH_SIZE];

};