X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgsubr.h;fp=src%2Fgsubr.h;h=5db534d3dc9f94e5dae253f0502e96093dd847a6;hb=69ed7f57e6295034fa64ab2bf6d10da6882860ef;hp=0000000000000000000000000000000000000000;hpb=346c775ed6bc5b17d7360329d03583b0a443c6b8;p=guile-irrlicht.git

diff --git a/src/gsubr.h b/src/gsubr.h
new file mode 100644
index 0000000..5db534d
--- /dev/null
+++ b/src/gsubr.h
@@ -0,0 +1,31 @@
+/* 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_GSUBR_H_INCLUDED__
+#define __GUILE_IRRLICHT_GSUBR_H_INCLUDED__
+
+#include <libguile.h>
+
+#define DEFINE_GSUBR(NAME, REQ, OPT, REST, FUNC)                \
+  scm_c_define_gsubr (NAME, REQ, OPT, REST, (scm_t_subr)FUNC);  \
+  scm_c_export (NAME, NULL);
+
+#endif