4 * Copyright 2006,2007 Martin Quinson, Malek Cherier All right reserved.
6 * This program is free software; you can redistribute it and/or modify it
7 * under the terms of the license (GNU LGPL) which comes with this package.
9 * This contains the implementation of the functions in relation with the java
13 #include "jmsg_process.h"
15 #include "jxbt_utilities.h"
17 #include "xbt/xbt_context_java.h"
19 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(jmsg);
21 jobject jprocess_new_global_ref(jobject jprocess, JNIEnv * env)
23 return (*env)->NewGlobalRef(env, jprocess);
26 void jprocess_delete_global_ref(jobject jprocess, JNIEnv * env)
28 (*env)->DeleteGlobalRef(env, jprocess);
31 jboolean jprocess_is_alive(jobject jprocess, JNIEnv * env)
34 jxbt_get_smethod(env, "simgrid/msg/Process", "isAlive", "()Z");
39 return (*env)->CallBooleanMethod(env, jprocess, id);
42 void jprocess_join(jobject jprocess, JNIEnv * env)
44 jmethodID id = jxbt_get_smethod(env, "simgrid/msg/Process", "join", "()V");
49 (*env)->CallVoidMethod(env, jprocess, id);
52 void jprocess_exit(jobject jprocess, JNIEnv * env)
55 jxbt_get_smethod(env, "simgrid/msg/Process", "interrupt", "()V");
60 (*env)->CallVoidMethod(env, jprocess, id);
63 void jprocess_yield(jobject jprocess, JNIEnv * env)
66 jxbt_get_smethod(env, "simgrid/msg/Process", "switchProcess", "()V");
71 (*env)->CallVoidMethod(env, jprocess, id);
74 void jprocess_lock_mutex(jobject jprocess, JNIEnv * env)
77 jxbt_get_smethod(env, "simgrid/msg/Process", "lockMutex", "()V");
82 (*env)->CallVoidMethod(env, jprocess, id);
85 void jprocess_unlock_mutex(jobject jprocess, JNIEnv * env)
88 jxbt_get_smethod(env, "simgrid/msg/Process", "unlockMutex", "()V");
93 (*env)->CallVoidMethod(env, jprocess, id);
97 void jprocess_signal_cond(jobject jprocess, JNIEnv * env)
100 jxbt_get_smethod(env, "simgrid/msg/Process", "signalCond", "()V");
105 (*env)->CallVoidMethod(env, jprocess, id);
108 void jprocess_wait_cond(jobject jprocess, JNIEnv * env)
111 jxbt_get_smethod(env, "simgrid/msg/Process", "waitCond", "()V");
116 (*env)->CallVoidMethod(env, jprocess, id);
120 void jprocess_start(jobject jprocess, JNIEnv * env)
122 jmethodID id = jxbt_get_smethod(env, "simgrid/msg/Process", "start", "()V");
127 DEBUG2("jprocess_start(jproc=%p,env=%p)", jprocess, env);
128 (*env)->CallVoidMethod(env, jprocess, id);
129 DEBUG0("jprocess started");
132 m_process_t jprocess_to_native_process(jobject jprocess, JNIEnv * env)
134 jfieldID id = jxbt_get_sfield(env, "simgrid/msg/Process", "bind", "J");
139 return (m_process_t) (long) (*env)->GetLongField(env, jprocess, id);
142 void jprocess_bind(jobject jprocess, m_process_t process, JNIEnv * env)
144 jfieldID id = jxbt_get_sfield(env, "simgrid/msg/Process", "bind", "J");
149 (*env)->SetLongField(env, jprocess, id, (jlong) (long) (process));
152 jlong jprocess_get_id(jobject jprocess, JNIEnv * env)
154 jfieldID id = jxbt_get_sfield(env, "simgrid/msg/Process", "id", "J");
159 return (*env)->GetLongField(env, jprocess, id);
162 jstring jprocess_get_name(jobject jprocess, JNIEnv * env)
165 jxbt_get_sfield(env, "simgrid/msg/Process", "name", "Ljava/lang/String;");
171 jname = (jstring) (*env)->GetObjectField(env, jprocess, id);
173 return (*env)->NewGlobalRef(env, jname);
177 jboolean jprocess_is_valid(jobject jprocess, JNIEnv * env)
179 jfieldID id = jxbt_get_sfield(env, "simgrid/msg/Process", "bind", "J");
184 return (*env)->GetLongField(env, jprocess, id) ? JNI_TRUE : JNI_FALSE;
187 void jprocess_schedule(xbt_context_t context)
192 env = get_current_thread_env();
194 id = jxbt_get_smethod(env, "simgrid/msg/Process", "schedule", "()V");
199 (*env)->CallVoidMethod(env, ((xbt_ctx_java_t) context)->jprocess, id);
204 void jprocess_unschedule(xbt_context_t context)
209 env = get_current_thread_env();
212 id = jxbt_get_smethod(env, "simgrid/msg/Process", "unschedule", "()V");
217 (*env)->CallVoidMethod(env, ((xbt_ctx_java_t) context)->jprocess, id);