[bpt/guile.git] / libguile / goops.h

/* classes: h_files */

#ifndef GOOPSH
#define GOOPSH
/*	Copyright (C) 1998, 1999, 2000 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.  */
\f

/* This software is a derivative work of other copyrighted softwares; the
 * copyright notices of these softwares are placed in the file COPYRIGHTS
 *
 * This file is based upon stklos.h from the STk distribution by
 * Erick Gallesio <eg@unice.fr>.
 */

#include "libguile/__scm.h"

#include "libguile/validate.h"

/*
 * scm_class_class
 */

#define SCM_CLASS_CLASS_LAYOUT "pruosrpwpopopwururururururururpwpwpwpwpwpwpwpwpwpwpwpw"

#define scm_si_layout		  0 /* the struct layout */
#define scm_si_vcell		  1 
#define scm_si_vtable		  2 
#define scm_si_print		  3 /* the struct print closure */
#define scm_si_proc		  4
#define scm_si_setter		  5 

#define scm_si_goops_fields	  6

/* Defined in libguile/objects.c:
#define scm_si_redefined	  6    The class to which class was redefined.
#define scm_si_hashsets	 	  7
*/
#define scm_si_name 		 15 /* a symbol */
#define scm_si_direct_supers 	 16 /* (class ...) */
#define scm_si_direct_slots	 17 /* ((name . options) ...) */
#define scm_si_direct_subclasses 18 /* (class ...) */
#define scm_si_direct_methods	 19 /* (methods ...) */
#define scm_si_cpl		 20 /* (class ...) */
#define scm_si_slotdef_class	 21 
#define scm_si_slots		 22 /* ((name . options) ...) */
#define scm_si_name_access	 23 
#define scm_si_keyword_access	 24 
#define scm_si_nfields		 25 /* an integer */
#define scm_si_environment	 26 /* The environment in which class is built  */
#define SCM_N_CLASS_SLOTS	 27

typedef struct scm_method_t {
  SCM generic_function;
  SCM specializers;
  SCM procedure;
} scm_method_t;

#define SCM_METHOD(obj) ((scm_method_t *) SCM_STRUCT_DATA (obj))

#define SCM_CLASSF_SIMPLE_METHOD    (0x004 << 20)
#define SCM_CLASSF_ACCESSOR_METHOD  (0x008 << 20)

/* Defined in libguile/objects.c */
/* #define SCM_CLASSF_PURE_GENERIC  (0x010 << 20) */

#define SCM_CLASSF_FOREIGN	    (0x020 << 20)
#define SCM_CLASSF_METACLASS        (0x040 << 20)

/* Defined in libguile/objects.c */
/* #define SCM_CLASSF_GOOPS_VALID   (0x080 << 20) */
/* #define SCM_CLASSF_GOOPS         (0x100 << 20) */
#define SCM_CLASSF_GOOPS_OR_VALID (SCM_CLASSF_GOOPS | SCM_CLASSF_GOOPS_VALID)

#define SCM_CLASSF_INHERIT	 (~(SCM_CLASSF_PURE_GENERIC \
				    | SCM_CLASSF_SIMPLE_METHOD \
				    | SCM_CLASSF_ACCESSOR_METHOD \
				    | SCM_STRUCTF_LIGHT) \
				  & SCM_CLASSF_MASK)

#define SCM_INST(x)	       SCM_STRUCT_DATA (x)
#define SCM_INST_TYPE(x)       SCM_OBJ_CLASS_FLAGS (x)
/* Also defined in libguuile/objects.c */
#define SCM_CLASS_OF(x)        SCM_STRUCT_VTABLE (x)
#define SCM_ACCESSORS_OF(x)    (SCM_STRUCT_VTABLE_DATA (x)[scm_si_getters_n_setters])
#define SCM_NUMBER_OF_SLOTS(x)\
 (SCM_UNPACK (SCM_STRUCT_DATA (x)[scm_struct_i_n_words]) \
  - scm_struct_n_extra_words) \

#define SCM_INSTANCEP(x)       (SCM_STRUCTP (x) \
			       && (SCM_INST_TYPE (x) & SCM_CLASSF_GOOPS))
#define SCM_VALIDATE_INSTANCE(pos, x) SCM_MAKE_VALIDATE (pos, x, INSTANCEP)

