src/jmsg_comm.c

   1 /* Functions related to the java comm instances                                                                                                                                 */
   2
   3 /* Copyright (c) 2012. The SimGrid Team. All rights reserved.                   */
   4 #include "jmsg_comm.h"
   5 #include "jxbt_utilities.h"
   6 #include <msg/msg.h>
   7 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
   8
   9 static jfieldID jtask_field_Comm_task;
  10 static jfieldID jcomm_field_Comm_bind;
  11 static jfieldID jcomm_field_Comm_taskBind;
  12 static jfieldID jcomm_field_Comm_receiving;
  13
  14 void jcomm_bind_task(JNIEnv *env, jobject jcomm) {
  15         msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
  16         //test if we are receiving or sending a task.
  17         jboolean jreceiving = (*env)->GetBooleanField(env, jcomm, jcomm_field_Comm_receiving);
  18         if (jreceiving == JNI_TRUE) {
  19                 //bind the task object.
  20                 m_task_t task = MSG_comm_get_task(comm);
  21                 xbt_assert(task != NULL, "Task is NULL");
  22                 jobject jtask_global = MSG_task_get_data(task);
  23                 //case where the data has already been retrieved
  24                 if (jtask_global == NULL) {
  25                         return;
  26                 }
  27
  28                 //Make sure the data will be correctly gc.
  29                 jobject jtask_local = (*env)->NewLocalRef(env, jtask_global);
  30                 (*env)->DeleteGlobalRef(env, jtask_global);
  31
  32                 (*env)->SetObjectField(env, jcomm, jtask_field_Comm_task, jtask_local);
  33
  34                 MSG_task_set_data(task, NULL);
  35         }
  36
  37 }
  38 void jcomm_throw(JNIEnv *env, MSG_error_t status) {
  39         switch (status) {
  40                 case MSG_TIMEOUT:
  41                         jxbt_throw_time_out_failure(env,NULL);
  42                 break;
  43                 case MSG_TRANSFER_FAILURE:
  44                         jxbt_throw_transfer_failure(env,NULL);
  45                 break;
  46                 case MSG_HOST_FAILURE:
  47                         jxbt_throw_host_failure(env,NULL);
  48                 break;
  49                 default:
  50                         jxbt_throw_native(env,bprintf("communication failed"));
  51         }
  52 }
  53
  54 JNIEXPORT void JNICALL
  55 Java_org_simgrid_msg_Comm_nativeInit(JNIEnv *env, jclass cls) {
  56         jclass jfield_class_Comm = (*env)->FindClass(env, "org/simgrid/msg/Comm");
  57         jcomm_field_Comm_bind = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
  58         jcomm_field_Comm_taskBind  = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "taskBind", "J");
  59         jcomm_field_Comm_receiving = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "receiving", "Z");
  60         jtask_field_Comm_task = jxbt_get_jfield(env, jfield_class_Comm, "task", "Lorg/simgrid/msg/Task;");
  61 }
  62
  63 JNIEXPORT void JNICALL
  64 Java_org_simgrid_msg_Comm_unbind(JNIEnv *env, jobject jcomm) {
  65         msg_comm_t comm;
  66         m_task_t *task_received;
  67
  68         task_received = (m_task_t*)  (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_taskBind);
  69         if (task_received != NULL) {
  70                 xbt_free(task_received);
  71         }
  72
  73         comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
  74         MSG_comm_destroy(comm);
  75 }
  76
  77 JNIEXPORT jboolean JNICALL
  78 Java_org_simgrid_msg_Comm_test(JNIEnv *env, jobject jcomm) {
  79         msg_comm_t comm;
  80         comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
  81
  82         if (!comm) {
  83                 jxbt_throw_native(env,bprintf("comm is null"));
  84                 return JNI_FALSE;
  85         }
  86         if (MSG_comm_test(comm)) {
  87                 MSG_error_t status = MSG_comm_get_status(comm);
  88                 if (status == MSG_OK) {
  89                         jcomm_bind_task(env,jcomm);
  90                         return JNI_TRUE;
  91                 }
  92                 else {
  93                         //send the correct exception
  94                         jcomm_throw(env,status);
  95                         return JNI_FALSE;
  96                 }
  97         }
  98         else {
  99                 return JNI_FALSE;
 100         }
 101 }
 102 JNIEXPORT void JNICALL
 103 Java_org_simgrid_msg_Comm_waitCompletion(JNIEnv *env, jobject jcomm, jdouble timeout) {
 104         msg_comm_t comm = (msg_comm_t) (long) (*env)->GetLongField(env, jcomm, jcomm_field_Comm_bind);
 105         if (!comm) {
 106                 jxbt_throw_native(env,bprintf("comm is null"));
 107                 return;
 108         }
 109
 110         MSG_error_t status = MSG_comm_wait(comm,(double)timeout);
 111         if (status == MSG_OK) {
 112                 jcomm_bind_task(env,jcomm);
 113                 return;
 114         }
 115         else {
 116                 jcomm_throw(env,status);
 117         }
 118
 119
 120 }