src/jmsg_task.c

   1 /* Functions related to the java task instances.                            */
   2
   3 /* Copyright (c) 2007, 2009, 2010. The SimGrid Team.
   4  * All rights reserved.                                                     */
   5
   6 /* This program is free software; you can redistribute it and/or modify it
   7   * under the terms of the license (GNU LGPL) which comes with this package. */
   8
   9 #include "jmsg.h"
  10 #include "jmsg_task.h"
  11 #include "jxbt_utilities.h"
  12
  13 #include <msg/msg.h>
  14 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
  15
  16 void jtask_bind(jobject jtask, m_task_t task, JNIEnv * env)
  17 {
  18   jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
  19
  20   if (!id)
  21     return;
  22
  23   (*env)->SetLongField(env, jtask, id, (jlong) (long) (task));
  24 }
  25
  26 m_task_t jtask_to_native_task(jobject jtask, JNIEnv * env)
  27 {
  28   jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
  29
  30   if (!id)
  31     return NULL;
  32
  33   return (m_task_t) (long) (*env)->GetLongField(env, jtask, id);
  34 }
  35
  36 jboolean jtask_is_valid(jobject jtask, JNIEnv * env)
  37 {
  38   jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Task", "bind", "J");
  39
  40   if (!id)
  41     return JNI_FALSE;
  42
  43   return (*env)->GetLongField(env, jtask, id) ? JNI_TRUE : JNI_FALSE;
  44 }
  45
  46 JNIEXPORT void JNICALL
  47 Java_org_simgrid_msg_Task_irecvBind(JNIEnv * env, jclass cls, jobject jcomm, jstring jmailbox) {
  48         msg_comm_t comm;
  49         const char *mailbox;
  50         //pointer to store the task object pointer.
  51         m_task_t *task = xbt_new(m_task_t,1);
  52         *task = NULL;
  53         /* There should be a cache here */
  54         jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bind", "J");
  55         jfieldID id_task = jxbt_get_sfield(env, "org/simgrid/msg/Comm", "bindTask", "J");
  56
  57         if (!id || !id_task)
  58                 return;
  59
  60
  61         mailbox = (*env)->GetStringUTFChars(env, jmailbox, 0);
  62
  63         comm = MSG_task_irecv(task,mailbox);
  64
  65         (*env)->SetLongField(env, jcomm, id, (jlong) (long)(comm));
  66         (*env)->SetLongField(env, jcomm, id_task, (jlong) (long)(task));
  67
  68         (*env)->ReleaseStringUTFChars(env, jmailbox, mailbox);
  69 }