1 /* Functions related to the java file API. */
3 /* Copyright (c) 2012-2014. 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 "jxbt_utilities.h"
14 void jfile_bind(JNIEnv *env, jobject jfile, msg_file_t fd) {
15 env->SetLongField(jfile, jfile_field_bind, reinterpret_cast<std::intptr_t>(fd));
18 msg_file_t jfile_get_native(JNIEnv *env, jobject jfile) {
19 return reinterpret_cast<msg_file_t>(env->GetLongField(jfile, jfile_field_bind));
22 JNIEXPORT void JNICALL Java_org_simgrid_msg_File_nativeInit(JNIEnv *env, jclass cls) {
23 jclass class_File = env->FindClass("org/simgrid/msg/File");
24 jfile_field_bind = jxbt_get_jfield(env , class_File, "bind", "J");
25 xbt_assert((jfile_field_bind != nullptr), "Can't find 'bind' field in File class.");
28 JNIEXPORT void JNICALL Java_org_simgrid_msg_File_open(JNIEnv *env, jobject jfile, jobject jpath) {
29 const char *path = env->GetStringUTFChars((jstring) jpath, 0);
30 msg_file_t file = MSG_file_open(path, nullptr);
31 jfile_bind(env, jfile, file);
33 env->ReleaseStringUTFChars(static_cast<jstring>(jpath), path);
36 JNIEXPORT jlong JNICALL Java_org_simgrid_msg_File_read(JNIEnv *env, jobject jfile, jlong jsize) {
37 msg_file_t file = jfile_get_native(env, jfile);
38 return static_cast<jlong>(MSG_file_read(file, static_cast<sg_size_t>(jsize)));
41 JNIEXPORT jlong JNICALL Java_org_simgrid_msg_File_write(JNIEnv *env, jobject jfile, jlong jsize) {
42 msg_file_t file = jfile_get_native(env, jfile);
43 return static_cast<jlong>(MSG_file_write(file, static_cast<sg_size_t>(jsize)));
46 JNIEXPORT void JNICALL Java_org_simgrid_msg_File_seek(JNIEnv *env, jobject jfile, jlong offset, jlong origin) {
47 msg_file_t file = jfile_get_native(env, jfile);
48 MSG_file_seek(file, static_cast<sg_offset_t>(offset), static_cast<int>(origin));
51 JNIEXPORT void JNICALL Java_org_simgrid_msg_File_close(JNIEnv *env, jobject jfile) {
52 msg_file_t file = jfile_get_native(env, jfile);
55 jfile_bind(env, jfile, nullptr);