emulators/emulator-base-native/c/utils.c

   1 /* -*- Mode: C++; indent-tabs-mode: t; tab-width: 4 -*-
   2 // ---------------------------------------------------------------------------
   3 // SquirrelJME
   4 //     Copyright (C) Stephanie Gawroriski <xer@multiphasicapps.net>
   5 // ---------------------------------------------------------------------------
   6 // SquirrelJME is under the Mozilla Public License Version 2.0.
   7 // See license.mkd for licensing and copyright information.
   8 // -------------------------------------------------------------------------*/
   9
  10 #include "squirreljme.h"
  11
  12 #include <stdarg.h>
  13
  14 forwardMethod JNICALL findForwardMethod(JNIEnv* env,
  15         const char* const classy, const char* const name, const char* const type)
  16 {
  17         forwardMethod result;
  18
  19         result.xclass = (*env)->FindClass(env, classy);
  20         result.xmeth = (*env)->GetStaticMethodID(env, result.xclass, name, type);
  21
  22         return result;
  23 }
  24
  25 // Preface
  26 #define SQUEAK_PREF \
  27         forwardMethod call; \
  28         va_list vaArgs; \
  29         \
  30         call = findForwardMethod(env, classy, name, type);\
  31         \
  32         va_start(vaArgs, type);
  33
  34 // Post handling
  35 #define SQUEAK_POST \
  36         va_end(vaArgs);
  37
  38 // Debugging?
  39 #if 0 /*defined(_DEBUG) || defined(DEBUG)*/
  40         #define DEBUG_CALL fprintf(stderr, "JNI Forward: %s:%s\n", classy, name);
  41 #else
  42         #define DEBUG_CALL
  43 #endif
  44
  45 void JNICALL forwardCallStaticVoid(JNIEnv* env,
  46         const char* const classy, const char* const name, const char* const type,
  47         ...)
  48 {
  49         SQUEAK_PREF;
  50         DEBUG_CALL;
  51         (*env)->CallStaticVoidMethodV(env, call.xclass, call.xmeth, vaArgs);
  52         SQUEAK_POST;
  53 }
  54
  55 jint JNICALL forwardCallStaticInteger(JNIEnv* env,
  56         const char* const classy, const char* const name, const char* const type,
  57         ...)
  58 {
  59         jint rv;
  60
  61         SQUEAK_PREF;
  62         DEBUG_CALL;
  63         rv = (*env)->CallStaticIntMethodV(env, call.xclass, call.xmeth, vaArgs);
  64         SQUEAK_POST;
  65
  66         return rv;
  67 }
  68
  69 jlong JNICALL forwardCallStaticLong(JNIEnv* env,
  70         const char* const classy, const char* const name, const char* const type,
  71         ...)
  72 {
  73         jlong rv;
  74
  75         SQUEAK_PREF;
  76         DEBUG_CALL;
  77         rv = (*env)->CallStaticLongMethodV(env, call.xclass, call.xmeth, vaArgs);
  78         SQUEAK_POST;
  79
  80         return rv;
  81 }
  82
  83 jobject JNICALL forwardCallStaticObject(JNIEnv* env,
  84         const char* const classy, const char* const name, const char* const type,
  85         ...)
  86 {
  87         jobject rv;
  88
  89         SQUEAK_PREF;
  90         DEBUG_CALL;
  91         rv = (*env)->CallStaticObjectMethodV(env, call.xclass, call.xmeth, vaArgs);
  92         SQUEAK_POST;
  93
  94         return rv;
  95 }
  96
  97 jboolean JNICALL forwardCallStaticBoolean(JNIEnv* env,
  98         const char* const classy, const char* const name, const char* const type,
  99         ...)
 100 {
 101         jboolean rv;
 102
 103         SQUEAK_PREF;
 104         DEBUG_CALL;
 105         rv = (*env)->CallStaticBooleanMethodV(env, call.xclass, call.xmeth, vaArgs);
 106         SQUEAK_POST;
 107
 108         return rv;
 109 }
 110