/trunk/Examples/test-suite/chicken/ext_test_external.cxx

 1#include <ext_test_wrap_hdr.h>
 2#include <imports_a.h>
 3
 4void test_create(C_word,C_word,C_word) C_noret;
 5void test_create(C_word argc, C_word closure, C_word continuation) {
 6  C_word resultobj;
 7  swig_type_info *type;
 8  A *newobj;
 9  C_word *known_space = C_alloc(C_SIZEOF_SWIG_POINTER);
10  
11  C_trace("test-create");
12  if (argc!=2) C_bad_argc(argc,2);
13
14
15  newobj = new A();
16  
17  type = SWIG_TypeQuery("A *");
18  resultobj = SWIG_NewPointerObj(newobj, type, 1);
19
20  C_kontinue(continuation, resultobj);
21}
22