Examples/test-suite/guilescm_ext_test.i

   1 %module guilescm_ext_test
   2
   3 /* just use the imports_a.h header... for this test we only need a class */
   4 %{
   5 #include "imports_a.h"
   6 %}
   7
   8 %include "imports_a.h"
   9
  10 %{
  11 SCM test_create();
  12 SCM test_is_pointer(SCM val);
  13 %}
  14
  15 %init %{
  16   scm_c_define_gsubr("test-create", 0, 0, 0, (swig_guile_proc) test_create);
  17   scm_c_define_gsubr("test-is-pointer", 1, 0, 0, (swig_guile_proc) test_is_pointer);
  18 %}
  19