src/bindings/java/jmsg_as.cpp

   1 /* Functions related to the java host instances.                            */
   2
   3 /* Copyright (c) 2007-2015. 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 <xbt/str.h>
  10 #include <xbt/dict.h>
  11 #include <xbt/dynar.h>
  12
  13 #include <simgrid/s4u/host.hpp>
  14
  15 #include "simgrid/msg.h"
  16 #include "jmsg_as.h"
  17 #include "jmsg_host.h"
  18 #include "jxbt_utilities.h"
  19 #include "jmsg.h"
  20
  21 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
  22
  23 static jmethodID jas_method_As_constructor;
  24 static jfieldID jas_field_As_bind;
  25
  26 jobject jas_new_instance(JNIEnv * env) {
  27   jclass cls = jxbt_get_class(env, "org/simgrid/msg/As");
  28   return env->NewObject(cls, jas_method_As_constructor);
  29 }
  30
  31 jobject jas_ref(JNIEnv * env, jobject jas) {
  32   return env->NewGlobalRef(jas);
  33 }
  34
  35 void jas_unref(JNIEnv * env, jobject jas) {
  36   env->DeleteGlobalRef(jas);
  37 }
  38
  39 void jas_bind(jobject jas, msg_as_t as, JNIEnv * env) {
  40   env->SetLongField(jas, jas_field_As_bind, (jlong) (uintptr_t) (as));
  41 }
  42
  43 msg_as_t jas_get_native(JNIEnv * env, jobject jas) {
  44   return (msg_as_t) (uintptr_t) env->GetLongField(jas, jas_field_As_bind);
  45 }
  46
  47 JNIEXPORT void JNICALL Java_org_simgrid_msg_As_nativeInit(JNIEnv *env, jclass cls) {
  48   jclass class_As = env->FindClass("org/simgrid/msg/As");
  49   jas_method_As_constructor = env->GetMethodID(class_As, "<init>", "()V");
  50   jas_field_As_bind = jxbt_get_jfield(env,class_As, "bind", "J");
  51   if (!class_As || !jas_method_As_constructor || !jas_field_As_bind) {
  52     jxbt_throw_native(env,bprintf("Can't find some fields in Java class. You should report this bug."));
  53   }
  54 }
  55
  56 JNIEXPORT jobject JNICALL Java_org_simgrid_msg_As_getName(JNIEnv * env, jobject jas) {
  57   msg_as_t as = jas_get_native(env, jas);
  58   return env->NewStringUTF(MSG_environment_as_get_name(as));
  59 }
  60
  61 JNIEXPORT jobjectArray JNICALL Java_org_simgrid_msg_As_getSons(JNIEnv * env, jobject jas) {
  62   int index = 0;
  63   jobjectArray jtable;
  64   jobject tmp_jas;
  65   msg_as_t tmp_as;
  66   msg_as_t self_as = jas_get_native(env, jas);
  67
  68   xbt_dict_t dict = MSG_environment_as_get_routing_sons(self_as);
  69   int count = xbt_dict_length(dict);
  70   jclass cls = env->FindClass("org/simgrid/msg/As");
  71
  72   if (!cls) {
  73     return nullptr;
  74   }
  75
  76   jtable = env->NewObjectArray(static_cast<jsize>(count), cls, nullptr);
  77
  78   if (!jtable) {
  79     jxbt_throw_jni(env, "Hosts table allocation failed");
  80     return nullptr;
  81   }
  82
  83   xbt_dict_cursor_t cursor=nullptr;
  84   char *key;
  85
  86   xbt_dict_foreach(dict,cursor,key,tmp_as) {
  87     tmp_jas = jas_new_instance(env);
  88     if (!tmp_jas) {
  89       jxbt_throw_jni(env, "java As instantiation failed");
  90       return nullptr;
  91     }
  92     tmp_jas = jas_ref(env, tmp_jas);
  93     if (!tmp_jas) {
  94       jxbt_throw_jni(env, "new global ref allocation failed");
  95       return nullptr;
  96     }
  97     jas_bind(tmp_jas, tmp_as, env);
  98
  99     env->SetObjectArrayElement(jtable, index, tmp_jas);
 100     index++;
 101   }
 102   return jtable;
 103 }
 104
 105 JNIEXPORT jobject JNICALL Java_org_simgrid_msg_As_getProperty(JNIEnv *env, jobject jas, jobject jname) {
 106   msg_as_t as = jas_get_native(env, jas);
 107
 108   if (!as) {
 109     jxbt_throw_notbound(env, "as", jas);
 110     return nullptr;
 111   }
 112   const char *name = env->GetStringUTFChars(static_cast<jstring>(jname), 0);
 113
 114   const char *property = MSG_environment_as_get_property_value(as, name);
 115   if (!property) {
 116     return nullptr;
 117   }
 118
 119   jobject jproperty = env->NewStringUTF(property);
 120
 121   env->ReleaseStringUTFChars(static_cast<jstring>(jname), name);
 122
 123   return jproperty;
 124 }
 125
 126 JNIEXPORT jobjectArray JNICALL Java_org_simgrid_msg_As_getHosts(JNIEnv * env, jobject jas)
 127 {
 128   int index;
 129   jobjectArray jtable;
 130   jobject jhost;
 131   jstring jname;
 132   msg_host_t host;
 133   msg_as_t as = jas_get_native(env, jas);
 134
 135   xbt_dynar_t table =  MSG_environment_as_get_hosts(as);
 136   int count = xbt_dynar_length(table);
 137
 138   jclass cls = jxbt_get_class(env, "org/simgrid/msg/Host");
 139
 140   if (!cls) {
 141     return nullptr;
 142   }
 143
 144   jtable = env->NewObjectArray(static_cast<jsize>(count), cls, nullptr);
 145
 146   if (!jtable) {
 147     jxbt_throw_jni(env, "Hosts table allocation failed");
 148     return nullptr;
 149   }
 150
 151   for (index = 0; index < count; index++) {
 152     host = xbt_dynar_get_as(table,index,msg_host_t);
 153
 154     jhost = static_cast<jobject>(host->extension(JAVA_HOST_LEVEL));
 155     if (!jhost) {
 156       jname = env->NewStringUTF(host->cname());
 157
 158       jhost = Java_org_simgrid_msg_Host_getByName(env, cls, jname);
 159
 160       /* FIXME: leak of jname ? */
 161     }
 162
 163     env->SetObjectArrayElement(jtable, index, jhost);
 164   }
 165   xbt_dynar_free(&table);
 166   return jtable;
 167 }