1 /* Java binding of the RngStream library */
3 /* Copyright (c) 2007-2017. The SimGrid Team. All rights reserved. */
5 /* This program is free software; you can redistribute it and/or modify it
6 * under the terms of the license (GNU LGPL) which comes with this package. */
8 #include "xbt/sysdep.h"
10 #include "jmsg_rngstream.h"
11 #include "jxbt_utilities.h"
15 jfieldID jrngstream_bind;
17 RngStream jrngstream_to_native(JNIEnv *env, jobject jrngstream) {
18 RngStream rngstream = (RngStream)(intptr_t)env->GetLongField(jrngstream, jrngstream_bind);
20 jxbt_throw_notbound(env, "rngstream", jrngstream);
26 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_nativeInit(JNIEnv *env, jclass cls) {
27 jclass class_RngStream = env->FindClass("org/simgrid/msg/RngStream");
29 jrngstream_bind = jxbt_get_jfield(env, class_RngStream, "bind", "J");
32 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_create(JNIEnv *env, jobject jrngstream, jstring jname) {
33 const char *name = env->GetStringUTFChars(jname, 0);
34 RngStream rngstream = RngStream_CreateStream(name);
35 //Bind the RngStream object
36 env->SetLongField(jrngstream, jrngstream_bind, (intptr_t)rngstream);
38 env->ReleaseStringUTFChars(jname, name);
41 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_nativeFinalize(JNIEnv *env, jobject jrngstream) {
42 RngStream rngstream = jrngstream_to_native(env, jrngstream);
43 RngStream_DeleteStream(&rngstream);
44 env->SetLongField(jrngstream, jrngstream_bind, (intptr_t)nullptr);
47 JNIEXPORT jboolean JNICALL
48 Java_org_simgrid_msg_RngStream_setPackageSeed(JNIEnv *env, jobject jrngstream, jintArray jseed) {
50 if (jseed == nullptr) {
51 jxbt_throw_null(env, xbt_strdup("seed argument is null"));
56 env->GetIntArrayRegion(jseed, 0, 6, buffer);
58 // The C API expects unsigned long which are wider than int on LP64.
59 // We need to convert:
60 unsigned long seed[6];
61 for (int i = 0; i != 6; ++i)
64 int result = RngStream_SetPackageSeed(seed);
65 return result == -1 ? JNI_FALSE : JNI_TRUE;
68 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_resetStart(JNIEnv *env, jobject jrngstream) {
69 RngStream rngstream = jrngstream_to_native(env, jrngstream);
73 RngStream_ResetStartStream(rngstream);
76 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_resetStartSubstream(JNIEnv *env, jobject jrngstream) {
77 RngStream rngstream = jrngstream_to_native(env, jrngstream);
81 RngStream_ResetStartSubstream(rngstream);
84 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_resetNextSubstream(JNIEnv *env, jobject jrngstream) {
85 RngStream rngstream = jrngstream_to_native(env, jrngstream);
89 RngStream_ResetNextSubstream(rngstream);
92 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_setAntithetic(JNIEnv *env, jobject jrngstream, jboolean ja) {
93 RngStream rngstream = jrngstream_to_native(env, jrngstream);
98 RngStream_SetAntithetic(rngstream,-1);
101 RngStream_SetAntithetic(rngstream,0);
105 JNIEXPORT jboolean JNICALL Java_org_simgrid_msg_RngStream_setSeed(JNIEnv *env, jobject jrngstream, jintArray jseed) {
108 env->GetIntArrayRegion(jseed, 0, 6, buffer);
110 RngStream rngstream = jrngstream_to_native(env, jrngstream);
114 // The C API expects unsigned long which are wider than int on LP64.
115 // We need to convert:
116 unsigned long seed[6];
117 for (int i = 0; i != 6; ++i)
120 int result = RngStream_SetSeed(rngstream, seed);
122 return result == -1 ? JNI_FALSE : JNI_TRUE;
125 JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_advanceState(JNIEnv *env, jobject jrngstream, jint e, jint g) {
126 RngStream rngstream = jrngstream_to_native(env, jrngstream);
130 RngStream_AdvanceState(rngstream, (long)e, (long)g);
133 JNIEXPORT jdouble JNICALL Java_org_simgrid_msg_RngStream_randU01(JNIEnv *env, jobject jrngstream) {
134 RngStream rngstream = jrngstream_to_native(env, jrngstream);
138 return (jdouble)RngStream_RandU01(rngstream);
141 JNIEXPORT jint JNICALL Java_org_simgrid_msg_RngStream_randInt(JNIEnv *env, jobject jrngstream, jint i, jint j) {
142 RngStream rngstream = jrngstream_to_native(env, jrngstream);
146 return (jint)RngStream_RandInt(rngstream, (int)i, (int)j);