1 /* Functions related to the RngStream Java port */
3 /* Copyright (c) 2007-2013. The SimGrid Team.
4 * All rights 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. */
10 #include "jmsg_rngstream.h"
11 #include "jxbt_utilities.h"
13 jfieldID jrngstream_bind;
15 RngStream jrngstream_to_native(JNIEnv *env, jobject jrngstream) {
17 (RngStream)(intptr_t)(*env)->GetLongField(env, jrngstream, jrngstream_bind);
19 jxbt_throw_notbound(env, "rngstream", jrngstream);
25 JNIEXPORT void JNICALL
26 Java_org_simgrid_msg_RngStream_nativeInit(JNIEnv *env, jclass cls) {
27 jclass class_RngStream = (*env)->FindClass(env, "org/simgrid/msg/RngStream");
29 jrngstream_bind = jxbt_get_jfield(env, class_RngStream, "bind", "J");
32 JNIEXPORT void JNICALL
33 Java_org_simgrid_msg_RngStream_create(JNIEnv *env, jobject jrngstream, jstring jname) {
34 const char *name = (*env)->GetStringUTFChars(env, jname, 0);
35 RngStream rngstream = RngStream_CreateStream(name);
36 //Bind the RngStream object
37 (*env)->SetLongField(env, jrngstream, jrngstream_bind, (intptr_t)rngstream);
39 (*env)->ReleaseStringUTFChars(env, jname, name);
41 JNIEXPORT void JNICALL
42 Java_org_simgrid_msg_RngStream_destroy(JNIEnv *env, jobject jrngstream) {
43 RngStream rngstream = jrngstream_to_native(env, jrngstream);
44 RngStream_DeleteStream(&rngstream);
45 (*env)->SetLongField(env, jrngstream, jrngstream_bind, (intptr_t)NULL);
47 JNIEXPORT jboolean JNICALL
48 Java_org_simgrid_msg_RngStream_setPackageSeed(JNIEnv *env, jobject jrngstream, jintArray jseed) {
51 (*env)->GetIntArrayRegion(env, jseed, 0, 6, buffer);
53 RngStream rngstream = jrngstream_to_native(env, jrngstream);
57 int result = RngStream_SetPackageSeed((unsigned long*)buffer);
59 return result == -1 ? JNI_FALSE : JNI_TRUE;
61 JNIEXPORT void JNICALL
62 Java_org_simgrid_msg_RngStream_resetStart(JNIEnv *env, jobject jrngstream) {
63 RngStream rngstream = jrngstream_to_native(env, jrngstream);
67 RngStream_ResetStartStream(rngstream);
69 JNIEXPORT void JNICALL
70 Java_org_simgrid_msg_RngStream_resetStartSubstream(JNIEnv *env, jobject jrngstream) {
71 RngStream rngstream = jrngstream_to_native(env, jrngstream);
75 RngStream_ResetStartSubstream(rngstream);
77 JNIEXPORT void JNICALL
78 Java_org_simgrid_msg_RngStream_resetNextSubstream(JNIEnv *env, jobject jrngstream) {
79 RngStream rngstream = jrngstream_to_native(env, jrngstream);
83 RngStream_ResetNextSubstream(rngstream);
85 JNIEXPORT void JNICALL
86 Java_org_simgrid_msg_RngStream_setAntithetic(JNIEnv *env, jobject jrngstream, jboolean ja) {
87 RngStream rngstream = jrngstream_to_native(env, jrngstream);
92 RngStream_SetAntithetic(rngstream,-1);
95 RngStream_SetAntithetic(rngstream,0);
98 JNIEXPORT jboolean JNICALL
99 Java_org_simgrid_msg_RngStream_setSeed(JNIEnv *env, jobject jrngstream, jintArray jseed) {
102 (*env)->GetIntArrayRegion(env, jseed, 0, 6, buffer);
104 RngStream rngstream = jrngstream_to_native(env, jrngstream);
109 int result = RngStream_SetSeed(rngstream, (unsigned long*)buffer);
111 return result == -1 ? JNI_FALSE : JNI_TRUE;
113 JNIEXPORT void JNICALL
114 Java_org_simgrid_msg_RngStream_advanceState(JNIEnv *env, jobject jrngstream, jint e, jint g) {
115 RngStream rngstream = jrngstream_to_native(env, jrngstream);
119 RngStream_AdvanceState(rngstream, (long)e, (long)g);
121 JNIEXPORT jdouble JNICALL
122 Java_org_simgrid_msg_RngStream_randU01(JNIEnv *env, jobject jrngstream) {
123 RngStream rngstream = jrngstream_to_native(env, jrngstream);
127 return (jdouble)RngStream_RandU01(rngstream);
129 JNIEXPORT jint JNICALL
130 Java_org_simgrid_msg_RngStream_randInt(JNIEnv *env, jobject jrngstream, jint i, jint j) {
131 RngStream rngstream = jrngstream_to_native(env, jrngstream);
135 return (jint)RngStream_RandInt(rngstream, (int)i, (int)j);