X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/93b7fb3201585c6c2734b41565cddd8ee9591146..d318c9e02308e2c7c66e3fcc06105d96332ebb44:/src/jmsg_process.c

diff --git a/src/jmsg_process.c b/src/jmsg_process.c
index c73bfb7032..dc3d26271b 100644
--- a/src/jmsg_process.c
+++ b/src/jmsg_process.c
@@ -5,15 +5,30 @@
 
 /* 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 "jmsg.h"
+#include "jmsg_host.h"
 #include "jxbt_utilities.h"
-
-#include "smx_context_java.h"  
+#include "smx_context_java.h"
+#include "smx_context_cojava.h"
 
 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
 
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_exit(JNIEnv *env, jobject jprocess) {
+	if (smx_factory_initializer_to_use == SIMIX_ctx_cojava_factory_init) {
+                m_process_t process = jprocess_to_native_process(jprocess, env);
+                smx_context_t context = MSG_process_get_smx_ctx(process);
+                smx_ctx_cojava_stop(context);
+        }
+}
+
+jobject native_to_java_process(m_process_t process)
+{
+  return ((smx_ctx_java_t)MSG_process_get_smx_ctx(process))->jprocess;
+}
+
 jobject jprocess_new_global_ref(jobject jprocess, JNIEnv * env)
 {
   return (*env)->NewGlobalRef(env, jprocess);
@@ -24,194 +39,304 @@ void jprocess_delete_global_ref(jobject jprocess, JNIEnv * env)
   (*env)->DeleteGlobalRef(env, jprocess);
 }
 
-jboolean jprocess_is_alive(jobject jprocess, JNIEnv * env)
+void jprocess_join(jobject jprocess, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "isAlive", "()Z");
-
-  if (!id)
-    return 0;
-
-  return (*env)->CallBooleanMethod(env, jprocess, id);
+	m_process_t process = jprocess_to_native_process(jprocess,env);
+	smx_ctx_java_t context = (smx_ctx_java_t)MSG_process_get_smx_ctx(process);
+	xbt_os_thread_join(context->thread,NULL);
 }
 
-void jprocess_join(jobject jprocess, JNIEnv * env)
+m_process_t jprocess_to_native_process(jobject jprocess, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "join", "()V");
-
-  if (!id)
-    return;
-
-  (*env)->CallVoidMethod(env, jprocess, id);
+  return (m_process_t) (long) (*env)->GetLongField(env, jprocess, jprocess_field_Process_bind);
 }
 
-void jprocess_exit(jobject jprocess, JNIEnv * env)
+void jprocess_bind(jobject jprocess, m_process_t process, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "interrupt", "()V");
-
-  if (!id)
-    return;
-
-  (*env)->CallVoidMethod(env, jprocess, id);
+  (*env)->SetLongField(env, jprocess, jprocess_field_Process_bind, (jlong)(process));
 }
 
-void jprocess_yield(jobject jprocess, JNIEnv * env)
+jlong jprocess_get_id(jobject jprocess, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "switchProcess", "()V");
-
-  if (!id)
-    return;
-
-  (*env)->CallVoidMethod(env, jprocess, id);
+  return (*env)->GetLongField(env, jprocess, jprocess_field_Process_id);
 }
 
-void jprocess_lock_mutex(jobject jprocess, JNIEnv * env)
+jstring jprocess_get_name(jobject jprocess, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "lockMutex", "()V");
-
-  if (!id)
-    return;
+  jstring jname = (jstring) (*env)->GetObjectField(env, jprocess, jprocess_field_Process_name);
+  return (*env)->NewGlobalRef(env, jname);
 
-  (*env)->CallVoidMethod(env, jprocess, id);
 }
 
-void jprocess_unlock_mutex(jobject jprocess, JNIEnv * env)
+jboolean jprocess_is_valid(jobject jprocess, JNIEnv * env)
 {
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "unlockMutex", "()V");
+  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "bind", "J");
 
   if (!id)
-    return;
+    return JNI_FALSE;
 
-  (*env)->CallVoidMethod(env, jprocess, id);
+  return (*env)->GetLongField(env, jprocess, id) ? JNI_TRUE : JNI_FALSE;
 }
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_nativeInit(JNIEnv *env, jclass cls) {
+	jclass jprocess_class_Process = (*env)->FindClass(env, "org/simgrid/msg/Process");
+
+	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_id = jxbt_get_jfield(env, jprocess_class_Process, "id", "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");
+	if (!jprocess_class_Process || !jprocess_field_Process_id || !jprocess_field_Process_name || !jprocess_field_Process_pid ||
+			!jprocess_field_Process_ppid || !jprocess_field_Process_host) {
+  	jxbt_throw_native(env,bprintf("Can't find some fields in Java class. You should report this bug."));
+	}
+}
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_create(JNIEnv * env,
+                                    jobject jprocess_arg,
+                                    jobject jhostname)
+{
 
 
-void jprocess_signal_cond(jobject jprocess, JNIEnv * env)
-{
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "signalCond", "()V");
+  jobject jprocess;             /* the global reference to the java process instance    */
+  jstring jname;                /* the name of the java process instance                */
+  const char *name;             /* the C name of the process                            */
+  const char *hostname;
+  m_process_t process;          /* the native process to create                         */
+  m_host_t host;                /* Where that process lives */
 
