X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e094538b3c56c20f2e93c2d0c01ee970b2a9cff9..f2df13795e01302813a6aef10825ec7e922ce530:/src/bindings/java/jmsg_process.c diff --git a/src/bindings/java/jmsg_process.c b/src/bindings/java/jmsg_process.c index 9499ba5892..ed259b7440 100644 --- a/src/bindings/java/jmsg_process.c +++ b/src/bindings/java/jmsg_process.c @@ -1,10 +1,11 @@ /* Functions related to the java process instances. */ -/* Copyright (c) 2007-2012. The SimGrid Team. +/* Copyright (c) 2007-2014. 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. */ + * under the terms of the license (GNU LGPL) which comes with this package. */ + #include "jmsg_process.h" #include "jmsg.h" @@ -15,6 +16,14 @@ XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg); +jfieldID jprocess_field_Process_bind; +jfieldID jprocess_field_Process_host; +jfieldID jprocess_field_Process_killTime; +jfieldID jprocess_field_Process_id; +jfieldID jprocess_field_Process_name; +jfieldID jprocess_field_Process_pid; +jfieldID jprocess_field_Process_ppid; + JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_exit(JNIEnv *env, jobject jprocess) { if (smx_factory_initializer_to_use == SIMIX_ctx_cojava_factory_init) { @@ -48,17 +57,21 @@ void jprocess_join(jobject jprocess, JNIEnv * env) msg_process_t jprocess_to_native_process(jobject jprocess, JNIEnv * env) { - return (msg_process_t) (long) (*env)->GetLongField(env, jprocess, jprocess_field_Process_bind); + return + (msg_process_t)(intptr_t)(*env)->GetLongField(env, jprocess, + jprocess_field_Process_bind); } void jprocess_bind(jobject jprocess, msg_process_t process, JNIEnv * env) { - (*env)->SetLongField(env, jprocess, jprocess_field_Process_bind, (jlong)(process)); + (*env)->SetLongField(env, jprocess, jprocess_field_Process_bind, + (intptr_t)process); } jlong jprocess_get_id(jobject jprocess, JNIEnv * env) { - return (*env)->GetLongField(env, jprocess, jprocess_field_Process_id); + return + (intptr_t)(*env)->GetLongField(env, jprocess, jprocess_field_Process_id); } jstring jprocess_get_name(jobject jprocess, JNIEnv * env) @@ -120,7 +133,7 @@ Java_org_simgrid_msg_Process_create(JNIEnv * env, /* bind/retrieve the msg host */ host = MSG_get_host_by_name(hostname); - if (!(host)) { /* not binded */ + if (!(host)) { /* not bound */ jxbt_throw_host_not_found(env, hostname); return; } @@ -323,7 +336,7 @@ Java_org_simgrid_msg_Process_isSuspended(JNIEnv * env, JNIEXPORT void JNICALL Java_org_simgrid_msg_Process_sleep(JNIEnv *env, jclass cls, jlong jmillis, jint jnanos) { - double time = jmillis / 1000 + jnanos / 1000; + double time = ((double)jmillis) / 1000 + ((double)jnanos) / 1000000000; msg_error_t rv; rv = MSG_process_sleep(time); if (rv != MSG_OK) { @@ -336,8 +349,10 @@ Java_org_simgrid_msg_Process_waitFor(JNIEnv * env, jobject jprocess, { msg_error_t rv; rv = MSG_process_sleep((double)jseconds); + if ((*env)->ExceptionOccurred(env)) + return; if (rv != MSG_OK) { - XBT_INFO("Status NOK"); + XBT_DEBUG("Status NOK"); jmsg_throw_status(env,rv); } } @@ -377,6 +392,7 @@ Java_org_simgrid_msg_Process_migrate(JNIEnv * env, msg_error_t rv = MSG_process_migrate(process, host); if (rv != MSG_OK) { jmsg_throw_status(env,rv); + return; } /* change the host java side */ (*env)->SetObjectField(env, jprocess, jprocess_field_Process_host, jhost); @@ -389,7 +405,7 @@ Java_org_simgrid_msg_Process_setKillTime (JNIEnv *env , jobject jprocess, jdoubl JNIEXPORT jint JNICALL Java_org_simgrid_msg_Process_getCount(JNIEnv * env, jclass cls) { - /* FIXME: the next test on SimGrid version is to ensure that this still compiles with SG 3.8 while the C function were added in SG 3.9 only. + /* The next test on SimGrid version is to ensure that this still compiles with SG 3.8 while the C function were added in SG 3.9 only. * This kind of pimple becomes mandatory when you get so slow to release the java version that it begins evolving further after the C release date. */ #if SIMGRID_VERSION >= 30900