#define SCM_PUREGENERICP(x)    (SCM_INST_TYPE(x) & SCM_CLASSF_PURE_GENERIC)
#define SCM_SIMPLEMETHODP(x)   (SCM_INST_TYPE(x) & SCM_CLASSF_SIMPLE_METHOD)
#define SCM_ACCESSORP(x)       (SCM_INST_TYPE(x) & SCM_CLASSF_ACCESSOR_METHOD)
#define SCM_VALIDATE_ACCESSOR(pos, x) SCM_MAKE_VALIDATE (pos, x, ACCESSORP)
#define SCM_FASTMETHODP(x)     (SCM_INST_TYPE(x) \
				& (SCM_CLASSF_ACCESSOR_METHOD \
				   | SCM_CLASSF_SIMPLE_METHOD))

#define SCM_SLOT(x, i)         (SCM_INST(x)[i])
#define SCM_SUBCLASSP(c1, c2)  (!SCM_FALSEP (scm_c_memq (c2, SCM_SLOT (c1, scm_si_cpl))))
#define SCM_IS_A_P(x, c)       (SCM_NIMP (x) \
				&& SCM_INSTANCEP (x) \
				&& SCM_SUBCLASSP (SCM_CLASS_OF (x), c))

#define SCM_CLASSP(x)   (SCM_STRUCTP (x) \
			&& SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_METACLASS)
#define SCM_VALIDATE_CLASS(pos, x) SCM_MAKE_VALIDATE (pos, x, CLASSP)
#define SCM_GENERICP(x) (SCM_INSTANCEP (x) \
			&& SCM_SUBCLASSP (SCM_CLASS_OF (x), scm_class_generic))
#define SCM_VALIDATE_GENERIC(pos, x) SCM_MAKE_VALIDATE (pos, x, GENERICP)
#define SCM_METHODP(x)  (SCM_INSTANCEP (x) \
			&& SCM_SUBCLASSP(SCM_CLASS_OF(x), scm_class_method))
#define SCM_VALIDATE_METHOD(pos, x) SCM_MAKE_VALIDATE (pos, x, METHODP)

#define SCM_MCACHE_N_SPECIALIZED(C) SCM_CADDR (C)
#define SCM_SET_MCACHE_N_SPECIALIZED(C, X) SCM_SETCAR (SCM_CDDR (C), X)

#define SCM_INITIAL_MCACHE_SIZE	  1

#define scm_si_getters_n_setters scm_si_name_access

#define scm_si_constructor	 SCM_N_CLASS_SLOTS
#define scm_si_destructor	 SCM_N_CLASS_SLOTS + 1

#define scm_si_methods		 0  /* offset of methods slot in a <generic> */
#define scm_si_n_specialized	 1
#define scm_si_used_by		 2
#define scm_si_cache_mutex	 3

#define scm_si_generic_function	 0  /* offset of gf    slot in a <method> */
#define scm_si_specializers	 1  /* offset of spec. slot in a <method> */

#define scm_si_procedure 	 2  /* offset of proc. slot in a <method> */
#define scm_si_code_table	 3  /* offset of code. slot in a <method> */

/* C interface */
extern SCM scm_class_top, scm_class_object, scm_class_class;
extern SCM scm_class_entity, scm_class_entity_with_setter;
extern SCM scm_class_generic, scm_class_generic_with_setter, scm_class_method;
extern SCM scm_class_simple_method, scm_class_accessor;
extern SCM scm_class_procedure_class;
extern SCM scm_class_operator_class, scm_class_operator_with_setter_class;
extern SCM scm_class_entity_class;
extern SCM scm_class_number, scm_class_list;
extern SCM scm_class_keyword;
extern SCM scm_class_port, scm_class_input_output_port;
extern SCM scm_class_input_port, scm_class_output_port;
extern SCM scm_class_foreign_class, scm_class_foreign_object;
extern SCM scm_class_foreign_slot;
extern SCM scm_class_self, scm_class_protected;
extern SCM scm_class_opaque, scm_class_read_only;
extern SCM scm_class_protected_opaque, scm_class_protected_read_only;
extern SCM scm_class_scm;
extern SCM scm_class_int, scm_class_float, scm_class_double;
extern const char *scm_s_slot_set_x;

extern SCM scm_module_goops;

