c6f3ac5420
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12352 626c5289-ae23-0410-ae9c-e8d60b6d4f22
24 lines
427 B
C++
24 lines
427 B
C++
#include <ext_test_wrap_hdr.h>
|
|
#include <imports_a.h>
|
|
|
|
SCM test_create()
|
|
{
|
|
#define FUNC_NAME "test-create"
|
|
SCM result;
|
|
A *newobj;
|
|
swig_type_info *type;
|
|
|
|
newobj = new A();
|
|
type = SWIG_TypeQuery("A *");
|
|
result = SWIG_NewPointerObj(newobj, type, 1);
|
|
|
|
return result;
|
|
#undef FUNC_NAME
|
|
}
|
|
|
|
SCM test_is_pointer(SCM val)
|
|
{
|
|
#define FUNC_NAME "test-is-pointer"
|
|
return SCM_BOOL(SWIG_IsPointer(val));
|
|
#undef FUNC_NAME
|
|
}
|