/* jobject to SEXP encoding - 0.2 and earlier use INTSXP */
SEXP j2SEXP(JNIEnv *env, jobject o, int releaseLocal) {
if (!env) error("Invalid Java environment in j2SEXP");
if (o) {
jobject go = makeGlobal(env, o);
_mp(MEM_PROF_OUT("R %08x RNEW %08x\n", (int) go, (int) o))
if (!go)
error("Failed to create a global reference in Java.");
_dbg(rjprintf(" j2SEXP: %lx -> %lx (release=%d)\n", (long)o, (long)go, releaseLocal));
if (releaseLocal)
releaseObject(env, o);
o=go;
}
{
SEXP xp = R_MakeExternalPtr(o, R_NilValue, R_NilValue);
#ifdef RJ_DEBUG
{
JNIEnv *env=getJNIEnv();
jstring s=callToString(env, o);
const char *c="???";
if (s) c=(*env)->GetStringUTFChars(env, s, 0);
_dbg(rjprintf("New Java object [%s] reference %lx (SEXP@%lx)\n", c, (long)o, (long)xp));
if (s) {
(*env)->ReleaseStringUTFChars(env, s, c);
releaseObject(env, s);
}
}
#endif
R_RegisterCFinalizerEx(xp, JRefObjectFinalizer, TRUE);
return xp;
}
}
static void JRefObjectFinalizer(SEXP ref) {
if (java_is_dead) return;
if (TYPEOF(ref)==EXTPTRSXP) {
JNIEnv *env=getJNIEnv();
jobject o = R_ExternalPtrAddr(ref);
#ifdef RJ_DEBUG
{
jstring s=callToString(env, o);
const char *c="???";
if (s) c=(*env)->GetStringUTFChars(env, s, 0);
_dbg(rjprintf("Finalizer releases Java object [%s] reference %lx (SEXP@%lx)\n", c, (long)o, (long)ref));
if (s) {
(*env)->ReleaseStringUTFChars(env, s, c);
releaseObject(env, s);
}
}
#endif
if (env && o) {
/* _dbg(rjprintf(" finalizer releases global reference %lx\n", (long)o);) */
_mp(MEM_PROF_OUT("R %08x FIN\n", (int)o))
releaseGlobal(env, o);
}
}
}
void Broker::receiveCall(CallMessage msg){
callInRoute.setCallName(msg.getCallName());
callInRoute.setParamOne(msg.getParamOne());
callInRoute.setParamTwo(msg.getParamTwo());
callInRoute.setResult(msg.getResult());
callInRoute.setClientAddr(msg.getClientAddr());
callToString(msg);
}