SCM scm_goops_version (void);
SCM scm_oldfmt (SCM);
char *scm_c_oldfmt0 (char *);
char *scm_c_oldfmt (char *, int n);
void scm_load_goops (void);
SCM scm_make_foreign_object (SCM cls, SCM initargs);
SCM scm_make_class (SCM meta, char *s_name, SCM supers, size_t size,
		    void * (*constructor) (SCM initargs),
		    size_t (*destructor) (void *));
void scm_add_slot (SCM c, char *slot, SCM slot_class,
		   SCM (*getter) (SCM obj),
		   SCM (*setter) (SCM obj, SCM x),
		   char *accessor_name);
SCM scm_wrap_object (SCM c, void *);
SCM scm_wrap_component (SCM c, SCM obj, void *);
SCM scm_ensure_accessor (SCM name);
void scm_add_method (SCM gf, SCM m);

/* Low level functions exported */
SCM scm_make_next_method (SCM methods, SCM args, SCM gf);
SCM scm_basic_basic_make_class (SCM c, SCM name, SCM dsupers, SCM dslots);
SCM scm_basic_make_class (SCM c, SCM name, SCM dsupers, SCM dslots);

/* Primitives exported */
SCM scm_sys_allocate_instance (SCM c, SCM initargs);
SCM scm_sys_set_object_setter_x (SCM obj, SCM setter);
SCM scm_slot_ref (SCM obj, SCM slot_name);
SCM scm_slot_set_x (SCM obj, SCM slot_name, SCM value);

SCM scm_compute_applicable_methods (SCM gf, SCM args, int len, int scm_find_method);
SCM scm_sys_compute_applicable_methods (SCM gf, SCM args);
SCM scm_m_atslot_ref (SCM xorig, SCM env);
SCM scm_m_atslot_set_x (SCM xorig, SCM env);
SCM scm_m_atdispatch (SCM xorig, SCM env);
#ifdef GUILE_DEBUG
SCM scm_pure_generic_p (SCM obj);
#endif
extern void scm_init_oop_goops_goopscore_module (void);

SCM scm_sys_compute_slots (SCM c); 
SCM scm_i_get_keyword (SCM key, SCM l, int len, SCM default_value, const char *subr); 
SCM scm_get_keyword (SCM key, SCM l, SCM default_value); 
SCM scm_sys_initialize_object (SCM obj, SCM initargs); 
SCM scm_sys_prep_layout_x (SCM c); 
SCM scm_sys_inherit_magic_x (SCM c, SCM dsupers); 
SCM scm_instance_p (SCM obj); 
SCM scm_class_name (SCM obj); 
SCM scm_class_direct_supers (SCM obj); 
SCM scm_class_direct_slots (SCM obj); 
SCM scm_class_direct_subclasses (SCM obj); 
SCM scm_class_direct_methods (SCM obj); 
SCM scm_class_precedence_list (SCM obj); 
SCM scm_class_slots (SCM obj); 
SCM scm_class_environment (SCM obj); 
SCM scm_generic_function_name (SCM obj); 
SCM scm_generic_function_methods (SCM obj); 
SCM scm_method_generic_function (SCM obj); 
SCM scm_method_specializers (SCM obj); 
SCM scm_method_procedure (SCM obj); 
SCM scm_accessor_method_slot_definition (SCM obj); 
SCM scm_sys_fast_slot_ref (SCM obj, SCM index); 
SCM scm_sys_fast_slot_set_x (SCM obj, SCM index, SCM value); 
SCM scm_slot_ref_using_class (SCM cls, SCM obj, SCM slot_name); 
SCM scm_slot_set_using_class_x (SCM cls, SCM obj, SCM slot_name, SCM value); 
SCM scm_slot_bound_using_class_p (SCM cls, SCM obj, SCM slot_name); 
SCM scm_slot_exists_using_class_p (SCM cls, SCM obj, SCM slot_name); 
SCM scm_slot_bound_p (SCM obj, SCM slot_name); 
SCM scm_slots_exists_p (SCM obj, SCM slot_name); 
SCM scm_sys_modify_instance (SCM old, SCM newinst); 
SCM scm_sys_modify_class (SCM old, SCM newcls);
SCM scm_sys_invalidate_class (SCM cls);
SCM scm_make_method_cache (SCM gf);
SCM scm_sys_invalidate_method_cache_x (SCM gf);
SCM scm_generic_capability_p (SCM proc);
SCM scm_enable_primitive_generic_x (SCM subrs);
SCM scm_primitive_generic_generic (SCM subr);
SCM stklos_version (void); 
SCM scm_make (SCM args); 
SCM scm_find_method (SCM args); 
SCM scm_sys_method_more_specific_p (SCM m1, SCM m2, SCM targs); 
void scm_init_goops (void); 