-  if (!id)
-    return;
+  hostname = (*env)->GetStringUTFChars(env, jhostname, 0);
 
-  (*env)->CallVoidMethod(env, jprocess, id);
-}
+  XBT_DEBUG("Java_org_simgrid_msg_MsgNative_processCreate(env=%p,jproc=%p,host=%s)",
+	 env, jprocess_arg, hostname);
 
-void jprocess_wait_cond(jobject jprocess, JNIEnv * env)
-{
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "waitCond", "()V");
 
-  if (!id)
+  /* get the name of the java process */
+  jname = jprocess_get_name(jprocess_arg, env);
+  if (!jname) {
+    jxbt_throw_null(env,
+            xbt_strdup("Internal error: Process name cannot be NULL"));
     return;
+  }
 
-  (*env)->CallVoidMethod(env, jprocess, id);
-}
-
+  /* bind/retrieve the msg host */
+  host = MSG_get_host_by_name(hostname);
 
-void jprocess_start(jobject jprocess, JNIEnv * env)
-{
-  jmethodID id =
-      jxbt_get_smethod(env, "org/simgrid/msg/Process", "start", "()V");
+  if (!(host)) {    /* not binded */
+    jxbt_throw_host_not_found(env, hostname);
+    return;
+  }
 
-  if (!id)
+  /* create a global java process instance */
+  jprocess = jprocess_new_global_ref(jprocess_arg, env);
+  if (!jprocess) {
+    jxbt_throw_jni(env, "Can't get a global ref to the java process");
     return;
+  }
 
-  XBT_DEBUG("jprocess_start(jproc=%p,env=%p)", jprocess, env);
-  (*env)->CallVoidMethod(env, jprocess, id);
-  XBT_DEBUG("jprocess started");
+  /* build the C name of the process */
+  name = (*env)->GetStringUTFChars(env, jname, 0);
+  name = xbt_strdup(name);
+
+  /* Retrieve the kill time from the process */
+  jdouble jkill = (*env)->GetDoubleField(env, jprocess, jprocess_field_Process_killTime);
+  /* Actually build the MSG process */
+  process = MSG_process_create_with_environment(name,
+						(xbt_main_func_t) jprocess,
+						/*data*/ jprocess,
+						host,
+						/*argc, argv, properties*/
+						0,NULL,NULL);
+  MSG_process_set_kill_time(process, (double)jkill);
+  MSG_process_set_data(process,&process);
+  /* bind the java process instance to the native process */
+  jprocess_bind(jprocess, process, env);
+
+  /* release our reference to the process name (variable name becomes invalid) */
+  //FIXME : This line should be uncommented but with mac it doesn't work. BIG WARNING
+  //(*env)->ReleaseStringUTFChars(env, jname, name);
+  (*env)->ReleaseStringUTFChars(env, jhostname, hostname);
+
+  /* sets the PID and the PPID of the process */
+  (*env)->SetIntField(env, jprocess, jprocess_field_Process_pid,(jint) MSG_process_get_PID(process));
+  (*env)->SetIntField(env, jprocess, jprocess_field_Process_ppid, (jint) MSG_process_get_PPID(process));
+  /* sets the Host of the process */
+  jobject jhost = Java_org_simgrid_msg_Host_getByName(env,NULL,jhostname);
+
+  (*env)->SetObjectField(env, jprocess, jprocess_field_Process_host, jhost);
 }
 
