1 /* Functions related to the java host instances. */
3 /* Copyright (c) 2007-2014. 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. */
13 #include "jxbt_utilities.h"
15 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
17 static jmethodID jas_method_As_constructor;
18 static jfieldID jas_field_As_bind;
20 jobject jas_new_instance(JNIEnv * env) {
21 jclass cls = jxbt_get_class(env, "org/simgrid/msg/As");
22 return (*env)->NewObject(env, cls, jas_method_As_constructor);
25 jobject jas_ref(JNIEnv * env, jobject jas) {
26 return (*env)->NewGlobalRef(env, jas);
29 void jas_unref(JNIEnv * env, jobject jas) {
30 (*env)->DeleteGlobalRef(env, jas);
33 void jas_bind(jobject jas, msg_as_t as, JNIEnv * env) {
34 (*env)->SetLongField(env, jas, jas_field_As_bind, (jlong) (long) (as));
37 msg_as_t jas_get_native(JNIEnv * env, jobject jas) {
38 return (msg_as_t) (long) (*env)->GetLongField(env, jas, jas_field_As_bind);
41 JNIEXPORT void JNICALL
42 Java_org_simgrid_msg_As_nativeInit(JNIEnv *env, jclass cls) {
43 jclass class_As = (*env)->FindClass(env, "org/simgrid/msg/As");
44 jas_method_As_constructor = (*env)->GetMethodID(env, class_As, "<init>", "()V");
45 jas_field_As_bind = jxbt_get_jfield(env,class_As, "bind", "J");
46 if (!class_As || !jas_method_As_constructor || !jas_field_As_bind) {
47 jxbt_throw_native(env,bprintf("Can't find some fields in Java class. You should report this bug."));
51 JNIEXPORT jobject JNICALL
52 Java_org_simgrid_msg_As_getName(JNIEnv * env, jobject jas) {
53 msg_as_t as = jas_get_native(env, jas);
54 return (*env)->NewStringUTF(env, MSG_environment_as_get_name(as));
57 JNIEXPORT jobjectArray JNICALL
58 Java_org_simgrid_msg_As_getSons(JNIEnv * env, jobject jas) {
63 msg_as_t self_as = jas_get_native(env, jas);
65 xbt_dict_t dict = MSG_environment_as_get_routing_sons(self_as);
66 int count = xbt_dict_length(dict);
67 jclass cls = (*env)->FindClass(env, "org/simgrid/msg/As");
73 jtable = (*env)->NewObjectArray(env, (jsize) count, cls, NULL);
76 jxbt_throw_jni(env, "Hosts table allocation failed");
80 xbt_dict_cursor_t cursor=NULL;
83 xbt_dict_foreach(dict,cursor,key,tmp_as) {
84 tmp_jas = jas_new_instance(env);
86 jxbt_throw_jni(env, "java As instantiation failed");
89 tmp_jas = jas_ref(env, tmp_jas);
91 jxbt_throw_jni(env, "new global ref allocation failed");
94 jas_bind(tmp_jas, tmp_as, env);
96 (*env)->SetObjectArrayElement(env, jtable, index, tmp_jas);
103 JNIEXPORT jobject JNICALL
104 Java_org_simgrid_msg_As_getProperty(JNIEnv *env, jobject jas, jobject jname) {
105 msg_as_t as = jas_get_native(env, jas);
108 jxbt_throw_notbound(env, "as", jas);
111 const char *name = (*env)->GetStringUTFChars(env, jname, 0);
113 const char *property = MSG_environment_as_get_property_value(as, name);
118 jobject jproperty = (*env)->NewStringUTF(env, property);
120 (*env)->ReleaseStringUTFChars(env, jname, name);
125 JNIEXPORT jobject JNICALL
126 Java_org_simgrid_msg_As_getModel(JNIEnv * env, jobject jas) {
127 msg_as_t as = jas_get_native(env, jas);
128 return (*env)->NewStringUTF(env, MSG_environment_as_get_model(as));
131 JNIEXPORT jobjectArray JNICALL
132 Java_org_simgrid_msg_As_getHosts(JNIEnv * env, jobject jas)
139 msg_as_t as = jas_get_native(env, jas);
141 xbt_dynar_t table = MSG_environment_as_get_hosts(as);
142 int count = xbt_dynar_length(table);
144 jclass cls = jxbt_get_class(env, "org/simgrid/msg/Host");
150 jtable = (*env)->NewObjectArray(env, (jsize) count, cls, NULL);
153 jxbt_throw_jni(env, "Hosts table allocation failed");
157 for (index = 0; index < count; index++) {
159 host = xbt_dynar_get_as(table,index,msg_host_t);
161 jhost = (jobject) xbt_lib_get_level(host, JAVA_HOST_LEVEL);
163 jname = (*env)->NewStringUTF(env, MSG_host_get_name(host));
165 jhost = Java_org_simgrid_msg_Host_getByName(env, cls, jname);
167 /* FIXME: leak of jname ? */
170 (*env)->SetObjectArrayElement(env, jtable, index, jhost);
172 xbt_dynar_free(&table);