- static SCM gui_environment_type;
-
- void
- init_gui_environment_type (void)
- {
- SCM name, slots;
- scm_t_struct_finalize finalizer;
-
- name = scm_from_utf8_symbol ("gui_environment");
- slots = scm_list_1 (scm_from_utf8_symbol ("data"));
- finalizer = NULL;
-
- gui_environment_type =
- scm_make_foreign_object_type (name, slots, finalizer);
- }
-
- SCM
- wrap_gui_environment (irr::gui::IGUIEnvironment* gui_environment)
- {
- return scm_make_foreign_object_1 (gui_environment_type, gui_environment);
- }
-
- irr::gui::IGUIEnvironment*
- unwrap_gui_environment (SCM gui_environment_obj)
- {
- scm_assert_foreign_object_type (gui_environment_type, gui_environment_obj);
- return (irr::gui::IGUIEnvironment*)scm_foreign_object_ref (gui_environment_obj, 0);
- }
+ DEFINE_WRAPPED_TYPE (irr::gui::IGUIEnvironment*, "gui-environment",
+ init_gui_environment_type,
+ wrap_gui_environment, unwrap_gui_environment);