-#include <irrlicht/irrlicht.h>
-#include <libguile.h>
-#include "wrapped.h"
-
-extern "C" {
-
- void
- init_device (void);
-
- DECLARE_WRAPPED_TYPE (irr::IrrlichtDevice*, init_device_type,
- device_p, wrap_device, unwrap_device);
-
- SCM
- irr_createDevice (SCM rest);
-
- SCM
- irr_getTimer (SCM wrapped_device);
-
- SCM
- irr_isWindowActive (SCM wrapped_device);
-
- SCM
- irr_run (SCM wrapped_device);
-
- SCM
- irr_setResizable (SCM wrapped_device,
- SCM resize);
-
- SCM
- irr_setWindowCaption (SCM wrapped_device,
- SCM text);
-
- SCM
- irr_yield (SCM wrapped_device);
-
-}