1 /* Functions related to the java host instances. */
3 /* Copyright (c) 2007-2015. The SimGrid Team.
4 * All rights reserved. */
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. */
11 #include "simgrid/msg.h"
13 #include "jmsg_host.h"
14 #include "jxbt_utilities.h"
17 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
19 static jmethodID jas_method_As_constructor;
20 static jfieldID jas_field_As_bind;
22 jobject jas_new_instance(JNIEnv * env) {
23 jclass cls = jxbt_get_class(env, "org/simgrid/msg/As");
24 return env->NewObject(cls, jas_method_As_constructor);
27 jobject jas_ref(JNIEnv * env, jobject jas) {
28 return env->NewGlobalRef(jas);
31 void jas_unref(JNIEnv * env, jobject jas) {
32 env->DeleteGlobalRef(jas);
35 void jas_bind(jobject jas, msg_as_t as, JNIEnv * env) {
36 env->SetLongField(jas, jas_field_As_bind, (jlong) (uintptr_t) (as));
39 msg_as_t jas_get_native(JNIEnv * env, jobject jas) {
40 return (msg_as_t) (uintptr_t) env->GetLongField(jas, jas_field_As_bind);
43 JNIEXPORT void JNICALL Java_org_simgrid_msg_As_nativeInit(JNIEnv *env, jclass cls) {
44 jclass class_As = env->FindClass("org/simgrid/msg/As");
45 jas_method_As_constructor = env->GetMethodID(class_As, "<init>", "()V");
46 jas_field_As_bind = jxbt_get_jfield(env,class_As, "bind", "J");
47 if (!class_As || !jas_method_As_constructor || !jas_field_As_bind) {
48 jxbt_throw_native(env,bprintf("Can't find some fields in Java class. You should report this bug."));
52 JNIEXPORT jobject JNICALL Java_org_simgrid_msg_As_getName(JNIEnv * env, jobject jas) {
53 msg_as_t as = jas_get_native(env, jas);
54 return env->NewStringUTF(MSG_environment_as_get_name(as));
57 JNIEXPORT jobjectArray JNICALL Java_org_simgrid_msg_As_getSons(JNIEnv * env, jobject jas) {
62 msg_as_t self_as = jas_get_native(env, jas);
64 xbt_dict_t dict = MSG_environment_as_get_routing_sons(self_as);
65 int count = xbt_dict_length(dict);
66 jclass cls = env->FindClass("org/simgrid/msg/As");
72 jtable = env->NewObjectArray((jsize) count, cls, NULL);
75 jxbt_throw_jni(env, "Hosts table allocation failed");
79 xbt_dict_cursor_t cursor=NULL;
82 xbt_dict_foreach(dict,cursor,key,tmp_as) {
83 tmp_jas = jas_new_instance(env);
85 jxbt_throw_jni(env, "java As instantiation failed");
88 tmp_jas = jas_ref(env, tmp_jas);
90 jxbt_throw_jni(env, "new global ref allocation failed");
93 jas_bind(tmp_jas, tmp_as, env);
95 env->SetObjectArrayElement(jtable, index, tmp_jas);
101 JNIEXPORT jobject JNICALL Java_org_simgrid_msg_As_getProperty(JNIEnv *env, jobject jas, jobject jname) {
102 msg_as_t as = jas_get_native(env, jas);
105 jxbt_throw_notbound(env, "as", jas);
108 const char *name = env->GetStringUTFChars((jstring) jname, 0);
110 const char *property = MSG_environment_as_get_property_value(as, name);
115 jobject jproperty = env->NewStringUTF(property);
117 env->ReleaseStringUTFChars((jstring) jname, name);
122 JNIEXPORT jobjectArray JNICALL Java_org_simgrid_msg_As_getHosts(JNIEnv * env, jobject jas)
129 msg_as_t as = jas_get_native(env, jas);
131 xbt_dynar_t table = MSG_environment_as_get_hosts(as);
132 int count = xbt_dynar_length(table);
134 jclass cls = jxbt_get_class(env, "org/simgrid/msg/Host");
140 jtable = env->NewObjectArray((jsize) count, cls, NULL);
143 jxbt_throw_jni(env, "Hosts table allocation failed");
147 for (index = 0; index < count; index++) {
148 host = xbt_dynar_get_as(table,index,msg_host_t);
150 jhost = (jobject) host->extension(JAVA_HOST_LEVEL);
152 jname = env->NewStringUTF(MSG_host_get_name(host));
154 jhost = Java_org_simgrid_msg_Host_getByName(env, cls, jname);
156 /* FIXME: leak of jname ? */
159 env->SetObjectArrayElement(jtable, index, jhost);
161 xbt_dynar_free(&table);