simgrid-java/src/jmsg_file.c

   1 /* Functions related to the java file API.                            */
   2 /* Copyright (c) 2012. The SimGrid Team.
   3  * All rights reserved.                                                     */
   4
   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. */
   7 #include "jmsg_file.h"
   8 #include "jxbt_utilities.h"
   9 void jfile_bind(JNIEnv *env, jobject jfile, msg_file_t stream) {
  10   (*env)->SetLongField(env, jfile, jfile_field_bind, (jlong) (long) (stream));
  11 }
  12
  13 msg_file_t jfile_get_native(JNIEnv *env, jobject jfile) {
  14   msg_file_t file = (msg_file_t)(*env)->GetLongField(env, jfile, jfile_field_bind);
  15   return file;
  16 }
  17
  18 JNIEXPORT void JNICALL
  19 Java_org_simgrid_msg_File_nativeInit(JNIEnv *env, jclass cls) {
  20   jclass class_File = (*env)->FindClass(env, "org/simgrid/msg/File");
  21   jfile_field_bind = jxbt_get_jfield(env , class_File, "bind", "J");
  22   xbt_assert((jfile_field_bind != NULL), "Can't find \"bind\" field in File class.");
  23 }
  24 JNIEXPORT void JNICALL
  25 Java_org_simgrid_msg_File_open(JNIEnv *env, jobject jfile, jobject jstorage, jobject jpath, jobject jmode) {
  26   const char *storage = (*env)->GetStringUTFChars(env, jstorage, 0);
  27   const char *path = (*env)->GetStringUTFChars(env, jpath, 0);
  28   const char *mode = (*env)->GetStringUTFChars(env, jmode, 0);
  29   msg_file_t file;
  30   xbt_ex_t e;
  31   TRY {
  32     file = MSG_file_open(storage, path, mode);
  33   }
  34   CATCH(e) {
  35     xbt_ex_free(e);
  36   }
  37   jfile_bind(env, jfile, file);
  38
  39   (*env)->ReleaseStringUTFChars(env, jstorage, storage);
  40   (*env)->ReleaseStringUTFChars(env, jpath, path);
  41   (*env)->ReleaseStringUTFChars(env, jmode, mode);
  42 }
  43 JNIEXPORT jlong JNICALL
  44 Java_org_simgrid_msg_File_read(JNIEnv *env, jobject jfile, jlong jsize, jlong jnmemb) {
  45   msg_file_t file = jfile_get_native(env, jfile);
  46   size_t n;
  47   xbt_ex_t e;
  48   TRY {
  49     n = MSG_file_read(NULL,(size_t)jsize, (size_t)jnmemb, file);
  50   }
  51   CATCH (e) {
  52     xbt_ex_free(e);
  53   }
  54   return (jlong)n;
  55 }
  56
  57 JNIEXPORT jlong JNICALL
  58 Java_org_simgrid_msg_File_write(JNIEnv *env, jobject jfile, jlong jsize, jlong jnmemb) {
  59   msg_file_t file = jfile_get_native(env, jfile);
  60   xbt_ex_t e;
  61   size_t n;
  62   TRY {
  63      n = MSG_file_write(NULL, (size_t)jsize, (size_t)jnmemb, file);
  64   }
  65   CATCH(e) {
  66     xbt_ex_free(e);
  67   }
  68   return (jlong)n;
  69 }
  70 JNIEXPORT void JNICALL
  71 Java_org_simgrid_msg_File_close(JNIEnv *env, jobject jfile) {
  72   msg_file_t file = jfile_get_native(env, jfile);
  73
  74   MSG_file_close(file);
  75   jfile_bind(env, jfile, NULL);
  76 }
  77