HCoop Git - bpt/guile.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* classes: h_files */
	2
	3	#ifndef SCM_EVAL_H
	4	#define SCM_EVAL_H
	5
	6	/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012
	7	* Free Software Foundation, Inc.
	8	*
	9	* This library is free software; you can redistribute it and/or
	10	* modify it under the terms of the GNU Lesser General Public License
	11	* as published by the Free Software Foundation; either version 3 of
	12	* the License, or (at your option) any later version.
	13	*
	14	* This library is distributed in the hope that it will be useful, but
	15	* WITHOUT ANY WARRANTY; without even the implied warranty of
	16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	17	* Lesser General Public License for more details.
	18	*
	19	* You should have received a copy of the GNU Lesser General Public
	20	* License along with this library; if not, write to the Free Software
	21	* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
	22	* 02110-1301 USA
	23	*/
	24
	25	\f
	26
	27	#include "libguile/__scm.h"
	28
	29	#include "libguile/struct.h"
	30	#include "libguile/memoize.h"
	31
	32	\f
	33
	34	/* {Options}
	35	*/
	36
	37
	38	\f
	39
	40	/* {Ilocs}
	41	*
	42	* Ilocs are relative pointers into local environment structures.
	43	*
	44	*/
	45	#define SCM_ILOCP(n) (SCM_ITAG8(n)==scm_tc8_iloc)
	46
	47	\f
	48
	49	/* {Evaluator}
	50	*/
	51
	52	typedef SCM (*scm_t_trampoline_0) (SCM proc);
	53	typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1);
	54	typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2);
	55
	56	\f
	57
	58	#define SCM_EXTEND_ENV scm_acons
	59
	60	\f
	61
	62	SCM_API SCM scm_call_0 (SCM proc);
	63	SCM_API SCM scm_call_1 (SCM proc, SCM arg1);
	64	SCM_API SCM scm_call_2 (SCM proc, SCM arg1, SCM arg2);
	65	SCM_API SCM scm_call_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3);
	66	SCM_API SCM scm_call_4 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4);
	67	SCM_API SCM scm_call_5 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4,
	68	SCM arg5);
	69	SCM_API SCM scm_call_6 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4,
	70	SCM arg5, SCM arg6);
	71	SCM_API SCM scm_call_7 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4,
	72	SCM arg5, SCM arg6, SCM arg7);
	73	SCM_API SCM scm_call_8 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4,
	74	SCM arg5, SCM arg6, SCM arg7, SCM arg8);
	75	SCM_API SCM scm_call_9 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4,
	76	SCM arg5, SCM arg6, SCM arg7, SCM arg8, SCM arg9);
	77	SCM_API SCM scm_call_n (SCM proc, SCM *argv, size_t nargs);
	78	SCM_API SCM scm_call (SCM proc, ...);
	79	SCM_API SCM scm_apply_0 (SCM proc, SCM args);
	80	SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args);
	81	SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args);
	82	SCM_API SCM scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args);
	83	SCM_API SCM scm_nconc2last (SCM lst);
	84	SCM_API SCM scm_apply (SCM proc, SCM arg1, SCM args);
	85	#define scm_dapply(proc,arg1,args) scm_apply (proc, arg1, args)
	86	SCM_API SCM scm_map (SCM proc, SCM arg1, SCM args);
	87	SCM_API SCM scm_for_each (SCM proc, SCM arg1, SCM args);
	88	SCM_API SCM scm_primitive_eval (SCM exp);
	89	#define scm_primitive_eval_x(exp) scm_primitive_eval (exp)
	90	SCM_API SCM scm_eval (SCM exp, SCM module);
	91	#define scm_eval_x(exp, module) scm_eval (exp, module)
	92
	93	SCM_INTERNAL void scm_init_eval (void);
	94
	95
	96	#endif /* SCM_EVAL_H */
	97
	98	/*
	99	Local Variables:
	100	c-file-style: "gnu"
	101	End:
	102	*/