#endif /* GOOPSH */
Commit	Line	Data
0518d3e2 MD	1	/* classes: h_files */
	2
	3	#ifndef GOOPSH
	4	#define GOOPSH
	5	/* Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
	6	*
	7	* This program is free software; you can redistribute it and/or modify
	8	* it under the terms of the GNU General Public License as published by
	9	* the Free Software Foundation; either version 2, or (at your option)
	10	* any later version.
	11	*
	12	* This program is distributed in the hope that it will be useful,
	13	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	* GNU General Public License for more details.
	16	*
	17	* You should have received a copy of the GNU General Public License
	18	* along with this software; see the file COPYING. If not, write to
	19	* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
	20	* Boston, MA 02111-1307 USA
	21	*
	22	* As a special exception, the Free Software Foundation gives permission
	23	* for additional uses of the text contained in its release of GUILE.
	24	*
	25	* The exception is that, if you link the GUILE library with other files
	26	* to produce an executable, this does not by itself cause the
	27	* resulting executable to be covered by the GNU General Public License.
	28	* Your use of that executable is in no way restricted on account of
	29	* linking the GUILE library code into it.
	30	*
	31	* This exception does not however invalidate any other reasons why
	32	* the executable file might be covered by the GNU General Public License.
	33	*
	34	* This exception applies only to the code released by the
	35	* Free Software Foundation under the name GUILE. If you copy
	36	* code from other Free Software Foundation releases into a copy of
	37	* GUILE, as the General Public License permits, the exception does
	38	* not apply to the code that you add in this way. To avoid misleading
	39	* anyone as to the status of such modified files, you must delete
	40	* this exception notice from them.
	41	*
	42	* If you write modifications of your own for GUILE, it is your choice
	43	* whether to permit this exception to apply to your modifications.
	44	* If you do not wish that, delete this exception notice. */
	45	\f
	46
	47	/* This software is a derivative work of other copyrighted softwares; the
	48	* copyright notices of these softwares are placed in the file COPYRIGHTS
	49	*
	50	* This file is based upon stklos.h from the STk distribution by
	51	* Erick Gallesio <eg@unice.fr>.
	52	*/
	53
	54	#include "libguile/__scm.h"
	55
