#include "jxbt_utilities.h"
#include <msg/msg.h>
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
-void jcomm_bind_task(JNIEnv *env, jobject jcomm) {
- jfieldID id_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
- jclass jclass = jxbt_get_class(env,"org/simgrid/msg/Comm");
- jfieldID id_task = jxbt_get_jfield(env, jclass, "task", "Lorg/simgrid/msg/Task;");
- jfieldID id_comm = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, id_comm);
+static jfieldID jtask_field_Comm_task;
+static jfieldID jcomm_field_Comm_bind;
+static jfieldID jcomm_field_Comm_taskBind;
+static jfieldID jcomm_field_Comm_receiving;
+void jcomm_bind_task(JNIEnv *env, jobject jcomm) {
+ msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
//test if we are receiving or sending a task.
- jboolean jreceiving = (*env)->GetBooleanField(env, jcomm, id_receiving);
+ jboolean jreceiving = (*env)->GetBooleanField(env, jcomm, jcomm_field_Comm_receiving);
if (jreceiving == JNI_TRUE) {
//bind the task object.
m_task_t task = MSG_comm_get_task(comm);
xbt_assert(task != NULL, "Task is NULL");
jobject jtask_global = MSG_task_get_data(task);
//case where the data has already been retrieved
- if (jtask_global == NULL)
- {
+ if (jtask_global == NULL) {
return;
}
jobject jtask_local = (*env)->NewLocalRef(env, jtask_global);
(*env)->DeleteGlobalRef(env, jtask_global);
- (*env)->SetObjectField(env, jcomm, id_task, jtask_local);
+ (*env)->SetObjectField(env, jcomm, jtask_field_Comm_task, jtask_local);
MSG_task_set_data(task, NULL);
}
jxbt_throw_native(env,bprintf("communication failed"));
}
}
+
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Comm_nativeInit(JNIEnv *env, jclass cls) {
+ jclass jfield_class_Comm = (*env)->FindClass(env, "org/simgrid/msg/Comm");
+ jcomm_field_Comm_bind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
+ jcomm_field_Comm_taskBind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "taskBind", "J");
+ jcomm_field_Comm_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
+ jtask_field_Comm_task = jxbt_get_jfield(env, jfield_class_Comm, "task", "Lorg/simgrid/msg/Task;");
+}
+
JNIEXPORT void JNICALL
Java_org_simgrid_msg_Comm_unbind(JNIEnv *env, jobject jcomm) {
- jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- jfieldID id_task = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bindTask", "J");
msg_comm_t comm;
m_task_t *task_received;
- if (!id || !id_task)
- return;
- task_received = (m_task_t*) (long) (*env)->GetLongField(env, jcomm, id_task);
+ task_received = (m_task_t*) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_taskBind);
if (task_received != NULL) {
xbt_free(task_received);
}
- comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, id);
+ comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
MSG_comm_destroy(comm);
}
JNIEXPORT jboolean JNICALL
Java_org_simgrid_msg_Comm_test(JNIEnv *env, jobject jcomm) {
msg_comm_t comm;
+ comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
- jfieldID idComm = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- jclass jclass = jxbt_get_class(env,"org/simgrid/msg/Comm");
- jfieldID idTask = jxbt_get_jfield(env, jclass, "task", "Lorg/simgrid/msg/Task;");
-
-
- if (!jclass || !idComm || !idTask) {
- jxbt_throw_native(env,bprintf("idTask/idComm/jclass/idComm is null"));
- return JNI_FALSE;
- }
-
- comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, idComm);
if (!comm) {
jxbt_throw_native(env,bprintf("comm is null"));
return JNI_FALSE;
}
JNIEXPORT void JNICALL
Java_org_simgrid_msg_Comm_waitCompletion(JNIEnv *env, jobject jcomm, jdouble timeout) {
- jclass jclass = jxbt_get_class(env,"org/simgrid/msg/Comm");
- jfieldID id_comm = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- jfieldID id_task = jxbt_get_jfield(env, jclass, "task", "Lorg/simgrid/msg/Task;");
- jfieldID id_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
-
- if (!jclass || !id_comm || !id_task || !id_receiving) {
- jxbt_throw_native(env,bprintf("idTask/idComm/jclass/idComm is null"));
- return;
- }
-
- msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, id_comm);
+ msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
if (!comm) {
jxbt_throw_native(env,bprintf("comm is null"));
return;
#include <msg/msg.h>
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
-void jtask_bind(jobject jtask, m_task_t task, JNIEnv * env)
-{
- jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
+static jmethodID jtask_field_Comm_constructor;
- if (!id)
- return;
+static jfieldID jtask_field_Task_bind;
+static jfieldID jtask_field_Comm_bind;
+static jfieldID jtask_field_Comm_taskBind;
+static jfieldID jtask_field_Comm_receiving;
- (*env)->SetLongField(env, jtask, id, (jlong) (long) (task));
+void jtask_bind(jobject jtask, m_task_t task, JNIEnv * env)
+{
+ (*env)->SetLongField(env, jtask, jtask_field_Task_bind, (jlong) (long) (task));
}
m_task_t jtask_to_native_task(jobject jtask, JNIEnv * env)
{
- jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
-
- if (!id)
- return NULL;
-
- return (m_task_t) (long) (*env)->GetLongField(env, jtask, id);
+ return (m_task_t) (long) (*env)->GetLongField(env, jtask, jtask_field_Task_bind);
}
jboolean jtask_is_valid(jobject jtask, JNIEnv * env)
{
- jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
+ return (*env)->GetLongField(env, jtask, jtask_field_Task_bind) ? JNI_TRUE : JNI_FALSE;
+}
- if (!id)
- return JNI_FALSE;
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Task_nativeInit(JNIEnv *env, jclass cls) {
+ jclass jtask_class_Comm = (*env)->FindClass(env, "org/simgrid/msg/Comm");
- return (*env)->GetLongField(env, jtask, id) ? JNI_TRUE : JNI_FALSE;
+ jtask_field_Comm_constructor = (*env)->GetMethodID(env, jtask_class_Comm, "<init>", "()V");
+ //FIXME: Don't use jxbt_get_sfield directly.
+ jtask_field_Task_bind = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
+ jtask_field_Comm_bind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
+ jtask_field_Comm_taskBind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "taskBind", "J");
+ jtask_field_Comm_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
}
JNIEXPORT jobject JNICALL
msg_comm_t comm;
const char *mailbox;
jclass comm_class;
- jmethodID cid;
- jfieldID id;
- jfieldID id_task;
- jfieldID id_receiving;
//pointer to store the task object pointer.
m_task_t *task = xbt_new(m_task_t,1);
*task = NULL;
/* There should be a cache here */
comm_class = (*env)->FindClass(env, "org/simgrid/msg/Comm");
- cid = (*env)->GetMethodID(env, comm_class, "<init>", "()V");
- id = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- id_task = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bindTask", "J");
- id_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
-
- if (!id || !id_task || !comm_class || !cid || !id_receiving) {
+ if (!comm_class) {
jxbt_throw_native(env,bprintf("fieldID or methodID or class not found."));
return NULL;
}
- jobject jcomm = (*env)->NewObject(env, comm_class, cid);
+ jobject jcomm = (*env)->NewObject(env, comm_class, jtask_field_Comm_constructor);
if (!jcomm) {
jxbt_throw_native(env,bprintf("Can't create a Comm object."));
return NULL;
comm = MSG_task_irecv(task,mailbox);
- (*env)->SetLongField(env, jcomm, id, (jlong) (long)(comm));
- (*env)->SetLongField(env, jcomm, id_task, (jlong) (long)(task));
- (*env)->SetBooleanField(env, jcomm, id_receiving, JNI_TRUE);
+ (*env)->SetLongField(env, jcomm, jtask_field_Comm_bind, (jlong) (long)(comm));
+ (*env)->SetLongField(env, jcomm, jtask_field_Comm_taskBind, (jlong) (long)(task));
+ (*env)->SetBooleanField(env, jcomm, jtask_field_Comm_receiving, JNI_TRUE);
(*env)->ReleaseStringUTFChars(env, jmailbox, mailbox);
JNIEXPORT jobject JNICALL
Java_org_simgrid_msg_Task_isend(JNIEnv *env, jobject jtask, jstring jmailbox) {
jclass comm_class;
- jmethodID cid;
- jfieldID id_bind;
- jfieldID id_bind_task;
- jfieldID id_receiving;
- jobject jcomm;
+
const char *mailbox;
+
m_task_t task;
+
+ jobject jcomm;
msg_comm_t comm;
comm_class = (*env)->FindClass(env, "org/simgrid/msg/Comm");
- cid = (*env)->GetMethodID(env, comm_class, "<init>", "()V");
- id_bind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
- id_bind_task = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bindTask", "J");
- id_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
- if (!comm_class || !cid || !id_bind || !id_bind_task || !id_receiving) return NULL;
+ if (!comm_class) return NULL;
- jcomm = (*env)->NewObject(env, comm_class, cid);
+ jcomm = (*env)->NewObject(env, comm_class, jtask_field_Comm_constructor);
mailbox = (*env)->GetStringUTFChars(env, jmailbox, 0);
task = jtask_to_native_task(jtask, env);
jxbt_throw_notbound(env, "task", jtask);
return NULL;
}
+
MSG_task_set_data(task, (void *) (*env)->NewGlobalRef(env, jtask));
comm = MSG_task_isend(task,mailbox);
- (*env)->SetLongField(env, jcomm, id_bind, (jlong) (long)(comm));
- (*env)->SetLongField(env, jcomm, id_bind_task, (jlong) (long)(NULL));
- (*env)->SetBooleanField(env, jcomm, id_receiving, JNI_FALSE);
+ (*env)->SetLongField(env, jcomm, jtask_field_Comm_bind, (jlong) (long)(comm));
+ (*env)->SetLongField(env, jcomm, jtask_field_Comm_taskBind, (jlong) (long)(NULL));
+ (*env)->SetBooleanField(env, jcomm, jtask_field_Comm_receiving, JNI_FALSE);
(*env)->ReleaseStringUTFChars(env, jmailbox, mailbox);