Examples/test-suite/chicken_ext_test.i

   1 %module chicken_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 void test_create(C_word,C_word,C_word) C_noret;
  12 %}
  13
  14 %init %{
  15  {
  16     C_word *space = C_alloc(2 + C_SIZEOF_INTERNED_SYMBOL(11));
  17     sym = C_intern (&space, 11, "test-create");
  18     C_mutate ((C_word*)sym+1, (*space=C_CLOSURE_TYPE|1, space[1]=(C_word)test_create, tmp=(C_word)space, space+=2, tmp));
  19  }
  20 %}
  21