HCoop Git - bpt/guile.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
	2	*
	3	* This library is free software; you can redistribute it and/or
	4	* modify it under the terms of the GNU Lesser General Public License
	5	* as published by the Free Software Foundation; either version 3 of
	6	* the License, or (at your option) any later version.
	7	*
	8	* This library is distributed in the hope that it will be useful, but
	9	* WITHOUT ANY WARRANTY; without even the implied warranty of
	10	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	11	* Lesser General Public License for more details.
	12	*
	13	* You should have received a copy of the GNU Lesser General Public
	14	* License along with this library; if not, write to the Free Software
	15	* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
	16	* 02110-1301 USA
	17	*/
	18
	19	#ifndef _SCM_VM_H_
	20	#define _SCM_VM_H_
	21
	22	#include <libguile.h>
	23	#include <libguile/programs.h>
	24
	25	enum {
	26	SCM_VM_APPLY_HOOK,
	27	SCM_VM_PUSH_CONTINUATION_HOOK,
	28	SCM_VM_POP_CONTINUATION_HOOK,
	29	SCM_VM_NEXT_HOOK,
	30	SCM_VM_ABORT_CONTINUATION_HOOK,
	31	SCM_VM_RESTORE_CONTINUATION_HOOK,
	32	SCM_VM_NUM_HOOKS,
	33	};
	34
	35	struct scm_vm;
	36
	37	typedef SCM (scm_t_vm_engine) (SCM vm, SCM program, SCM argv, int nargs);
	38
	39	#define SCM_VM_REGULAR_ENGINE 0
	40	#define SCM_VM_DEBUG_ENGINE 1
	41	#define SCM_VM_NUM_ENGINES 2
	42
	43	struct scm_vm {
	44	scm_t_uint8 ip; / instruction pointer */
	45	SCM sp; / stack pointer */
	46	SCM fp; / frame pointer */
	47	size_t stack_size; /* stack size */
	48	SCM stack_base; / stack base address */
	49	SCM stack_limit; / stack limit address */
	50	int engine; /* which vm engine we're using */
	51	SCM hooks[SCM_VM_NUM_HOOKS]; /* hooks */
	52	int trace_level; /* traces enabled if trace_level > 0 */
	53	};
	54
	55	SCM_API SCM scm_the_vm_fluid;
	56
	57	#define SCM_VM_P(x) (SCM_HAS_TYP7 (x, scm_tc7_vm))
	58	#define SCM_VM_DATA(vm) ((struct scm_vm *) SCM_CELL_WORD_1 (vm))
	59	#define SCM_VALIDATE_VM(pos,x) SCM_MAKE_VALIDATE (pos, x, VM_P)
	60
	61	SCM_API SCM scm_the_vm (void);
	62	SCM_API SCM scm_make_vm (void);
	63
	64	SCM_API SCM scm_the_vm (void);
	65	SCM_API SCM scm_call_with_vm (SCM vm, SCM proc, SCM args);
	66
	67	SCM_API SCM scm_vm_p (SCM obj);
	68	SCM_API SCM scm_vm_ip (SCM vm);
	69	SCM_API SCM scm_vm_sp (SCM vm);
	70	SCM_API SCM scm_vm_fp (SCM vm);
	71	SCM_API SCM scm_vm_apply_hook (SCM vm);
	72	SCM_API SCM scm_vm_push_continuation_hook (SCM vm);
	73	SCM_API SCM scm_vm_pop_continuation_hook (SCM vm);
	74	SCM_API SCM scm_vm_abort_continuation_hook (SCM vm);
	75	SCM_API SCM scm_vm_restore_continuation_hook (SCM vm);
	76	SCM_API SCM scm_vm_next_hook (SCM vm);
	77	SCM_API SCM scm_vm_trace_level (SCM vm);
	78	SCM_API SCM scm_set_vm_trace_level_x (SCM vm, SCM level);
	79	SCM_API SCM scm_vm_engine (SCM vm);
	80	SCM_API SCM scm_set_vm_engine_x (SCM vm, SCM engine);
	81	SCM_API SCM scm_set_default_vm_engine_x (SCM engine);
	82	SCM_API void scm_c_set_vm_engine_x (SCM vm, int engine);
	83	SCM_API void scm_c_set_default_vm_engine_x (int engine);
	84
	85	#define SCM_F_VM_CONT_PARTIAL 0x1
	86	#define SCM_F_VM_CONT_REWINDABLE 0x2
	87
	88	struct scm_vm_cont {
	89	SCM *sp;
	90	SCM *fp;
	91	scm_t_uint8 ra, mvra;
	92	scm_t_ptrdiff stack_size;
	93	SCM *stack_base;
	94	scm_t_ptrdiff reloc;
	95	scm_t_dynstack *dynstack;
	96	scm_t_uint32 flags;
	97	};
	98
	99	#define SCM_VM_CONT_P(OBJ) (SCM_HAS_TYP7 (OBJ, scm_tc7_vm_cont))
	100	#define SCM_VM_CONT_DATA(CONT) ((struct scm_vm_cont *) SCM_CELL_WORD_1 (CONT))
	101	#define SCM_VM_CONT_PARTIAL_P(CONT) (SCM_VM_CONT_DATA (CONT)->flags & SCM_F_VM_CONT_PARTIAL)
	102	#define SCM_VM_CONT_REWINDABLE_P(CONT) (SCM_VM_CONT_DATA (CONT)->flags & SCM_F_VM_CONT_REWINDABLE)
	103
	104	SCM_API SCM scm_load_compiled_with_vm (SCM file);
	105
	106	SCM_INTERNAL SCM scm_c_vm_run (SCM vm, SCM program, SCM *argv, int nargs);
	107
	108	SCM_INTERNAL void scm_i_vm_print (SCM x, SCM port,
	109	scm_print_state *pstate);
	110	SCM_INTERNAL SCM scm_i_capture_current_stack (void);
	111	SCM_INTERNAL SCM scm_i_vm_capture_stack (SCM stack_base, SCM fp, SCM *sp,
	112	scm_t_uint8 ra, scm_t_uint8 mvra,
	113	scm_t_dynstack *dynstack,
	114	scm_t_uint32 flags);
	115	SCM_INTERNAL void scm_i_vm_cont_print (SCM x, SCM port,
	116	scm_print_state *pstate);
	117	SCM_INTERNAL void scm_bootstrap_vm (void);
	118	SCM_INTERNAL void scm_init_vm (void);
	119
	120	#endif /* _SCM_VM_H_ */
	121
	122	/*
	123	Local Variables:
	124	c-file-style: "gnu"
	125	End:
	126	*/