jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve wrapping of global function pointer variables for R - note that use of SWIG_exception_fail does not work as the in typemaps are being used for return types and really something like directorin/directorout typemaps are required

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10267 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2008-02-27 13:06:46 +00:00
commit c0e0bf2a26
1 changed files with 35 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

78
Source/Modules/r.cxx
View file

@ -16,7 +16,6 @@ char cvsroot_r_cxx[] = "$Id$";
static const double DEFAULT_NUMBER = .0000123456712312312323; static const double DEFAULT_NUMBER = .0000123456712312312323;
static const int MAX_OVERLOAD_ARGS = 5; static const int MAX_OVERLOAD_ARGS = 5;
static String * getRTypeName(SwigType *t, int *outCount = NULL) { static String * getRTypeName(SwigType *t, int *outCount = NULL) {
String *b = SwigType_base(t); String *b = SwigType_base(t);
List *els = SwigType_split(t); List *els = SwigType_split(t);
@ -554,7 +553,6 @@ void R::addSMethodInfo(String *name, String *argType, int nargs) {
} }
/* /*
Returns the name of the new routine. Returns the name of the new routine.
*/ */
String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) { String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
@ -564,56 +562,54 @@ String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
if(functionPointerProxyTable && Getattr(functionPointerProxyTable, funName)) if(functionPointerProxyTable && Getattr(functionPointerProxyTable, funName))
return funName; return funName;
SwigType *base = SwigType_base(t);
if (debugMode) if (debugMode)
Printf(stderr, "<createFunctionPointerHandler> Defining %s\n", t); Printf(stderr, "<createFunctionPointerHandler> Defining %s\n", t);
int isVoidType = 0; SwigType *rettype = Copy(Getattr(n, "type"));
SwigType *funcparams = SwigType_functionpointer_decompose(rettype);
String *rtype = SwigType_str(rettype, 0);
// ParmList *parms = Getattr(n, "parms"); // ParmList *parms = Getattr(n, "parms");
// memory leak // memory leak
ParmList *parms = ParmList *parms = SwigType_function_parms(SwigType_del_pointer(Copy(t)));
SwigType_function_parms(SwigType_del_pointer(Copy(t)));
if (debugMode) { if (debugMode) {
Printf(stderr, "Type: %s\n", t); Printf(stderr, "Type: %s\n", t);
Printf(stderr, "Return type: %s\n", SwigType_base(t)); Printf(stderr, "Return type: %s\n", SwigType_base(t));
} }
isVoidType = Strcmp(base, "void") == 0; bool isVoidType = Strcmp(rettype, "void") == 0;
if (debugMode) if (debugMode)
Printf(stderr, "%s is void ? %s (%s)\n", funName, isVoidType ? "yes" : "no", base); Printf(stderr, "%s is void ? %s (%s)\n", funName, isVoidType ? "yes" : "no", rettype);
Wrapper *f = NewWrapper(); Wrapper *f = NewWrapper();
/* Go through argument list, attach lnames for arguments */
Parm *ppp = parms;
int i = 0; int i = 0;
while(ppp) { Parm *p = parms;
String *name = Getattr(ppp, "name"); for (i = 0; p; p = nextSibling(p), ++i) {
if(Len(name) == 0) { String *arg = Getattr(p, "name");
name = NewStringf("s_arg%d", i+1); String *lname = NewString("");
Setattr(ppp, "name", Copy(name));
} if (!arg && Cmp(Getattr(p, "type"), "void")) {
if (debugMode) { lname = NewStringf("s_arg%d", i+1);
Printf(stderr, "Parm : %s\n", name); Setattr(p, "name", lname);
} } else
Setattr(ppp, "lname", Copy(Getattr(ppp, "name"))); lname = arg;
ppp = nextSibling(ppp);
i++; Setattr(p, "lname", lname);
} }
Swig_typemap_attach_parms("in", parms, f);
Swig_typemap_attach_parms("out", parms, f); Swig_typemap_attach_parms("out", parms, f);
Swig_typemap_attach_parms("scoercein", parms, f);
Swig_typemap_attach_parms("scoerceout", parms, f); Swig_typemap_attach_parms("scoerceout", parms, f);
Swig_typemap_attach_parms("scheck", parms, f); Swig_typemap_attach_parms("scheck", parms, f);
emit_args(base, parms, f);// should this be t or base. base puts the correct return type variable. Printf(f->def, "%s %s(", rtype, funName);
emit_attach_parmmaps(parms,f);
emit_args(rettype, parms, f);
// emit_attach_parmmaps(parms,f);
/* Using weird name and struct to avoid potential conflicts. */ /* Using weird name and struct to avoid potential conflicts. */
Wrapper_add_local(f, "r_swig_cb_data", Wrapper_add_local(f, "r_swig_cb_data", "RCallbackFunctionData *r_swig_cb_data = R_SWIG_getCallbackFunctionData()");
"RCallbackFunctionData *r_swig_cb_data = R_SWIG_getCallbackFunctionData()");
String *lvar = NewString("r_swig_cb_data"); String *lvar = NewString("r_swig_cb_data");
Wrapper_add_local(f, "r_tmp", "SEXP r_tmp"); // for use in converting arguments to R objects for call. Wrapper_add_local(f, "r_tmp", "SEXP r_tmp"); // for use in converting arguments to R objects for call.
@ -624,9 +620,7 @@ String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
// whereas the type makes are reverse // whereas the type makes are reverse
Wrapper_add_local(f, "ecode", "int ecode = 0"); Wrapper_add_local(f, "ecode", "int ecode = 0");
Printf(f->def, "%s\n%s(", SwigType_base(t), funName); p = parms;
Parm *p = parms;
int nargs = ParmList_len(parms); int nargs = ParmList_len(parms);
if(numArgs) { if(numArgs) {
*numArgs = nargs; *numArgs = nargs;
@ -663,7 +657,7 @@ String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
} }
} }
Printf(f->def, ")\n{\n"); Printf(f->def, ") {\n");
Printf(f->code, "Rf_protect(%s->expr = Rf_allocVector(LANGSXP, %d));\n", lvar, nargs + 1); Printf(f->code, "Rf_protect(%s->expr = Rf_allocVector(LANGSXP, %d));\n", lvar, nargs + 1);
Printf(f->code, "r_nprotect++;\n"); Printf(f->code, "r_nprotect++;\n");
@ -700,17 +694,16 @@ String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
*/ */
Node *bbase = NewHash(); Node *bbase = NewHash();
Setattr(bbase, "type", base); Setattr(bbase, "type", rettype);
Setattr(bbase, "name", NewString("result")); Setattr(bbase, "name", NewString("result"));
String *returnTM = Swig_typemap_lookup_new("in", bbase, "result", 0); String *returnTM = Swig_typemap_lookup_new("in", bbase, "result", f);
if(returnTM) { if(returnTM) {
String *tm = returnTM; String *tm = returnTM;
SwigType *retType = base; // Getattr(n, "type");
Replaceall(tm,"$input", "r_swig_cb_data->retValue"); Replaceall(tm,"$input", "r_swig_cb_data->retValue");
Replaceall(tm,"$target", "result"); Replaceall(tm,"$target", "result");
replaceRClass(tm, retType); replaceRClass(tm, rettype);
Replaceall(tm,"$owner", "R_SWIG_EXTERNAL"); Replaceall(tm,"$owner", "R_SWIG_EXTERNAL");
Replaceall(tm,"$disown","0");
Printf(f->code, "%s\n", tm); Printf(f->code, "%s\n", tm);
} }
Delete(bbase); Delete(bbase);
@ -738,9 +731,11 @@ String * R::createFunctionPointerHandler(SwigType *t, Node *n, int *numArgs) {
Wrapper_print(f, f_wrapper); Wrapper_print(f, f_wrapper);
addFunctionPointerProxy(funName, n, t, s_paramTypes); addFunctionPointerProxy(funName, n, t, s_paramTypes);
Delete(s_paramTypes); Delete(s_paramTypes);
Delete(rtype);
Delete(rettype);
Delete(funcparams);
return funName; return funName;
} }
@ -3093,10 +3088,7 @@ String * R::processType(SwigType *t, Node *n, int *nargs) {
if(td) if(td)
t = td; t = td;
String *prefix = SwigType_prefix(t); if(SwigType_isfunctionpointer(t)) {
// String *base = SwigType_base(t);
if(Strncmp(prefix, "p.f", 3) == 0) {
if (debugMode) if (debugMode)
Printf(stderr, Printf(stderr,
"<processType> Defining pointer handler %s\n", t); "<processType> Defining pointer handler %s\n", t);