-m_process_t jprocess_to_native_process(jobject jprocess, JNIEnv * env)
+JNIEXPORT jint JNICALL
+Java_org_simgrid_msg_Process_killAll(JNIEnv * env, jclass cls,
+                                     jint jresetPID)
 {
-  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "bind", "J");
-
-  if (!id)
-    return NULL;
-
-  return (m_process_t) (long) (*env)->GetLongField(env, jprocess, id);
+  return (jint) MSG_process_killall((int) jresetPID);
 }
 
-void jprocess_bind(jobject jprocess, m_process_t process, JNIEnv * env)
+JNIEXPORT jobject JNICALL
+Java_org_simgrid_msg_Process_fromPID(JNIEnv * env, jclass cls,
+                                     jint PID)
 {
-  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "bind", "J");
-  if (!id)
-    return;
+  m_process_t process = MSG_process_from_PID(PID);
 
-  (*env)->SetLongField(env, jprocess, id, (jlong) (long) (process));
-}
+  if (!process) {
+    jxbt_throw_process_not_found(env, bprintf("PID = %d",(int) PID));
+    return NULL;
+  }
 
-jlong jprocess_get_id(jobject jprocess, JNIEnv * env)
-{
-  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "id", "J");
+  jobject jprocess = native_to_java_process(process);
 
-  if (!id)
-    return 0;
+  if (!jprocess) {
+    jxbt_throw_jni(env, "SIMIX_process_get_jprocess() failed");
+    return NULL;
+  }
 
-  return (*env)->GetLongField(env, jprocess, id);
+  return jprocess;
 }
 
-jstring jprocess_get_name(jobject jprocess, JNIEnv * env)
+JNIEXPORT jobject JNICALL
+Java_org_simgrid_msg_Process_currentProcess(JNIEnv * env, jclass cls)
 {
-  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "name",
-                                "Ljava/lang/String;");
-  jobject jname;
+  m_process_t process = MSG_process_self();
+  jobject jprocess;
 
-  if (!id)
+  if (!process) {
+    jxbt_throw_jni(env, xbt_strdup("MSG_process_self() failed"));
     return NULL;
+  }
 
-  jname = (jstring) (*env)->GetObjectField(env, jprocess, id);
+  jprocess = native_to_java_process(process);
 
-  return (*env)->NewGlobalRef(env, jname);
+  if (!jprocess)
+    jxbt_throw_jni(env, xbt_strdup("SIMIX_process_get_jprocess() failed"));
 
+  return jprocess;
 }
 
-jboolean jprocess_is_valid(jobject jprocess, JNIEnv * env)
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_suspend(JNIEnv * env,
+                                   jobject jprocess)
 {
-  jfieldID id = jxbt_get_sfield(env, "org/simgrid/msg/Process", "bind", "J");
+  m_process_t process = jprocess_to_native_process(jprocess, env);
 
-  if (!id)
-    return JNI_FALSE;
-
-  return (*env)->GetLongField(env, jprocess, id) ? JNI_TRUE : JNI_FALSE;
-}
+  if (!process) {
+    jxbt_throw_notbound(env, "process", jprocess);
+    return;
+  }
 
