HCoop Git - bpt/guile.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* classes: h_files */
	2
	3	#ifndef SCM_DEBUG_H
	4	#define SCM_DEBUG_H
	5
	6	/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,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/options.h"
	30	\f
	31
	32	/* {Evaluator}
	33	*/
	34
	35	typedef union scm_t_debug_info
	36	{
	37	struct { SCM exp, env; } e;
	38	struct { SCM proc, args; } a;
	39	SCM id;
	40	} scm_t_debug_info;
	41
	42	\f
	43
	44	SCM_API SCM scm_local_eval (SCM exp, SCM env);
	45
	46	SCM_API SCM scm_reverse_lookup (SCM env, SCM data);
	47	SCM_API SCM scm_procedure_source (SCM proc);
	48	SCM_API SCM scm_procedure_name (SCM proc);
	49	SCM_API SCM scm_debug_options (SCM setting);
	50
	51	SCM_INTERNAL void scm_init_debug (void);
	52
	53	#ifdef GUILE_DEBUG
	54	SCM_API SCM scm_debug_hang (SCM obj);
	55	#endif /GUILE_DEBUG/
	56
	57	#endif /* SCM_DEBUG_H */
	58
	59	/*
	60	Local Variables:
	61	c-file-style: "gnu"
	62	End:
	63	*/