398d8ee1 KN	56	#include "libguile/validate.h"
398d8ee1 KN	57
0518d3e2 MD	58	/*
	59	* scm_class_class
	60	*/
	61
	62	#define SCM_CLASS_CLASS_LAYOUT "pruosrpwpopopwururururururururpwpwpwpwpwpwpwpwpwpwpwpw"
	63
	64	#define scm_si_layout 0 /* the struct layout */
	65	#define scm_si_vcell 1
	66	#define scm_si_vtable 2
	67	#define scm_si_print 3 /* the struct print closure */
	68	#define scm_si_proc 4
	69	#define scm_si_setter 5
	70
	71	#define scm_si_goops_fields 6
	72
	73	/* Defined in libguile/objects.c:
	74	#define scm_si_redefined 6 The class to which class was redefined.
	75	#define scm_si_hashsets 7
	76	*/
	77	#define scm_si_name 15 /* a symbol */
	78	#define scm_si_direct_supers 16 /* (class ...) */
	79	#define scm_si_direct_slots 17 /* ((name . options) ...) */
	80	#define scm_si_direct_subclasses 18 /* (class ...) */
	81	#define scm_si_direct_methods 19 /* (methods ...) */
	82	#define scm_si_cpl 20 /* (class ...) */
	83	#define scm_si_slotdef_class 21
	84	#define scm_si_slots 22 /* ((name . options) ...) */
	85	#define scm_si_name_access 23
	86	#define scm_si_keyword_access 24
	87	#define scm_si_nfields 25 /* an integer */
	88	#define scm_si_environment 26 /* The environment in which class is built */
	89	#define SCM_N_CLASS_SLOTS 27
	90
	91	typedef struct scm_method_t {
	92	SCM generic_function;
	93	SCM specializers;
	94	SCM procedure;
	95	} scm_method_t;
	96
	97	#define SCM_METHOD(obj) ((scm_method_t *) SCM_STRUCT_DATA (obj))
	98
	99	#define SCM_CLASSF_SIMPLE_METHOD (0x004 << 20)
	100	#define SCM_CLASSF_ACCESSOR_METHOD (0x008 << 20)
	101
	102	/* Defined in libguile/objects.c */
	103	/* #define SCM_CLASSF_PURE_GENERIC (0x010 << 20) */
	104
	105	#define SCM_CLASSF_FOREIGN (0x020 << 20)
	106	#define SCM_CLASSF_METACLASS (0x040 << 20)
	107
	108	/* Defined in libguile/objects.c */
	109	/* #define SCM_CLASSF_GOOPS_VALID (0x080 << 20) */
	110	/* #define SCM_CLASSF_GOOPS (0x100 << 20) */
	111	#define SCM_CLASSF_GOOPS_OR_VALID (SCM_CLASSF_GOOPS \| SCM_CLASSF_GOOPS_VALID)
	112
	113	#define SCM_CLASSF_INHERIT (~(SCM_CLASSF_PURE_GENERIC \
	114	\| SCM_CLASSF_SIMPLE_METHOD \
	115	\| SCM_CLASSF_ACCESSOR_METHOD \
	116	\| SCM_STRUCTF_LIGHT) \
	117	& SCM_CLASSF_MASK)
	118
	119	#define SCM_INST(x) SCM_STRUCT_DATA (x)
	120	#define SCM_INST_TYPE(x) SCM_OBJ_CLASS_FLAGS (x)
	121	/* Also defined in libguuile/objects.c */
122	#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
123	#define SCM_ACCESSORS_OF(x) (SCM_STRUCT_VTABLE_DATA (x)[scm_si_getters_n_setters])
124	#define SCM_NUMBER_OF_SLOTS(x)\
125	(SCM_UNPACK (SCM_STRUCT_DATA (x)[scm_struct_i_n_words]) \
126	- scm_struct_n_extra_words) \
127
128	#define SCM_INSTANCEP(x) (SCM_STRUCTP (x) \
129	&& (SCM_INST_TYPE (x) & SCM_CLASSF_GOOPS))
398d8ee1	130	#define SCM_VALIDATE_INSTANCE(pos, x) SCM_MAKE_VALIDATE (pos, x, INSTANCEP)
0518d3e2 MD	131
	132	#define SCM_PUREGENERICP(x) (SCM_INST_TYPE(x) & SCM_CLASSF_PURE_GENERIC)
	133	#define SCM_SIMPLEMETHODP(x) (SCM_INST_TYPE(x) & SCM_CLASSF_SIMPLE_METHOD)
	134	#define SCM_ACCESSORP(x) (SCM_INST_TYPE(x) & SCM_CLASSF_ACCESSOR_METHOD)
398d8ee1	135	#define SCM_VALIDATE_ACCESSOR(pos, x) SCM_MAKE_VALIDATE (pos, x, ACCESSORP)
0518d3e2 MD	136	#define SCM_FASTMETHODP(x) (SCM_INST_TYPE(x) \
	137	& (SCM_CLASSF_ACCESSOR_METHOD \
	138	\| SCM_CLASSF_SIMPLE_METHOD))
	139
	140	#define SCM_SLOT(x, i) (SCM_INST(x)[i])
79a3dafe	141	#define SCM_SUBCLASSP(c1, c2) (!SCM_FALSEP (scm_c_memq (c2, SCM_SLOT (c1, scm_si_cpl))))
0518d3e2 MD	142	#define SCM_IS_A_P(x, c) (SCM_NIMP (x) \
	143	&& SCM_INSTANCEP (x) \
	144	&& SCM_SUBCLASSP (SCM_CLASS_OF (x), c))
	145
