mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
c136c9205e
MEMOIZE_LOCALS to clean up the code. Now, caching of local variable positions during memoization is mandatory. However, the option to disable the caching has most probably not been used anyway.
249 lines
8.5 KiB
C
249 lines
8.5 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_EVAL_H
|
||
#define SCM_EVAL_H
|
||
|
||
/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
|
||
*
|
||
* This program is free software; you can redistribute it and/or modify
|
||
* it under the terms of the GNU General Public License as published by
|
||
* the Free Software Foundation; either version 2, 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 General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU General Public License
|
||
* along with this software; see the file COPYING. If not, write to
|
||
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
||
* Boston, MA 02111-1307 USA
|
||
*
|
||
* As a special exception, the Free Software Foundation gives permission
|
||
* for additional uses of the text contained in its release of GUILE.
|
||
*
|
||
* The exception is that, if you link the GUILE library with other files
|
||
* to produce an executable, this does not by itself cause the
|
||
* resulting executable to be covered by the GNU General Public License.
|
||
* Your use of that executable is in no way restricted on account of
|
||
* linking the GUILE library code into it.
|
||
*
|
||
* This exception does not however invalidate any other reasons why
|
||
* the executable file might be covered by the GNU General Public License.
|
||
*
|
||
* This exception applies only to the code released by the
|
||
* Free Software Foundation under the name GUILE. If you copy
|
||
* code from other Free Software Foundation releases into a copy of
|
||
* GUILE, as the General Public License permits, the exception does
|
||
* not apply to the code that you add in this way. To avoid misleading
|
||
* anyone as to the status of such modified files, you must delete
|
||
* this exception notice from them.
|
||
*
|
||
* If you write modifications of your own for GUILE, it is your choice
|
||
* whether to permit this exception to apply to your modifications.
|
||
* If you do not wish that, delete this exception notice. */
|
||
|
||
|
||
|
||
#include "libguile/__scm.h"
|
||
|
||
#include "struct.h"
|
||
|
||
|
||
|
||
/* {Options}
|
||
*/
|
||
|
||
SCM_API scm_t_option scm_eval_opts[];
|
||
|
||
#define SCM_EVAL_STACK scm_eval_opts[0].val
|
||
#define SCM_N_EVAL_OPTIONS 1
|
||
|
||
SCM_API long scm_eval_stack;
|
||
|
||
SCM_API scm_t_option scm_evaluator_trap_table[];
|
||
|
||
SCM_API SCM scm_eval_options_interface (SCM setting);
|
||
|
||
#define SCM_TRAPS_P scm_evaluator_trap_table[0].val
|
||
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val
|
||
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val
|
||
#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val
|
||
#define SCM_ENTER_FRAME_HDLR (SCM)(scm_evaluator_trap_table[4].val)
|
||
#define SCM_APPLY_FRAME_HDLR (SCM)(scm_evaluator_trap_table[5].val)
|
||
#define SCM_EXIT_FRAME_HDLR (SCM)(scm_evaluator_trap_table[6].val)
|
||
#define SCM_N_EVALUATOR_TRAPS 7
|
||
|
||
|
||
|
||
/* {Ilocs}
|
||
*
|
||
* Ilocs are relative pointers into local environment structures.
|
||
*
|
||
*/
|
||
#define SCM_ILOCP(n) (SCM_ITAG8(n)==scm_tc8_iloc)
|
||
#define SCM_ILOC00 SCM_MAKE_ITAG8(0L, scm_tc8_iloc)
|
||
#define SCM_IDINC (0x00100000L)
|
||
#define SCM_ICDR (0x00080000L)
|
||
#define SCM_IFRINC (0x00000100L)
|
||
#define SCM_IDSTMSK (-SCM_IDINC)
|
||
#define SCM_IFRAME(n) ((long)((SCM_ICDR-SCM_IFRINC)>>8) \
|
||
& (SCM_UNPACK (n) >> 8))
|
||
#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20)
|
||
#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n))
|
||
|
||
|
||
|
||
|
||
/* {Evaluator}
|
||
*
|
||
* For an explanation of symbols containing "EVAL", see beginning of eval.c.
|
||
*/
|
||
#define SCM_EVALIM2(x) \
|
||
((SCM_EQ_P ((x), SCM_EOL) \
|
||
? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \
|
||
: 0), \
|
||
(x))
|
||
#define SCM_EVALIM(x, env) (SCM_ILOCP (x) \
|
||
? *scm_ilookup ((x), env) \
|
||
: SCM_EVALIM2(x))
|
||
#ifdef DEBUG_EXTENSIONS
|
||
#define SCM_XEVAL(x, env) (SCM_IMP (x) \
|
||
? SCM_EVALIM2(x) \
|
||
: (*scm_ceval_ptr) ((x), (env)))
|
||
#define SCM_XEVALCAR(x, env) (SCM_IMP (SCM_CAR (x)) \
|
||
? SCM_EVALIM (SCM_CAR (x), env) \
|
||
: (SCM_SYMBOLP (SCM_CAR (x)) \
|
||
? *scm_lookupcar (x, env, 1) \
|
||
: (*scm_ceval_ptr) (SCM_CAR (x), env)))
|
||
#else
|
||
#define SCM_XEVAL(x, env) (SCM_IMP (x) \
|
||
? SCM_EVALIM2(x) \
|
||
: scm_ceval ((x), (env)))
|
||
#define SCM_XEVALCAR(x, env) EVALCAR (x, env)
|
||
#endif /* DEBUG_EXTENSIONS */
|
||
|
||
|
||
|
||
#define SCM_EXTEND_ENV scm_acons
|
||
|
||
/*fixme* This should probably be removed throught the code. */
|
||
|
||
#define SCM_TOP_LEVEL_LOOKUP_CLOSURE (scm_current_module_lookup_closure())
|
||
|
||
|
||
SCM_API const char scm_s_expression[];
|
||
SCM_API const char scm_s_test[];
|
||
SCM_API const char scm_s_body[];
|
||
SCM_API const char scm_s_bindings[];
|
||
SCM_API const char scm_s_variable[];
|
||
SCM_API const char scm_s_clauses[];
|
||
SCM_API const char scm_s_formals[];
|
||
SCM_API const char scm_s_set_x[];
|
||
|
||
SCM_API SCM scm_sym_and;
|
||
SCM_API SCM scm_sym_begin;
|
||
SCM_API SCM scm_sym_case;
|
||
SCM_API SCM scm_sym_cond;
|
||
SCM_API SCM scm_sym_define;
|
||
SCM_API SCM scm_sym_do;
|
||
SCM_API SCM scm_sym_if;
|
||
SCM_API SCM scm_sym_lambda;
|
||
SCM_API SCM scm_sym_let;
|
||
SCM_API SCM scm_sym_letstar;
|
||
SCM_API SCM scm_sym_letrec;
|
||
SCM_API SCM scm_sym_quote;
|
||
SCM_API SCM scm_sym_quasiquote;
|
||
SCM_API SCM scm_sym_unquote;
|
||
SCM_API SCM scm_sym_uq_splicing;
|
||
|
||
SCM_API SCM scm_sym_dot;
|
||
SCM_API SCM scm_sym_atapply;
|
||
SCM_API SCM scm_sym_atcall_cc;
|
||
SCM_API SCM scm_sym_at_call_with_values;
|
||
SCM_API SCM scm_sym_delay;
|
||
SCM_API SCM scm_sym_arrow;
|
||
SCM_API SCM scm_sym_else;
|
||
SCM_API SCM scm_sym_apply;
|
||
SCM_API SCM scm_sym_set_x;
|
||
SCM_API SCM scm_sym_args;
|
||
|
||
SCM_API SCM scm_f_apply;
|
||
|
||
|
||
|
||
SCM_API SCM * scm_ilookup (SCM iloc, SCM env);
|
||
SCM_API SCM * scm_lookupcar (SCM vloc, SCM genv, int check);
|
||
SCM_API SCM scm_unmemocar (SCM form, SCM env);
|
||
SCM_API SCM scm_unmemocopy (SCM form, SCM env);
|
||
SCM_API SCM scm_eval_car (SCM pair, SCM env);
|
||
SCM_API SCM scm_eval_body (SCM code, SCM env);
|
||
SCM_API SCM scm_eval_args (SCM i, SCM env, SCM proc);
|
||
SCM_API SCM scm_m_quote (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_begin (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_if (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_set_x (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_vref (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_vset (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_and (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_or (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_case (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_cond (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_lambda (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_letstar (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_do (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_quasiquote (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_delay (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_define (SCM x, SCM env);
|
||
SCM_API SCM scm_m_letrec (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_let (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_apply (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_cont (SCM xorig, SCM env);
|
||
#ifdef SCM_ENABLE_ELISP
|
||
SCM_API SCM scm_m_nil_cond (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_atfop (SCM xorig, SCM env);
|
||
#endif /* SCM_ENABLE_ELISP */
|
||
SCM_API SCM scm_m_atbind (SCM xorig, SCM env);
|
||
SCM_API SCM scm_m_at_call_with_values (SCM xorig, SCM env);
|
||
SCM_API int scm_badargsp (SCM formals, SCM args);
|
||
SCM_API SCM scm_ceval (SCM x, SCM env);
|
||
SCM_API SCM scm_deval (SCM x, SCM env);
|
||
SCM_API SCM scm_call_0 (SCM proc);
|
||
SCM_API SCM scm_call_1 (SCM proc, SCM arg1);
|
||
SCM_API SCM scm_call_2 (SCM proc, SCM arg1, SCM arg2);
|
||
SCM_API SCM scm_call_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3);
|
||
SCM_API SCM scm_call_4 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4);
|
||
SCM_API SCM scm_apply_0 (SCM proc, SCM args);
|
||
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args);
|
||
SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args);
|
||
SCM_API SCM scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args);
|
||
SCM_API SCM scm_nconc2last (SCM lst);
|
||
SCM_API SCM scm_apply (SCM proc, SCM arg1, SCM args);
|
||
SCM_API SCM scm_dapply (SCM proc, SCM arg1, SCM args);
|
||
SCM_API SCM scm_m_expand_body (SCM xorig, SCM env);
|
||
SCM_API SCM scm_macroexp (SCM x, SCM env);
|
||
SCM_API SCM scm_map (SCM proc, SCM arg1, SCM args);
|
||
SCM_API SCM scm_for_each (SCM proc, SCM arg1, SCM args);
|
||
SCM_API SCM scm_closure (SCM code, SCM env);
|
||
SCM_API SCM scm_makprom (SCM code);
|
||
SCM_API SCM scm_force (SCM x);
|
||
SCM_API SCM scm_promise_p (SCM x);
|
||
SCM_API SCM scm_cons_source (SCM xorig, SCM x, SCM y);
|
||
SCM_API SCM scm_copy_tree (SCM obj);
|
||
SCM_API SCM scm_i_eval_x (SCM exp, SCM env);
|
||
SCM_API SCM scm_i_eval (SCM exp, SCM env);
|
||
SCM_API SCM scm_primitive_eval (SCM exp);
|
||
SCM_API SCM scm_primitive_eval_x (SCM exp);
|
||
SCM_API SCM scm_eval (SCM exp, SCM module);
|
||
SCM_API SCM scm_eval_x (SCM exp, SCM module);
|
||
|
||
SCM_API void scm_init_eval (void);
|
||
|
||
#endif /* SCM_EVAL_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|