#include <libguile.h>
#include "animated-mesh-md2.h"
-
using namespace irr;
-
scene::EMD2_ANIMATION_TYPE
scm_to_md2_animation_type (SCM md2_animation_type)
{
#include "animated-mesh-scene-node.h"
#include "gsubr.h"
-
using namespace irr;
-
SCM
IAnimatedMeshSceneNode_setFrameLoop (SCM animated_mesh_scene_node,
SCM begin,
scm_to_int32 (end)));
}
-
SCM
IAnimatedMeshSceneNode_setMD2Animation (SCM animated_mesh_scene_node,
SCM anim)
setMD2Animation (scm_to_md2_animation_type (anim)));
}
-
-extern "C" {
-
- void
- init_animated_mesh_scene_node (void)
- {
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0,
- IAnimatedMeshSceneNode_setFrameLoop);
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0,
- IAnimatedMeshSceneNode_setMD2Animation);
- }
-
+void
+init_animated_mesh_scene_node (void)
+{
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setFrameLoop", 3, 0, 0,
+ IAnimatedMeshSceneNode_setFrameLoop);
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMD2Animation", 2, 0, 0,
+ IAnimatedMeshSceneNode_setMD2Animation);
}
#ifndef __GUILE_IRRLICHT_ANIMATED_MESH_SCENE_NODE_H_INCLUDED__
#define __GUILE_IRRLICHT_ANIMATED_MESH_SCENE_NODE_H_INCLUDED__
-extern "C" {
- void
- init_animated_mesh_scene_node (void);
-}
+void
+init_animated_mesh_scene_node (void);
#endif
#include "animated-mesh.h"
#include "gsubr.h"
-
using namespace irr;
-
SCM
IAnimatedMesh_setAnimationSpeed (SCM animated_mesh,
SCM frames_per_second)
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_animated_mesh (void)
- {
- DEFINE_GSUBR ("IAnimatedMesh_setAnimationSpeed", 2, 0, 0, IAnimatedMesh_setAnimationSpeed);
- }
-
+void
+init_animated_mesh (void)
+{
+ DEFINE_GSUBR ("IAnimatedMesh_setAnimationSpeed", 2, 0, 0, IAnimatedMesh_setAnimationSpeed);
}
#ifndef __GUILE_IRRLICHT_ANIMATED_MESH_H_INCLUDED__
#define __GUILE_IRRLICHT_ANIMATED_MESH_H_INCLUDED__
-extern "C" {
- void
- init_animated_mesh (void);
-}
+void
+init_animated_mesh (void);
#endif
#include "gsubr.h"
#include "vector3d.h"
-
using namespace irr;
-
SCM
aabbox3d_addInternalPoint (SCM box3d,
SCM point)
return SCM_UNSPECIFIED;
}
-
SCM
aabbox3d_make ()
{
return scm_from_pointer ((void*)aabbox, NULL);
}
-
SCM
aabbox3d_reset (SCM box3d,
SCM init_value)
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_box3d (void)
- {
- DEFINE_GSUBR ("aabbox3d_addInternalPoint", 2, 0, 0, aabbox3d_addInternalPoint);
- DEFINE_GSUBR ("aabbox3d_make", 0, 0, 0, aabbox3d_make);
- DEFINE_GSUBR ("aabbox3d_reset", 2, 0, 0, aabbox3d_reset);
- }
-
+void
+init_box3d (void)
+{
+ DEFINE_GSUBR ("aabbox3d_addInternalPoint", 2, 0, 0, aabbox3d_addInternalPoint);
+ DEFINE_GSUBR ("aabbox3d_make", 0, 0, 0, aabbox3d_make);
+ DEFINE_GSUBR ("aabbox3d_reset", 2, 0, 0, aabbox3d_reset);
}
#ifndef __GUILE_IRRLICHT_AABBOX_3D_H_INCLUDED__
#define __GUILE_IRRLICHT_AABBOX_3D_H_INCLUDED__
-extern "C" {
- void
- init_box3d (void);
-}
+void
+init_box3d (void);
#endif
#include <libguile.h>
#include "color.h"
-
using namespace irr;
-
SCM
scm_from_color (video::SColor color)
{
scm_from_uint32 (color.getBlue ()));
}
-
video::SColor
scm_to_color (SCM color)
{
#include "gsubr.h"
#include "position2d.h"
-
using namespace irr;
-
SCM
ICursorControl_getPosition (SCM cursor_control)
{
(((gui::ICursorControl*)scm_to_pointer (cursor_control))->getPosition ());
}
-
SCM
ICursorControl_setPosition (SCM cursor_control,
SCM position)
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_cursor_control (void)
- {
- DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition);
- DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition);
- }
-
+void
+init_cursor_control (void)
+{
+ DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition);
+ DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition);
}
#ifndef __GUILE_IRRLICHT_CURSOR_CONTROL_H_INCLUDED__
#define __GUILE_IRRLICHT_CURSOR_CONTROL_H_INCLUDED__
-extern "C" {
- void
- init_cursor_control (void);
-}
+void
+init_cursor_control (void);
#endif
#include "gsubr.h"
#include "wchar.h"
-
using namespace irr;
-
SCM
irr_createDevice (SCM device_type,
SCM window_size,
return scm_from_pointer ((void*)device, NULL);
}
-
SCM
IrrlichtDevice_getCursorControl (SCM device)
{
return scm_from_pointer ((void*)cursor_control, NULL);
}
-
SCM
IrrlichtDevice_getFileSystem (SCM device)
{
return scm_from_pointer ((void*)file_system, NULL);
}
-
SCM
IrrlichtDevice_getGUIEnvironment (SCM device)
{
return scm_from_pointer ((void*)gui_env, NULL);
}
-
SCM
IrrlichtDevice_getSceneManager (SCM device)
{
return scm_from_pointer ((void*)manager, NULL);
}
-
SCM
IrrlichtDevice_getTimer (SCM device)
{
return scm_from_pointer ((void*)timer, NULL);
}
-
SCM
IrrlichtDevice_getVideoDriver (SCM device)
{
return scm_from_pointer ((void*)driver, NULL);
}
-
SCM
IrrlichtDevice_isWindowActive (SCM device)
{
(((IrrlichtDevice*)scm_to_pointer (device))->isWindowActive ());
}
-
SCM
IrrlichtDevice_run (SCM device)
{
(((IrrlichtDevice*)scm_to_pointer (device))->run ());
}
-
template <typename TEventReceiver>
SCM
IrrlichtDevice_setEventReceiver (SCM device,
return SCM_UNSPECIFIED;
}
-
SCM
IrrlichtDevice_setResizable (SCM device,
SCM resize)
return SCM_UNSPECIFIED;
}
-
SCM
IrrlichtDevice_setWindowCaption (SCM device,
SCM text)
return SCM_UNSPECIFIED;
}
-
SCM
IrrlichtDevice_yield (SCM device)
{
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_device (void)
- {
- DEFINE_GSUBR ("createDevice", 7, 0, 0, irr_createDevice);
- DEFINE_GSUBR ("IrrlichtDevice_getCursorControl", 1, 0, 0, IrrlichtDevice_getCursorControl);
- DEFINE_GSUBR ("IrrlichtDevice_getFileSystem", 1, 0, 0, IrrlichtDevice_getFileSystem);
- DEFINE_GSUBR ("IrrlichtDevice_getGUIEnvironment", 1, 0, 0, IrrlichtDevice_getGUIEnvironment);
- DEFINE_GSUBR ("IrrlichtDevice_getSceneManager", 1, 0, 0, IrrlichtDevice_getSceneManager);
- DEFINE_GSUBR ("IrrlichtDevice_getTimer", 1, 0, 0, IrrlichtDevice_getTimer);
- DEFINE_GSUBR ("IrrlichtDevice_getVideoDriver", 1, 0, 0, IrrlichtDevice_getVideoDriver);
- DEFINE_GSUBR ("IrrlichtDevice_isWindowActive", 1, 0, 0, IrrlichtDevice_isWindowActive);
- DEFINE_GSUBR ("IrrlichtDevice_run", 1, 0, 0, IrrlichtDevice_run);
- DEFINE_GSUBR ("IrrlichtDevice_setEventReceiver_IEventReceiver", 2, 0, 0,
- IrrlichtDevice_setEventReceiver<IEventReceiver*>);
- DEFINE_GSUBR ("IrrlichtDevice_setResizable", 2, 0, 0, IrrlichtDevice_setResizable);
- DEFINE_GSUBR ("IrrlichtDevice_setWindowCaption", 2, 0, 0, IrrlichtDevice_setWindowCaption);
- DEFINE_GSUBR ("IrrlichtDevice_yield", 1, 0, 0, IrrlichtDevice_yield);
- }
-
+void
+init_device (void)
+{
+ DEFINE_GSUBR ("createDevice", 7, 0, 0, irr_createDevice);
+ DEFINE_GSUBR ("IrrlichtDevice_getCursorControl", 1, 0, 0, IrrlichtDevice_getCursorControl);
+ DEFINE_GSUBR ("IrrlichtDevice_getFileSystem", 1, 0, 0, IrrlichtDevice_getFileSystem);
+ DEFINE_GSUBR ("IrrlichtDevice_getGUIEnvironment", 1, 0, 0, IrrlichtDevice_getGUIEnvironment);
+ DEFINE_GSUBR ("IrrlichtDevice_getSceneManager", 1, 0, 0, IrrlichtDevice_getSceneManager);
+ DEFINE_GSUBR ("IrrlichtDevice_getTimer", 1, 0, 0, IrrlichtDevice_getTimer);
+ DEFINE_GSUBR ("IrrlichtDevice_getVideoDriver", 1, 0, 0, IrrlichtDevice_getVideoDriver);
+ DEFINE_GSUBR ("IrrlichtDevice_isWindowActive", 1, 0, 0, IrrlichtDevice_isWindowActive);
+ DEFINE_GSUBR ("IrrlichtDevice_run", 1, 0, 0, IrrlichtDevice_run);
+ DEFINE_GSUBR ("IrrlichtDevice_setEventReceiver_IEventReceiver", 2, 0, 0,
+ IrrlichtDevice_setEventReceiver<IEventReceiver*>);
+ DEFINE_GSUBR ("IrrlichtDevice_setResizable", 2, 0, 0, IrrlichtDevice_setResizable);
+ DEFINE_GSUBR ("IrrlichtDevice_setWindowCaption", 2, 0, 0, IrrlichtDevice_setWindowCaption);
+ DEFINE_GSUBR ("IrrlichtDevice_yield", 1, 0, 0, IrrlichtDevice_yield);
}
#ifndef __GUILE_IRRLICHT_DEVICE_H_INCLUDED__
#define __GUILE_IRRLICHT_DEVICE_H_INCLUDED__
-extern "C" {
- void
- init_device (void);
-}
+void
+init_device (void);
#endif
#include <libguile.h>
#include "dimension2d.h"
-
using namespace irr;
-
core::dimension2d<u32>
scm_to_dimension2d_u32 (SCM dimension2d)
{
#include <libguile.h>
#include "driver-types.h"
-
using namespace irr;
-
video::E_DRIVER_TYPE
scm_to_driver_type (SCM driver_type)
{
#include "gsubr.h"
#include "keycodes.h"
-
using namespace irr;
-
SCM
IEventRecevier_make (SCM proc_on_event)
{
return scm_from_pointer ((void*)receiver, NULL);
}
-
SCM
SEvent_EventType (SCM event)
{
(((SEvent*)scm_to_pointer (event))->EventType);
}
-
SCM
SEvent_SGUIEvent_Caller (SCM event)
{
return scm_from_pointer ((void*)caller, NULL);
}
-
SCM
SEvent_SGUIEvent_EventType (SCM event)
{
(((SEvent*)scm_to_pointer (event))->GUIEvent.EventType);
}
-
SCM
SEvent_SKeyInput_Key (SCM event)
{
(((SEvent*)scm_to_pointer (event))->KeyInput.Key);
}
-
SCM
SEvent_SKeyInput_PressedDown (SCM event)
{
(((SEvent*)scm_to_pointer (event))->KeyInput.PressedDown);
}
-
-extern "C" {
-
- void
- init_event_receiver (void)
- {
- DEFINE_GSUBR ("IEventRecevier_make", 1, 0, 0, IEventRecevier_make);
- DEFINE_GSUBR ("SEvent_EventType", 1, 0, 0, SEvent_EventType);
- DEFINE_GSUBR ("SEvent_SGUIEvent_Caller", 1, 0, 0, SEvent_SGUIEvent_Caller);
- DEFINE_GSUBR ("SEvent_SGUIEvent_EventType", 1, 0, 0, SEvent_SGUIEvent_EventType);
- DEFINE_GSUBR ("SEvent_SKeyInput_Key", 1, 0, 0, SEvent_SKeyInput_Key);
- DEFINE_GSUBR ("SEvent_SKeyInput_PressedDown", 1, 0, 0, SEvent_SKeyInput_PressedDown);
- }
-
+void
+init_event_receiver (void)
+{
+ DEFINE_GSUBR ("IEventRecevier_make", 1, 0, 0, IEventRecevier_make);
+ DEFINE_GSUBR ("SEvent_EventType", 1, 0, 0, SEvent_EventType);
+ DEFINE_GSUBR ("SEvent_SGUIEvent_Caller", 1, 0, 0, SEvent_SGUIEvent_Caller);
+ DEFINE_GSUBR ("SEvent_SGUIEvent_EventType", 1, 0, 0, SEvent_SGUIEvent_EventType);
+ DEFINE_GSUBR ("SEvent_SKeyInput_Key", 1, 0, 0, SEvent_SKeyInput_Key);
+ DEFINE_GSUBR ("SEvent_SKeyInput_PressedDown", 1, 0, 0, SEvent_SKeyInput_PressedDown);
}
SCM
}
}
-
SCM
scm_from_gui_event_type (gui::EGUI_EVENT_TYPE gui_event_type)
{
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
- void
- init_event_receiver (void);
-}
+void
+init_event_receiver (void);
SCM
scm_from_event_type (irr::EEVENT_TYPE event_type);
#include <libguile.h>
#include "file-archive.h"
-
using namespace irr;
-
io::E_FILE_ARCHIVE_TYPE
scm_to_file_archive_type (SCM file_archive_type)
{
#include "file-system.h"
#include "gsubr.h"
-
using namespace irr;
-
SCM
IFileSystem_addFileArchive (SCM file_system,
SCM filename,
retArchiveReference));
}
-
-extern "C" {
-
- void
- init_file_system (void)
- {
- DEFINE_GSUBR ("IFileSystem_addFileArchive", 7, 0, 0, IFileSystem_addFileArchive);
- }
-
+void
+init_file_system (void)
+{
+ DEFINE_GSUBR ("IFileSystem_addFileArchive", 7, 0, 0, IFileSystem_addFileArchive);
}
#ifndef __GUILE_IRRLICHT_FILE_SYSTEM_H_INCLUDED__
#define __GUILE_IRRLICHT_FILE_SYSTEM_H_INCLUDED__
-extern "C" {
- void
- init_file_system (void);
-}
+void
+init_file_system (void);
#endif
#include "rect.h"
#include "wchar.h"
-
using namespace irr;
-
template <typename TParent>
SCM
IGUIEnvironment_addButton (SCM gui_environment,
return scm_from_pointer ((void*)button, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addEditBox (SCM gui_environment,
return scm_from_pointer ((void*)editbox, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addImage (SCM gui_environment,
return scm_from_pointer ((void*) new_image, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addListBox (SCM gui_environment,
return scm_from_pointer ((void*)listbox, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addScrollBar (SCM gui_environment,
return scm_from_pointer ((void*)scrollbar, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addStaticText (SCM gui_environment,
return scm_from_pointer ((void*)static_text, NULL);
}
-
template <typename TParent>
SCM
IGUIEnvironment_addWindow (SCM gui_environment,
return scm_from_pointer ((void*)window, NULL);
}
-
SCM
IGUIEnvironment_drawAll (SCM gui_environment)
{
return SCM_UNSPECIFIED;
}
-
SCM
IGUIEnvironment_getBuiltInFont (SCM gui_environment)
{
return scm_from_pointer ((void*)font, NULL);
}
-
SCM
IGUIEnvironment_getFont (SCM gui_environment,
SCM filename)
return scm_from_pointer ((void*)font, NULL);
}
-
SCM
IGUIEnvironment_getSkin (SCM gui_environment)
{
return scm_from_pointer ((void*)skin, NULL);
}
-
-extern "C" {
-
- void
- init_gui_environment (void)
- {
- DEFINE_GSUBR ("IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
- IGUIEnvironment_addButton<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
- IGUIEnvironment_addEditBox<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
- IGUIEnvironment_addImage<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
- IGUIEnvironment_addListBox<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
- IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
- IGUIEnvironment_addStaticText<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
- IGUIEnvironment_addWindow<gui::IGUIElement*>);
- DEFINE_GSUBR ("IGUIEnvironment_drawAll", 1, 0, 0, IGUIEnvironment_drawAll);
- DEFINE_GSUBR ("IGUIEnvironment_getBuiltInFont", 1, 0, 0, IGUIEnvironment_getBuiltInFont);
- DEFINE_GSUBR ("IGUIEnvironment_getFont", 2, 0, 0, IGUIEnvironment_getFont);
- DEFINE_GSUBR ("IGUIEnvironment_getSkin", 1, 0, 0, IGUIEnvironment_getSkin);
- }
-
+void
+init_gui_environment (void)
+{
+ DEFINE_GSUBR ("IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addButton<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addEditBox<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
+ IGUIEnvironment_addImage<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
+ IGUIEnvironment_addListBox<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
+ IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
+ IGUIEnvironment_addStaticText<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
+ IGUIEnvironment_addWindow<gui::IGUIElement*>);
+ DEFINE_GSUBR ("IGUIEnvironment_drawAll", 1, 0, 0, IGUIEnvironment_drawAll);
+ DEFINE_GSUBR ("IGUIEnvironment_getBuiltInFont", 1, 0, 0, IGUIEnvironment_getBuiltInFont);
+ DEFINE_GSUBR ("IGUIEnvironment_getFont", 2, 0, 0, IGUIEnvironment_getFont);
+ DEFINE_GSUBR ("IGUIEnvironment_getSkin", 1, 0, 0, IGUIEnvironment_getSkin);
}
#ifndef __GUILE_IRRLICHT_GUI_ENVIRONMENT_H_INCLUDED__
#define __GUILE_IRRLICHT_GUI_ENVIRONMENT_H_INCLUDED__
-extern "C" {
- void
- init_gui_environment (void);
-}
+void
+init_gui_environment (void);
#endif
#include "gsubr.h"
#include "gui-in-out-fader.h"
-
using namespace irr;
-
SCM
IGUIInOutFader_setColor (SCM in_out_fader,
SCM color,
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_gui_in_out_fader (void)
- {
- DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
- }
-
+void
+init_gui_in_out_fader (void)
+{
+ DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
}
#ifndef __GUILE_IRRLICHT_GUI_IN_OUT_FADER_H_INCLUDED__
#define __GUILE_IRRLICHT_GUI_IN_OUT_FADER_H_INCLUDED__
-extern "C" {
- void
- init_gui_in_out_fader (void);
-}
+void
+init_gui_in_out_fader (void);
#endif
#include "gsubr.h"
#include "wchar.h"
-
using namespace irr;
-
SCM
IGUIListBox_addItem (SCM gui_listbox,
SCM text,
return scm_from_uint32 (item_id);
}
-
-extern "C" {
-
- void
- init_gui_listbox (void)
- {
- DEFINE_GSUBR ("IGUIListBox_addItem", 2, 1, 0, IGUIListBox_addItem);
- }
-
+void
+init_gui_listbox (void)
+{
+ DEFINE_GSUBR ("IGUIListBox_addItem", 2, 1, 0, IGUIListBox_addItem);
}
#ifndef __GUILE_IRRLICHT_GUI_LISTBOX_H_INCLUDED__
#define __GUILE_IRRLICHT_GUI_LISTBOX_H_INCLUDED__
-extern "C" {
- void
- init_gui_listbox (void);
-}
+void
+init_gui_listbox (void);
#endif
#include "gui-scrollbar.h"
#include "gsubr.h"
-
using namespace irr;
-
SCM
IGUIScrollBar_getPos (SCM gui_scrollbar)
{
(((gui::IGUIScrollBar*)scm_to_pointer (gui_scrollbar))->getPos ());
}
-
SCM
IGUIScrollBar_setMax (SCM gui_scrollbar,
SCM max)
return SCM_UNSPECIFIED;
}
-
SCM
IGUIScrollBar_setPos (SCM gui_scrollbar,
SCM pos)
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_gui_scrollbar (void)
- {
- DEFINE_GSUBR ("IGUIScrollBar_getPos", 1, 0, 0, IGUIScrollBar_getPos);
- DEFINE_GSUBR ("IGUIScrollBar_setMax", 2, 0, 0, IGUIScrollBar_setMax);
- DEFINE_GSUBR ("IGUIScrollBar_setPos", 2, 0, 0, IGUIScrollBar_setPos);
- }
-
+void
+init_gui_scrollbar (void)
+{
+ DEFINE_GSUBR ("IGUIScrollBar_getPos", 1, 0, 0, IGUIScrollBar_getPos);
+ DEFINE_GSUBR ("IGUIScrollBar_setMax", 2, 0, 0, IGUIScrollBar_setMax);
+ DEFINE_GSUBR ("IGUIScrollBar_setPos", 2, 0, 0, IGUIScrollBar_setPos);
}
#ifndef __GUILE_IRRLICHT_GUI_SCROLLBAR_H_INCLUDED__
#define __GUILE_IRRLICHT_GUI_SCROLLBAR_H_INCLUDED__
-extern "C" {
- void
- init_gui_scrollbar (void);
-}
+void
+init_gui_scrollbar (void);
#endif
#include "gsubr.h"
#include "gui-skin.h"
-
using namespace irr;
-
SCM
IGUISkin_getColor (SCM gui_skin,
SCM color)
return scm_from_color (scolor);
}
-
SCM
IGUISkin_getFont (SCM gui_skin,
SCM which)
return scm_from_pointer ((void*) font, NULL);
}
-
SCM
IGUISkin_setColor (SCM gui_skin,
SCM which,
return SCM_UNSPECIFIED;
}
-
SCM
IGUISkin_setFont (SCM gui_skin,
SCM font,
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_gui_skin (void)
- {
- DEFINE_GSUBR ("IGUISkin_getColor", 2, 0, 0, IGUISkin_getColor);
- DEFINE_GSUBR ("IGUISkin_getFont", 2, 0, 0, IGUISkin_getFont);
- DEFINE_GSUBR ("IGUISkin_setColor", 3, 0, 0, IGUISkin_setColor);
- DEFINE_GSUBR ("IGUISkin_setFont", 3, 0, 0, IGUISkin_setFont);
- }
-
+void
+init_gui_skin (void)
+{
+ DEFINE_GSUBR ("IGUISkin_getColor", 2, 0, 0, IGUISkin_getColor);
+ DEFINE_GSUBR ("IGUISkin_getFont", 2, 0, 0, IGUISkin_getFont);
+ DEFINE_GSUBR ("IGUISkin_setColor", 3, 0, 0, IGUISkin_setColor);
+ DEFINE_GSUBR ("IGUISkin_setFont", 3, 0, 0, IGUISkin_setFont);
}
gui::EGUI_DEFAULT_COLOR
}
}
-
gui::EGUI_DEFAULT_FONT
scm_to_default_font (SCM default_font)
{
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
- void
- init_gui_skin (void);
-}
+void
+init_gui_skin (void);
irr::gui::EGUI_DEFAULT_COLOR
scm_to_default_color (SCM default_color);
#include "gui-toolbar.h"
#include "wchar.h"
-
using namespace irr;
-
SCM
IGUIToolBar_addButton (SCM gui_toolbar,
SCM id,
return scm_from_pointer ((void*) button, NULL);
}
-
-extern "C" {
-
- void
- init_gui_toolbar (void)
- {
- DEFINE_GSUBR ("IGUIToolBar_addButton", 8, 0, 0, IGUIToolBar_addButton);
- }
-
+void
+init_gui_toolbar (void)
+{
+ DEFINE_GSUBR ("IGUIToolBar_addButton", 8, 0, 0, IGUIToolBar_addButton);
}
#ifndef __GUILE_IRRLICHT_GUI_TOOLBAR_H_INCLUDED__
#define __GUILE_IRRLICHT_GUI_TOOLBAR_H_INCLUDED__
-extern "C" {
- void
- init_gui_toolbar (void);
-}
+void
+init_gui_toolbar (void);
#endif
+++ /dev/null
-/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
-
- Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
-
- This file is part of guile-irrlicht.
-
- guile-irrlicht is free software; you can redistribute it and/or modify
- it under the terms of the GNU Lesser General Public License as
- published by the Free Software Foundation; either version 3 of the
- License, or (at your option) any later version.
-
- guile-irrlicht 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 Lesser General Public
- License along with guile-irrlicht. If not, see
- <http://www.gnu.org/licenses/>.
-*/
-
-#include <irrlicht/irrlicht.h>
-#include <libguile.h>
-#include "gui.h"
-#include "gui-environment.h"
-#include "gui-in-out-fader.h"
-#include "gui-listbox.h"
-#include "gui-scrollbar.h"
-#include "gui-skin.h"
-#include "gui-toolbar.h"
-
-
-extern "C" {
-
- void
- init_gui (void)
- {
- init_gui_environment ();
- init_gui_in_out_fader ();
- init_gui_listbox ();
- init_gui_scrollbar ();
- init_gui_skin ();
- init_gui_toolbar ();
- }
-
-}
+++ /dev/null
-/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
-
- Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
-
- This file is part of guile-irrlicht.
-
- guile-irrlicht is free software; you can redistribute it and/or modify
- it under the terms of the GNU Lesser General Public License as
- published by the Free Software Foundation; either version 3 of the
- License, or (at your option) any later version.
-
- guile-irrlicht 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 Lesser General Public
- License along with guile-irrlicht. If not, see
- <http://www.gnu.org/licenses/>.
-*/
-
-#ifndef __GUILE_IRRLICHT_GUI_H_INCLUDED__
-#define __GUILE_IRRLICHT_GUI_H_INCLUDED__
-
-extern "C" {
- void
- init_gui (void);
-}
-
-#endif
#include "cursor-control.h"
#include "device.h"
#include "event-receiver.h"
-#include "gui.h"
+#include "file-system.h"
+#include "gui-environment.h"
+#include "gui-in-out-fader.h"
+#include "gui-listbox.h"
+#include "gui-scrollbar.h"
+#include "gui-skin.h"
+#include "gui-toolbar.h"
#include "guile-irrlicht.h"
-#include "io.h"
#include "material.h"
#include "reference-counted.h"
#include "scene-manager.h"
init_cursor_control ();
init_device ();
init_event_receiver ();
- init_gui ();
- init_io ();
+ init_file_system ();
+ init_gui_environment ();
+ init_gui_in_out_fader ();
+ init_gui_listbox ();
+ init_gui_scrollbar ();
+ init_gui_skin ();
+ init_gui_toolbar ();
init_material ();
init_reference_counted ();
init_scene_manager ();
+++ /dev/null
-/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
-
- Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
-
- This file is part of guile-irrlicht.
-
- guile-irrlicht is free software; you can redistribute it and/or modify
- it under the terms of the GNU Lesser General Public License as
- published by the Free Software Foundation; either version 3 of the
- License, or (at your option) any later version.
-
- guile-irrlicht 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 Lesser General Public
- License along with guile-irrlicht. If not, see
- <http://www.gnu.org/licenses/>.
-*/
-
-#include "file-system.h"
-#include "io.h"
-
-extern "C" {
-
- void
- init_io (void)
- {
- init_file_system ();
- }
-
-}
+++ /dev/null
-/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
-
- Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
-
- This file is part of guile-irrlicht.
-
- guile-irrlicht is free software; you can redistribute it and/or modify
- it under the terms of the GNU Lesser General Public License as
- published by the Free Software Foundation; either version 3 of the
- License, or (at your option) any later version.
-
- guile-irrlicht 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 Lesser General Public
- License along with guile-irrlicht. If not, see
- <http://www.gnu.org/licenses/>.
-*/
-
-#ifndef __GUILE_IRRLICHT_IO_H_INCLUDED__
-#define __GUILE_IRRLICHT_IO_H_INCLUDED__
-
-extern "C" {
- void
- init_io (void);
-}
-
-#endif
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-
using namespace irr;
-
SCM
scm_from_key_code (EKEY_CODE key_code)
{
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-
using namespace irr;
-
video::E_MATERIAL_FLAG
scm_to_material_flag (SCM material_flag)
{
#include <libguile.h>
#include "material-types.h"
-
using namespace irr;
-
video::E_MATERIAL_TYPE
scm_to_material_type (SCM material_type)
{
#include "material.h"
#include "material-types.h"
-
using namespace irr;
-
SCM
video_SMaterial_make (SCM rest)
{
return scm_from_pointer ((void*) material, NULL);
}
-
-extern "C" {
-
- void
- init_material (void)
- {
- DEFINE_GSUBR ("video_SMaterial_make", 0, 0, 1, video_SMaterial_make);
- }
-
+void
+init_material (void)
+{
+ DEFINE_GSUBR ("video_SMaterial_make", 0, 0, 1, video_SMaterial_make);
}
-
video::E_ANTI_ALIASING_MODE
scm_to_anti_aliasing_mode (SCM anti_aliasing_mode)
{
}
}
-
video::E_BLEND_OPERATION
scm_to_blend_operation (SCM blend_operation)
{
}
}
-
video::E_COLOR_MATERIAL
scm_to_color_material (SCM color_material)
{
}
}
-
video::E_COLOR_PLANE
scm_to_color_plane (SCM color_plane)
{
}
}
-
video::E_COMPARISON_FUNC
scm_to_comparison_func (SCM comparison_func)
{
}
}
-
video::E_POLYGON_OFFSET
scm_to_polygon_offset (SCM polygon_offset)
{
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
- void
- init_material (void);
-}
+void
+init_material (void);
irr::video::E_ANTI_ALIASING_MODE
scm_to_anti_aliasing_mode (SCM anti_aliasing_mode);
#include <libguile.h>
#include "matrix4.h"
-
using namespace irr;
-
SCM
scm_from_matrix4 (core::matrix4 cmatrix)
{
scm_from_double (cmatrix[15])));
}
-
core::matrix4
scm_to_matrix4 (SCM matrix)
{
#include <libguile.h>
#include "position2d.h"
-
using namespace irr;
-
SCM
scm_from_position2d_s32 (core::position2d<s32> position2d)
{
#include <libguile.h>
#include "primitive-types.h"
-
using namespace irr;
-
scene::E_PRIMITIVE_TYPE
scm_to_primitive_type (SCM primitive_type)
{
#include <libguile.h>
#include "rect.h"
-
using namespace irr;
-
core::rect<s32>
scm_to_rect_s32 (SCM rect)
{
#include "gsubr.h"
#include "reference-counted.h"
-
using namespace irr;
-
template <typename T>
SCM
IReferenceCounted_drop (SCM obj)
return scm_from_bool (((T) scm_to_pointer (obj))->drop ());
}
-
-extern "C" {
-
- void
- init_reference_counted (void)
- {
- DEFINE_GSUBR ("IrrlichtDevice_drop", 1, 0, 0, IReferenceCounted_drop<IrrlichtDevice*>);
- }
-
+void
+init_reference_counted (void)
+{
+ DEFINE_GSUBR ("IrrlichtDevice_drop", 1, 0, 0, IReferenceCounted_drop<IrrlichtDevice*>);
}
#ifndef __GUILE_IRRLICHT_REFERENCE_COUNTED_H_INCLUDED__
#define __GUILE_IRRLICHT_REFERENCE_COUNTED_H_INCLUDED__
-extern "C" {
- void
- init_reference_counted (void);
-}
+void
+init_reference_counted (void);
#endif
#include "scene-manager.h"
#include "vector3d.h"
-
using namespace irr;
-
template <typename TParent>
SCM
ISceneManager_addAnimatedMeshSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) node, NULL);
}
-
template <typename TParent>
SCM
ISceneManager_addCameraSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) camera, NULL);
}
-
template <typename TParent>
SCM
ISceneManager_addCameraSceneNodeFPS (SCM scene_manager,
return scm_from_pointer ((void*) camera, NULL);
}
-
template <typename TParent>
SCM
ISceneManager_addCubeSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) node, NULL);
}
-
template <typename TParent>
SCM
ISceneManager_addCustomSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) node, NULL);
}
-
template <typename TParent, typename TMesh>
SCM
ISceneManager_addOctreeSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) node, NULL);
}
-
template <typename TParent>
SCM
ISceneManager_addSphereSceneNode (SCM scene_manager,
return scm_from_pointer ((void*) node, NULL);
}
-
SCM
ISceneManager_createFlyCircleAnimator (SCM scene_manager,
SCM center,
return scm_from_pointer ((void*) anim, NULL);
}
-
SCM
ISceneManager_createFlyStraightAnimator (SCM scene_manager,
SCM start_point,
return scm_from_pointer ((void*) anim, NULL);
}
-
SCM
ISceneManager_createRotationAnimator (SCM scene_manager,
SCM rotation_speed)
return scm_from_pointer ((void*) anim, NULL);
}
-
SCM
ISceneManager_drawAll (SCM scene_manager)
{
return SCM_UNSPECIFIED;
}
-
SCM
ISceneManager_getMesh (SCM scene_manager,
SCM filename)
return scm_from_pointer ((void*) mesh, NULL);
}
-
SCM
ISceneManager_getRootSceneNode (SCM scene_manager)
{
return scm_from_pointer ((void*) smgr->getRootSceneNode (), NULL);
}
-
-extern "C" {
-
- void
- init_scene_manager (void)
- {
- DEFINE_GSUBR ("ISceneManager_addAnimatedMeshSceneNode_ISceneNode", 8, 0, 0,
- ISceneManager_addAnimatedMeshSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_addCameraSceneNode_ISceneNode", 6, 0, 0,
- ISceneManager_addCameraSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_addCameraSceneNodeFPS_ISceneNode", 1, 0, 1,
- ISceneManager_addCameraSceneNodeFPS<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_addCubeSceneNode_ISceneNode", 7, 0, 0,
- ISceneManager_addCubeSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_addCustomSceneNode_ISceneNode", 10, 0, 0,
- ISceneManager_addCustomSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IAnimatedMesh", 6, 0, 0,
- (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IAnimatedMesh*>));
- DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IMesh", 6, 0, 0,
- (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IMesh*>));
- DEFINE_GSUBR ("ISceneManager_addSphereSceneNode_ISceneNode", 8, 0, 0,
- ISceneManager_addSphereSceneNode<scene::ISceneNode*>);
- DEFINE_GSUBR ("ISceneManager_createFlyCircleAnimator", 7, 0, 0,
- ISceneManager_createFlyCircleAnimator);
- DEFINE_GSUBR ("ISceneManager_createFlyStraightAnimator", 6, 0, 0,
- ISceneManager_createFlyStraightAnimator);
- DEFINE_GSUBR ("ISceneManager_createRotationAnimator", 2, 0, 0,
- ISceneManager_createRotationAnimator);
- DEFINE_GSUBR ("ISceneManager_drawAll", 1, 0, 0, ISceneManager_drawAll);
- DEFINE_GSUBR ("ISceneManager_getMesh", 2, 0, 0, ISceneManager_getMesh);
- DEFINE_GSUBR ("ISceneManager_getRootSceneNode", 1, 0, 0, ISceneManager_getRootSceneNode);
- }
-
+void
+init_scene_manager (void)
+{
+ DEFINE_GSUBR ("ISceneManager_addAnimatedMeshSceneNode_ISceneNode", 8, 0, 0,
+ ISceneManager_addAnimatedMeshSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCameraSceneNode_ISceneNode", 6, 0, 0,
+ ISceneManager_addCameraSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCameraSceneNodeFPS_ISceneNode", 1, 0, 1,
+ ISceneManager_addCameraSceneNodeFPS<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCubeSceneNode_ISceneNode", 7, 0, 0,
+ ISceneManager_addCubeSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addCustomSceneNode_ISceneNode", 10, 0, 0,
+ ISceneManager_addCustomSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IAnimatedMesh", 6, 0, 0,
+ (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IAnimatedMesh*>));
+ DEFINE_GSUBR ("ISceneManager_addOctreeSceneNode_ISceneNode_IMesh", 6, 0, 0,
+ (ISceneManager_addOctreeSceneNode<scene::ISceneNode*, scene::IMesh*>));
+ DEFINE_GSUBR ("ISceneManager_addSphereSceneNode_ISceneNode", 8, 0, 0,
+ ISceneManager_addSphereSceneNode<scene::ISceneNode*>);
+ DEFINE_GSUBR ("ISceneManager_createFlyCircleAnimator", 7, 0, 0,
+ ISceneManager_createFlyCircleAnimator);
+ DEFINE_GSUBR ("ISceneManager_createFlyStraightAnimator", 6, 0, 0,
+ ISceneManager_createFlyStraightAnimator);
+ DEFINE_GSUBR ("ISceneManager_createRotationAnimator", 2, 0, 0,
+ ISceneManager_createRotationAnimator);
+ DEFINE_GSUBR ("ISceneManager_drawAll", 1, 0, 0, ISceneManager_drawAll);
+ DEFINE_GSUBR ("ISceneManager_getMesh", 2, 0, 0, ISceneManager_getMesh);
+ DEFINE_GSUBR ("ISceneManager_getRootSceneNode", 1, 0, 0, ISceneManager_getRootSceneNode);
}
#ifndef __GUILE_IRRLICHT_SCENE_MANAGER_H_INCLUDED__
#define __GUILE_IRRLICHT_SCENE_MANAGER_H_INCLUDED__
-extern "C" {
- void
- init_scene_manager (void);
-}
+void
+init_scene_manager (void);
#endif
#include "scene-node.h"
#include "vector3d.h"
-
using namespace irr;
-
template <typename TSceneNode>
SCM
ISceneNode_addAnimator (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
template <typename TSceneNode>
SCM
ISceneNode_getAbsoluteTransformation (SCM scene_node)
return scm_from_matrix4 (node->getAbsoluteTransformation ());
}
-
template <typename TSceneNode>
SCM
ISceneNode_getPosition (SCM scene_node)
return scm_from_vector3df (node->getPosition ());
}
-
template <typename TSceneNode>
SCM
ISceneNode_setMaterialFlag (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
template <typename TSceneNode>
SCM
ISceneNode_setMaterialTexture (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
template <typename TSceneNode>
SCM
ISceneNode_setPosition (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
template <typename TSceneNode>
SCM
ISceneNode_setRotation (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
template <typename TSceneNode>
SCM
ISceneNode_setScale (SCM scene_node,
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_scene_node (void)
- {
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_addAnimator", 2, 0, 0,
- ISceneNode_addAnimator<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("IMeshSceneNode_addAnimator", 2, 0, 0,
- ISceneNode_addAnimator<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_addAnimator", 2, 0, 0,
- ISceneNode_addAnimator<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("ISceneNode_getAbsoluteTransformation", 1, 0, 0,
- ISceneNode_getAbsoluteTransformation<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IMeshSceneNode_getPosition", 1, 0, 0,
- ISceneNode_getPosition<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_getPosition", 1, 0, 0,
- ISceneNode_getPosition<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialFlag", 3, 0, 0,
- ISceneNode_setMaterialFlag<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("IMeshSceneNode_setMaterialFlag", 3, 0, 0,
- ISceneNode_setMaterialFlag<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_setMaterialFlag", 3, 0, 0,
- ISceneNode_setMaterialFlag<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialTexture", 3, 0, 0,
- ISceneNode_setMaterialTexture<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("IMeshSceneNode_setMaterialTexture", 3, 0, 0,
- ISceneNode_setMaterialTexture<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_setMaterialTexture", 3, 0, 0,
- ISceneNode_setMaterialTexture<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IMeshSceneNode_setPosition", 2, 0, 0,
- ISceneNode_setPosition<scene::IMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_setPosition", 2, 0, 0,
- ISceneNode_setPosition<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setRotation", 2, 0, 0,
- ISceneNode_setRotation<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("ICameraSceneNode_setRotation", 2, 0, 0,
- ISceneNode_setRotation<scene::ICameraSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_setRotation", 2, 0, 0,
- ISceneNode_setRotation<scene::ISceneNode*>);
-
- DEFINE_GSUBR ("IAnimatedMeshSceneNode_setScale", 2, 0, 0,
- ISceneNode_setScale<scene::IAnimatedMeshSceneNode*>);
- DEFINE_GSUBR ("ISceneNode_setScale", 2, 0, 0,
- ISceneNode_setScale<scene::ISceneNode*>);
- }
-
+void
+init_scene_node (void)
+{
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_addAnimator", 2, 0, 0,
+ ISceneNode_addAnimator<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("ISceneNode_getAbsoluteTransformation", 1, 0, 0,
+ ISceneNode_getAbsoluteTransformation<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IMeshSceneNode_getPosition", 1, 0, 0,
+ ISceneNode_getPosition<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_getPosition", 1, 0, 0,
+ ISceneNode_getPosition<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setMaterialFlag", 3, 0, 0,
+ ISceneNode_setMaterialFlag<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("IMeshSceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setMaterialTexture", 3, 0, 0,
+ ISceneNode_setMaterialTexture<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IMeshSceneNode_setPosition", 2, 0, 0,
+ ISceneNode_setPosition<scene::IMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setPosition", 2, 0, 0,
+ ISceneNode_setPosition<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("ICameraSceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::ICameraSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setRotation", 2, 0, 0,
+ ISceneNode_setRotation<scene::ISceneNode*>);
+
+ DEFINE_GSUBR ("IAnimatedMeshSceneNode_setScale", 2, 0, 0,
+ ISceneNode_setScale<scene::IAnimatedMeshSceneNode*>);
+ DEFINE_GSUBR ("ISceneNode_setScale", 2, 0, 0,
+ ISceneNode_setScale<scene::ISceneNode*>);
}
#ifndef __GUILE_IRRLICHT_SCENE_NODE_H_INCLUDED__
#define __GUILE_IRRLICHT_SCENE_NODE_H_INCLUDED__
-extern "C" {
- void
- init_scene_node (void);
-}
+void
+init_scene_node (void);
#endif
#include "gsubr.h"
#include "timer.h"
-
using namespace irr;
-
SCM
ITimer_getTime (SCM timer)
{
return scm_from_uint32 (((ITimer*) scm_to_pointer (timer))->getTime());
}
-
-extern "C" {
-
- void
- init_timer (void)
- {
- DEFINE_GSUBR ("ITimer_getTime", 1, 0, 0, ITimer_getTime);
- }
-
+void
+init_timer (void)
+{
+ DEFINE_GSUBR ("ITimer_getTime", 1, 0, 0, ITimer_getTime);
}
#ifndef __GUILE_IRRLICHT_TIMER_H_INCLUDED__
#define __GUILE_IRRLICHT_TIMER_H_INCLUDED__
-extern "C" {
- void
- init_timer (void);
-}
+void
+init_timer (void);
#endif
#include <libguile.h>
#include "vector2d.h"
-
using namespace irr;
-
core::vector2df
scm_to_vector2df (SCM vector2d)
{
#include <libguile.h>
#include "vector3d.h"
-
using namespace irr;
-
SCM
scm_from_vector3df (core::vector3df vector3d)
{
scm_from_double (vector3d.Z));
}
-
core::vector3df
scm_to_vector3df (SCM vector3d)
{
#include "vector3d.h"
#include "vertex3d.h"
-
using namespace irr;
-
SCM
video_S3DVertex_make (SCM position,
SCM normal,
return scm_from_pointer ((void*) vertex, NULL);
}
-
SCM
video_S3DVertex_Pos (SCM vertex) {
video::S3DVertex* s3dvertex = (video::S3DVertex*) scm_to_pointer (vertex);
return scm_from_vector3df (s3dvertex->Pos);
}
-
-extern "C" {
-
- void
- init_vertex3d (void)
- {
- DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
- DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);
- }
-
+void
+init_vertex3d (void)
+{
+ DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
+ DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);
}
-
video::E_VERTEX_TYPE
scm_to_vertex_type (SCM vertex_type)
{
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
- void
- init_vertex3d (void);
-}
+void
+init_vertex3d (void);
irr::video::E_VERTEX_TYPE
scm_to_vertex_type (SCM vertex_type);
#include "vertex3d.h"
#include "video-driver.h"
-
using namespace irr;
-
SCM
IVideoDriver_beginScene (SCM video_driver,
SCM back_buffer,
sourceRectAddress));
}
-
SCM
IVideoDriver_drawVertexPrimitiveList (SCM video_driver,
SCM vertices,
return SCM_UNSPECIFIED;
}
-
SCM
IVideoDriver_endScene (SCM video_driver)
{
return scm_from_bool (driver->endScene ());
}
-
SCM
IVideoDriver_getFPS (SCM video_driver)
{
return scm_from_int32 (driver->getFPS ());
}
-
SCM
IVideoDriver_getTexture (SCM video_driver,
SCM filename)
return scm_from_pointer ((void*) texture, NULL);
}
-
SCM
IVideoDriver_setMaterial (SCM video_driver,
SCM material)
return SCM_UNSPECIFIED;
}
-
SCM
IVideoDriver_setTransform (SCM video_driver,
SCM state,
}
-extern "C" {
-
- void
- init_video_driver (void)
- {
- DEFINE_GSUBR ("IVideoDriver_beginScene", 6, 0, 0, IVideoDriver_beginScene);
- DEFINE_GSUBR ("IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
- IVideoDriver_drawVertexPrimitiveList);
- DEFINE_GSUBR ("IVideoDriver_endScene", 1, 0, 0, IVideoDriver_endScene);
- DEFINE_GSUBR ("IVideoDriver_getFPS", 1, 0, 0, IVideoDriver_getFPS);
- DEFINE_GSUBR ("IVideoDriver_getTexture", 2, 0, 0, IVideoDriver_getTexture);
- DEFINE_GSUBR ("IVideoDriver_setMaterial", 2, 0, 0, IVideoDriver_setMaterial);
- DEFINE_GSUBR ("IVideoDriver_setTransform", 3, 0, 0, IVideoDriver_setTransform);
- }
-
+void
+init_video_driver (void)
+{
+ DEFINE_GSUBR ("IVideoDriver_beginScene", 6, 0, 0, IVideoDriver_beginScene);
+ DEFINE_GSUBR ("IVideoDriver_drawVertexPrimitiveList", 5, 0, 1,
+ IVideoDriver_drawVertexPrimitiveList);
+ DEFINE_GSUBR ("IVideoDriver_endScene", 1, 0, 0, IVideoDriver_endScene);
+ DEFINE_GSUBR ("IVideoDriver_getFPS", 1, 0, 0, IVideoDriver_getFPS);
+ DEFINE_GSUBR ("IVideoDriver_getTexture", 2, 0, 0, IVideoDriver_getTexture);
+ DEFINE_GSUBR ("IVideoDriver_setMaterial", 2, 0, 0, IVideoDriver_setMaterial);
+ DEFINE_GSUBR ("IVideoDriver_setTransform", 3, 0, 0, IVideoDriver_setTransform);
}
video::E_TRANSFORMATION_STATE
#include <irrlicht/irrlicht.h>
#include <libguile.h>
-extern "C" {
- void
- init_video_driver (void);
-}
+void
+init_video_driver (void);
irr::video::E_TRANSFORMATION_STATE
scm_to_transformation_state (SCM transformation_state);
projects / guile-irrlicht.git / commitdiff