/trunk/Examples/test-suite/guilescm_ext_test.i
Swig | 19 lines | 13 code | 5 blank | 1 comment | 0 complexity | a250799a19e54c5cdbad0c16a04d2cb2 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- %module guilescm_ext_test
- /* just use the imports_a.h header... for this test we only need a class */
- %{
- #include "imports_a.h"
- %}
- %include "imports_a.h"
- %{
- SCM test_create();
- SCM test_is_pointer(SCM val);
- %}
- %init %{
- scm_c_define_gsubr("test-create", 0, 0, 0, (swig_guile_proc) test_create);
- scm_c_define_gsubr("test-is-pointer", 1, 0, 0, (swig_guile_proc) test_is_pointer);
- %}