| %module guile_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); | |
| %} | |