/* 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"
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) {
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)
/* 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;
}
}
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;
- xbt_ex_t e;
- TRY {
- rv = MSG_process_sleep(time);
- }
- CATCH(e) {
- xbt_ex_free(e);
- return;
- }
+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;
+ rv = MSG_process_sleep(time);
if (rv != MSG_OK) {
- jmsg_throw_status(env,rv);
+ jmsg_throw_status(env,rv);
}
}
JNIEXPORT void JNICALL
jdouble jseconds)
{
msg_error_t rv;
- xbt_ex_t e;
- TRY {
- rv = MSG_process_sleep((double)jseconds);
- }
- CATCH(e) {
- xbt_ex_free(e);
- return;
- }
+ rv = MSG_process_sleep((double)jseconds);
+ if ((*env)->ExceptionOccurred(env))
+ return;
if (rv != MSG_OK) {
- XBT_INFO("Status NOK");
- jmsg_throw_status(env,rv);
+ XBT_DEBUG("Status NOK");
+ jmsg_throw_status(env,rv);
}
}
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);
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.
- * 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
return (jint) MSG_process_get_number();
-#else
- return (jint) -1;
-#endif
}