/trunk/Examples/test-suite/guilescm_ext_test.i

# · Swig · 19 lines · 13 code · 5 blank · 1 comment · 0 complexity · a250799a19e54c5cdbad0c16a04d2cb2 MD5 · raw file 

    

  1. %module guilescm_ext_test
    2. 

  2. 

  3. /* just use the imports_a.h header... for this test we only need a class */
    4. 

  4. %{
    5. 

  5. #include "imports_a.h"
    6. 

  6. %}
    7. 

  7. 

  8. %include "imports_a.h"
    9. 

  9. 

  10. %{
    11. 

  11. SCM test_create();
    12. 

  12. SCM test_is_pointer(SCM val);
    13. 

  13. %}
    14. 

  14. 

  15. %init %{
    16. 

  16.   scm_c_define_gsubr("test-create", 0, 0, 0, (swig_guile_proc) test_create);
    17. 

  17.   scm_c_define_gsubr("test-is-pointer", 1, 0, 0, (swig_guile_proc) test_is_pointer);
    18. 

  18. %}
    19.