mirror of https://github.com/swig/swig
25 lines
433 B
C++
25 lines
433 B
C++
#include <guile_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
|
|
}
|