-void jprocess_schedule(smx_context_t context)
-{
-  JNIEnv *env;
-  jmethodID id;
+  /* try to suspend the process */
+  MSG_error_t rv = MSG_process_suspend(process);
 
-  env = get_current_thread_env();
+  jxbt_check_res("MSG_process_suspend()", rv, MSG_OK,
+                 bprintf("unexpected error , please report this bug"));
 
-  id = jxbt_get_smethod(env, "org/simgrid/msg/Process", "schedule", "()V");
+}
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_resume(JNIEnv * env,
+                                     jobject jprocess)
+{
+  m_process_t process = jprocess_to_native_process(jprocess, env);
 
-  if (!id) {
-    XBT_CRITICAL("Cannot find java method org/simgrid/msg/Process/schedule()V");
+  if (!process) {
+    jxbt_throw_notbound(env, "process", jprocess);
     return;
   }
 
-  (*env)->CallVoidMethod(env, ((smx_ctx_java_t) context)->jprocess, id);
+  /* try to resume the process */
+  MSG_error_t rv = MSG_process_resume(process);
+
+  jxbt_check_res("MSG_process_resume()", rv, MSG_OK,
+                 bprintf("unexpected error , please report this bug"));
 }
+JNIEXPORT jboolean JNICALL
+Java_org_simgrid_msg_Process_isSuspended(JNIEnv * env,
+                                         jobject jprocess)
+{
+  m_process_t process = jprocess_to_native_process(jprocess, env);
 
+  if (!process) {
+    jxbt_throw_notbound(env, "process", jprocess);
+    return 0;
+  }
 
+  /* true is the process is suspended, false otherwise */
+  return (jboolean) MSG_process_is_suspended(process);
+}
+
+JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_sleep
+	(JNIEnv *env, jclass cls, jlong jmillis, jint jnanos) {
+
+	double time =  jmillis / 1000 + jnanos / 1000;
+	MSG_error_t rv;
+	TRY {
+		rv = MSG_process_sleep(time);
+	}
+	CATCH_ANONYMOUS {
+		return;
+	}
+  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;
+  TRY {
+  	 rv = MSG_process_sleep((double)jseconds);
+  }
+  CATCH_ANONYMOUS {
+  	return;
+  }
+  if (rv != MSG_OK) {
+  	XBT_INFO("Status NOK");
+  	jmsg_throw_status(env,rv);
+  }
+}
 
-void jprocess_unschedule(smx_context_t context)
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_kill(JNIEnv * env,
+                                  jobject jprocess)
 {
-  JNIEnv *env;
-  jmethodID id;
+	/* get the native instances from the java ones */
+  m_process_t process = jprocess_to_native_process(jprocess, env);
+  if (!process) {
+    jxbt_throw_notbound(env, "process", jprocess);
+    return;
+  }
 
-  env = get_current_thread_env();
+	MSG_process_kill(process);
+}
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_migrate(JNIEnv * env,
+                                     jobject jprocess, jobject jhost)
+{
+  m_process_t process = jprocess_to_native_process(jprocess, env);
 
+  if (!process) {
+    jxbt_throw_notbound(env, "process", jprocess);
+    return;
+  }
 
-  id = jxbt_get_smethod(env, "org/simgrid/msg/Process", "unschedule", "()V");
+  m_host_t host = jhost_get_native(env, jhost);
 
-  if (!id)
+  if (!host) {
+    jxbt_throw_notbound(env, "host", jhost);
     return;
+  }
 
-  (*env)->CallVoidMethod(env, ((smx_ctx_java_t) context)->jprocess, id);
+  /* try to change the host of the process */
+  MSG_error_t rv = MSG_process_migrate(process, host);
+  jxbt_check_res("MSG_process_migrate()", rv, MSG_OK,
+                 bprintf("unexpected error , please report this bug"));
+  /* change the host java side */
+  (*env)->SetObjectField(env, jprocess, jprocess_field_Process_host, jhost);
+}
+JNIEXPORT void JNICALL
+Java_org_simgrid_msg_Process_setKillTime (JNIEnv *env , jobject jprocess, jdouble jkilltime) {
+	m_process_t process = jprocess_to_native_process(jprocess, env);
+	MSG_process_set_kill_time(process, (double)jkilltime);
 }