398d8ee1 KN	146	#define SCM_CLASSP(x) (SCM_STRUCTP (x) \
	147	&& SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_METACLASS)
	148	#define SCM_VALIDATE_CLASS(pos, x) SCM_MAKE_VALIDATE (pos, x, CLASSP)
	149	#define SCM_GENERICP(x) (SCM_INSTANCEP (x) \
	150	&& SCM_SUBCLASSP (SCM_CLASS_OF (x), scm_class_generic))
	151	#define SCM_VALIDATE_GENERIC(pos, x) SCM_MAKE_VALIDATE (pos, x, GENERICP)
	152	#define SCM_METHODP(x) (SCM_INSTANCEP (x) \
	153	&& SCM_SUBCLASSP(SCM_CLASS_OF(x), scm_class_method))
	154	#define SCM_VALIDATE_METHOD(pos, x) SCM_MAKE_VALIDATE (pos, x, METHODP)
	155
0518d3e2 MD	156	#define SCM_MCACHE_N_SPECIALIZED(C) SCM_CADDR (C)
	157	#define SCM_SET_MCACHE_N_SPECIALIZED(C, X) SCM_SETCAR (SCM_CDDR (C), X)
	158
	159	#define SCM_INITIAL_MCACHE_SIZE 1
	160
	161	#define scm_si_getters_n_setters scm_si_name_access
	162
	163	#define scm_si_constructor SCM_N_CLASS_SLOTS
	164	#define scm_si_destructor SCM_N_CLASS_SLOTS + 1
	165
	166	#define scm_si_methods 0 /* offset of methods slot in a <generic> */
	167	#define scm_si_n_specialized 1
	168	#define scm_si_used_by 2
	169	#define scm_si_cache_mutex 3
	170
	171	#define scm_si_generic_function 0 /* offset of gf slot in a <method> */
	172	#define scm_si_specializers 1 /* offset of spec. slot in a <method> */
	173
	174	#define scm_si_procedure 2 /* offset of proc. slot in a <method> */
	175	#define scm_si_code_table 3 /* offset of code. slot in a <method> */
	176
	177	/* C interface */
	178	extern SCM scm_class_top, scm_class_object, scm_class_class;
	179	extern SCM scm_class_entity, scm_class_entity_with_setter;
	180	extern SCM scm_class_generic, scm_class_generic_with_setter, scm_class_method;
	181	extern SCM scm_class_simple_method, scm_class_accessor;
	182	extern SCM scm_class_procedure_class;
	183	extern SCM scm_class_operator_class, scm_class_operator_with_setter_class;
	184	extern SCM scm_class_entity_class;
	185	extern SCM scm_class_number, scm_class_list;
	186	extern SCM scm_class_keyword;
	187	extern SCM scm_class_port, scm_class_input_output_port;
	188	extern SCM scm_class_input_port, scm_class_output_port;
	189	extern SCM scm_class_foreign_class, scm_class_foreign_object;
	190	extern SCM scm_class_foreign_slot;
	191	extern SCM scm_class_self, scm_class_protected;
	192	extern SCM scm_class_opaque, scm_class_read_only;
	193	extern SCM scm_class_protected_opaque, scm_class_protected_read_only;
	194	extern SCM scm_class_scm;
	195	extern SCM scm_class_int, scm_class_float, scm_class_double;
	196	extern const char *scm_s_slot_set_x;
	197
	198	extern SCM scm_module_goops;
	199
	200	SCM scm_goops_version (void);
	201	SCM scm_oldfmt (SCM);
	202	char scm_c_oldfmt0 (char );
	203	char scm_c_oldfmt (char , int n);
	204	void scm_load_goops (void);
