X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d442cebf6863fc131f3fcf453039a70e6b014d11..4d02714ee138a3bd9b02e0064b7a2aa26407e9e8:/src/bindings/java/jmsg.cpp diff --git a/src/bindings/java/jmsg.cpp b/src/bindings/java/jmsg.cpp index 41db649cc2..ebe959756d 100644 --- a/src/bindings/java/jmsg.cpp +++ b/src/bindings/java/jmsg.cpp @@ -1,32 +1,38 @@ /* Java Wrappers to the MSG API. */ -/* Copyright (c) 2007-2015. The SimGrid Team. - * All rights reserved. */ +/* Copyright (c) 2007-2019. The SimGrid Team. All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include +#include +#include +#include +#include +#include -#include -#include -#include +#include "simgrid/Exception.hpp" +#include "simgrid/msg.h" +#include "simgrid/plugins/energy.h" +#include "simgrid/plugins/file_system.h" +#include "simgrid/plugins/live_migration.h" +#include "simgrid/plugins/load.h" +#include "simgrid/simix.h" -#include +#include "simgrid/s4u/Host.hpp" -#include +#include "src/simix/smx_private.hpp" -#include "jmsg_process.h" -#include "jmsg_as.h" +#include "jmsg.hpp" +#include "jmsg_as.hpp" #include "jmsg_host.h" +#include "jmsg_process.h" #include "jmsg_storage.h" #include "jmsg_task.h" -#include "jxbt_utilities.h" -#include "jmsg.h" +#include "jxbt_utilities.hpp" #include "JavaContext.hpp" -#include /* Shut up some errors in eclipse online compiler. I wish such a pimple wouldn't be needed */ #ifndef JNIEXPORT @@ -37,42 +43,36 @@ #endif /* end of eclipse-mandated pimple */ -SG_BEGIN_DECL() - int JAVA_HOST_LEVEL = -1; -int JAVA_STORAGE_LEVEL = -1; -XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg); +XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(java); JavaVM *__java_vm = nullptr; -JavaVM *get_java_VM() -{ - return __java_vm; -} - JNIEnv *get_current_thread_env() { - JNIEnv *env; - - __java_vm->AttachCurrentThread((void **) &env, nullptr); - return env; + using simgrid::kernel::context::JavaContext; + JavaContext* ctx = static_cast(simgrid::kernel::context::Context::self()); + if (ctx) + return ctx->jenv_; + else + return nullptr; } void jmsg_throw_status(JNIEnv *env, msg_error_t status) { switch (status) { case MSG_TIMEOUT: - jxbt_throw_time_out_failure(env,nullptr); - break; + jxbt_throw_time_out_failure(env, ""); + break; case MSG_TRANSFER_FAILURE: - jxbt_throw_transfer_failure(env,nullptr); - break; + jxbt_throw_transfer_failure(env, ""); + break; case MSG_HOST_FAILURE: - jxbt_throw_host_failure(env,nullptr); - break; + jxbt_throw_host_failure(env, ""); + break; case MSG_TASK_CANCELED: - jxbt_throw_task_cancelled(env,nullptr); - break; + jxbt_throw_task_cancelled(env, ""); + break; default: xbt_die("undefined message failed (please see jmsg_throw_status function in jmsg.cpp)"); } @@ -87,25 +87,8 @@ JNIEXPORT jdouble JNICALL Java_org_simgrid_msg_Msg_getClock(JNIEnv * env, jclass return (jdouble) MSG_get_clock(); } -static void __JAVA_host_priv_free(void *host) -{ -} - -static void __JAVA_storage_priv_free(void *storage) -{ -} - JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_init(JNIEnv * env, jclass cls, jobjectArray jargs) { - char **argv = nullptr; - int index; - int argc = 0; - jstring jval; - const char *tmp; - - XBT_LOG_CONNECT(jmsg); - XBT_LOG_CONNECT(jtrace); - env->GetJavaVM(&__java_vm); simgrid::kernel::context::factory_initializer = &simgrid::kernel::context::java_factory; @@ -116,30 +99,36 @@ JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_init(JNIEnv * env, jclass cls, j setlocale(LC_NUMERIC,"C"); + int argc = 1; if (jargs) - argc = (int) env->GetArrayLength(jargs); - - argc++; - argv = xbt_new(char *, argc + 1); - argv[0] = xbt_strdup("java"); - - for (index = 0; index < argc - 1; index++) { - jval = (jstring) env->GetObjectArrayElement(jargs, index); - tmp = env->GetStringUTFChars(jval, 0); - argv[index + 1] = xbt_strdup(tmp); + argc += static_cast(env->GetArrayLength(jargs)); + xbt_assert(argc > 0); + + // Need a static storage because the XBT layer saves the arguments in xbt_binary_name and xbt_cmdline. + static std::vector args; + args.reserve(argc); + + args.emplace_back("java"); + for (int index = 1; index < argc; index++) { + jstring jval = (jstring)env->GetObjectArrayElement(jargs, index - 1); + const char* tmp = env->GetStringUTFChars(jval, 0); + args.emplace_back(tmp); env->ReleaseStringUTFChars(jval, tmp); } - argv[argc] = nullptr; - MSG_init(&argc, argv); + std::unique_ptr argv(new char*[argc + 1]); + std::transform(begin(args), end(args), argv.get(), [](std::string& s) { return &s.front(); }); + argv[argc] = nullptr; - JAVA_HOST_LEVEL = simgrid::s4u::Host::extension_create(__JAVA_host_priv_free); - JAVA_STORAGE_LEVEL = xbt_lib_add_level(storage_lib, __JAVA_storage_priv_free); + int argc2 = argc; + MSG_init(&argc2, argv.get()); + xbt_assert(argc2 <= argc); - for (index = 0; index < argc; index++) - free(argv[index]); + for (int index = 1; index < argc2; index++) + env->SetObjectArrayElement(jargs, index - 1, (jstring)env->NewStringUTF(argv[index])); - free(argv); + sg_vm_live_migration_plugin_init(); + JAVA_HOST_LEVEL = simgrid::s4u::Host::extension_create(nullptr); } JNIEXPORT void JNICALL JNICALL Java_org_simgrid_msg_Msg_run(JNIEnv * env, jclass cls) @@ -151,7 +140,7 @@ JNIEXPORT void JNICALL JNICALL Java_org_simgrid_msg_Msg_run(JNIEnv * env, jclass jxbt_check_res("MSG_main()", rv, MSG_OK, xbt_strdup("unexpected error : MSG_main() failed .. please report this bug ")); - XBT_INFO("MSG_main finished; Cleaning up the simulation..."); + XBT_INFO("MSG_main finished; Terminating the simulation..."); /* Cleanup java hosts */ xbt_dynar_t hosts = MSG_hosts_as_dynar(); for (unsigned long index = 0; index < xbt_dynar_length(hosts) - 1; index++) { @@ -159,20 +148,18 @@ JNIEXPORT void JNICALL JNICALL Java_org_simgrid_msg_Msg_run(JNIEnv * env, jclass jobject jhost = (jobject) msg_host->extension(JAVA_HOST_LEVEL); if (jhost) jhost_unref(env, jhost); - } xbt_dynar_free(&hosts); /* Cleanup java storages */ - xbt_dynar_t storages = MSG_storages_as_dynar(); - if(!xbt_dynar_is_empty(storages)){ - for (unsigned long index = 0; index < xbt_dynar_length(storages) - 1; index++) { - jobject jstorage = (jobject) xbt_lib_get_level(xbt_dynar_get_as(storages,index,msg_storage_t), JAVA_STORAGE_LEVEL); - if (jstorage) - jstorage_unref(env, jstorage); - } - } - xbt_dynar_free(&storages); + for (auto const& elm : java_storage_map) + jstorage_unref(env, elm.second); + + /* Display the status of remaining threads. None should survive, but who knows */ + jclass clsProcess = jxbt_get_class(env, "org/simgrid/msg/Process"); + jmethodID idDebug = jxbt_get_static_jmethod(env, clsProcess, "debugAllThreads", "()V"); + xbt_assert(idDebug != nullptr, "Method Process.debugAllThreads() not found..."); + env->CallStaticVoidMethod(clsProcess, idDebug); } JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_createEnvironment(JNIEnv * env, jclass cls, jstring jplatformFile) @@ -186,18 +173,18 @@ JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_createEnvironment(JNIEnv * env, JNIEXPORT jobject JNICALL Java_org_simgrid_msg_Msg_environmentGetRoutingRoot(JNIEnv * env, jclass cls) { - msg_netzone_t as = MSG_environment_get_routing_root(); - jobject jas = jas_new_instance(env); - if (!jas) { + msg_netzone_t as = MSG_zone_get_root(); + jobject jas = jnetzone_new_instance(env); + if (not jas) { jxbt_throw_jni(env, "java As instantiation failed"); return nullptr; } - jas = jas_ref(env, jas); - if (!jas) { + jas = jnetzone_ref(env, jas); + if (not jas) { jxbt_throw_jni(env, "new global ref allocation failed"); return nullptr; } - jas_bind(jas, as, env); + jnetzone_bind(jas, as, env); return (jobject) jas; } @@ -259,8 +246,14 @@ JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_energyInit() { sg_host_energy_plugin_init(); } -SG_END_DECL() +JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_fileSystemInit() +{ + sg_storage_file_system_init(); +} +JNIEXPORT void JNICALL Java_org_simgrid_msg_Msg_loadInit() { + sg_host_load_plugin_init(); +} /** Run a Java org.simgrid.msg.Process * * If needed, this waits for the process starting time. @@ -273,22 +266,32 @@ static void run_jprocess(JNIEnv *env, jobject jprocess) jdouble startTime = env->GetDoubleField(jprocess, jprocess_field_Process_startTime); if (startTime > MSG_get_clock()) MSG_process_sleep(startTime - MSG_get_clock()); + //Execution of the "run" method. jmethodID id = jxbt_get_smethod(env, "org/simgrid/msg/Process", "run", "()V"); - xbt_assert((id != nullptr), "Method run() not found..."); + xbt_assert((id != nullptr), "Method Process.run() not found..."); + env->CallVoidMethod(jprocess, id); + if (env->ExceptionOccurred()) { + XBT_DEBUG("Something went wrong in this Java actor, forget about it."); + env->ExceptionClear(); + XBT_ATTRIB_UNUSED jint error = __java_vm->DetachCurrentThread(); + xbt_assert(error == JNI_OK, "Cannot detach failing thread"); + simgrid::ForcefulKillException::do_throw(); + } } /** Create a Java org.simgrid.msg.Process with the arguments and run it */ static int java_main(int argc, char *argv[]) { JNIEnv *env = get_current_thread_env(); - simgrid::kernel::context::JavaContext* context = static_cast(SIMIX_context_self()); + simgrid::kernel::context::JavaContext* context = + static_cast(simgrid::kernel::context::Context::self()); //Change the "." in class name for "/". - xbt_str_subst(argv[0],'.','/',0); - jclass class_Process = env->FindClass(argv[0]); - xbt_str_subst(argv[0],'/','.',0); + std::string arg0 = argv[0]; + std::replace(begin(arg0), end(arg0), '.', '/'); + jclass class_Process = env->FindClass(arg0.c_str()); //Retrieve the methodID for the constructor xbt_assert((class_Process != nullptr), "Class not found (%s). The deployment file must use the fully qualified class name, including the package. The case is important.", argv[0]); jmethodID constructor_Process = env->GetMethodID(class_Process, "", "(Lorg/simgrid/msg/Host;Ljava/lang/String;[Ljava/lang/String;)V"); @@ -302,7 +305,7 @@ static int java_main(int argc, char *argv[]) for (int i = 1; i < argc; i++) env->SetObjectArrayElement(args,i - 1, env->NewStringUTF(argv[i])); //Retrieve the host for the process. - jstring jhostName = env->NewStringUTF(MSG_host_self()->cname()); + jstring jhostName = env->NewStringUTF(MSG_host_self()->get_cname()); jobject jhost = Java_org_simgrid_msg_Host_getByName(env, nullptr, jhostName); //creates the process jobject jprocess = env->NewObject(class_Process, constructor_Process, jhost, jname, args); @@ -311,13 +314,13 @@ static int java_main(int argc, char *argv[]) //bind the process to the context msg_process_t process = MSG_process_self(); - context->jprocess = jprocess; + context->jprocess_ = jprocess; /* sets the PID and the PPID of the process */ env->SetIntField(jprocess, jprocess_field_Process_pid, static_cast(MSG_process_get_PID(process))); env->SetIntField(jprocess, jprocess_field_Process_ppid, static_cast(MSG_process_get_PPID(process))); jprocess_bind(jprocess, process, env); - run_jprocess(env, context->jprocess); + run_jprocess(env, context->jprocess_); return 0; } @@ -329,13 +332,11 @@ namespace context { void java_main_jprocess(jobject jprocess) { JNIEnv *env = get_current_thread_env(); - simgrid::kernel::context::JavaContext* context = static_cast(SIMIX_context_self()); - context->jprocess = jprocess; - smx_actor_t process = SIMIX_process_self(); - jprocess_bind(context->jprocess, process, env); - - // Adrien, ugly path, just to bypass creation of context at low levels (i.e such as for the VM migration for instance) - if (context->jprocess != nullptr) - run_jprocess(env, context->jprocess); + simgrid::kernel::context::JavaContext* context = + static_cast(simgrid::kernel::context::Context::self()); + context->jprocess_ = jprocess; + jprocess_bind(context->jprocess_, MSG_process_self(), env); + + run_jprocess(env, context->jprocess_); } }}}