#include <irrlicht/irrlicht.h>
#include <libguile.h>
#include "ISceneManager.h"
+#include "util.h"
extern "C" {
init_scene_manager_type ();
}
- static SCM scene_manager_type;
-
- void
- init_scene_manager_type (void)
- {
- SCM name, slots;
- scm_t_struct_finalize finalizer;
-
- name = scm_from_utf8_symbol ("scene-manager");
- slots = scm_list_1 (scm_from_utf8_symbol ("data"));
- finalizer = NULL;
-
- scene_manager_type =
- scm_make_foreign_object_type (name, slots, finalizer);
- }
-
- SCM
- wrap_scene_manager (irr::scene::ISceneManager* scene_manager)
- {
- return scm_make_foreign_object_1 (scene_manager_type, scene_manager);
- }
-
- irr::scene::ISceneManager*
- unwrap_scene_manager (SCM scene_manager_obj)
- {
- scm_assert_foreign_object_type (scene_manager_type, scene_manager_obj);
- return (irr::scene::ISceneManager*)scm_foreign_object_ref (scene_manager_obj, 0);
- }
+ DEFINE_WRAPPED_TYPE (irr::scene::ISceneManager*, "scene-manager",
+ init_scene_manager_type,
+ wrap_scene_manager, unwrap_scene_manager);
}