git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8527 626c5289-ae23-0410-ae9c-e8d60b6d4f22
25 lines
283 B
OpenEdge ABL
25 lines
283 B
OpenEdge ABL
%module swigobject
|
|
|
|
|
|
|
|
%inline
|
|
{
|
|
struct A {
|
|
char name[4];
|
|
};
|
|
|
|
const char* pointer_str(A *a){
|
|
static char result[1024];
|
|
sprintf(result,"0x%x", (long)(void *)a);
|
|
return result;
|
|
}
|
|
|
|
A *a_ptr(A *a){
|
|
return a;
|
|
}
|
|
|
|
|
|
void *v_ptr(void *a){
|
|
return a;
|
|
}
|
|
}
|