X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/82567f27fa74ddc2b6afa8d9b682bdde15fe3f9c..6fbcdfade89b3812c24152c86f8aa3be510df7f2:/src/bindings/java/jmsg_process.cpp diff --git a/src/bindings/java/jmsg_process.cpp b/src/bindings/java/jmsg_process.cpp deleted file mode 100644 index 26906a4f3c..0000000000 --- a/src/bindings/java/jmsg_process.cpp +++ /dev/null @@ -1,304 +0,0 @@ -/* Functions related to the java process instances. */ - -/* 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 "jmsg_process.h" - -#include "JavaContext.hpp" -#include "jmsg.hpp" -#include "jmsg_host.h" -#include "jxbt_utilities.hpp" -#include "simgrid/Exception.hpp" -#include "src/simix/ActorImpl.hpp" - -XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(java); - -jfieldID jprocess_field_Process_bind; -jfieldID jprocess_field_Process_host; -jfieldID jprocess_field_Process_killTime; -jfieldID jprocess_field_Process_name; -jfieldID jprocess_field_Process_pid; -jfieldID jprocess_field_Process_ppid; - -jobject jprocess_from_native(msg_process_t process) -{ - simgrid::kernel::context::JavaContext* context = - static_cast(process->get_impl()->context_.get()); - return context->jprocess_; -} - -jobject jprocess_ref(jobject jprocess, JNIEnv* env) -{ - return env->NewGlobalRef(jprocess); -} - -void jprocess_unref(jobject jprocess, JNIEnv* env) -{ - env->DeleteGlobalRef(jprocess); -} - -msg_process_t jprocess_to_native(jobject jprocess, JNIEnv* env) -{ - return (msg_process_t)(intptr_t)env->GetLongField(jprocess, jprocess_field_Process_bind); -} - -void jprocess_bind(jobject jprocess, msg_process_t process, JNIEnv * env) -{ - env->SetLongField(jprocess, jprocess_field_Process_bind, (intptr_t)process); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_nativeInit(JNIEnv *env, jclass cls) { - jclass jprocess_class_Process = env->FindClass("org/simgrid/msg/Process"); - xbt_assert(jprocess_class_Process, "Native initialization of msg/Process failed. Please report that bug"); - - jprocess_field_Process_name = jxbt_get_jfield(env, jprocess_class_Process, "name", "Ljava/lang/String;"); - jprocess_field_Process_bind = jxbt_get_jfield(env, jprocess_class_Process, "bind", "J"); - jprocess_field_Process_pid = jxbt_get_jfield(env, jprocess_class_Process, "pid", "I"); - jprocess_field_Process_ppid = jxbt_get_jfield(env, jprocess_class_Process, "ppid", "I"); - jprocess_field_Process_host = jxbt_get_jfield(env, jprocess_class_Process, "host", "Lorg/simgrid/msg/Host;"); - jprocess_field_Process_killTime = jxbt_get_jfield(env, jprocess_class_Process, "killTime", "D"); - xbt_assert(jprocess_field_Process_name && jprocess_field_Process_pid && jprocess_field_Process_ppid && - jprocess_field_Process_host, - "Native initialization of msg/Process failed. Please report that bug"); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_create(JNIEnv* env, jobject jprocess_arg, jobject jhost) -{ - /* create a global java process instance */ - jobject jprocess = jprocess_ref(jprocess_arg, env); - - /* Actually build the MSG process */ - jstring jname = (jstring)env->GetObjectField(jprocess, jprocess_field_Process_name); - const char* name = env->GetStringUTFChars(jname, 0); - simgrid::simix::ActorCode function = [jprocess]() { simgrid::kernel::context::java_main_jprocess(jprocess); }; - smx_actor_t self = SIMIX_process_self(); - sg_host_t host = jhost_get_native(env, jhost); - smx_actor_t actor = simgrid::simix::simcall([name, function, host, self] { - return simgrid::kernel::actor::ActorImpl::create(std::move(name), std::move(function), nullptr, host, nullptr, self) - .get(); - }); - MSG_process_yield(); - - env->ReleaseStringUTFChars(jname, name); - - /* Retrieve the kill time from the process */ - actor->ciface()->set_kill_time((double)env->GetDoubleField(jprocess, jprocess_field_Process_killTime)); - - /* sets the PID and the PPID of the process */ - env->SetIntField(jprocess, jprocess_field_Process_pid, (jint)actor->ciface()->get_pid()); - env->SetIntField(jprocess, jprocess_field_Process_ppid, (jint)actor->ciface()->get_ppid()); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_daemonize(JNIEnv* env, jobject jprocess) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - process->daemonize(); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_killAll(JNIEnv* env, jclass cls) -{ - MSG_process_killall(); -} - -JNIEXPORT jobject JNICALL Java_org_simgrid_msg_Process_fromPID(JNIEnv * env, jclass cls, jint pid) -{ - msg_process_t process = MSG_process_from_PID(pid); - - if (not process) { - jxbt_throw_process_not_found(env, std::string("PID = ") + std::to_string(static_cast(pid))); - return nullptr; - } - - jobject jprocess = jprocess_from_native(process); - - if (not jprocess) { - jxbt_throw_jni(env, "get process failed"); - return nullptr; - } - - return jprocess; -} - -JNIEXPORT jint JNICALL Java_org_simgrid_msg_Process_nativeGetPID(JNIEnv* env, jobject jprocess) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - return MSG_process_get_PID(process); -} - -JNIEXPORT jobject JNICALL Java_org_simgrid_msg_Process_getProperty(JNIEnv *env, jobject jprocess, jobject jname) { - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return nullptr; - } - const char *name = env->GetStringUTFChars((jstring)jname, 0); - - const char *property = MSG_process_get_property_value(process, name); - if (not property) - return nullptr; - - jobject jproperty = env->NewStringUTF(property); - - env->ReleaseStringUTFChars((jstring)jname, name); - - return jproperty; -} - -JNIEXPORT jobject JNICALL Java_org_simgrid_msg_Process_getCurrentProcess(JNIEnv * env, jclass cls) -{ - jobject jprocess = jprocess_from_native(MSG_process_self()); - if (not jprocess) - jxbt_throw_jni(env, xbt_strdup("SIMIX_process_get_jprocess() failed")); - - return jprocess; -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_suspend(JNIEnv * env, jobject jprocess) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - /* suspend the process */ - process->suspend(); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_resume(JNIEnv * env, jobject jprocess) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - /* resume the process */ - process->resume(); -} - -JNIEXPORT void -JNICALL Java_org_simgrid_msg_Process_setAutoRestart (JNIEnv *env, jobject jprocess, jboolean jauto_restart) { - - msg_process_t process = jprocess_to_native(jprocess, env); - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - process->set_auto_restart(jauto_restart == JNI_TRUE); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_restart (JNIEnv *env, jobject jprocess) { - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - process->restart(); -} - -JNIEXPORT jboolean JNICALL Java_org_simgrid_msg_Process_isSuspended(JNIEnv * env, jobject jprocess) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return 0; - } - - /* true is the process is suspended, false otherwise */ - return (jboolean)process->is_suspended(); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_sleep(JNIEnv *env, jclass cls, jlong jmillis, jint jnanos) - { - double time = ((double)jmillis) / 1000 + ((double)jnanos) / 1000000000; - msg_error_t rv = MSG_OK; - if (not simgrid::ForcefulKillException::try_n_catch([&time]() { simgrid::s4u::this_actor::sleep_for(time); })) { - rv = MSG_HOST_FAILURE; - } - if (rv != MSG_OK) { - jmsg_throw_status(env, rv); - } -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_waitFor(JNIEnv * env, jobject jprocess, jdouble jseconds) -{ - msg_error_t rv = MSG_OK; - if (not simgrid::ForcefulKillException::try_n_catch( - [&jseconds]() { simgrid::s4u::this_actor::sleep_for((double)jseconds); })) { - rv = MSG_HOST_FAILURE; - jxbt_throw_by_name(env, "org/simgrid/msg/ProcessKilledError", "Process killed"); - } - if (env->ExceptionOccurred()) - return; - if (rv != MSG_OK) { - XBT_DEBUG("Status NOK"); - jmsg_throw_status(env,rv); - } -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_kill(JNIEnv * env, jobject jprocess) -{ - /* get the native instances from the java ones */ - msg_process_t process = jprocess_to_native(jprocess, env); - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - if (not simgrid::ForcefulKillException::try_n_catch([&process]() { MSG_process_kill(process); })) { - jxbt_throw_by_name(env, "org/simgrid/msg/ProcessKilledError", "Process killed"); - } -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_migrate(JNIEnv * env, jobject jprocess, jobject jhost) -{ - msg_process_t process = jprocess_to_native(jprocess, env); - - if (not process) { - jxbt_throw_notbound(env, "process", jprocess); - return; - } - - msg_host_t host = jhost_get_native(env, jhost); - - if (not host) { - jxbt_throw_notbound(env, "host", jhost); - return; - } - - /* change the host of the process */ - process->migrate(host); - - /* change the host java side */ - env->SetObjectField(jprocess, jprocess_field_Process_host, jhost); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_yield(JNIEnv* env, jclass cls) -{ - MSG_process_yield(); -} - -JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_setKillTime (JNIEnv *env , jobject jprocess, jdouble jkilltime) { - msg_process_t process = jprocess_to_native(jprocess, env); - MSG_process_set_kill_time(process, (double)jkilltime); -} - -JNIEXPORT jint JNICALL Java_org_simgrid_msg_Process_getCount(JNIEnv * env, jclass cls) { - return (jint) MSG_process_get_number(); -}