1 /* Functions related to the java comm instances */
3 /* Copyright (c) 2012. The SimGrid Team. All rights reserved. */
5 #include "jxbt_utilities.h"
7 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
10 Java_org_simgrid_msg_Comm_unbind(JNIEnv *env, jobject jcomm) {
11 jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
12 jfieldID id_task = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bindTask", "J");
14 m_task_t *task_received;
18 task_received = (m_task_t*) (long) (*env)->GetLongField(env, jcomm, id_task);
19 if (task_received != NULL) {
20 xbt_free(task_received);
23 comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, id);
24 MSG_comm_destroy(comm);
27 JNIEXPORT jboolean JNICALL
28 Java_org_simgrid_msg_Comm_test(JNIEnv *env, jobject jcomm) {
31 jfieldID idComm = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
32 jclass jclass = jxbt_get_class(env,"org/simgrid/msg/Comm");
33 jfieldID idTask = jxbt_get_jfield(env, jclass, "task", "Lorg/simgrid/msg/Task;");
34 jfieldID id_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
37 if (!idComm || !idTask || !id_receiving) {
38 jxbt_throw_native(env,bprintf("idTask or idComm is null"));
42 comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, idComm);
44 jxbt_throw_native(env,bprintf("comm is null"));
47 if (MSG_comm_test(comm)) {
48 MSG_error_t status = MSG_comm_get_status(comm);
50 if (status == MSG_OK) {
51 //test if we are receiving or sending a task.
52 jboolean jreceiving = (*env)->GetBooleanField(env, jcomm, id_receiving);
53 if (jreceiving == JNI_TRUE) {
54 //bind the task object.
55 m_task_t task = MSG_comm_get_task(comm);
56 xbt_assert(task != NULL, "Task is NULL");
57 jobject jtask_global = MSG_task_get_data(task);
58 //case where the data has already been retrieved
59 if (jtask_global == NULL)
64 //Make sure the data will be correctly gc.
65 jobject jtask_local = (*env)->NewLocalRef(env, jtask_global);
66 (*env)->DeleteGlobalRef(env, jtask_global);
68 (*env)->SetObjectField(env, jcomm, idTask, jtask_local);
70 MSG_task_set_data(task, NULL);
75 //send the correct exception
78 jxbt_throw_time_out_failure(env,NULL);
80 case MSG_TRANSFER_FAILURE:
81 jxbt_throw_transfer_failure(env,NULL);
83 case MSG_HOST_FAILURE:
84 jxbt_throw_host_failure(env,NULL);
87 jxbt_throw_native(env,bprintf("receive failed"));