d6b81eb831
This reverts commit c595e4d90ebfd63eb55430c735bb121cf690bd59. Conflicts: Source/Modules/c.cxx From: William S Fulton <wsf@fultondesigns.co.uk> git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-maciekd@13033 626c5289-ae23-0410-ae9c-e8d60b6d4f22
21 lines
463 B
OpenEdge ABL
21 lines
463 B
OpenEdge ABL
%module chicken_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"
|
|
|
|
%{
|
|
void test_create(C_word,C_word,C_word) C_noret;
|
|
%}
|
|
|
|
%init %{
|
|
{
|
|
C_word *space = C_alloc(2 + C_SIZEOF_INTERNED_SYMBOL(11));
|
|
sym = C_intern (&space, 11, "test-create");
|
|
C_mutate ((C_word*)sym+1, (*space=C_CLOSURE_TYPE|1, space[1]=(C_word)test_create, tmp=(C_word)space, space+=2, tmp));
|
|
}
|
|
%}
|
|
|