42b586db	205	SCM scm_make_foreign_object (SCM cls, SCM initargs);
0518d3e2 MD	206	SCM scm_make_class (SCM meta, char *s_name, SCM supers, size_t size,
	207	void * (*constructor) (SCM initargs),
	208	size_t (destructor) (void ));
	209	void scm_add_slot (SCM c, char *slot, SCM slot_class,
	210	SCM (*getter) (SCM obj),
	211	SCM (*setter) (SCM obj, SCM x),
	212	char *accessor_name);
	213	SCM scm_wrap_object (SCM c, void *);
	214	SCM scm_wrap_component (SCM c, SCM obj, void *);
	215	SCM scm_ensure_accessor (SCM name);
	216	void scm_add_method (SCM gf, SCM m);
	217
	218	/* Low level functions exported */
	219	SCM scm_make_next_method (SCM methods, SCM args, SCM gf);
	220	SCM scm_basic_basic_make_class (SCM c, SCM name, SCM dsupers, SCM dslots);
	221	SCM scm_basic_make_class (SCM c, SCM name, SCM dsupers, SCM dslots);
	222
	223	/* Primitives exported */
	224	SCM scm_sys_allocate_instance (SCM c, SCM initargs);
	225	SCM scm_sys_set_object_setter_x (SCM obj, SCM setter);
	226	SCM scm_slot_ref (SCM obj, SCM slot_name);
	227	SCM scm_slot_set_x (SCM obj, SCM slot_name, SCM value);
	228
	229	SCM scm_compute_applicable_methods (SCM gf, SCM args, int len, int scm_find_method);
	230	SCM scm_sys_compute_applicable_methods (SCM gf, SCM args);
	231	SCM scm_m_atslot_ref (SCM xorig, SCM env);
	232	SCM scm_m_atslot_set_x (SCM xorig, SCM env);
	233	SCM scm_m_atdispatch (SCM xorig, SCM env);
	234	#ifdef GUILE_DEBUG
	235	SCM scm_pure_generic_p (SCM obj);
	236	#endif
	237	extern void scm_init_oop_goops_goopscore_module (void);
	238
	239	SCM scm_sys_compute_slots (SCM c);
	240	SCM scm_i_get_keyword (SCM key, SCM l, int len, SCM default_value, const char *subr);
	241	SCM scm_get_keyword (SCM key, SCM l, SCM default_value);
	242	SCM scm_sys_initialize_object (SCM obj, SCM initargs);
	243	SCM scm_sys_prep_layout_x (SCM c);
	244	SCM scm_sys_inherit_magic_x (SCM c, SCM dsupers);
	245	SCM scm_instance_p (SCM obj);
	246	SCM scm_class_name (SCM obj);
	247	SCM scm_class_direct_supers (SCM obj);
	248	SCM scm_class_direct_slots (SCM obj);
	249	SCM scm_class_direct_subclasses (SCM obj);
	250	SCM scm_class_direct_methods (SCM obj);
	251	SCM scm_class_precedence_list (SCM obj);
	252	SCM scm_class_slots (SCM obj);
	253	SCM scm_class_environment (SCM obj);
	254	SCM scm_generic_function_name (SCM obj);
	255	SCM scm_generic_function_methods (SCM obj);
	256	SCM scm_method_generic_function (SCM obj);
	257	SCM scm_method_specializers (SCM obj);
	258	SCM scm_method_procedure (SCM obj);
	259	SCM scm_accessor_method_slot_definition (SCM obj);
	260	SCM scm_sys_fast_slot_ref (SCM obj, SCM index);
	261	SCM scm_sys_fast_slot_set_x (SCM obj, SCM index, SCM value);
42b586db MD	262	SCM scm_slot_ref_using_class (SCM cls, SCM obj, SCM slot_name);
	263	SCM scm_slot_set_using_class_x (SCM cls, SCM obj, SCM slot_name, SCM value);
	264	SCM scm_slot_bound_using_class_p (SCM cls, SCM obj, SCM slot_name);
	265	SCM scm_slot_exists_using_class_p (SCM cls, SCM obj, SCM slot_name);
0518d3e2 MD	266	SCM scm_slot_bound_p (SCM obj, SCM slot_name);
0518d3e2 MD	267	SCM scm_slots_exists_p (SCM obj, SCM slot_name);
42b586db MD	268	SCM scm_sys_modify_instance (SCM old, SCM newinst);
	269	SCM scm_sys_modify_class (SCM old, SCM newcls);
	270	SCM scm_sys_invalidate_class (SCM cls);
0518d3e2 MD	271	SCM scm_make_method_cache (SCM gf);
	272	SCM scm_sys_invalidate_method_cache_x (SCM gf);
	273	SCM scm_generic_capability_p (SCM proc);
	274	SCM scm_enable_primitive_generic_x (SCM subrs);
	275	SCM scm_primitive_generic_generic (SCM subr);
	276	SCM stklos_version (void);
	277	SCM scm_make (SCM args);
	278	SCM scm_find_method (SCM args);
	279	SCM scm_sys_method_more_specific_p (SCM m1, SCM m2, SCM targs);
	280	void scm_init_goops (void);
	281
	282	#endif /* GOOPSH */